|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1884fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 05c0 | | .CONST 0x05c0 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 0003 | | .CONST 0x0003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00cb | | .CONST 0x00cb ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0031 | 1 | .CONST 0x0031 ; Number of locals
000b INIT_0008:
000b 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
000d 4800 |H | Short_Literal 0x0
000e 4802 |H | Short_Literal 0x2
000f 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call
0011 03fe | | Declare_Type Discrete,Defined,Visible
0012 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
0014 480f |H | Short_Literal 0xf
0015 0093 0393 | | push_full_address INIT_0390
0017 02a0 | | Declare_Subprogram Null_Subprogram
0018 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
0019 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
001b 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
001d 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
001f 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
0021 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
0023 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
0025 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
0027 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0029 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
002b 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
002d 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
002f 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
0031 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
0033 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
0035 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
0037 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
0039 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
003b 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated
003d 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated
003f 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
0041 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated
0043 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated
0045 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated
0047 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated
0049 00bf | | Action Accept_Activation
004a e001 | | Load 0x0,0x1
004b e002 | | Load 0x0,0x2
004c 4880 |H | Short_Literal 0x80
004d e003 | | Load 0x0,0x3
004e 0387 | | Declare_Variable Package
004f 00d8 | | Load_Top At_Offset_0
0050 020f | | Execute Module,Activate
0051 4801 |H | Short_Literal 0x1
0052 4801 |H | Short_Literal 0x1
0053 00e9 | | Load_Encached String_Cache
0054 035b | [ | Declare_Type Array,Constrained
0055 0337 | 7 | Declare_Variable Array
0056 00d8 | | Load_Top At_Offset_0
0057 0335 | 5 | Declare_Variable Array,Duplicate
0058 00cd | | Action Spare6_Action
0059 480a |H | Short_Literal 0xa
005a 4801 |H | Short_Literal 0x1
005b 00da | | Load_Top At_Offset_2
005c 01d6 | | Execute Vector,Field_Write
005d 00d9 | | Load_Top At_Offset_1
005e 01d4 | | Execute Vector,Structure_Write
005f 4801 |H | Short_Literal 0x1
0060 4802 |H | Short_Literal 0x2
0061 00e9 | | Load_Encached String_Cache
0062 035b | [ | Declare_Type Array,Constrained
0063 0337 | 7 | Declare_Variable Array
0064 00d8 | | Load_Top At_Offset_0
0065 0335 | 5 | Declare_Variable Array,Duplicate
0066 00cd | | Action Spare6_Action
0067 480a |H | Short_Literal 0xa
0068 4801 |H | Short_Literal 0x1
0069 00da | | Load_Top At_Offset_2
006a 01d6 | | Execute Vector,Field_Write
006b 480a |H | Short_Literal 0xa
006c 4802 |H | Short_Literal 0x2
006d 00da | | Load_Top At_Offset_2
006e 01d6 | | Execute Vector,Field_Write
006f 00d9 | | Load_Top At_Offset_1
0070 01d4 | | Execute Vector,Structure_Write
0071 4801 |H | Short_Literal 0x1
0072 4803 |H | Short_Literal 0x3
0073 00e9 | | Load_Encached String_Cache
0074 035b | [ | Declare_Type Array,Constrained
0075 0337 | 7 | Declare_Variable Array
0076 00d8 | | Load_Top At_Offset_0
0077 0335 | 5 | Declare_Variable Array,Duplicate
0078 00cd | | Action Spare6_Action
0079 4803 |H | Short_Literal 0x3
007a 4801 |H | Short_Literal 0x1
007b 480a |H | Short_Literal 0xa
007c 00d9 | | Load_Top At_Offset_1
007d e22d | - | Load 0x1,0x2d
007e 01d6 | | Execute Vector,Field_Write
007f 3ffb |? | Loop_Increasing 0x7b
0080 00d9 | | Load_Top At_Offset_1
0081 01d4 | | Execute Vector,Structure_Write
0082 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call
0084 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0085 00c7 | | Action Elaborate_Subprogram
0086 029d 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call
0088 029d 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call
008a 029d 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call
008c 029d 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call
008e 1d0f | | Execute_Immediate Reference_Lex_1,0xf
008f 00c7 | | Action Elaborate_Subprogram
0090 e229 | ) | Load 0x1,0x29
0091 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
0092 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0093 e22a | * | Load 0x1,0x2a
0094 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
0095 4805 |H | Short_Literal 0x5
0096 e210 | | Load 0x1,0x10
0097 020e | | Execute Module,Augment_Imports
0098 e210 | | Load 0x1,0x10
0099 020d | | Execute Module,Elaborate
009a 0007 | | Action Break_Optional
009b 1d11 | | Execute_Immediate Reference_Lex_1,0x11
009c 00c7 | | Action Elaborate_Subprogram
009d 1d12 | | Execute_Immediate Reference_Lex_1,0x12
009e 00c7 | | Action Elaborate_Subprogram
009f 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00a0 00c7 | | Action Elaborate_Subprogram
00a1 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00a2 00c7 | | Action Elaborate_Subprogram
00a3 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00a4 00c7 | | Action Elaborate_Subprogram
00a5 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00a6 00c7 | | Action Elaborate_Subprogram
00a7 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00a8 00c7 | | Action Elaborate_Subprogram
00a9 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00aa 00c7 | | Action Elaborate_Subprogram
00ab 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00ac 00c7 | | Action Elaborate_Subprogram
00ad 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00ae 00c7 | | Action Elaborate_Subprogram
00af 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00b0 00c7 | | Action Elaborate_Subprogram
00b1 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00b2 00c7 | | Action Elaborate_Subprogram
00b3 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00b4 00c7 | | Action Elaborate_Subprogram
00b5 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00b6 00c7 | | Action Elaborate_Subprogram
00b7 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00b8 00c7 | | Action Elaborate_Subprogram
00b9 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00ba 00c7 | | Action Elaborate_Subprogram
00bb 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00bc 00c7 | | Action Elaborate_Subprogram
00bd 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00be 00c7 | | Action Elaborate_Subprogram
00bf 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00c0 00c7 | | Action Elaborate_Subprogram
00c1 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00c2 00c7 | | Action Elaborate_Subprogram
00c3 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00c4 00c7 | | Action Elaborate_Subprogram
00c5 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00c6 00c7 | | Action Elaborate_Subprogram
00c7 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00c8 00c7 | | Action Elaborate_Subprogram
00c9 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00ca 00c7 | | Action Elaborate_Subprogram
00cb BODY_0008:
00cb 00bc | | Action Signal_Activated
00cc 00bb | | Action Signal_Completion
00cd 0000 0000 | | .XXX[0x3]
00cf 0000 | |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 0092 04f8 | | Action Push_String_Extended,0x4f8 ; "with "
00d5 00db | | Load_Top At_Offset_3
00d6 01cc | | Execute Vector,Catenate
00d7 0092 04f9 | | Action Push_String_Extended,0x4f9 ; ";"
00d9 01cc | | Execute Vector,Catenate
00da e22a | * | Load 0x1,0x2a
00db 01cc | | Execute Vector,Catenate
00dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00dd 0000 0000 | | .XXX[0x3]
00df 0000 | |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 4607 |F | Jump_Case 0x8
00e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00e5 7806 |x | Jump 0xec ; case 0x1
00e6 7809 |x | Jump 0xf0 ; case 0x2
00e7 780d |x | Jump 0xf5 ; case 0x3
00e8 7810 |x | Jump 0xf9 ; case 0x4
00e9 7811 |x | Jump 0xfb ; case 0x5
00ea 7812 |x | Jump 0xfd ; case 0x6
00eb 7815 |x | Jump 0x101 ; case 0x7
00ec 00da | | Load_Top At_Offset_2
00ed 0091 04f5 | | Action Push_String_Extended_Indexed,0x4f5 ; "SPEC_PART"
00ef 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00f0 00db | | Load_Top At_Offset_3
00f1 00db | | Load_Top At_Offset_3
00f2 00e0 | | Load_Encached Standard_Cache
00f3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f5 00da | | Load_Top At_Offset_2
00f6 00e0 | | Load_Encached Standard_Cache
00f7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00f8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00f9 00db | | Load_Top At_Offset_3
00fa 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fb 00db | | Load_Top At_Offset_3
00fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fd e20e | | Load 0x1,0xe
00fe 00dc | | Load_Top At_Offset_4
00ff 0267 | g | Execute Discrete,Predecessor
0100 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0101 e20e | | Load 0x1,0xe
0102 00dc | | Load_Top At_Offset_4
0103 0268 | h | Execute Discrete,Successor
0104 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0105 0000 0000 | | .XXX[0x3]
0107 0000 | |
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 00db | | Load_Top At_Offset_3
010c 4602 |F | Jump_Case 0x3
010d 7803 |x | Jump 0x111 ; case 0x0
010e 780f |x | Jump 0x11e ; case 0x1
010f 7800 |x | Jump 0x110 ; case 0x2
0110 08e2 | | Execute_Immediate Raise,0xe2
0111 0092 04fa | | Action Push_String_Extended,0x4fa ; "package "
0113 e5fe | | Load 0x2,-0x2
0114 822e | . | Call 0x1,0x2e
0115 01cc | | Execute Vector,Catenate
0116 00db | | Load_Top At_Offset_3
0117 01cc | | Execute Vector,Catenate
0118 0092 04fb | | Action Push_String_Extended,0x4fb ; " is"
011a 01cc | | Execute Vector,Catenate
011b e22b | + | Load 0x1,0x2b
011c 01cc | | Execute Vector,Catenate
011d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
011e 0092 04fa | | Action Push_String_Extended,0x4fa ; "package "
0120 e5fe | | Load 0x2,-0x2
0121 822e | . | Call 0x1,0x2e
0122 01cc | | Execute Vector,Catenate
0123 00db | | Load_Top At_Offset_3
0124 01cc | | Execute Vector,Catenate
0125 0092 04fb | | Action Push_String_Extended,0x4fb ; " is"
0127 01cc | | Execute Vector,Catenate
0128 e22b | + | Load 0x1,0x2b
0129 01cc | | Execute Vector,Catenate
012a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
012b 0000 0000 | | .BLANK 0000[0x5]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 00db | | Load_Top At_Offset_3
0134 4602 |F | Jump_Case 0x3
0135 780e |x | Jump 0x144 ; case 0x0
0136 781c |x | Jump 0x153 ; case 0x1
0137 7800 |x | Jump 0x138 ; case 0x2
0138 00da | | Load_Top At_Offset_2
0139 0092 04fc | | Action Push_String_Extended,0x4fc ; " ("
013b 01cc | | Execute Vector,Catenate
013c e5fd | | Load 0x2,-0x3
013d 01cc | | Execute Vector,Catenate
013e 0092 04fd | | Action Push_String_Extended,0x4fd ; ");"
0140 01cc | | Execute Vector,Catenate
0141 e22a | * | Load 0x1,0x2a
0142 01cc | | Execute Vector,Catenate
0143 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0144 0092 04fe | | Action Push_String_Extended,0x4fe ; "procedure "
0146 00db | | Load_Top At_Offset_3
0147 01cc | | Execute Vector,Catenate
0148 0092 04fc | | Action Push_String_Extended,0x4fc ; " ("
014a 01cc | | Execute Vector,Catenate
014b e5fd | | Load 0x2,-0x3
014c 01cc | | Execute Vector,Catenate
014d 0092 04fd | | Action Push_String_Extended,0x4fd ; ");"
014f 01cc | | Execute Vector,Catenate
0150 e22a | * | Load 0x1,0x2a
0151 01cc | | Execute Vector,Catenate
0152 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0153 0092 04fe | | Action Push_String_Extended,0x4fe ; "procedure "
0155 00db | | Load_Top At_Offset_3
0156 01cc | | Execute Vector,Catenate
0157 0092 04fc | | Action Push_String_Extended,0x4fc ; " ("
0159 01cc | | Execute Vector,Catenate
015a e5fd | | Load 0x2,-0x3
015b 01cc | | Execute Vector,Catenate
015c 0092 04ff | | Action Push_String_Extended,0x4ff ; ") is"
015e 01cc | | Execute Vector,Catenate
015f e22a | * | Load 0x1,0x2a
0160 01cc | | Execute Vector,Catenate
0161 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0162 0000 0000 | | .BLANK 0000[0x6]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 00db | | Load_Top At_Offset_3
016c 4602 |F | Jump_Case 0x3
016d 7813 |x | Jump 0x181 ; case 0x0
016e 7826 |x& | Jump 0x195 ; case 0x1
016f 7800 |x | Jump 0x170 ; case 0x2
0170 e5fc | | Load 0x2,-0x4
0171 0092 0500 | | Action Push_String_Extended,0x500 ; " := "
0173 01cc | | Execute Vector,Catenate
0174 00db | | Load_Top At_Offset_3
0175 01cc | | Execute Vector,Catenate
0176 0092 04fc | | Action Push_String_Extended,0x4fc ; " ("
0178 01cc | | Execute Vector,Catenate
0179 e5fd | | Load 0x2,-0x3
017a 01cc | | Execute Vector,Catenate
017b 0092 0501 | | Action Push_String_Extended,0x501 ; ")"
017d 01cc | | Execute Vector,Catenate
017e e22a | * | Load 0x1,0x2a
017f 01cc | | Execute Vector,Catenate
0180 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0181 0092 0502 | | Action Push_String_Extended,0x502 ; "function "
0183 00db | | Load_Top At_Offset_3
0184 01cc | | Execute Vector,Catenate
0185 0092 04fc | | Action Push_String_Extended,0x4fc ; " ("
0187 01cc | | Execute Vector,Catenate
0188 e5fd | | Load 0x2,-0x3
0189 01cc | | Execute Vector,Catenate
018a 0092 0503 | | Action Push_String_Extended,0x503 ; ") return "
018c 01cc | | Execute Vector,Catenate
018d e5fc | | Load 0x2,-0x4
018e 01cc | | Execute Vector,Catenate
018f 0092 04f9 | | Action Push_String_Extended,0x4f9 ; ";"
0191 01cc | | Execute Vector,Catenate
0192 e22a | * | Load 0x1,0x2a
0193 01cc | | Execute Vector,Catenate
0194 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0195 0092 0502 | | Action Push_String_Extended,0x502 ; "function "
0197 00db | | Load_Top At_Offset_3
0198 01cc | | Execute Vector,Catenate
0199 0092 04fc | | Action Push_String_Extended,0x4fc ; " ("
019b 01cc | | Execute Vector,Catenate
019c e5fd | | Load 0x2,-0x3
019d 01cc | | Execute Vector,Catenate
019e 0092 0503 | | Action Push_String_Extended,0x503 ; ") return "
01a0 01cc | | Execute Vector,Catenate
01a1 e5fc | | Load 0x2,-0x4
01a2 01cc | | Execute Vector,Catenate
01a3 0092 04fb | | Action Push_String_Extended,0x4fb ; " is"
01a5 01cc | | Execute Vector,Catenate
01a6 e22a | * | Load 0x1,0x2a
01a7 01cc | | Execute Vector,Catenate
01a8 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
01a9 0000 0000 | | .BLANK 0000[0x7]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 00da | | Load_Top At_Offset_2
01b4 0092 0504 | | Action Push_String_Extended,0x504 ; " : exception;"
01b6 01cc | | Execute Vector,Catenate
01b7 e22a | * | Load 0x1,0x2a
01b8 01cc | | Execute Vector,Catenate
01b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ba 0000 0000 | | .BLANK 0000[0x6]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 00da | | Load_Top At_Offset_2
01c4 0092 0505 | | Action Push_String_Extended,0x505 ; " : "
01c6 01cc | | Execute Vector,Catenate
01c7 e5fe | | Load 0x2,-0x2
01c8 01cc | | Execute Vector,Catenate
01c9 0092 04f9 | | Action Push_String_Extended,0x4f9 ; ";"
01cb 01cc | | Execute Vector,Catenate
01cc e22a | * | Load 0x1,0x2a
01cd 01cc | | Execute Vector,Catenate
01ce 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01cf 0000 | | .XXX[0x1]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 00da | | Load_Top At_Offset_2
01d4 0092 0506 | | Action Push_String_Extended,0x506 ; " : constant "
01d6 01cc | | Execute Vector,Catenate
01d7 e5fe | | Load 0x2,-0x2
01d8 01cc | | Execute Vector,Catenate
01d9 0092 0500 | | Action Push_String_Extended,0x500 ; " := "
01db 01cc | | Execute Vector,Catenate
01dc e5fd | | Load 0x2,-0x3
01dd 01cc | | Execute Vector,Catenate
01de 0092 04f9 | | Action Push_String_Extended,0x4f9 ; ";"
01e0 01cc | | Execute Vector,Catenate
01e1 e22a | * | Load 0x1,0x2a
01e2 01cc | | Execute Vector,Catenate
01e3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01e4 0000 0000 | | .BLANK 0000[0x4]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2
01ec 0092 0500 | | Action Push_String_Extended,0x500 ; " := "
01ee 01cc | | Execute Vector,Catenate
01ef e5fe | | Load 0x2,-0x2
01f0 01cc | | Execute Vector,Catenate
01f1 0092 04f9 | | Action Push_String_Extended,0x4f9 ; ";"
01f3 01cc | | Execute Vector,Catenate
01f4 e22a | * | Load 0x1,0x2a
01f5 01cc | | Execute Vector,Catenate
01f6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01f7 0000 | | .XXX[0x1]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 00da | | Load_Top At_Offset_2
01fc 822d | - | Call 0x1,0x2d
01fd 0092 0507 | | Action Push_String_Extended,0x507 ; "declare"
01ff 01cc | | Execute Vector,Catenate
0200 e22a | * | Load 0x1,0x2a
0201 01cc | | Execute Vector,Catenate
0202 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0203 0000 0000 | | .BLANK 0000[0x5]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 0092 0508 | | Action Push_String_Extended,0x508 ; "begin"
020d e22a | * | Load 0x1,0x2a
020e 01cc | | Execute Vector,Catenate
020f 00ca | | Action Exit_Nullary_Function
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 0092 0509 | | Action Push_String_Extended,0x509 ; "end "
0215 00db | | Load_Top At_Offset_3
0216 01cc | | Execute Vector,Catenate
0217 0092 04f9 | | Action Push_String_Extended,0x4f9 ; ";"
0219 01cc | | Execute Vector,Catenate
021a e22a | * | Load 0x1,0x2a
021b 01cc | | Execute Vector,Catenate
021c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
021d 0000 0000 | | .XXX[0x3]
021f 0000 | |
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 0092 050a | | Action Push_String_Extended,0x50a ; "exception"
0225 e22a | * | Load 0x1,0x2a
0226 01cc | | Execute Vector,Catenate
0227 00ca | | Action Exit_Nullary_Function
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b 0092 050b | | Action Push_String_Extended,0x50b ; "if "
022d 00db | | Load_Top At_Offset_3
022e 01cc | | Execute Vector,Catenate
022f 0092 050c | | Action Push_String_Extended,0x50c ; " then"
0231 01cc | | Execute Vector,Catenate
0232 e22a | * | Load 0x1,0x2a
0233 01cc | | Execute Vector,Catenate
0234 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0235 0000 0000 | | .XXX[0x3]
0237 0000 | |
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b 0092 050d | | Action Push_String_Extended,0x50d ; "elsif "
023d 00db | | Load_Top At_Offset_3
023e 01cc | | Execute Vector,Catenate
023f 0092 050c | | Action Push_String_Extended,0x50c ; " then"
0241 01cc | | Execute Vector,Catenate
0242 e22a | * | Load 0x1,0x2a
0243 01cc | | Execute Vector,Catenate
0244 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0245 0000 0000 | | .XXX[0x3]
0247 0000 | |
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 0092 050e | | Action Push_String_Extended,0x50e ; "else"
024d e22a | * | Load 0x1,0x2a
024e 01cc | | Execute Vector,Catenate
024f 00ca | | Action Exit_Nullary_Function
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 0092 050f | | Action Push_String_Extended,0x50f ; "end if;"
0255 e22a | * | Load 0x1,0x2a
0256 01cc | | Execute Vector,Catenate
0257 00ca | | Action Exit_Nullary_Function
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 0092 0510 | | Action Push_String_Extended,0x510 ; "case "
025d 00db | | Load_Top At_Offset_3
025e 01cc | | Execute Vector,Catenate
025f 0092 04fb | | Action Push_String_Extended,0x4fb ; " is"
0261 01cc | | Execute Vector,Catenate
0262 e22a | * | Load 0x1,0x2a
0263 01cc | | Execute Vector,Catenate
0264 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0265 0000 0000 | | .XXX[0x3]
0267 0000 | |
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b 0092 0511 | | Action Push_String_Extended,0x511 ; "when "
026d 00db | | Load_Top At_Offset_3
026e 01cc | | Execute Vector,Catenate
026f 0092 0512 | | Action Push_String_Extended,0x512 ; " =>"
0271 01cc | | Execute Vector,Catenate
0272 e22a | * | Load 0x1,0x2a
0273 01cc | | Execute Vector,Catenate
0274 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0275 0000 0000 | | .XXX[0x3]
0277 0000 | |
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 0092 0513 | | Action Push_String_Extended,0x513 ; "end case;"
027d e22a | * | Load 0x1,0x2a
027e 01cc | | Execute Vector,Catenate
027f 00ca | | Action Exit_Nullary_Function
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 00da | | Load_Top At_Offset_2
0284 822d | - | Call 0x1,0x2d
0285 0092 0514 | | Action Push_String_Extended,0x514 ; "loop"
0287 01cc | | Execute Vector,Catenate
0288 e22a | * | Load 0x1,0x2a
0289 01cc | | Execute Vector,Catenate
028a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
028b 0000 0000 | | .BLANK 0000[0x5]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293 | | .CONST 0x0293 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0001 | | .CONST 0x0001 ; Number of locals
0293 BODY_0290:
0293 INIT_0290:
0293 e5fb | | Load 0x2,-0x5
0294 6817 |h | Jump_Zero 0x2ac
0295 e5fc | | Load 0x2,-0x4
0296 822d | - | Call 0x1,0x2d
0297 0092 0515 | | Action Push_String_Extended,0x515 ; "for "
0299 01cc | | Execute Vector,Catenate
029a 00db | | Load_Top At_Offset_3
029b 01cc | | Execute Vector,Catenate
029c 0092 0516 | | Action Push_String_Extended,0x516 ; " in "
029e 01cc | | Execute Vector,Catenate
029f e5fe | | Load 0x2,-0x2
02a0 01cc | | Execute Vector,Catenate
02a1 0092 0517 | | Action Push_String_Extended,0x517 ; " .. "
02a3 01cc | | Execute Vector,Catenate
02a4 e5fd | | Load 0x2,-0x3
02a5 01cc | | Execute Vector,Catenate
02a6 0092 0518 | | Action Push_String_Extended,0x518 ; " loop"
02a8 01cc | | Execute Vector,Catenate
02a9 e22a | * | Load 0x1,0x2a
02aa 01cc | | Execute Vector,Catenate
02ab 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
02ac e5fc | | Load 0x2,-0x4
02ad 822d | - | Call 0x1,0x2d
02ae 0092 0515 | | Action Push_String_Extended,0x515 ; "for "
02b0 01cc | | Execute Vector,Catenate
02b1 00db | | Load_Top At_Offset_3
02b2 01cc | | Execute Vector,Catenate
02b3 0092 0519 | | Action Push_String_Extended,0x519 ; " in reverse "
02b5 01cc | | Execute Vector,Catenate
02b6 e5fe | | Load 0x2,-0x2
02b7 01cc | | Execute Vector,Catenate
02b8 0092 0517 | | Action Push_String_Extended,0x517 ; " .. "
02ba 01cc | | Execute Vector,Catenate
02bb e5fd | | Load 0x2,-0x3
02bc 01cc | | Execute Vector,Catenate
02bd 0092 0518 | | Action Push_String_Extended,0x518 ; " loop"
02bf 01cc | | Execute Vector,Catenate
02c0 e22a | * | Load 0x1,0x2a
02c1 01cc | | Execute Vector,Catenate
02c2 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
02c3 0000 0000 | | .BLANK 0000[0x5]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb 00db | | Load_Top At_Offset_3
02cc 822d | - | Call 0x1,0x2d
02cd 0092 051a | | Action Push_String_Extended,0x51a ; "while "
02cf 01cc | | Execute Vector,Catenate
02d0 00db | | Load_Top At_Offset_3
02d1 01cc | | Execute Vector,Catenate
02d2 0092 0518 | | Action Push_String_Extended,0x518 ; " loop"
02d4 01cc | | Execute Vector,Catenate
02d5 e22a | * | Load 0x1,0x2a
02d6 01cc | | Execute Vector,Catenate
02d7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db | | .CONST 0x02db ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0001 | | .CONST 0x0001 ; Number of locals
02db BODY_02d8:
02db INIT_02d8:
02db 0092 051b | | Action Push_String_Extended,0x51b ; "end loop;"
02dd e22a | * | Load 0x1,0x2a
02de 01cc | | Execute Vector,Catenate
02df 00ca | | Action Exit_Nullary_Function
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3 | | .CONST 0x02e3 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0001 | | .CONST 0x0001 ; Number of locals
02e3 BODY_02e0:
02e3 INIT_02e0:
02e3 00da | | Load_Top At_Offset_2
02e4 01db | | Execute Vector,Length
02e5 7005 |p | Jump_Nonzero 0x2eb
02e6 0092 051c | | Action Push_String_Extended,0x51c ; "exit;"
02e8 e22a | * | Load 0x1,0x2a
02e9 01cc | | Execute Vector,Catenate
02ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02eb 0092 051d | | Action Push_String_Extended,0x51d ; "exit when "
02ed 00db | | Load_Top At_Offset_3
02ee 01cc | | Execute Vector,Catenate
02ef 0092 04f9 | | Action Push_String_Extended,0x4f9 ; ";"
02f1 01cc | | Execute Vector,Catenate
02f2 e22a | * | Load 0x1,0x2a
02f3 01cc | | Execute Vector,Catenate
02f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02f5 0000 0000 | | .XXX[0x3]
02f7 0000 | |
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb | | .CONST 0x02fb ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0001 | | .CONST 0x0001 ; Number of locals
02fb BODY_02f8:
02fb INIT_02f8:
02fb 00da | | Load_Top At_Offset_2
02fc 01db | | Execute Vector,Length
02fd 7005 |p | Jump_Nonzero 0x303
02fe 0092 051e | | Action Push_String_Extended,0x51e ; "return;"
0300 e22a | * | Load 0x1,0x2a
0301 01cc | | Execute Vector,Catenate
0302 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0303 0092 051f | | Action Push_String_Extended,0x51f ; "return "
0305 00db | | Load_Top At_Offset_3
0306 01cc | | Execute Vector,Catenate
0307 0092 04f9 | | Action Push_String_Extended,0x4f9 ; ";"
0309 01cc | | Execute Vector,Catenate
030a e22a | * | Load 0x1,0x2a
030b 01cc | | Execute Vector,Catenate
030c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
030d 0000 0000 | | .XXX[0x3]
030f 0000 | |
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 00da | | Load_Top At_Offset_2
0314 01db | | Execute Vector,Length
0315 7005 |p | Jump_Nonzero 0x31b
0316 0092 0520 | | Action Push_String_Extended,0x520 ; "raise;"
0318 e22a | * | Load 0x1,0x2a
0319 01cc | | Execute Vector,Catenate
031a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
031b 0092 0521 | !| Action Push_String_Extended,0x521 ; "raise "
031d 00db | | Load_Top At_Offset_3
031e 01cc | | Execute Vector,Catenate
031f 0092 04f9 | | Action Push_String_Extended,0x4f9 ; ";"
0321 01cc | | Execute Vector,Catenate
0322 e22a | * | Load 0x1,0x2a
0323 01cc | | Execute Vector,Catenate
0324 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0325 0000 0000 | | .XXX[0x3]
0327 0000 | |
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b 00da | | Load_Top At_Offset_2
032c 01db | | Execute Vector,Length
032d 7002 |p | Jump_Nonzero 0x330
032e 00ea | | Load_Encached Null_String_Cache
032f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0330 00da | | Load_Top At_Offset_2
0331 0092 0522 | "| Action Push_String_Extended,0x522 ; ":"
0333 01cc | | Execute Vector,Catenate
0334 e22a | * | Load 0x1,0x2a
0335 01cc | | Execute Vector,Catenate
0336 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0337 0000 | | .XXX[0x1]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b 00da | | Load_Top At_Offset_2
033c 4602 |F | Jump_Case 0x3
033d 7804 |x | Jump 0x342 ; case 0x0
033e 7805 |x | Jump 0x344 ; case 0x1
033f 7800 |x | Jump 0x340 ; case 0x2
0340 00ea | | Load_Encached Null_String_Cache
0341 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0342 00ea | | Load_Encached Null_String_Cache
0343 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0344 0092 0523 | #| Action Push_String_Extended,0x523 ; "body "
0346 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0347 0000 | | .XXX[0x1]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b 00da | | Load_Top At_Offset_2
034c 4602 |F | Jump_Case 0x3
034d 7804 |x | Jump 0x352 ; case 0x0
034e 7808 |x | Jump 0x357 ; case 0x1
034f 7800 |x | Jump 0x350 ; case 0x2
0350 e22a | * | Load 0x1,0x2a
0351 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0352 0092 04f9 | | Action Push_String_Extended,0x4f9 ; ";"
0354 e22a | * | Load 0x1,0x2a
0355 01cc | | Execute Vector,Catenate
0356 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0357 0092 04fb | | Action Push_String_Extended,0x4fb ; " is"
0359 e22a | * | Load 0x1,0x2a
035a 01cc | | Execute Vector,Catenate
035b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
035c 0000 0000 | | .BLANK 0000[0x4]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363 | c | .CONST 0x0363 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0001 | | .CONST 0x0001 ; Number of locals
0363 BODY_0360:
0363 INIT_0360:
0363 00da | | Load_Top At_Offset_2
0364 4602 |F | Jump_Case 0x3
0365 7807 |x | Jump 0x36d ; case 0x0
0366 780b |x | Jump 0x372 ; case 0x1
0367 7800 |x | Jump 0x368 ; case 0x2
0368 0092 04f9 | | Action Push_String_Extended,0x4f9 ; ";"
036a e22a | * | Load 0x1,0x2a
036b 01cc | | Execute Vector,Catenate
036c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
036d 0092 04f9 | | Action Push_String_Extended,0x4f9 ; ";"
036f e22a | * | Load 0x1,0x2a
0370 01cc | | Execute Vector,Catenate
0371 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0372 0092 04fb | | Action Push_String_Extended,0x4fb ; " is"
0374 e22a | * | Load 0x1,0x2a
0375 01cc | | Execute Vector,Catenate
0376 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0377 0000 | | .XXX[0x1]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b | { | .CONST 0x037b ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0001 | | .CONST 0x0001 ; Number of locals
037b BODY_0378:
037b INIT_0378:
037b 00da | | Load_Top At_Offset_2
037c 4602 |F | Jump_Case 0x3
037d 7805 |x | Jump 0x383 ; case 0x0
037e 7809 |x | Jump 0x388 ; case 0x1
037f 7800 |x | Jump 0x380 ; case 0x2
0380 0092 0524 | $| Action Push_String_Extended,0x524 ; ", "
0382 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0383 0092 0525 | %| Action Push_String_Extended,0x525 ; "; "
0385 e22a | * | Load 0x1,0x2a
0386 01cc | | Execute Vector,Catenate
0387 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0388 0092 0525 | %| Action Push_String_Extended,0x525 ; "; "
038a e22a | * | Load 0x1,0x2a
038b 01cc | | Execute Vector,Catenate
038c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
038d 0000 0000 | | .XXX[0x3]
038f 0000 | |
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 03a0 | | .CONST 0x03a0 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 001f | | .CONST 0x001f ; Number of locals
0393 INIT_0390:
0393 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated
0395 029a 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call,Visible,Unelaborated
0397 00bf | | Action Accept_Activation
0398 029d 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call
039a 029d 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call
039c 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
039d 00c7 | | Action Elaborate_Subprogram
039e 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
039f 00c7 | | Action Elaborate_Subprogram
03a0 BODY_0390:
03a0 00bc | | Action Signal_Activated
03a1 00bb | | Action Signal_Completion
03a2 0000 0000 | | .BLANK 0000[0x6]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03b7 | | .CONST 0x03b7 ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0004 | | .CONST 0x0004 ; Number of locals
03ab INIT_03a8:
03ab e001 | | Load 0x0,0x1
03ac 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03ad e5fd | | Load 0x2,-0x3
03ae e210 | | Load 0x1,0x10
03af 0119 | | Execute Any,Check_In_Formal_Type
03b0 8211 | | Call 0x1,0x11
03b1 00e1 | | Load_Encached Boolean_Cache
03b2 03f1 | | Declare_Variable Discrete,With_Value
03b3 e210 | | Load 0x1,0x10
03b4 02c7 | | Declare_Variable Any
03b5 e5fd | | Load 0x2,-0x3
03b6 c404 | | Store 0x2,0x4
03b7 BODY_03a8:
03b7 e5fe | | Load 0x2,-0x2
03b8 4800 |H | Short_Literal 0x0
03b9 4801 |H | Short_Literal 0x1
03ba 0262 | b | Execute Discrete,In_Range
03bb 7006 |p | Jump_Nonzero 0x3c2
03bc 00da | | Load_Top At_Offset_2
03bd e5ff | | Load 0x2,-0x1
03be e001 | | Load 0x0,0x1
03bf 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03c0 003b | ; | Store_Top Access,At_Offset_3
03c1 7808 |x | Jump 0x3ca
03c2 00da | | Load_Top At_Offset_2
03c3 0092 04fe | | Action Push_String_Extended,0x4fe ; "procedure "
03c5 e5ff | | Load 0x2,-0x1
03c6 01cc | | Execute Vector,Catenate
03c7 e001 | | Load 0x0,0x1
03c8 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03c9 003b | ; | Store_Top Access,At_Offset_3
03ca 00d9 | | Load_Top At_Offset_1
03cb 701a |p | Jump_Nonzero 0x3e6
03cc 00da | | Load_Top At_Offset_2
03cd 0092 04fc | | Action Push_String_Extended,0x4fc ; " ("
03cf e001 | | Load 0x0,0x1
03d0 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03d1 003b | ; | Store_Top Access,At_Offset_3
03d2 00d8 | | Load_Top At_Offset_0
03d3 00d8 | | Load_Top At_Offset_0
03d4 0120 | | Execute Any,Is_Value
03d5 6803 |h | Jump_Zero 0x3d9
03d6 e210 | | Load 0x1,0x10
03d7 011e | | Execute Any,Convert
03d8 7802 |x | Jump 0x3db
03d9 e210 | | Load 0x1,0x10
03da 0119 | | Execute Any,Check_In_Formal_Type
03db 00db | | Load_Top At_Offset_3
03dc e5fe | | Load 0x2,-0x2
03dd 821f | | Call 0x1,0x1f
03de c402 | | Store 0x2,0x2
03df c404 | | Store 0x2,0x4
03e0 00da | | Load_Top At_Offset_2
03e1 0092 0501 | | Action Push_String_Extended,0x501 ; ")"
03e3 e001 | | Load 0x0,0x1
03e4 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03e5 003b | ; | Store_Top Access,At_Offset_3
03e6 00da | | Load_Top At_Offset_2
03e7 e5fe | | Load 0x2,-0x2
03e8 8002 | | Call 0x0,0x2
03e9 e001 | | Load 0x0,0x1
03ea 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03eb 003b | ; | Store_Top Access,At_Offset_3
03ec 00da | | Load_Top At_Offset_2
03ed e001 | | Load 0x0,0x1
03ee 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03ef 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03ff | | .CONST 0x03ff ; Address of begin
03f1 0004 | | .CONST 0x0004 ; Address of exception handler
03f2 0004 | | .CONST 0x0004 ; Number of locals
03f3 INIT_03f0:
03f3 e001 | | Load 0x0,0x1
03f4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03f5 e5fd | | Load 0x2,-0x3
03f6 e210 | | Load 0x1,0x10
03f7 0119 | | Execute Any,Check_In_Formal_Type
03f8 8211 | | Call 0x1,0x11
03f9 00e1 | | Load_Encached Boolean_Cache
03fa 03f1 | | Declare_Variable Discrete,With_Value
03fb e210 | | Load 0x1,0x10
03fc 02c7 | | Declare_Variable Any
03fd e5fd | | Load 0x2,-0x3
03fe c404 | | Store 0x2,0x4
03ff BODY_03f0:
03ff e5fe | | Load 0x2,-0x2
0400 4800 |H | Short_Literal 0x0
0401 4801 |H | Short_Literal 0x1
0402 0262 | b | Execute Discrete,In_Range
0403 7006 |p | Jump_Nonzero 0x40a
0404 00da | | Load_Top At_Offset_2
0405 e5ff | | Load 0x2,-0x1
0406 e001 | | Load 0x0,0x1
0407 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0408 003b | ; | Store_Top Access,At_Offset_3
0409 7808 |x | Jump 0x412
040a 00da | | Load_Top At_Offset_2
040b 0092 0502 | | Action Push_String_Extended,0x502 ; "function "
040d e5ff | | Load 0x2,-0x1
040e 01cc | | Execute Vector,Catenate
040f e001 | | Load 0x0,0x1
0410 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0411 003b | ; | Store_Top Access,At_Offset_3
0412 00d9 | | Load_Top At_Offset_1
0413 701a |p | Jump_Nonzero 0x42e
0414 00da | | Load_Top At_Offset_2
0415 0092 04fc | | Action Push_String_Extended,0x4fc ; " ("
0417 e001 | | Load 0x0,0x1
0418 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0419 003b | ; | Store_Top Access,At_Offset_3
041a 00d8 | | Load_Top At_Offset_0
041b 00d8 | | Load_Top At_Offset_0
041c 0120 | | Execute Any,Is_Value
041d 6803 |h | Jump_Zero 0x421
041e e210 | | Load 0x1,0x10
041f 011e | | Execute Any,Convert
0420 7802 |x | Jump 0x423
0421 e210 | | Load 0x1,0x10
0422 0119 | | Execute Any,Check_In_Formal_Type
0423 00db | | Load_Top At_Offset_3
0424 e5fe | | Load 0x2,-0x2
0425 821f | | Call 0x1,0x1f
0426 c402 | | Store 0x2,0x2
0427 c404 | | Store 0x2,0x4
0428 00da | | Load_Top At_Offset_2
0429 0092 0526 | &| Action Push_String_Extended,0x526 ; ") "
042b e001 | | Load 0x0,0x1
042c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
042d 003b | ; | Store_Top Access,At_Offset_3
042e e5fe | | Load 0x2,-0x2
042f 0f02 | | Execute_Immediate Equal,0x2
0430 7009 |p | Jump_Nonzero 0x43a
0431 7800 |x | Jump 0x432
0432 00da | | Load_Top At_Offset_2
0433 0092 0527 | '| Action Push_String_Extended,0x527 ; " return "
0435 e5fc | | Load 0x2,-0x4
0436 01cc | | Execute Vector,Catenate
0437 e001 | | Load 0x0,0x1
0438 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0439 003b | ; | Store_Top Access,At_Offset_3
043a 00da | | Load_Top At_Offset_2
043b e5fe | | Load 0x2,-0x2
043c 8003 | | Call 0x0,0x3
043d e001 | | Load 0x0,0x1
043e 181d | | Execute Package,Field_Execute,Field_Number 0x1d
043f 003b | ; | Store_Top Access,At_Offset_3
0440 00da | | Load_Top At_Offset_2
0441 e001 | | Load 0x0,0x1
0442 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0443 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0444 0000 0000 | | .BLANK 0000[0x4]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b | K | .CONST 0x044b ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0001 | | .CONST 0x0001 ; Number of locals
044b BODY_0448:
044b INIT_0448:
044b 00da | | Load_Top At_Offset_2
044c 01db | | Execute Vector,Length
044d 7002 |p | Jump_Nonzero 0x450
044e 00da | | Load_Top At_Offset_2
044f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0450 0092 0500 | | Action Push_String_Extended,0x500 ; " := "
0452 00db | | Load_Top At_Offset_3
0453 01cc | | Execute Vector,Catenate
0454 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0455 0000 0000 | | .XXX[0x3]
0457 0000 | |
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045f | _ | .CONST 0x045f ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0002 | | .CONST 0x0002 ; Number of locals
045b INIT_0458:
045b e20f | | Load 0x1,0xf
045c 02c7 | | Declare_Variable Any
045d 00d8 | | Load_Top At_Offset_0
045e 1c00 | | Execute_Immediate Run_Utility,0x0
045f BODY_0458:
045f 00cf | | Action Mark_Auxiliary
0460 788e |x | Jump 0x4ef
0461 e5ff | | Load 0x2,-0x1
0462 4602 |F | Jump_Case 0x3
0463 7839 |x9 | Jump 0x49d ; case 0x0
0464 7856 |xV | Jump 0x4bb ; case 0x1
0465 7800 |x | Jump 0x466 ; case 0x2
0466 e5fd | | Load 0x2,-0x3
0467 e210 | | Load 0x1,0x10
0468 0119 | | Execute Any,Check_In_Formal_Type
0469 8213 | | Call 0x1,0x13
046a c402 | | Store 0x2,0x2
046b 00cf | | Action Mark_Auxiliary
046c 7829 |x) | Jump 0x496
046d e5fe | | Load 0x2,-0x2
046e 00db | | Load_Top At_Offset_3
046f e20f | | Load 0x1,0xf
0470 0119 | | Execute Any,Check_In_Formal_Type
0471 8219 | | Call 0x1,0x19
0472 0092 0528 | (| Action Push_String_Extended,0x528 ; " => "
0474 01cc | | Execute Vector,Catenate
0475 e402 | | Load 0x2,0x2
0476 e20f | | Load 0x1,0xf
0477 0119 | | Execute Any,Check_In_Formal_Type
0478 821b | | Call 0x1,0x1b
0479 01cc | | Execute Vector,Catenate
047a e004 | | Load 0x0,0x4
047b 01cc | | Execute Vector,Catenate
047c e001 | | Load 0x0,0x1
047d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
047e c5fe | | Store 0x2,-0x2
047f 00da | | Load_Top At_Offset_2
0480 00d8 | | Load_Top At_Offset_0
0481 0120 | | Execute Any,Is_Value
0482 6803 |h | Jump_Zero 0x486
0483 e20f | | Load 0x1,0xf
0484 011e | | Execute Any,Convert
0485 7802 |x | Jump 0x488
0486 e20f | | Load 0x1,0xf
0487 0119 | | Execute Any,Check_In_Formal_Type
0488 821a | | Call 0x1,0x1a
0489 c402 | | Store 0x2,0x2
048a 00da | | Load_Top At_Offset_2
048b e20f | | Load 0x1,0xf
048c 0119 | | Execute Any,Check_In_Formal_Type
048d 8218 | | Call 0x1,0x18
048e 7006 |p | Jump_Nonzero 0x495
048f e5fe | | Load 0x2,-0x2
0490 e5ff | | Load 0x2,-0x1
0491 8005 | | Call 0x0,0x5
0492 e001 | | Load 0x0,0x1
0493 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0494 c5fe | | Store 0x2,-0x2
0495 00c9 | | Action Pop_Auxiliary_Loop
0496 00da | | Load_Top At_Offset_2
0497 e20f | | Load 0x1,0xf
0498 0119 | | Execute Any,Check_In_Formal_Type
0499 8218 | | Call 0x1,0x18
049a 6fd2 |o | Jump_Zero 0x46d
049b 00ce | | Action Pop_Auxiliary
049c 783b |x; | Jump 0x4d8
049d e5fe | | Load 0x2,-0x2
049e e5fd | | Load 0x2,-0x3
049f e210 | | Load 0x1,0x10
04a0 0119 | | Execute Any,Check_In_Formal_Type
04a1 8214 | | Call 0x1,0x14
04a2 0092 0505 | | Action Push_String_Extended,0x505 ; " : "
04a4 01cc | | Execute Vector,Catenate
04a5 e5fd | | Load 0x2,-0x3
04a6 e210 | | Load 0x1,0x10
04a7 0119 | | Execute Any,Check_In_Formal_Type
04a8 8216 | | Call 0x1,0x16
04a9 01cc | | Execute Vector,Catenate
04aa e5fd | | Load 0x2,-0x3
04ab e210 | | Load 0x1,0x10
04ac 0119 | | Execute Any,Check_In_Formal_Type
04ad 8215 | | Call 0x1,0x15
04ae 01cc | | Execute Vector,Catenate
04af e5fd | | Load 0x2,-0x3
04b0 e210 | | Load 0x1,0x10
04b1 0119 | | Execute Any,Check_In_Formal_Type
04b2 8217 | | Call 0x1,0x17
04b3 821e | | Call 0x1,0x1e
04b4 01cc | | Execute Vector,Catenate
04b5 e004 | | Load 0x0,0x4
04b6 01cc | | Execute Vector,Catenate
04b7 e001 | | Load 0x0,0x1
04b8 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04b9 c5fe | | Store 0x2,-0x2
04ba 781d |x | Jump 0x4d8
04bb e5fe | | Load 0x2,-0x2
04bc e5fd | | Load 0x2,-0x3
04bd e210 | | Load 0x1,0x10
04be 0119 | | Execute Any,Check_In_Formal_Type
04bf 8214 | | Call 0x1,0x14
04c0 0092 0505 | | Action Push_String_Extended,0x505 ; " : "
04c2 01cc | | Execute Vector,Catenate
04c3 e5fd | | Load 0x2,-0x3
04c4 e210 | | Load 0x1,0x10
04c5 0119 | | Execute Any,Check_In_Formal_Type
04c6 8216 | | Call 0x1,0x16
04c7 01cc | | Execute Vector,Catenate
04c8 e5fd | | Load 0x2,-0x3
04c9 e210 | | Load 0x1,0x10
04ca 0119 | | Execute Any,Check_In_Formal_Type
04cb 8215 | | Call 0x1,0x15
04cc 01cc | | Execute Vector,Catenate
04cd e5fd | | Load 0x2,-0x3
04ce e210 | | Load 0x1,0x10
04cf 0119 | | Execute Any,Check_In_Formal_Type
04d0 8217 | | Call 0x1,0x17
04d1 821e | | Call 0x1,0x1e
04d2 01cc | | Execute Vector,Catenate
04d3 e004 | | Load 0x0,0x4
04d4 01cc | | Execute Vector,Catenate
04d5 e001 | | Load 0x0,0x1
04d6 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04d7 c5fe | | Store 0x2,-0x2
04d8 e5fd | | Load 0x2,-0x3
04d9 00d8 | | Load_Top At_Offset_0
04da 0120 | | Execute Any,Is_Value
04db 6803 |h | Jump_Zero 0x4df
04dc e210 | | Load 0x1,0x10
04dd 011e | | Execute Any,Convert
04de 7802 |x | Jump 0x4e1
04df e210 | | Load 0x1,0x10
04e0 0119 | | Execute Any,Check_In_Formal_Type
04e1 8212 | | Call 0x1,0x12
04e2 c5fd | | Store 0x2,-0x3
04e3 e5fd | | Load 0x2,-0x3
04e4 e210 | | Load 0x1,0x10
04e5 0119 | | Execute Any,Check_In_Formal_Type
04e6 8211 | | Call 0x1,0x11
04e7 7006 |p | Jump_Nonzero 0x4ee
04e8 e5fe | | Load 0x2,-0x2
04e9 e5ff | | Load 0x2,-0x1
04ea 8005 | | Call 0x0,0x5
04eb e001 | | Load 0x0,0x1
04ec 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04ed c5fe | | Store 0x2,-0x2
04ee 00c9 | | Action Pop_Auxiliary_Loop
04ef e5fd | | Load 0x2,-0x3
04f0 e210 | | Load 0x1,0x10
04f1 0119 | | Execute Any,Check_In_Formal_Type
04f2 8211 | | Call 0x1,0x11
04f3 6f6d |om | Jump_Zero 0x461
04f4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04f5 ; --------------------------------------------------------------------------------------
04f5 ; STRING TABLE
04f5 ; --------------------------------------------------------------------------------------
04f5 006a | j | .STRTAB 0x006a->0x052a ; "SPEC_PART"
04f6 0071 | q | .STRTAB 0x0071->0x052e ; "BODY_PART"
04f7 0078 | x | .STRTAB 0x0078->0x0533 ; "CALL"
04f8 007a | z | .STRTAB 0x007a->0x0535 ; "with "
04f9 007d | } | .STRTAB 0x007d->0x0537 ; ";"
04fa 007c | | | .STRTAB 0x007c->0x0538 ; "package "
04fb 0082 | | .STRTAB 0x0082->0x053c ; " is"
04fc 0083 | | .STRTAB 0x0083->0x053d ; " ("
04fd 0083 | | .STRTAB 0x0083->0x053e ; ");"
04fe 0083 | | .STRTAB 0x0083->0x053f ; "procedure "
04ff 008b | | .STRTAB 0x008b->0x0544 ; ") is"
0500 008d | | .STRTAB 0x008d->0x0546 ; " := "
0501 008f | | .STRTAB 0x008f->0x0548 ; ")"
0502 008e | | .STRTAB 0x008e->0x0549 ; "function "
0503 0095 | | .STRTAB 0x0095->0x054d ; ") return "
0504 009c | | .STRTAB 0x009c->0x0552 ; " : exception;"
0505 00a7 | | .STRTAB 0x00a7->0x0558 ; " : "
0506 00a8 | | .STRTAB 0x00a8->0x055a ; " : constant "
0507 00b2 | | .STRTAB 0x00b2->0x0560 ; "declare"
0508 00b7 | | .STRTAB 0x00b7->0x0563 ; "begin"
0509 00ba | | .STRTAB 0x00ba->0x0566 ; "end "
050a 00bc | | .STRTAB 0x00bc->0x0568 ; "exception"
050b 00c3 | | .STRTAB 0x00c3->0x056c ; "if "
050c 00c4 | | .STRTAB 0x00c4->0x056e ; " then"
050d 00c7 | | .STRTAB 0x00c7->0x0570 ; "elsif "
050e 00cb | | .STRTAB 0x00cb->0x0573 ; "else"
050f 00cd | | .STRTAB 0x00cd->0x0575 ; "end if;"
0510 00d2 | | .STRTAB 0x00d2->0x0579 ; "case "
0511 00d5 | | .STRTAB 0x00d5->0x057b ; "when "
0512 00d8 | | .STRTAB 0x00d8->0x057e ; " =>"
0513 00d9 | | .STRTAB 0x00d9->0x057f ; "end case;"
0514 00e0 | | .STRTAB 0x00e0->0x0584 ; "loop"
0515 00e2 | | .STRTAB 0x00e2->0x0586 ; "for "
0516 00e4 | | .STRTAB 0x00e4->0x0588 ; " in "
0517 00e6 | | .STRTAB 0x00e6->0x058a ; " .. "
0518 00e8 | | .STRTAB 0x00e8->0x058c ; " loop"
0519 00eb | | .STRTAB 0x00eb->0x058e ; " in reverse "
051a 00f5 | | .STRTAB 0x00f5->0x0594 ; "while "
051b 00f9 | | .STRTAB 0x00f9->0x0597 ; "end loop;"
051c 0100 | | .STRTAB 0x0100->0x059c ; "exit;"
051d 0103 | | .STRTAB 0x0103->0x059e ; "exit when "
051e 010b | | .STRTAB 0x010b->0x05a3 ; "return;"
051f 0110 | | .STRTAB 0x0110->0x05a7 ; "return "
0520 0115 | | .STRTAB 0x0115->0x05aa ; "raise;"
0521 0119 | | .STRTAB 0x0119->0x05ad ; "raise "
0522 011d | | .STRTAB 0x011d->0x05b0 ; ":"
0523 011c | | .STRTAB 0x011c->0x05b1 ; "body "
0524 011f | | .STRTAB 0x011f->0x05b3 ; ", "
0525 011f | | .STRTAB 0x011f->0x05b4 ; "; "
0526 0120 | | .STRTAB 0x0120->0x05b6 ; ") "
0527 0120 | | .STRTAB 0x0120->0x05b7 ; " return "
0528 0126 | & | .STRTAB 0x0126->0x05bb ; " => "
0529 0128 | ( | .STREND 0x0128->0x05bd
052a 5350 4543 |SPEC| .STRTAB_STRINGS
05bd 0000 0000 | | .XXX[0x3]
05bf 0000 | |
05c0 ; --------------------------------------------------------------------------------------
05c0 ; Debug Table
05c0 ; --------------------------------------------------------------------------------------
05c0 0004 0001 | | .DEBUG4 0x0004,0x0001,0x707f,0x0000,0x0001,0x0028
05c6 000b 0666 | f| .DBG4T 0x000b,0x0666,0x8000,0x0000
05ca 004a 0684 | J | .DBG4T 0x004a,0x0684,0x8000,0x0000
05ce 00d3 06aa | | .DBG4T 0x00d3,0x06aa,0x0002,0x0000
05d2 00e3 0000 | | .DBG4T 0x00e3,0x0000,0x0005,0x0000
05d6 010b 06ad | | .DBG4T 0x010b,0x06ad,0x0002,0x4000
05da 0133 06b7 | 3 | .DBG4T 0x0133,0x06b7,0x0002,0x4000
05de 016b 06c1 | k | .DBG4T 0x016b,0x06c1,0x0002,0x4000
05e2 01b3 06cb | | .DBG4T 0x01b3,0x06cb,0x0002,0x0000
05e6 01c3 06ce | | .DBG4T 0x01c3,0x06ce,0x0002,0x0000
05ea 01d3 06d1 | | .DBG4T 0x01d3,0x06d1,0x0002,0x0000
05ee 01eb 06d4 | | .DBG4T 0x01eb,0x06d4,0x0002,0x0000
05f2 01fb 06d7 | | .DBG4T 0x01fb,0x06d7,0x0002,0x0000
05f6 020b 06da | | .DBG4T 0x020b,0x06da,0x0002,0x0000
05fa 0213 06dd | | .DBG4T 0x0213,0x06dd,0x0002,0x0000
05fe 0223 06e0 | # | .DBG4T 0x0223,0x06e0,0x0002,0x0000
0602 022b 06e3 | + | .DBG4T 0x022b,0x06e3,0x0002,0x0000
0606 023b 06e6 | ; | .DBG4T 0x023b,0x06e6,0x0002,0x0000
060a 024b 06e9 | K | .DBG4T 0x024b,0x06e9,0x0002,0x0000
060e 0253 06ec | S | .DBG4T 0x0253,0x06ec,0x0002,0x0000
0612 025b 06ef | [ | .DBG4T 0x025b,0x06ef,0x0002,0x0000
0616 026b 06f2 | k | .DBG4T 0x026b,0x06f2,0x0002,0x0000
061a 027b 06f5 | { | .DBG4T 0x027b,0x06f5,0x0002,0x0000
061e 0283 06f8 | | .DBG4T 0x0283,0x06f8,0x0002,0x0000
0622 0293 06fb | | .DBG4T 0x0293,0x06fb,0x0002,0x0000
0626 02cb 0700 | | .DBG4T 0x02cb,0x0700,0x0002,0x0000
062a 02db 0703 | | .DBG4T 0x02db,0x0703,0x0002,0x0000
062e 02e3 0706 | | .DBG4T 0x02e3,0x0706,0x0002,0x0000
0632 02fb 070b | | .DBG4T 0x02fb,0x070b,0x0002,0x0000
0636 0313 0710 | | .DBG4T 0x0313,0x0710,0x0002,0x0000
063a 032b 0715 | + | .DBG4T 0x032b,0x0715,0x0002,0x0000
063e 033b 071a | ; | .DBG4T 0x033b,0x071a,0x0002,0x4000
0642 034b 0724 | K $| .DBG4T 0x034b,0x0724,0x0002,0x4000
0646 0363 072e | c .| .DBG4T 0x0363,0x072e,0x0002,0x4000
064a 037b 0738 | { 8| .DBG4T 0x037b,0x0738,0x0002,0x4000
064e 0393 0742 | B| .DBG4T 0x0393,0x0742,0x4000,0x0000
0652 0398 0746 | F| .DBG4T 0x0398,0x0746,0x4000,0x0000
0656 03ab 074c | L| .DBG4T 0x03ab,0x074c,0x1002,0x4000
065a 03f3 0763 | c| .DBG4T 0x03f3,0x0763,0x1002,0x4000
065e 044b 077e | K ~| .DBG4T 0x044b,0x077e,0x1002,0x0000
0662 045b 0783 | [ | .DBG4T 0x045b,0x0783,0x1001,0x4000
0666 ; --------------------------------------------------------------------------------------
0666 ; Debug chain
0666 ; --------------------------------------------------------------------------------------
0666 001c 0000 | | .DBGLEN 0x001c,0x0000
0668 000b 000d | | .DBGLNO 0x000b,0x000d,0x0012,0x0014,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047
0684 ; --------------------------------------------------------------------------------------
0684 ; Debug chain
0684 ; --------------------------------------------------------------------------------------
0684 0024 0000 | $ | .DBGLEN 0x0024,0x0000
0686 004a 0051 | J Q| .DBGLNO 0x004a,0x0051,0x005f,0x0071,0x0082,0x0084,0x0086,0x0088,0x008a,0x008c,0x008e,0x0090,0x009b,0x009d,0x009f,0x00a1,0x00a3,0x00a5,0x00a7,0x00a9,0x00ab,0x00ad,0x00af,0x00b1,0x00b3,0x00b5,0x00b7,0x00b9,0x00bb,0x00bd,0x00bf,0x00c1,0x00c3,0x00c5,0x00c7,0x00c9
06aa ; --------------------------------------------------------------------------------------
06aa ; Debug chain
06aa ; --------------------------------------------------------------------------------------
06aa 0000 0001 | | .DBGLEN 0x0000,0x0001
06ac 00d3 | | .DBGLNO 0x00d3
06ad ; --------------------------------------------------------------------------------------
06ad ; Debug chain
06ad ; --------------------------------------------------------------------------------------
06ad 0000 0004 | | .DBGLEN 0x0000,0x0004
06af 010b 0110 | | .DBGLNO 0x010b,0x0110,0x0111,0x011e
06b3 0001 0004 | | .XXX[0x4]
06b5 0002 0003 | |
06b7 ; --------------------------------------------------------------------------------------
06b7 ; Debug chain
06b7 ; --------------------------------------------------------------------------------------
06b7 0000 0004 | | .DBGLEN 0x0000,0x0004
06b9 0133 0138 | 3 8| .DBGLNO 0x0133,0x0138,0x0144,0x0153
06bd 0001 0004 | | .XXX[0x4]
06bf 0002 0003 | |
06c1 ; --------------------------------------------------------------------------------------
06c1 ; Debug chain
06c1 ; --------------------------------------------------------------------------------------
06c1 0000 0004 | | .DBGLEN 0x0000,0x0004
06c3 016b 0170 | k p| .DBGLNO 0x016b,0x0170,0x0181,0x0195
06c7 0001 0004 | | .XXX[0x4]
06c9 0002 0003 | |
06cb ; --------------------------------------------------------------------------------------
06cb ; Debug chain
06cb ; --------------------------------------------------------------------------------------
06cb 0000 0001 | | .DBGLEN 0x0000,0x0001
06cd 01b3 | | .DBGLNO 0x01b3
06ce ; --------------------------------------------------------------------------------------
06ce ; Debug chain
06ce ; --------------------------------------------------------------------------------------
06ce 0000 0001 | | .DBGLEN 0x0000,0x0001
06d0 01c3 | | .DBGLNO 0x01c3
06d1 ; --------------------------------------------------------------------------------------
06d1 ; Debug chain
06d1 ; --------------------------------------------------------------------------------------
06d1 0000 0001 | | .DBGLEN 0x0000,0x0001
06d3 01d3 | | .DBGLNO 0x01d3
06d4 ; --------------------------------------------------------------------------------------
06d4 ; Debug chain
06d4 ; --------------------------------------------------------------------------------------
06d4 0000 0001 | | .DBGLEN 0x0000,0x0001
06d6 01eb | | .DBGLNO 0x01eb
06d7 ; --------------------------------------------------------------------------------------
06d7 ; Debug chain
06d7 ; --------------------------------------------------------------------------------------
06d7 0000 0001 | | .DBGLEN 0x0000,0x0001
06d9 01fb | | .DBGLNO 0x01fb
06da ; --------------------------------------------------------------------------------------
06da ; Debug chain
06da ; --------------------------------------------------------------------------------------
06da 0000 0001 | | .DBGLEN 0x0000,0x0001
06dc 020b | | .DBGLNO 0x020b
06dd ; --------------------------------------------------------------------------------------
06dd ; Debug chain
06dd ; --------------------------------------------------------------------------------------
06dd 0000 0001 | | .DBGLEN 0x0000,0x0001
06df 0213 | | .DBGLNO 0x0213
06e0 ; --------------------------------------------------------------------------------------
06e0 ; Debug chain
06e0 ; --------------------------------------------------------------------------------------
06e0 0000 0001 | | .DBGLEN 0x0000,0x0001
06e2 0223 | # | .DBGLNO 0x0223
06e3 ; --------------------------------------------------------------------------------------
06e3 ; Debug chain
06e3 ; --------------------------------------------------------------------------------------
06e3 0000 0001 | | .DBGLEN 0x0000,0x0001
06e5 022b | + | .DBGLNO 0x022b
06e6 ; --------------------------------------------------------------------------------------
06e6 ; Debug chain
06e6 ; --------------------------------------------------------------------------------------
06e6 0000 0001 | | .DBGLEN 0x0000,0x0001
06e8 023b | ; | .DBGLNO 0x023b
06e9 ; --------------------------------------------------------------------------------------
06e9 ; Debug chain
06e9 ; --------------------------------------------------------------------------------------
06e9 0000 0001 | | .DBGLEN 0x0000,0x0001
06eb 024b | K | .DBGLNO 0x024b
06ec ; --------------------------------------------------------------------------------------
06ec ; Debug chain
06ec ; --------------------------------------------------------------------------------------
06ec 0000 0001 | | .DBGLEN 0x0000,0x0001
06ee 0253 | S | .DBGLNO 0x0253
06ef ; --------------------------------------------------------------------------------------
06ef ; Debug chain
06ef ; --------------------------------------------------------------------------------------
06ef 0000 0001 | | .DBGLEN 0x0000,0x0001
06f1 025b | [ | .DBGLNO 0x025b
06f2 ; --------------------------------------------------------------------------------------
06f2 ; Debug chain
06f2 ; --------------------------------------------------------------------------------------
06f2 0000 0001 | | .DBGLEN 0x0000,0x0001
06f4 026b | k | .DBGLNO 0x026b
06f5 ; --------------------------------------------------------------------------------------
06f5 ; Debug chain
06f5 ; --------------------------------------------------------------------------------------
06f5 0000 0001 | | .DBGLEN 0x0000,0x0001
06f7 027b | { | .DBGLNO 0x027b
06f8 ; --------------------------------------------------------------------------------------
06f8 ; Debug chain
06f8 ; --------------------------------------------------------------------------------------
06f8 0000 0001 | | .DBGLEN 0x0000,0x0001
06fa 0283 | | .DBGLNO 0x0283
06fb ; --------------------------------------------------------------------------------------
06fb ; Debug chain
06fb ; --------------------------------------------------------------------------------------
06fb 0000 0003 | | .DBGLEN 0x0000,0x0003
06fd 0293 0295 | | .DBGLNO 0x0293,0x0295,0x02ac
0700 ; --------------------------------------------------------------------------------------
0700 ; Debug chain
0700 ; --------------------------------------------------------------------------------------
0700 0000 0001 | | .DBGLEN 0x0000,0x0001
0702 02cb | | .DBGLNO 0x02cb
0703 ; --------------------------------------------------------------------------------------
0703 ; Debug chain
0703 ; --------------------------------------------------------------------------------------
0703 0000 0001 | | .DBGLEN 0x0000,0x0001
0705 02db | | .DBGLNO 0x02db
0706 ; --------------------------------------------------------------------------------------
0706 ; Debug chain
0706 ; --------------------------------------------------------------------------------------
0706 0000 0003 | | .DBGLEN 0x0000,0x0003
0708 02e3 02e6 | | .DBGLNO 0x02e3,0x02e6,0x02eb
070b ; --------------------------------------------------------------------------------------
070b ; Debug chain
070b ; --------------------------------------------------------------------------------------
070b 0000 0003 | | .DBGLEN 0x0000,0x0003
070d 02fb 02fe | | .DBGLNO 0x02fb,0x02fe,0x0303
0710 ; --------------------------------------------------------------------------------------
0710 ; Debug chain
0710 ; --------------------------------------------------------------------------------------
0710 0000 0003 | | .DBGLEN 0x0000,0x0003
0712 0313 0316 | | .DBGLNO 0x0313,0x0316,0x031b
0715 ; --------------------------------------------------------------------------------------
0715 ; Debug chain
0715 ; --------------------------------------------------------------------------------------
0715 0000 0003 | | .DBGLEN 0x0000,0x0003
0717 032b 032e | + .| .DBGLNO 0x032b,0x032e,0x0330
071a ; --------------------------------------------------------------------------------------
071a ; Debug chain
071a ; --------------------------------------------------------------------------------------
071a 0000 0004 | | .DBGLEN 0x0000,0x0004
071c 033b 0340 | ; @| .DBGLNO 0x033b,0x0340,0x0342,0x0344
0720 0001 0004 | | .XXX[0x4]
0722 0002 0003 | |
0724 ; --------------------------------------------------------------------------------------
0724 ; Debug chain
0724 ; --------------------------------------------------------------------------------------
0724 0000 0004 | | .DBGLEN 0x0000,0x0004
0726 034b 0350 | K P| .DBGLNO 0x034b,0x0350,0x0352,0x0357
072a 0001 0004 | | .XXX[0x4]
072c 0002 0003 | |
072e ; --------------------------------------------------------------------------------------
072e ; Debug chain
072e ; --------------------------------------------------------------------------------------
072e 0000 0004 | | .DBGLEN 0x0000,0x0004
0730 0363 0368 | c h| .DBGLNO 0x0363,0x0368,0x036d,0x0372
0734 0001 0004 | | .XXX[0x4]
0736 0002 0003 | |
0738 ; --------------------------------------------------------------------------------------
0738 ; Debug chain
0738 ; --------------------------------------------------------------------------------------
0738 0000 0004 | | .DBGLEN 0x0000,0x0004
073a 037b 0380 | { | .DBGLNO 0x037b,0x0380,0x0383,0x0388
073e 0001 0004 | | .XXX[0x4]
0740 0002 0003 | |
0742 ; --------------------------------------------------------------------------------------
0742 ; Debug chain
0742 ; --------------------------------------------------------------------------------------
0742 0002 0000 | | .DBGLEN 0x0002,0x0000
0744 0393 0395 | | .DBGLNO 0x0393,0x0395
0746 ; --------------------------------------------------------------------------------------
0746 ; Debug chain
0746 ; --------------------------------------------------------------------------------------
0746 0004 0000 | | .DBGLEN 0x0004,0x0000
0748 0398 039a | | .DBGLNO 0x0398,0x039a,0x039c,0x039e
074c ; --------------------------------------------------------------------------------------
074c ; Debug chain
074c ; --------------------------------------------------------------------------------------
074c 0003 0009 | | .DBGLEN 0x0003,0x0009
074e 03ab 03ad | | .DBGLNO 0x03ab,0x03ad,0x03b3,0x03b7,0x03bc,0x03c2,0x03ca,0x03cc,0x03d2,0x03e0,0x03e6,0x03ec
075a 0001 0003 | | .XXX[0x9]
075c 0002 0004 | |
075e 0005 0006 | |
0760 0007 0008 | |
0762 0009 | |
0763 ; --------------------------------------------------------------------------------------
0763 ; Debug chain
0763 ; --------------------------------------------------------------------------------------
0763 0003 000b | | .DBGLEN 0x0003,0x000b
0765 03f3 03f5 | | .DBGLNO 0x03f3,0x03f5,0x03fb,0x03ff,0x0404,0x040a,0x0412,0x0414,0x041a,0x0428,0x042e,0x0432,0x043a,0x0440
0773 0001 0003 | | .XXX[0xb]
0775 0002 0004 | |
0777 0005 0006 | |
0779 0007 0008 | |
077b 0009 000b | |
077d 000c | |
077e ; --------------------------------------------------------------------------------------
077e ; Debug chain
077e ; --------------------------------------------------------------------------------------
077e 0000 0003 | | .DBGLEN 0x0000,0x0003
0780 044b 044e | K N| .DBGLNO 0x044b,0x044e,0x0450
0783 ; --------------------------------------------------------------------------------------
0783 ; Debug chain
0783 ; --------------------------------------------------------------------------------------
0783 0001 000d | | .DBGLEN 0x0001,0x000d
0785 045b 0461 | [ a| .DBGLNO 0x045b,0x0461,0x0466,0x046d,0x047f,0x048a,0x048f,0x0496,0x049d,0x04bb,0x04d8,0x04e3,0x04e8,0x04ef
0793 0002 0005 | | .XXX[0xd]
0795 0007 0008 | |
0797 0009 000a | |
0799 0006 0003 | |
079b 0004 000b | |
079d 000c 000d | |
079f 0001 | |
07a0 0000 0000 | | .BLANK 0000[0x60]