|
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 - download
Length: 14336 (0x3800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦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 1a28 | ( | .CONST 0x1a28 ; 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 8010 | | .CONST 0x8010 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0118 | | .CONST 0x0118 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 006d | m | .CONST 0x006d ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 000d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000e 0129 | ) | Execute Any,Make_Visible 000f 029c 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible 0011 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 0013 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0015 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0017 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0019 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b 00c4 | | Action Make_Default 002c 00c4 | | Action Make_Default 002d 00c4 | | Action Make_Default 002e 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0030 c222 | " | Store 0x1,0x22 0031 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 0033 c21f | | Store 0x1,0x1f 0034 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 0036 c220 | | Store 0x1,0x20 0037 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated 0039 c223 | # | Store 0x1,0x23 003a 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 003c c216 | | Store 0x1,0x16 003d 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated 003f c224 | $ | Store 0x1,0x24 0040 029a 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call,Visible,Unelaborated 0042 c218 | | Store 0x1,0x18 0043 029a 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call,Visible,Unelaborated 0045 c225 | % | Store 0x1,0x25 0046 029a 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call,Visible,Unelaborated 0048 c21a | | Store 0x1,0x1a 0049 029a 056b | k| Declare_Subprogram INIT_0568,For_Outer_Call,Visible,Unelaborated 004b c221 | ! | Store 0x1,0x21 004c 029a 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call,Visible,Unelaborated 004e c226 | & | Store 0x1,0x26 004f 00bf | | Action Accept_Activation 0050 e002 | | Load 0x0,0x2 0051 191f | | Execute Package,Field_Reference,Field_Number 0x1f 0052 0007 | | Action Break_Optional 0053 00e5 | | Load_Encached Long_Integer_Cache 0054 029b 0633 | 3| Declare_Subprogram INIT_0630,For_Outer_Call,Unelaborated 0056 e003 | | Load 0x0,0x3 0057 e004 | | Load 0x0,0x4 0058 e005 | | Load 0x0,0x5 0059 1b14 | | Execute Package,Field_Read,Field_Number 0x14 005a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 005b 00e1 | | Load_Encached Boolean_Cache 005c e228 | ( | Load 0x1,0x28 005d 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 005e e006 | | Load 0x0,0x6 005f 0387 | | Declare_Variable Package 0060 00d8 | | Load_Top At_Offset_0 0061 020f | | Execute Module,Activate 0062 e007 | | Load 0x0,0x7 0063 e008 | | Load 0x0,0x8 0064 e005 | | Load 0x0,0x5 0065 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0066 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0067 00e3 | | Load_Encached Natural_Cache 0068 e228 | ( | Load 0x1,0x28 0069 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 006a e006 | | Load 0x0,0x6 006b 0387 | | Declare_Variable Package 006c 00d8 | | Load_Top At_Offset_0 006d 020f | | Execute Module,Activate 006e 00d9 | | Load_Top At_Offset_1 006f 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0070 00d9 | | Load_Top At_Offset_1 0071 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0072 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0073 00c7 | | Action Elaborate_Subprogram 0074 029d 065b | [| Declare_Subprogram INIT_0658,For_Outer_Call 0076 029d 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call 0078 029d 06d3 | | Declare_Subprogram INIT_06d0,For_Outer_Call 007a 029d 06f3 | | Declare_Subprogram INIT_06f0,For_Outer_Call 007c 029d 0713 | | Declare_Subprogram INIT_0710,For_Outer_Call 007e 029d 072b | +| Declare_Subprogram INIT_0728,For_Outer_Call 0080 029d 079b | | Declare_Subprogram INIT_0798,For_Outer_Call 0082 029d 07bb | | Declare_Subprogram INIT_07b8,For_Outer_Call 0084 029d 0833 | 3| Declare_Subprogram INIT_0830,For_Outer_Call 0086 029d 085b | [| Declare_Subprogram INIT_0858,For_Outer_Call 0088 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0089 00c7 | | Action Elaborate_Subprogram 008a 1d0f | | Execute_Immediate Reference_Lex_1,0xf 008b 00c7 | | Action Elaborate_Subprogram 008c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 008d 00c7 | | Action Elaborate_Subprogram 008e 1d11 | | Execute_Immediate Reference_Lex_1,0x11 008f 00c7 | | Action Elaborate_Subprogram 0090 029d 089b | | Declare_Subprogram INIT_0898,For_Outer_Call 0092 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0093 00c7 | | Action Elaborate_Subprogram 0094 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0095 00c7 | | Action Elaborate_Subprogram 0096 029d 08c3 | | Declare_Subprogram INIT_08c0,For_Outer_Call 0098 029d 0923 | #| Declare_Subprogram INIT_0920,For_Outer_Call 009a 029d 09d3 | | Declare_Subprogram INIT_09d0,For_Outer_Call 009c 029d 0a3b | ;| Declare_Subprogram INIT_0a38,For_Outer_Call 009e 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 009f 00c7 | | Action Elaborate_Subprogram 00a0 029d 0aab | | Declare_Subprogram INIT_0aa8,For_Outer_Call 00a2 029d 0ad3 | | Declare_Subprogram INIT_0ad0,For_Outer_Call 00a4 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00a5 00c7 | | Action Elaborate_Subprogram 00a6 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00a7 00c7 | | Action Elaborate_Subprogram 00a8 029d 0afb | | Declare_Subprogram INIT_0af8,For_Outer_Call 00aa a009 | | Store_Unchecked 0x0,0x9 00ab 00c6 | | Action Check_Subprogram_Elaborated 00ac e005 | | Load 0x0,0x5 00ad 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00ae 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00af 00e3 | | Load_Encached Natural_Cache 00b0 e005 | | Load 0x0,0x5 00b1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00b2 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00b3 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 00b4 e00a | | Load 0x0,0xa 00b5 e00b | | Load 0x0,0xb 00b6 4800 |H | Short_Literal 0x0 00b7 0007 | | Action Break_Optional 00b8 029d 0b2b | +| Declare_Subprogram INIT_0b28,For_Outer_Call 00ba 029d 0c83 | | Declare_Subprogram INIT_0c80,For_Outer_Call 00bc 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00bd 00c7 | | Action Elaborate_Subprogram 00be 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00bf 00c7 | | Action Elaborate_Subprogram 00c0 029d 0ccb | | Declare_Subprogram INIT_0cc8,For_Outer_Call 00c2 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00c3 00c7 | | Action Elaborate_Subprogram 00c4 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00c5 00c7 | | Action Elaborate_Subprogram 00c6 029d 0d3b | ;| Declare_Subprogram INIT_0d38,For_Outer_Call 00c8 029d 0d53 | S| Declare_Subprogram INIT_0d50,For_Outer_Call 00ca 029d 0da3 | | Declare_Subprogram INIT_0da0,For_Outer_Call 00cc 029d 0ddb | | Declare_Subprogram INIT_0dd8,For_Outer_Call 00ce 029d 0deb | | Declare_Subprogram INIT_0de8,For_Outer_Call 00d0 029d 0e23 | #| Declare_Subprogram INIT_0e20,For_Outer_Call 00d2 029d 0e33 | 3| Declare_Subprogram INIT_0e30,For_Outer_Call 00d4 a00c | | Store_Unchecked 0x0,0xc 00d5 00c6 | | Action Check_Subprogram_Elaborated 00d6 e005 | | Load 0x0,0x5 00d7 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d9 e005 | | Load 0x0,0x5 00da 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00db 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00dc 1d4d | M | Execute_Immediate Reference_Lex_1,0x4d 00dd 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e 00de 1d4f | O | Execute_Immediate Reference_Lex_1,0x4f 00df 1d50 | P | Execute_Immediate Reference_Lex_1,0x50 00e0 e005 | | Load 0x0,0x5 00e1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00e2 1910 | | Execute Package,Field_Reference,Field_Number 0x10 00e3 e005 | | Load 0x0,0x5 00e4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00e5 1912 | | Execute Package,Field_Reference,Field_Number 0x12 00e6 e00d | | Load 0x0,0xd 00e7 e00e | | Load 0x0,0xe 00e8 4800 |H | Short_Literal 0x0 00e9 0007 | | Action Break_Optional 00ea 029b 0e43 | C| Declare_Subprogram INIT_0e40,For_Outer_Call,Unelaborated 00ec 029b 0f03 | | Declare_Subprogram INIT_0f00,For_Outer_Call,Unelaborated 00ee a00c | | Store_Unchecked 0x0,0xc 00ef 00c6 | | Action Check_Subprogram_Elaborated 00f0 e005 | | Load 0x0,0x5 00f1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f3 e005 | | Load 0x0,0x5 00f4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00f5 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00f6 1d4d | M | Execute_Immediate Reference_Lex_1,0x4d 00f7 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e 00f8 1d5c | \ | Execute_Immediate Reference_Lex_1,0x5c 00f9 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d 00fa e005 | | Load 0x0,0x5 00fb 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00fc 1910 | | Execute Package,Field_Reference,Field_Number 0x10 00fd e005 | | Load 0x0,0x5 00fe 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00ff 1912 | | Execute Package,Field_Reference,Field_Number 0x12 0100 e00f | | Load 0x0,0xf 0101 e010 | | Load 0x0,0x10 0102 4800 |H | Short_Literal 0x0 0103 0007 | | Action Break_Optional 0104 1d5c | \ | Execute_Immediate Reference_Lex_1,0x5c 0105 00c7 | | Action Elaborate_Subprogram 0106 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d 0107 00c7 | | Action Elaborate_Subprogram 0108 029d 0f63 | c| Declare_Subprogram INIT_0f60,For_Outer_Call 010a 029d 0f8b | | Declare_Subprogram INIT_0f88,For_Outer_Call 010c 029d 1053 | S| Declare_Subprogram INIT_1050,For_Outer_Call 010e 029d 10d3 | | Declare_Subprogram INIT_10d0,For_Outer_Call 0110 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0111 00c7 | | Action Elaborate_Subprogram 0112 029d 113b | ;| Declare_Subprogram INIT_1138,For_Outer_Call 0114 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0115 00c7 | | Action Elaborate_Subprogram 0116 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0117 00c7 | | Action Elaborate_Subprogram 0118 BODY_0008: 0118 e22a | * | Load 0x1,0x2a 0119 1b13 | | Execute Package,Field_Read,Field_Number 0x13 011a e011 | | Load 0x0,0x11 011b 180d | | Execute Package,Field_Execute,Field_Number 0xd 011c e22a | * | Load 0x1,0x2a 011d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 011e c22c | , | Store 0x1,0x2c 011f e22b | + | Load 0x1,0x2b 0120 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0121 e011 | | Load 0x0,0x11 0122 180d | | Execute Package,Field_Execute,Field_Number 0xd 0123 e22b | + | Load 0x1,0x2b 0124 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0125 c22d | - | Store 0x1,0x2d 0126 00bc | | Action Signal_Activated 0127 00bb | | Action Signal_Completion 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b 4803 |H | Short_Literal 0x3 012c 00ca | | Action Exit_Nullary_Function 012d 0000 0000 | | .XXX[0x3] 012f 0000 | | 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 4800 |H | Short_Literal 0x0 0134 e22c | , | Load 0x1,0x2c 0135 4802 |H | Short_Literal 0x2 0136 e5fe | | Load 0x2,-0x2 0137 e5ff | | Load 0x2,-0x1 0138 8236 | 6 | Call 0x1,0x36 0139 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 013a 0000 0000 | | .BLANK 0000[0x6] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 4800 |H | Short_Literal 0x0 0144 e22c | , | Load 0x1,0x2c 0145 4803 |H | Short_Literal 0x3 0146 e5fe | | Load 0x2,-0x2 0147 e5ff | | Load 0x2,-0x1 0148 8236 | 6 | Call 0x1,0x36 0149 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 014a 0000 0000 | | .BLANK 0000[0x6] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 4800 |H | Short_Literal 0x0 0154 e22c | , | Load 0x1,0x2c 0155 4804 |H | Short_Literal 0x4 0156 e5fe | | Load 0x2,-0x2 0157 e5ff | | Load 0x2,-0x1 0158 8236 | 6 | Call 0x1,0x36 0159 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 015a 0000 0000 | | .BLANK 0000[0x6] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0171 | q | .CONST 0x0171 ; Address of begin 0161 0180 | | .CONST 0x0180 ; Address of exception handler 0162 0004 | | .CONST 0x0004 ; Number of locals 0163 INIT_0160: 0163 e22a | * | Load 0x1,0x2a 0164 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0165 4800 |H | Short_Literal 0x0 0166 e005 | | Load 0x0,0x5 0167 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0168 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0169 1c08 | | Execute_Immediate Run_Utility,0x8 016a e005 | | Load 0x0,0x5 016b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 016c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 016d 00d9 | | Load_Top At_Offset_1 016e 016d | m | Execute Variant_Record,Structure_Write 016f 029f 1163 | c| Declare_Subprogram INIT_1160,For_Call 0171 BODY_0160: 0171 e22a | * | Load 0x1,0x2a 0172 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0173 e011 | | Load 0x0,0x11 0174 180d | | Execute Package,Field_Execute,Field_Number 0xd 0175 e22a | * | Load 0x1,0x2a 0176 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0177 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0178 4800 |H | Short_Literal 0x0 0179 4801 |H | Short_Literal 0x1 017a e5ff | | Load 0x2,-0x1 017b e402 | | Load 0x2,0x2 017c e22a | * | Load 0x1,0x2a 017d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 017e 8404 | | Call 0x2,0x4 017f 0831 | 1 | Execute_Immediate Raise,0x31 0180 TRAP_0160: 0180 0007 | | Action Break_Optional 0181 00db | | Load_Top At_Offset_3 0182 e22a | * | Load 0x1,0x2a 0183 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0184 4801 |H | Short_Literal 0x1 0185 4802 |H | Short_Literal 0x2 0186 e012 | | Load 0x0,0x12 0187 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0188 0334 | 4 | Declare_Variable Array,With_Constraint 0189 e5fe | | Load 0x2,-0x2 018a e013 | | Load 0x0,0x13 018b 1820 | | Execute Package,Field_Execute,Field_Number 0x20 018c 4801 |H | Short_Literal 0x1 018d 00da | | Load_Top At_Offset_2 018e 01d6 | | Execute Vector,Field_Write 018f e5ff | | Load 0x2,-0x1 0190 e005 | | Load 0x0,0x5 0191 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0192 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0193 4802 |H | Short_Literal 0x2 0194 00da | | Load_Top At_Offset_2 0195 01d6 | | Execute Vector,Field_Write 0196 6009 |` | Indirect_Literal Discrete,0x1a0,{0x00000000, 0x00003802} 0197 e014 | | Load 0x0,0x14 0198 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0199 00db | | Load_Top At_Offset_3 019a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 019b 00da | | Load_Top At_Offset_2 019c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 019d 0000 0000 | | .XXX[0x3] 019f 0000 | | 01a0 0000 0000 | | .LITERAL {0x00000000, 0x00003802} 01a4 0000 0000 | | .BLANK 0000[0x4] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01b9 | | .CONST 0x01b9 ; Address of begin 01a9 01c7 | | .CONST 0x01c7 ; Address of exception handler 01aa 0004 | | .CONST 0x0004 ; Number of locals 01ab INIT_01a8: 01ab e22a | * | Load 0x1,0x2a 01ac 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01ad 4800 |H | Short_Literal 0x0 01ae e005 | | Load 0x0,0x5 01af 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01b0 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01b1 1c08 | | Execute_Immediate Run_Utility,0x8 01b2 e005 | | Load 0x0,0x5 01b3 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01b4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01b5 00d9 | | Load_Top At_Offset_1 01b6 016d | m | Execute Variant_Record,Structure_Write 01b7 029f 117b | {| Declare_Subprogram INIT_1178,For_Call 01b9 BODY_01a8: 01b9 e5ff | | Load 0x2,-0x1 01ba 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01bb 7002 |p | Jump_Nonzero 0x1be 01bc 00d9 | | Load_Top At_Offset_1 01bd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01be e22a | * | Load 0x1,0x2a 01bf 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01c0 e011 | | Load 0x0,0x11 01c1 180d | | Execute Package,Field_Execute,Field_Number 0xd 01c2 e22a | * | Load 0x1,0x2a 01c3 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01c4 0033 | 3 | Store_Top Heap_Access,At_Offset_3 01c5 8404 | | Call 0x2,0x4 01c6 0831 | 1 | Execute_Immediate Raise,0x31 01c7 TRAP_01a8: 01c7 0007 | | Action Break_Optional 01c8 00db | | Load_Top At_Offset_3 01c9 e22a | * | Load 0x1,0x2a 01ca 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01cb 4801 |H | Short_Literal 0x1 01cc 4802 |H | Short_Literal 0x2 01cd e012 | | Load 0x0,0x12 01ce 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01cf 0334 | 4 | Declare_Variable Array,With_Constraint 01d0 e5fe | | Load 0x2,-0x2 01d1 e013 | | Load 0x0,0x13 01d2 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01d3 4801 |H | Short_Literal 0x1 01d4 00da | | Load_Top At_Offset_2 01d5 01d6 | | Execute Vector,Field_Write 01d6 4801 |H | Short_Literal 0x1 01d7 e5ff | | Load 0x2,-0x1 01d8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 01d9 01d7 | | Execute Vector,Field_Read 01da e005 | | Load 0x0,0x5 01db 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01dc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01dd 4802 |H | Short_Literal 0x2 01de 00da | | Load_Top At_Offset_2 01df 01d6 | | Execute Vector,Field_Write 01e0 67bf |g | Indirect_Literal Discrete,0x1a0,{0x00000000, 0x00003802} 01e1 e014 | | Load 0x0,0x14 01e2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01e3 00db | | Load_Top At_Offset_3 01e4 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01e5 00da | | Load_Top At_Offset_2 01e6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01e7 0000 | | .XXX[0x1] 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 4800 |H | Short_Literal 0x0 01ec e22c | , | Load 0x1,0x2c 01ed 4800 |H | Short_Literal 0x0 01ee e5fe | | Load 0x2,-0x2 01ef e5ff | | Load 0x2,-0x1 01f0 8236 | 6 | Call 0x1,0x36 01f1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01f2 0000 0000 | | .BLANK 0000[0x6] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 0209 | | .CONST 0x0209 ; Address of begin 01f9 0218 | | .CONST 0x0218 ; Address of exception handler 01fa 0004 | | .CONST 0x0004 ; Number of locals 01fb INIT_01f8: 01fb e22a | * | Load 0x1,0x2a 01fc 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01fd 4800 |H | Short_Literal 0x0 01fe e005 | | Load 0x0,0x5 01ff 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0200 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0201 1c08 | | Execute_Immediate Run_Utility,0x8 0202 e005 | | Load 0x0,0x5 0203 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0204 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0205 00d9 | | Load_Top At_Offset_1 0206 016d | m | Execute Variant_Record,Structure_Write 0207 029f 118b | | Declare_Subprogram INIT_1188,For_Call 0209 BODY_01f8: 0209 e22a | * | Load 0x1,0x2a 020a 1b13 | | Execute Package,Field_Read,Field_Number 0x13 020b e011 | | Load 0x0,0x11 020c 180d | | Execute Package,Field_Execute,Field_Number 0xd 020d e22a | * | Load 0x1,0x2a 020e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 020f 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0210 4800 |H | Short_Literal 0x0 0211 4801 |H | Short_Literal 0x1 0212 e5ff | | Load 0x2,-0x1 0213 e402 | | Load 0x2,0x2 0214 e22a | * | Load 0x1,0x2a 0215 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0216 8404 | | Call 0x2,0x4 0217 0831 | 1 | Execute_Immediate Raise,0x31 0218 TRAP_01f8: 0218 0007 | | Action Break_Optional 0219 00db | | Load_Top At_Offset_3 021a e22a | * | Load 0x1,0x2a 021b 181d | | Execute Package,Field_Execute,Field_Number 0x1d 021c 4801 |H | Short_Literal 0x1 021d 4802 |H | Short_Literal 0x2 021e e012 | | Load 0x0,0x12 021f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0220 0334 | 4 | Declare_Variable Array,With_Constraint 0221 e5fe | | Load 0x2,-0x2 0222 e013 | | Load 0x0,0x13 0223 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0224 4801 |H | Short_Literal 0x1 0225 00da | | Load_Top At_Offset_2 0226 01d6 | | Execute Vector,Field_Write 0227 e5ff | | Load 0x2,-0x1 0228 e005 | | Load 0x0,0x5 0229 1b14 | | Execute Package,Field_Read,Field_Number 0x14 022a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 022b 4802 |H | Short_Literal 0x2 022c 00da | | Load_Top At_Offset_2 022d 01d6 | | Execute Vector,Field_Write 022e 6009 |` | Indirect_Literal Discrete,0x238,{0x00000000, 0x00003804} 022f e014 | | Load 0x0,0x14 0230 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0231 00db | | Load_Top At_Offset_3 0232 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0233 00da | | Load_Top At_Offset_2 0234 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0235 0000 0000 | | .XXX[0x3] 0237 0000 | | 0238 0000 0000 | | .LITERAL {0x00000000, 0x00003804} 023c 0000 0000 | | .BLANK 0000[0x4] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0251 | Q | .CONST 0x0251 ; Address of begin 0241 025f | _ | .CONST 0x025f ; Address of exception handler 0242 0004 | | .CONST 0x0004 ; Number of locals 0243 INIT_0240: 0243 e22a | * | Load 0x1,0x2a 0244 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0245 4800 |H | Short_Literal 0x0 0246 e005 | | Load 0x0,0x5 0247 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0248 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0249 1c08 | | Execute_Immediate Run_Utility,0x8 024a e005 | | Load 0x0,0x5 024b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 024c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 024d 00d9 | | Load_Top At_Offset_1 024e 016d | m | Execute Variant_Record,Structure_Write 024f 029f 11a3 | | Declare_Subprogram INIT_11a0,For_Call 0251 BODY_0240: 0251 e5ff | | Load 0x2,-0x1 0252 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0253 7002 |p | Jump_Nonzero 0x256 0254 00d9 | | Load_Top At_Offset_1 0255 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0256 e22a | * | Load 0x1,0x2a 0257 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0258 e011 | | Load 0x0,0x11 0259 180d | | Execute Package,Field_Execute,Field_Number 0xd 025a e22a | * | Load 0x1,0x2a 025b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 025c 0033 | 3 | Store_Top Heap_Access,At_Offset_3 025d 8404 | | Call 0x2,0x4 025e 0831 | 1 | Execute_Immediate Raise,0x31 025f TRAP_0240: 025f 0007 | | Action Break_Optional 0260 00db | | Load_Top At_Offset_3 0261 e22a | * | Load 0x1,0x2a 0262 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0263 4801 |H | Short_Literal 0x1 0264 4802 |H | Short_Literal 0x2 0265 e012 | | Load 0x0,0x12 0266 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0267 0334 | 4 | Declare_Variable Array,With_Constraint 0268 e5fe | | Load 0x2,-0x2 0269 e013 | | Load 0x0,0x13 026a 1820 | | Execute Package,Field_Execute,Field_Number 0x20 026b 4801 |H | Short_Literal 0x1 026c 00da | | Load_Top At_Offset_2 026d 01d6 | | Execute Vector,Field_Write 026e 4801 |H | Short_Literal 0x1 026f e5ff | | Load 0x2,-0x1 0270 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0271 01d7 | | Execute Vector,Field_Read 0272 e005 | | Load 0x0,0x5 0273 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0274 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0275 4802 |H | Short_Literal 0x2 0276 00da | | Load_Top At_Offset_2 0277 01d6 | | Execute Vector,Field_Write 0278 6007 |` | Indirect_Literal Discrete,0x280,{0x00000000, 0x00003805} 0279 e014 | | Load 0x0,0x14 027a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 027b 00db | | Load_Top At_Offset_3 027c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 027d 00da | | Load_Top At_Offset_2 027e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 027f 0000 | | .XXX[0x1] 0280 0000 0000 | | .LITERAL {0x00000000, 0x00003805} 0284 0000 0000 | | .BLANK 0000[0x4] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028b | | .CONST 0x028b ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0001 | | .CONST 0x0001 ; Number of locals 028b BODY_0288: 028b INIT_0288: 028b 4800 |H | Short_Literal 0x0 028c e22c | , | Load 0x1,0x2c 028d e5fe | | Load 0x2,-0x2 028e 4800 |H | Short_Literal 0x0 028f e5ff | | Load 0x2,-0x1 0290 823a | : | Call 0x1,0x3a 0291 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0292 0000 0000 | | .BLANK 0000[0x6] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 02a4 | | .CONST 0x02a4 ; Address of begin 0299 02e8 | | .CONST 0x02e8 ; Address of exception handler 029a 0005 | | .CONST 0x0005 ; Number of locals 029b INIT_0298: 029b 00da | | Load_Top At_Offset_2 029c e013 | | Load 0x0,0x13 029d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 029e e015 | | Load 0x0,0x15 029f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 02a0 e014 | | Load 0x0,0x14 02a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02a2 e015 | | Load 0x0,0x15 02a3 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 02a4 BODY_0298: 02a4 00cf | | Action Mark_Auxiliary 02a5 e5fe | | Load 0x2,-0x2 02a6 01d9 | | Execute Vector,Reverse_Bounds 02a7 0263 | c | Execute Discrete,Above_Bound 02a8 703b |p; | Jump_Nonzero 0x2e4 02a9 00d8 | | Load_Top At_Offset_0 02aa e5fe | | Load 0x2,-0x2 02ab 01d7 | | Execute Vector,Field_Read 02ac 6835 |h5 | Jump_Zero 0x2e2 02ad 00cf | | Action Mark_Auxiliary 02ae e402 | | Load 0x2,0x2 02af 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 02b0 01d9 | | Execute Vector,Reverse_Bounds 02b1 0263 | c | Execute Discrete,Above_Bound 02b2 700b |p | Jump_Nonzero 0x2be 02b3 e405 | | Load 0x2,0x5 02b4 e408 | | Load 0x2,0x8 02b5 00da | | Load_Top At_Offset_2 02b6 e402 | | Load 0x2,0x2 02b7 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 02b8 01d7 | | Execute Vector,Field_Read 02b9 e5ff | | Load 0x2,-0x1 02ba 8248 | H | Call 0x1,0x48 02bb c405 | | Store 0x2,0x5 02bc 00c8 | | Action Pop_Auxiliary_Range 02bd 3ff5 |? | Loop_Increasing 0x2b3 02be 00ce | | Action Pop_Auxiliary 02bf 00db | | Load_Top At_Offset_3 02c0 e015 | | Load 0x0,0x15 02c1 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 02c2 701f |p | Jump_Nonzero 0x2e2 02c3 00d8 | | Load_Top At_Offset_0 02c4 e002 | | Load 0x0,0x2 02c5 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02c6 4801 |H | Short_Literal 0x1 02c7 4801 |H | Short_Literal 0x1 02c8 e012 | | Load 0x0,0x12 02c9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02ca 0334 | 4 | Declare_Variable Array,With_Constraint 02cb e405 | | Load 0x2,0x5 02cc e015 | | Load 0x0,0x15 02cd 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 02ce 4801 |H | Short_Literal 0x1 02cf 00da | | Load_Top At_Offset_2 02d0 01d6 | | Execute Vector,Field_Write 02d1 4802 |H | Short_Literal 0x2 02d2 e403 | | Load 0x2,0x3 02d3 e015 | | Load 0x0,0x15 02d4 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 02d5 00db | | Load_Top At_Offset_3 02d6 e015 | | Load 0x0,0x15 02d7 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 02d8 7006 |p | Jump_Nonzero 0x2df 02d9 00db | | Load_Top At_Offset_3 02da e015 | | Load 0x0,0x15 02db 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 02dc e403 | | Load 0x2,0x3 02dd e015 | | Load 0x0,0x15 02de 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 02df e015 | | Load 0x0,0x15 02e0 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 02e1 a405 | | Store_Unchecked 0x2,0x5 02e2 00c8 | | Action Pop_Auxiliary_Range 02e3 3fc5 |? | Loop_Increasing 0x2a9 02e4 00ce | | Action Pop_Auxiliary 02e5 00da | | Load_Top At_Offset_2 02e6 a5fd | | Store_Unchecked 0x2,-0x3 02e7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02e8 TRAP_0298: 02e8 0007 | | Action Break_Optional 02e9 4801 |H | Short_Literal 0x1 02ea 4801 |H | Short_Literal 0x1 02eb e012 | | Load 0x0,0x12 02ec 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02ed 0334 | 4 | Declare_Variable Array,With_Constraint 02ee e5ff | | Load 0x2,-0x1 02ef e013 | | Load 0x0,0x13 02f0 1820 | | Execute Package,Field_Execute,Field_Number 0x20 02f1 4801 |H | Short_Literal 0x1 02f2 00da | | Load_Top At_Offset_2 02f3 01d6 | | Execute Vector,Field_Write 02f4 600b |` | Indirect_Literal Discrete,0x300,{0x00000000, 0x00003806} 02f5 e014 | | Load 0x0,0x14 02f6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02f7 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 02f8 00da | | Load_Top At_Offset_2 02f9 e403 | | Load 0x2,0x3 02fa e015 | | Load 0x0,0x15 02fb 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 02fc 00db | | Load_Top At_Offset_3 02fd a5fd | | Store_Unchecked 0x2,-0x3 02fe 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02ff 0000 | | .XXX[0x1] 0300 0000 0000 | | .LITERAL {0x00000000, 0x00003806} 0304 0000 0000 | | .BLANK 0000[0x4] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 032c | , | .CONST 0x032c ; Address of begin 0309 03be | | .CONST 0x03be ; Address of exception handler 030a 000d | | .CONST 0x000d ; Number of locals 030b INIT_0308: 030b 00da | | Load_Top At_Offset_2 030c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 030d 01da | | Execute Vector,Bounds 030e e005 | | Load 0x0,0x5 030f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0310 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0311 035b | [ | Declare_Type Array,Constrained 0312 0337 | 7 | Declare_Variable Array 0313 00db | | Load_Top At_Offset_3 0314 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0315 00d9 | | Load_Top At_Offset_1 0316 01d4 | | Execute Vector,Structure_Write 0317 00e2 | | Load_Encached Integer_Cache 0318 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0319 00e3 | | Load_Encached Natural_Cache 031a 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 031b 00e3 | | Load_Encached Natural_Cache 031c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 031d e015 | | Load 0x0,0x15 031e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 031f e015 | | Load 0x0,0x15 0320 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0321 e015 | | Load 0x0,0x15 0322 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0323 00e3 | | Load_Encached Natural_Cache 0324 e015 | | Load 0x0,0x15 0325 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0326 e014 | | Load 0x0,0x14 0327 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0328 029f 11b3 | | Declare_Subprogram INIT_11b0,For_Call 032a 029f 11db | | Declare_Subprogram INIT_11d8,For_Call 032c BODY_0308: 032c e5ff | | Load 0x2,-0x1 032d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 032e 7003 |p | Jump_Nonzero 0x332 032f e406 | | Load 0x2,0x6 0330 a5fc | | Store_Unchecked 0x2,-0x4 0331 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0332 e403 | | Load 0x2,0x3 0333 e402 | | Load 0x2,0x2 0334 e240 | @ | Load 0x1,0x40 0335 e241 | A | Load 0x1,0x41 0336 e242 | B | Load 0x1,0x42 0337 1d43 | C | Execute_Immediate Reference_Lex_1,0x43 0338 1d44 | D | Execute_Immediate Reference_Lex_1,0x44 0339 8009 | | Call 0x0,0x9 033a 00d1 | | Pop_Control Pop_Count_1 033b c403 | | Store 0x2,0x3 033c 00cf | | Action Mark_Auxiliary 033d e5fd | | Load 0x2,-0x3 033e 01d9 | | Execute Vector,Reverse_Bounds 033f 0263 | c | Execute Discrete,Above_Bound 0340 7079 |py | Jump_Nonzero 0x3ba 0341 00d8 | | Load_Top At_Offset_0 0342 e5fd | | Load 0x2,-0x3 0343 01d7 | | Execute Vector,Field_Read 0344 6831 |h1 | Jump_Zero 0x376 0345 00cf | | Action Mark_Auxiliary 0346 7829 |x) | Jump 0x370 0347 e405 | | Load 0x2,0x5 0348 a404 | | Store_Unchecked 0x2,0x4 0349 840c | | Call 0x2,0xc 034a e015 | | Load 0x0,0x15 034b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 034c 00da | | Load_Top At_Offset_2 034d e002 | | Load 0x0,0x2 034e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 034f e404 | | Load 0x2,0x4 0350 e402 | | Load 0x2,0x2 0351 01d7 | | Execute Vector,Field_Read 0352 e005 | | Load 0x0,0x5 0353 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0354 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0355 e005 | | Load 0x0,0x5 0356 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0357 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 0358 4807 |H | Short_Literal 0x7 0359 e015 | | Load 0x0,0x15 035a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 035b c407 | | Store 0x2,0x7 035c e40a | | Load 0x2,0xa 035d e407 | | Load 0x2,0x7 035e e015 | | Load 0x0,0x15 035f 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0360 e40a | | Load 0x2,0xa 0361 e015 | | Load 0x0,0x15 0362 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0363 a409 | | Store_Unchecked 0x2,0x9 0364 840d | | Call 0x2,0xd 0365 e40a | | Load 0x2,0xa 0366 e015 | | Load 0x0,0x15 0367 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0368 e409 | | Load 0x2,0x9 0369 027f | | Execute Discrete,Equal 036a 6804 |h | Jump_Zero 0x36f 036b e40a | | Load 0x2,0xa 036c e407 | | Load 0x2,0x7 036d e015 | | Load 0x0,0x15 036e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 036f 00c9 | | Action Pop_Auxiliary_Loop 0370 e405 | | Load 0x2,0x5 0371 e402 | | Load 0x2,0x2 0372 01dc | | Execute Vector,Last 0373 027a | z | Execute Discrete,Less_Equal 0374 77d2 |w | Jump_Nonzero 0x347 0375 00ce | | Action Pop_Auxiliary 0376 e40a | | Load 0x2,0xa 0377 e015 | | Load 0x0,0x15 0378 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0379 6838 |h8 | Jump_Zero 0x3b2 037a 00d8 | | Load_Top At_Offset_0 037b e002 | | Load 0x0,0x2 037c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 037d 4801 |H | Short_Literal 0x1 037e 4801 |H | Short_Literal 0x1 037f e012 | | Load 0x0,0x12 0380 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0381 0334 | 4 | Declare_Variable Array,With_Constraint 0382 e40a | | Load 0x2,0xa 0383 e015 | | Load 0x0,0x15 0384 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0385 4801 |H | Short_Literal 0x1 0386 00da | | Load_Top At_Offset_2 0387 01d6 | | Execute Vector,Field_Write 0388 4803 |H | Short_Literal 0x3 0389 e408 | | Load 0x2,0x8 038a e015 | | Load 0x0,0x15 038b 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 038c e40a | | Load 0x2,0xa 038d e015 | | Load 0x0,0x15 038e 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 038f 7006 |p | Jump_Nonzero 0x396 0390 e40a | | Load 0x2,0xa 0391 e015 | | Load 0x0,0x15 0392 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0393 e408 | | Load 0x2,0x8 0394 e015 | | Load 0x0,0x15 0395 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0396 00d8 | | Load_Top At_Offset_0 0397 e002 | | Load 0x0,0x2 0398 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0399 4801 |H | Short_Literal 0x1 039a 4801 |H | Short_Literal 0x1 039b e012 | | Load 0x0,0x12 039c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 039d 0334 | 4 | Declare_Variable Array,With_Constraint 039e e408 | | Load 0x2,0x8 039f e015 | | Load 0x0,0x15 03a0 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 03a1 4801 |H | Short_Literal 0x1 03a2 00da | | Load_Top At_Offset_2 03a3 01d6 | | Execute Vector,Field_Write 03a4 4802 |H | Short_Literal 0x2 03a5 e406 | | Load 0x2,0x6 03a6 e015 | | Load 0x0,0x15 03a7 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 03a8 e408 | | Load 0x2,0x8 03a9 e015 | | Load 0x0,0x15 03aa 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 03ab 7006 |p | Jump_Nonzero 0x3b2 03ac e408 | | Load 0x2,0x8 03ad e015 | | Load 0x0,0x15 03ae 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 03af e406 | | Load 0x2,0x6 03b0 e015 | | Load 0x0,0x15 03b1 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 03b2 e015 | | Load 0x0,0x15 03b3 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 03b4 a40a | | Store_Unchecked 0x2,0xa 03b5 e015 | | Load 0x0,0x15 03b6 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 03b7 a408 | | Store_Unchecked 0x2,0x8 03b8 00c8 | | Action Pop_Auxiliary_Range 03b9 3f87 |? | Loop_Increasing 0x341 03ba 00ce | | Action Pop_Auxiliary 03bb e406 | | Load 0x2,0x6 03bc a5fc | | Store_Unchecked 0x2,-0x4 03bd 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03be TRAP_0308: 03be 0007 | | Action Break_Optional 03bf 4801 |H | Short_Literal 0x1 03c0 4801 |H | Short_Literal 0x1 03c1 e012 | | Load 0x0,0x12 03c2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03c3 0334 | 4 | Declare_Variable Array,With_Constraint 03c4 e404 | | Load 0x2,0x4 03c5 e5ff | | Load 0x2,-0x1 03c6 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 03c7 01d7 | | Execute Vector,Field_Read 03c8 e005 | | Load 0x0,0x5 03c9 1b14 | | Execute Package,Field_Read,Field_Number 0x14 03ca 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03cb 4801 |H | Short_Literal 0x1 03cc 00da | | Load_Top At_Offset_2 03cd 01d6 | | Execute Vector,Field_Write 03ce 600d |` | Indirect_Literal Discrete,0x3dc,{0x00000000, 0x00003807} 03cf e014 | | Load 0x0,0x14 03d0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03d1 a40b | | Store_Unchecked 0x2,0xb 03d2 00db | | Load_Top At_Offset_3 03d3 e406 | | Load 0x2,0x6 03d4 e015 | | Load 0x0,0x15 03d5 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 03d6 e406 | | Load 0x2,0x6 03d7 a5fc | | Store_Unchecked 0x2,-0x4 03d8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03d9 0000 0000 | | .XXX[0x3] 03db 0000 | | 03dc 0000 0000 | | .LITERAL {0x00000000, 0x00003807} 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03ec | | .CONST 0x03ec ; Address of begin 03e1 0430 | 0 | .CONST 0x0430 ; Address of exception handler 03e2 0005 | | .CONST 0x0005 ; Number of locals 03e3 INIT_03e0: 03e3 00da | | Load_Top At_Offset_2 03e4 e013 | | Load 0x0,0x13 03e5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 03e6 e015 | | Load 0x0,0x15 03e7 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 03e8 e014 | | Load 0x0,0x14 03e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03ea e015 | | Load 0x0,0x15 03eb 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 03ec BODY_03e0: 03ec 00cf | | Action Mark_Auxiliary 03ed e5fe | | Load 0x2,-0x2 03ee 01d9 | | Execute Vector,Reverse_Bounds 03ef 0263 | c | Execute Discrete,Above_Bound 03f0 703b |p; | Jump_Nonzero 0x42c 03f1 00d8 | | Load_Top At_Offset_0 03f2 e5fe | | Load 0x2,-0x2 03f3 01d7 | | Execute Vector,Field_Read 03f4 6835 |h5 | Jump_Zero 0x42a 03f5 00cf | | Action Mark_Auxiliary 03f6 e402 | | Load 0x2,0x2 03f7 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 03f8 01d9 | | Execute Vector,Reverse_Bounds 03f9 0263 | c | Execute Discrete,Above_Bound 03fa 700b |p | Jump_Nonzero 0x406 03fb e405 | | Load 0x2,0x5 03fc e408 | | Load 0x2,0x8 03fd 00da | | Load_Top At_Offset_2 03fe e402 | | Load 0x2,0x2 03ff 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0400 01d7 | | Execute Vector,Field_Read 0401 e5ff | | Load 0x2,-0x1 0402 8249 | I | Call 0x1,0x49 0403 c405 | | Store 0x2,0x5 0404 00c8 | | Action Pop_Auxiliary_Range 0405 3ff5 |? | Loop_Increasing 0x3fb 0406 00ce | | Action Pop_Auxiliary 0407 00db | | Load_Top At_Offset_3 0408 e015 | | Load 0x0,0x15 0409 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 040a 701f |p | Jump_Nonzero 0x42a 040b 00d8 | | Load_Top At_Offset_0 040c e002 | | Load 0x0,0x2 040d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 040e 4801 |H | Short_Literal 0x1 040f 4801 |H | Short_Literal 0x1 0410 e012 | | Load 0x0,0x12 0411 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0412 0334 | 4 | Declare_Variable Array,With_Constraint 0413 e405 | | Load 0x2,0x5 0414 e015 | | Load 0x0,0x15 0415 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0416 4801 |H | Short_Literal 0x1 0417 00da | | Load_Top At_Offset_2 0418 01d6 | | Execute Vector,Field_Write 0419 4802 |H | Short_Literal 0x2 041a e403 | | Load 0x2,0x3 041b e015 | | Load 0x0,0x15 041c 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 041d 00db | | Load_Top At_Offset_3 041e e015 | | Load 0x0,0x15 041f 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0420 7006 |p | Jump_Nonzero 0x427 0421 00db | | Load_Top At_Offset_3 0422 e015 | | Load 0x0,0x15 0423 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0424 e403 | | Load 0x2,0x3 0425 e015 | | Load 0x0,0x15 0426 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0427 e015 | | Load 0x0,0x15 0428 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0429 a405 | | Store_Unchecked 0x2,0x5 042a 00c8 | | Action Pop_Auxiliary_Range 042b 3fc5 |? | Loop_Increasing 0x3f1 042c 00ce | | Action Pop_Auxiliary 042d 00da | | Load_Top At_Offset_2 042e a5fd | | Store_Unchecked 0x2,-0x3 042f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0430 TRAP_03e0: 0430 0007 | | Action Break_Optional 0431 4801 |H | Short_Literal 0x1 0432 4801 |H | Short_Literal 0x1 0433 e012 | | Load 0x0,0x12 0434 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0435 0334 | 4 | Declare_Variable Array,With_Constraint 0436 e5ff | | Load 0x2,-0x1 0437 e013 | | Load 0x0,0x13 0438 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0439 4801 |H | Short_Literal 0x1 043a 00da | | Load_Top At_Offset_2 043b 01d6 | | Execute Vector,Field_Write 043c 600b |` | Indirect_Literal Discrete,0x448,{0x00000000, 0x00003808} 043d e014 | | Load 0x0,0x14 043e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 043f 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0440 00da | | Load_Top At_Offset_2 0441 e403 | | Load 0x2,0x3 0442 e015 | | Load 0x0,0x15 0443 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0444 00db | | Load_Top At_Offset_3 0445 a5fd | | Store_Unchecked 0x2,-0x3 0446 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0447 0000 | | .XXX[0x1] 0448 0000 0000 | | .LITERAL {0x00000000, 0x00003808} 044c 0000 0000 | | .BLANK 0000[0x4] 0450 ; -------------------------------------------------------------------------------------- 0450 ; SUBPROGRAM 0450 ; -------------------------------------------------------------------------------------- 0450 046f | o | .CONST 0x046f ; Address of begin 0451 051e | | .CONST 0x051e ; Address of exception handler 0452 000a | | .CONST 0x000a ; Number of locals 0453 INIT_0450: 0453 00da | | Load_Top At_Offset_2 0454 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0455 01da | | Execute Vector,Bounds 0456 e005 | | Load 0x0,0x5 0457 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0458 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0459 035b | [ | Declare_Type Array,Constrained 045a 0337 | 7 | Declare_Variable Array 045b 00db | | Load_Top At_Offset_3 045c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 045d 00d9 | | Load_Top At_Offset_1 045e 01d4 | | Execute Vector,Structure_Write 045f 00e2 | | Load_Encached Integer_Cache 0460 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0461 00e3 | | Load_Encached Natural_Cache 0462 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0463 00e3 | | Load_Encached Natural_Cache 0464 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0465 e015 | | Load 0x0,0x15 0466 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0467 e015 | | Load 0x0,0x15 0468 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0469 e015 | | Load 0x0,0x15 046a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 046b e014 | | Load 0x0,0x14 046c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 046d 029f 1213 | | Declare_Subprogram INIT_1210,For_Call 046f BODY_0450: 046f e5ff | | Load 0x2,-0x1 0470 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0471 7003 |p | Jump_Nonzero 0x475 0472 e406 | | Load 0x2,0x6 0473 a5fc | | Store_Unchecked 0x2,-0x4 0474 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0475 e403 | | Load 0x2,0x3 0476 e402 | | Load 0x2,0x2 0477 e240 | @ | Load 0x1,0x40 0478 e241 | A | Load 0x1,0x41 0479 e242 | B | Load 0x1,0x42 047a 1d43 | C | Execute_Immediate Reference_Lex_1,0x43 047b 1d44 | D | Execute_Immediate Reference_Lex_1,0x44 047c 8009 | | Call 0x0,0x9 047d 00d1 | | Pop_Control Pop_Count_1 047e c403 | | Store 0x2,0x3 047f 00cf | | Action Mark_Auxiliary 0480 e5fd | | Load 0x2,-0x3 0481 01d9 | | Execute Vector,Reverse_Bounds 0482 0263 | c | Execute Discrete,Above_Bound 0483 7096 |p | Jump_Nonzero 0x51a 0484 00d8 | | Load_Top At_Offset_0 0485 e5fd | | Load 0x2,-0x3 0486 01d7 | | Execute Vector,Field_Read 0487 6890 |h | Jump_Zero 0x518 0488 00cf | | Action Mark_Auxiliary 0489 7865 |xe | Jump 0x4ef 048a e405 | | Load 0x2,0x5 048b a404 | | Store_Unchecked 0x2,0x4 048c 840a | | Call 0x2,0xa 048d 00d9 | | Load_Top At_Offset_1 048e e002 | | Load 0x0,0x2 048f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0490 4801 |H | Short_Literal 0x1 0491 4801 |H | Short_Literal 0x1 0492 e012 | | Load 0x0,0x12 0493 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0494 0334 | 4 | Declare_Variable Array,With_Constraint 0495 e404 | | Load 0x2,0x4 0496 e402 | | Load 0x2,0x2 0497 01d7 | | Execute Vector,Field_Read 0498 e005 | | Load 0x0,0x5 0499 1b16 | | Execute Package,Field_Read,Field_Number 0x16 049a 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 049b e005 | | Load 0x0,0x5 049c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 049d 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 049e 4801 |H | Short_Literal 0x1 049f 00da | | Load_Top At_Offset_2 04a0 01d6 | | Execute Vector,Field_Write 04a1 4807 |H | Short_Literal 0x7 04a2 e407 | | Load 0x2,0x7 04a3 e015 | | Load 0x0,0x15 04a4 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 04a5 00cf | | Action Mark_Auxiliary 04a6 e405 | | Load 0x2,0x5 04a7 0aff | | Execute_Immediate Plus,-0x1 04a8 e404 | | Load 0x2,0x4 04a9 0263 | c | Execute Discrete,Above_Bound 04aa 701e |p | Jump_Nonzero 0x4c9 04ab 00d8 | | Load_Top At_Offset_0 04ac e402 | | Load 0x2,0x2 04ad 01d7 | | Execute Vector,Field_Read 04ae e005 | | Load 0x0,0x5 04af 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04b0 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 04b1 7015 |p | Jump_Nonzero 0x4c7 04b2 e40d | | Load 0x2,0xd 04b3 e002 | | Load 0x0,0x2 04b4 1812 | | Execute Package,Field_Execute,Field_Number 0x12 04b5 4801 |H | Short_Literal 0x1 04b6 4801 |H | Short_Literal 0x1 04b7 e012 | | Load 0x0,0x12 04b8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04b9 0334 | 4 | Declare_Variable Array,With_Constraint 04ba 00db | | Load_Top At_Offset_3 04bb e402 | | Load 0x2,0x2 04bc 01d7 | | Execute Vector,Field_Read 04bd e005 | | Load 0x0,0x5 04be 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04bf 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04c0 4801 |H | Short_Literal 0x1 04c1 00da | | Load_Top At_Offset_2 04c2 01d6 | | Execute Vector,Field_Write 04c3 480e |H | Short_Literal 0xe 04c4 e407 | | Load 0x2,0x7 04c5 e015 | | Load 0x0,0x15 04c6 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 04c7 00c8 | | Action Pop_Auxiliary_Range 04c8 3fe2 |? | Loop_Increasing 0x4ab 04c9 00ce | | Action Pop_Auxiliary 04ca e407 | | Load 0x2,0x7 04cb e015 | | Load 0x0,0x15 04cc 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 04cd 0e01 | | Execute_Immediate Not_Equal,0x1 04ce 6812 |h | Jump_Zero 0x4e1 04cf 00d9 | | Load_Top At_Offset_1 04d0 e002 | | Load 0x0,0x2 04d1 1812 | | Execute Package,Field_Execute,Field_Number 0x12 04d2 4801 |H | Short_Literal 0x1 04d3 4801 |H | Short_Literal 0x1 04d4 e012 | | Load 0x0,0x12 04d5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04d6 0334 | 4 | Declare_Variable Array,With_Constraint 04d7 e407 | | Load 0x2,0x7 04d8 e015 | | Load 0x0,0x15 04d9 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 04da 4801 |H | Short_Literal 0x1 04db 00da | | Load_Top At_Offset_2 04dc 01d6 | | Execute Vector,Field_Write 04dd 4805 |H | Short_Literal 0x5 04de e408 | | Load 0x2,0x8 04df e015 | | Load 0x0,0x15 04e0 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 04e1 e407 | | Load 0x2,0x7 04e2 e015 | | Load 0x0,0x15 04e3 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 04e4 7006 |p | Jump_Nonzero 0x4eb 04e5 e407 | | Load 0x2,0x7 04e6 e015 | | Load 0x0,0x15 04e7 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 04e8 e408 | | Load 0x2,0x8 04e9 e015 | | Load 0x0,0x15 04ea 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 04eb e015 | | Load 0x0,0x15 04ec 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 04ed a407 | | Store_Unchecked 0x2,0x7 04ee 00c9 | | Action Pop_Auxiliary_Loop 04ef e405 | | Load 0x2,0x5 04f0 e402 | | Load 0x2,0x2 04f1 01dc | | Execute Vector,Last 04f2 027a | z | Execute Discrete,Less_Equal 04f3 7796 |w | Jump_Nonzero 0x48a 04f4 00ce | | Action Pop_Auxiliary 04f5 e408 | | Load 0x2,0x8 04f6 e015 | | Load 0x0,0x15 04f7 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 04f8 681f |h | Jump_Zero 0x518 04f9 00d8 | | Load_Top At_Offset_0 04fa e002 | | Load 0x0,0x2 04fb 1812 | | Execute Package,Field_Execute,Field_Number 0x12 04fc 4801 |H | Short_Literal 0x1 04fd 4801 |H | Short_Literal 0x1 04fe e012 | | Load 0x0,0x12 04ff 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0500 0334 | 4 | Declare_Variable Array,With_Constraint 0501 e408 | | Load 0x2,0x8 0502 e015 | | Load 0x0,0x15 0503 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0504 4801 |H | Short_Literal 0x1 0505 00da | | Load_Top At_Offset_2 0506 01d6 | | Execute Vector,Field_Write 0507 4802 |H | Short_Literal 0x2 0508 e406 | | Load 0x2,0x6 0509 e015 | | Load 0x0,0x15 050a 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 050b e408 | | Load 0x2,0x8 050c e015 | | Load 0x0,0x15 050d 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 050e 7006 |p | Jump_Nonzero 0x515 050f e408 | | Load 0x2,0x8 0510 e015 | | Load 0x0,0x15 0511 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0512 e406 | | Load 0x2,0x6 0513 e015 | | Load 0x0,0x15 0514 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0515 e015 | | Load 0x0,0x15 0516 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0517 a408 | | Store_Unchecked 0x2,0x8 0518 00c8 | | Action Pop_Auxiliary_Range 0519 3f6a |?j | Loop_Increasing 0x484 051a 00ce | | Action Pop_Auxiliary 051b e406 | | Load 0x2,0x6 051c a5fc | | Store_Unchecked 0x2,-0x4 051d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 051e TRAP_0450: 051e 0007 | | Action Break_Optional 051f 4801 |H | Short_Literal 0x1 0520 4801 |H | Short_Literal 0x1 0521 e012 | | Load 0x0,0x12 0522 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0523 0334 | 4 | Declare_Variable Array,With_Constraint 0524 e404 | | Load 0x2,0x4 0525 e5ff | | Load 0x2,-0x1 0526 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0527 01d7 | | Execute Vector,Field_Read 0528 e005 | | Load 0x0,0x5 0529 1b14 | | Execute Package,Field_Read,Field_Number 0x14 052a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 052b 4801 |H | Short_Literal 0x1 052c 00da | | Load_Top At_Offset_2 052d 01d6 | | Execute Vector,Field_Write 052e 600d |` | Indirect_Literal Discrete,0x53c,{0x00000000, 0x00003809} 052f e014 | | Load 0x0,0x14 0530 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0531 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0532 00da | | Load_Top At_Offset_2 0533 e406 | | Load 0x2,0x6 0534 e015 | | Load 0x0,0x15 0535 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0536 e406 | | Load 0x2,0x6 0537 a5fc | | Store_Unchecked 0x2,-0x4 0538 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0539 0000 0000 | | .XXX[0x3] 053b 0000 | | 053c 0000 0000 | | .LITERAL {0x00000000, 0x00003809} 0540 ; -------------------------------------------------------------------------------------- 0540 ; SUBPROGRAM 0540 ; -------------------------------------------------------------------------------------- 0540 0555 | U | .CONST 0x0555 ; Address of begin 0541 0004 | | .CONST 0x0004 ; Address of exception handler 0542 0007 | | .CONST 0x0007 ; Number of locals 0543 INIT_0540: 0543 e015 | | Load 0x0,0x15 0544 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0545 e015 | | Load 0x0,0x15 0546 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0547 e5fe | | Load 0x2,-0x2 0548 e013 | | Load 0x0,0x13 0549 1817 | | Execute Package,Field_Execute,Field_Number 0x17 054a e016 | | Load 0x0,0x16 054b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 054c 4801 |H | Short_Literal 0x1 054d 00d9 | | Load_Top At_Offset_1 054e 01d7 | | Execute Vector,Field_Read 054f 0007 | | Action Break_Optional 0550 4802 |H | Short_Literal 0x2 0551 00da | | Load_Top At_Offset_2 0552 01d7 | | Execute Vector,Field_Read 0553 029f 123b | ;| Declare_Subprogram INIT_1238,For_Call 0555 BODY_0540: 0555 00cf | | Action Mark_Auxiliary 0556 e016 | | Load 0x0,0x16 0557 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0558 01d9 | | Execute Vector,Reverse_Bounds 0559 0263 | c | Execute Discrete,Above_Bound 055a 7003 |p | Jump_Nonzero 0x55e 055b 8407 | | Call 0x2,0x7 055c 00c8 | | Action Pop_Auxiliary_Range 055d 3ffd |? | Loop_Increasing 0x55b 055e 00ce | | Action Pop_Auxiliary 055f e403 | | Load 0x2,0x3 0560 a5fd | | Store_Unchecked 0x2,-0x3 0561 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0562 0000 0000 | | .BLANK 0000[0x6] 0568 ; -------------------------------------------------------------------------------------- 0568 ; SUBPROGRAM 0568 ; -------------------------------------------------------------------------------------- 0568 0575 | u | .CONST 0x0575 ; Address of begin 0569 0004 | | .CONST 0x0004 ; Address of exception handler 056a 0006 | | .CONST 0x0006 ; Number of locals 056b INIT_0568: 056b e015 | | Load 0x0,0x15 056c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 056d e015 | | Load 0x0,0x15 056e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 056f e015 | | Load 0x0,0x15 0570 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0571 e015 | | Load 0x0,0x15 0572 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0573 029f 1283 | | Declare_Subprogram INIT_1280,For_Call 0575 BODY_0568: 0575 e5fd | | Load 0x2,-0x3 0576 7002 |p | Jump_Nonzero 0x579 0577 e5fc | | Load 0x2,-0x4 0578 682d |h- | Jump_Zero 0x5a6 0579 e5fe | | Load 0x2,-0x2 057a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 057b 680b |h | Jump_Zero 0x587 057c e015 | | Load 0x0,0x15 057d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 057e e5f9 | | Load 0x2,-0x7 057f e5ff | | Load 0x2,-0x1 0580 e5fa | | Load 0x2,-0x6 0581 e5ff | | Load 0x2,-0x1 0582 e5fe | | Load 0x2,-0x2 0583 8220 | | Call 0x1,0x20 0584 8224 | $ | Call 0x1,0x24 0585 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0586 7806 |x | Jump 0x58d 0587 e015 | | Load 0x0,0x15 0588 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0589 e5f9 | | Load 0x2,-0x7 058a e5ff | | Load 0x2,-0x1 058b 8216 | | Call 0x1,0x16 058c 0032 | 2 | Store_Top Heap_Access,At_Offset_2 058d e5fd | | Load 0x2,-0x3 058e 6802 |h | Jump_Zero 0x591 058f 00d9 | | Load_Top At_Offset_1 0590 8406 | | Call 0x2,0x6 0591 e5fc | | Load 0x2,-0x4 0592 6813 |h | Jump_Zero 0x5a6 0593 e5fe | | Load 0x2,-0x2 0594 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0595 6808 |h | Jump_Zero 0x59e 0596 e015 | | Load 0x0,0x15 0597 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0598 e5fe | | Load 0x2,-0x2 0599 e5ff | | Load 0x2,-0x1 059a e405 | | Load 0x2,0x5 059b 826d | m | Call 0x1,0x6d 059c c403 | | Store 0x2,0x3 059d 7806 |x | Jump 0x5a4 059e e015 | | Load 0x0,0x15 059f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05a0 e5ff | | Load 0x2,-0x1 05a1 00db | | Load_Top At_Offset_3 05a2 821a | | Call 0x1,0x1a 05a3 c403 | | Store 0x2,0x3 05a4 00db | | Load_Top At_Offset_3 05a5 8406 | | Call 0x2,0x6 05a6 e5fb | | Load 0x2,-0x5 05a7 6816 |h | Jump_Zero 0x5be 05a8 e5fe | | Load 0x2,-0x2 05a9 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 05aa 680b |h | Jump_Zero 0x5b6 05ab e015 | | Load 0x0,0x15 05ac 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05ad e5f9 | | Load 0x2,-0x7 05ae e5ff | | Load 0x2,-0x1 05af 4800 |H | Short_Literal 0x0 05b0 e5ff | | Load 0x2,-0x1 05b1 e5fe | | Load 0x2,-0x2 05b2 8220 | | Call 0x1,0x20 05b3 8225 | % | Call 0x1,0x25 05b4 0033 | 3 | Store_Top Heap_Access,At_Offset_3 05b5 7806 |x | Jump 0x5bc 05b6 e015 | | Load 0x0,0x15 05b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05b8 e5f9 | | Load 0x2,-0x7 05b9 e5ff | | Load 0x2,-0x1 05ba 8218 | | Call 0x1,0x18 05bb 0033 | 3 | Store_Top Heap_Access,At_Offset_3 05bc 00da | | Load_Top At_Offset_2 05bd 8406 | | Call 0x2,0x6 05be e402 | | Load 0x2,0x2 05bf a5f8 | | Store_Unchecked 0x2,-0x8 05c0 4508 |E | Exit_Suprogram New_Top_Offset 0x8 05c1 0000 0000 | | .BLANK 0000[0x7] 05c8 ; -------------------------------------------------------------------------------------- 05c8 ; SUBPROGRAM 05c8 ; -------------------------------------------------------------------------------------- 05c8 05d0 | | .CONST 0x05d0 ; Address of begin 05c9 0004 | | .CONST 0x0004 ; Address of exception handler 05ca 0003 | | .CONST 0x0003 ; Number of locals 05cb INIT_05c8: 05cb e5fc | | Load 0x2,-0x4 05cc e015 | | Load 0x0,0x15 05cd 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 05ce e014 | | Load 0x0,0x14 05cf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05d0 BODY_05c8: 05d0 4800 |H | Short_Literal 0x0 05d1 a5f9 | | Store_Unchecked 0x2,-0x7 05d2 00cf | | Action Mark_Auxiliary 05d3 e5fb | | Load 0x2,-0x5 05d4 01d9 | | Execute Vector,Reverse_Bounds 05d5 0263 | c | Execute Discrete,Above_Bound 05d6 7055 |pU | Jump_Nonzero 0x62c 05d7 00cf | | Action Mark_Auxiliary 05d8 e402 | | Load 0x2,0x2 05d9 01d9 | | Execute Vector,Reverse_Bounds 05da 0263 | c | Execute Discrete,Above_Bound 05db 704d |pM | Jump_Nonzero 0x629 05dc 00d8 | | Load_Top At_Offset_0 05dd e402 | | Load 0x2,0x2 05de 01d7 | | Execute Vector,Field_Read 05df e015 | | Load 0x0,0x15 05e0 1816 | | Execute Package,Field_Execute,Field_Number 0x16 05e1 e406 | | Load 0x2,0x6 05e2 e5fb | | Load 0x2,-0x5 05e3 01d7 | | Execute Vector,Field_Read 05e4 027f | | Execute Discrete,Equal 05e5 6841 |hA | Jump_Zero 0x627 05e6 e014 | | Load 0x0,0x14 05e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05e8 e5fa | | Load 0x2,-0x6 05e9 00d8 | | Load_Top At_Offset_0 05ea 0120 | | Execute Any,Is_Value 05eb 6803 |h | Jump_Zero 0x5ef 05ec e5fd | | Load 0x2,-0x3 05ed 011e | | Execute Any,Convert 05ee 7802 |x | Jump 0x5f1 05ef e5fd | | Load 0x2,-0x3 05f0 0119 | | Execute Any,Check_In_Formal_Type 05f1 00da | | Load_Top At_Offset_2 05f2 e402 | | Load 0x2,0x2 05f3 01d7 | | Execute Vector,Field_Read 05f4 85fe | | Call 0x2,-0x2 05f5 c5fa | | Store 0x2,-0x6 05f6 c403 | | Store 0x2,0x3 05f7 e403 | | Load 0x2,0x3 05f8 6803 |h | Jump_Zero 0x5fc 05f9 e403 | | Load 0x2,0x3 05fa a5f9 | | Store_Unchecked 0x2,-0x7 05fb 4506 |E | Exit_Suprogram New_Top_Offset 0x6 05fc 4801 |H | Short_Literal 0x1 05fd 00d9 | | Load_Top At_Offset_1 05fe e402 | | Load 0x2,0x2 05ff 01d7 | | Execute Vector,Field_Read 0600 e015 | | Load 0x0,0x15 0601 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0602 0f15 | | Execute_Immediate Equal,0x15 0603 6823 |h# | Jump_Zero 0x627 0604 e014 | | Load 0x0,0x14 0605 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0606 e5fa | | Load 0x2,-0x6 0607 00d8 | | Load_Top At_Offset_0 0608 0120 | | Execute Any,Is_Value 0609 6803 |h | Jump_Zero 0x60d 060a e5fd | | Load 0x2,-0x3 060b 011e | | Execute Any,Convert 060c 7802 |x | Jump 0x60f 060d e5fd | | Load 0x2,-0x3 060e 0119 | | Execute Any,Check_In_Formal_Type 060f e5fb | | Load 0x2,-0x5 0610 4801 |H | Short_Literal 0x1 0611 e409 | | Load 0x2,0x9 0612 e402 | | Load 0x2,0x2 0613 01d7 | | Execute Vector,Field_Read 0614 e015 | | Load 0x0,0x15 0615 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0616 e015 | | Load 0x0,0x15 0617 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0618 e5fd | | Load 0x2,-0x3 0619 4ffe |O | Short_Literal -0x2 061a 4802 |H | Short_Literal 0x2 061b 0099 | | Action Reference_Dynamic 061c 4fff |O | Short_Literal -0x1 061d 4802 |H | Short_Literal 0x2 061e 0099 | | Action Reference_Dynamic 061f 8226 | & | Call 0x1,0x26 0620 c5fa | | Store 0x2,-0x6 0621 c403 | | Store 0x2,0x3 0622 e403 | | Load 0x2,0x3 0623 6803 |h | Jump_Zero 0x627 0624 e403 | | Load 0x2,0x3 0625 a5f9 | | Store_Unchecked 0x2,-0x7 0626 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0627 00c8 | | Action Pop_Auxiliary_Range 0628 3fb3 |? | Loop_Increasing 0x5dc 0629 00ce | | Action Pop_Auxiliary 062a 00c8 | | Action Pop_Auxiliary_Range 062b 3fab |? | Loop_Increasing 0x5d7 062c 4506 |E | Exit_Suprogram New_Top_Offset 0x6 062d 0000 0000 | | .XXX[0x3] 062f 0000 | | 0630 ; -------------------------------------------------------------------------------------- 0630 ; SUBPROGRAM 0630 ; -------------------------------------------------------------------------------------- 0630 063b | ; | .CONST 0x063b ; Address of begin 0631 0004 | | .CONST 0x0004 ; Address of exception handler 0632 0003 | | .CONST 0x0003 ; Number of locals 0633 INIT_0630: 0633 e014 | | Load 0x0,0x14 0634 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0635 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0636 e001 | | Load 0x0,0x1 0637 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0638 02c7 | | Declare_Variable Any 0639 00d8 | | Load_Top At_Offset_0 063a 1c00 | | Execute_Immediate Run_Utility,0x0 063b BODY_0630: 063b 00d9 | | Load_Top At_Offset_1 063c 00d9 | | Load_Top At_Offset_1 063d 0120 | | Execute Any,Is_Value 063e 6803 |h | Jump_Zero 0x642 063f e001 | | Load 0x0,0x1 0640 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0641 7801 |x | Jump 0x643 0642 00d9 | | Load_Top At_Offset_1 0643 e5ff | | Load 0x2,-0x1 0644 e005 | | Load 0x0,0x5 0645 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0646 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0647 c403 | | Store 0x2,0x3 0648 005a | Z | Store_Top Discrete,At_Offset_2 0649 00d9 | | Load_Top At_Offset_1 064a 6802 |h | Jump_Zero 0x64d 064b 4800 |H | Short_Literal 0x0 064c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 064d 00d8 | | Load_Top At_Offset_0 064e e001 | | Load 0x0,0x1 064f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0650 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0651 0000 0000 | | .BLANK 0000[0x7] 0658 ; -------------------------------------------------------------------------------------- 0658 ; SUBPROGRAM 0658 ; -------------------------------------------------------------------------------------- 0658 0667 | g | .CONST 0x0667 ; Address of begin 0659 0004 | | .CONST 0x0004 ; Address of exception handler 065a 0003 | | .CONST 0x0003 ; Number of locals 065b INIT_0658: 065b 00da | | Load_Top At_Offset_2 065c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 065d e5fe | | Load 0x2,-0x2 065e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 065f 0273 | s | Execute Discrete,Plus 0660 00e3 | | Load_Encached Natural_Cache 0661 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0662 00d8 | | Load_Top At_Offset_0 0663 e005 | | Load 0x0,0x5 0664 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0665 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0666 1c08 | | Execute_Immediate Run_Utility,0x8 0667 BODY_0658: 0667 e5fe | | Load 0x2,-0x2 0668 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0669 7002 |p | Jump_Nonzero 0x66c 066a e5ff | | Load 0x2,-0x1 066b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 066c e5ff | | Load 0x2,-0x1 066d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 066e 7002 |p | Jump_Nonzero 0x671 066f e5fe | | Load 0x2,-0x2 0670 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0671 e5ff | | Load 0x2,-0x1 0672 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0673 6805 |h | Jump_Zero 0x679 0674 e5ff | | Load 0x2,-0x1 0675 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0676 00d9 | | Load_Top At_Offset_1 0677 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0678 780b |x | Jump 0x684 0679 e5fe | | Load 0x2,-0x2 067a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 067b 6805 |h | Jump_Zero 0x681 067c e5fe | | Load 0x2,-0x2 067d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 067e 00d9 | | Load_Top At_Offset_1 067f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0680 7803 |x | Jump 0x684 0681 4800 |H | Short_Literal 0x0 0682 00d9 | | Load_Top At_Offset_1 0683 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0684 e5ff | | Load 0x2,-0x1 0685 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0686 4801 |H | Short_Literal 0x1 0687 e5ff | | Load 0x2,-0x1 0688 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0689 00db | | Load_Top At_Offset_3 068a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 068b 01ce | | Execute Vector,Slice_Write 068c e5fe | | Load 0x2,-0x2 068d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 068e e5ff | | Load 0x2,-0x1 068f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0690 0a01 | | Execute_Immediate Plus,0x1 0691 00d8 | | Load_Top At_Offset_0 0692 00e2 | | Load_Encached Integer_Cache 0693 0260 | ` | Execute Discrete,In_Type 0694 7001 |p | Jump_Nonzero 0x696 0695 0801 | | Execute_Immediate Raise,0x1 0696 00da | | Load_Top At_Offset_2 0697 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0698 01dc | | Execute Vector,Last 0699 00db | | Load_Top At_Offset_3 069a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 069b 01ce | | Execute Vector,Slice_Write 069c 00d8 | | Load_Top At_Offset_0 069d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 069e 0000 0000 | | .XXX[0x2] 06a0 ; -------------------------------------------------------------------------------------- 06a0 ; SUBPROGRAM 06a0 ; -------------------------------------------------------------------------------------- 06a0 06aa | | .CONST 0x06aa ; Address of begin 06a1 0004 | | .CONST 0x0004 ; Address of exception handler 06a2 0002 | | .CONST 0x0002 ; Number of locals 06a3 INIT_06a0: 06a3 00da | | Load_Top At_Offset_2 06a4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 06a5 0a01 | | Execute_Immediate Plus,0x1 06a6 e005 | | Load 0x0,0x5 06a7 1b14 | | Execute Package,Field_Read,Field_Number 0x14 06a8 1b14 | | Execute Package,Field_Read,Field_Number 0x14 06a9 1c08 | | Execute_Immediate Run_Utility,0x8 06aa BODY_06a0: 06aa 00db | | Load_Top At_Offset_3 06ab 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 06ac 7009 |p | Jump_Nonzero 0x6b6 06ad 4800 |H | Short_Literal 0x0 06ae 00d9 | | Load_Top At_Offset_1 06af 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 06b0 e5fe | | Load 0x2,-0x2 06b1 4801 |H | Short_Literal 0x1 06b2 00da | | Load_Top At_Offset_2 06b3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06b4 01d6 | | Execute Vector,Field_Write 06b5 7813 |x | Jump 0x6c9 06b6 00db | | Load_Top At_Offset_3 06b7 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 06b8 00d9 | | Load_Top At_Offset_1 06b9 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 06ba 00db | | Load_Top At_Offset_3 06bb 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06bc 4801 |H | Short_Literal 0x1 06bd e5ff | | Load 0x2,-0x1 06be 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 06bf 00db | | Load_Top At_Offset_3 06c0 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06c1 01ce | | Execute Vector,Slice_Write 06c2 e5fe | | Load 0x2,-0x2 06c3 00d9 | | Load_Top At_Offset_1 06c4 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06c5 01dc | | Execute Vector,Last 06c6 00da | | Load_Top At_Offset_2 06c7 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06c8 01d6 | | Execute Vector,Field_Write 06c9 00d8 | | Load_Top At_Offset_0 06ca 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06cb 0000 0000 | | .BLANK 0000[0x5] 06d0 ; -------------------------------------------------------------------------------------- 06d0 ; SUBPROGRAM 06d0 ; -------------------------------------------------------------------------------------- 06d0 06d8 | | .CONST 0x06d8 ; Address of begin 06d1 0004 | | .CONST 0x0004 ; Address of exception handler 06d2 0003 | | .CONST 0x0003 ; Number of locals 06d3 INIT_06d0: 06d3 00da | | Load_Top At_Offset_2 06d4 e013 | | Load 0x0,0x13 06d5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 06d6 00e3 | | Load_Encached Natural_Cache 06d7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 06d8 BODY_06d0: 06d8 00cf | | Action Mark_Auxiliary 06d9 00da | | Load_Top At_Offset_2 06da 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06db 01d9 | | Execute Vector,Reverse_Bounds 06dc 0263 | c | Execute Discrete,Above_Bound 06dd 700c |p | Jump_Nonzero 0x6ea 06de 00db | | Load_Top At_Offset_3 06df 00d9 | | Load_Top At_Offset_1 06e0 e402 | | Load 0x2,0x2 06e1 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06e2 01d7 | | Execute Vector,Field_Read 06e3 e005 | | Load 0x0,0x5 06e4 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06e5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 06e6 0273 | s | Execute Discrete,Plus 06e7 c403 | | Store 0x2,0x3 06e8 00c8 | | Action Pop_Auxiliary_Range 06e9 3ff4 |? | Loop_Increasing 0x6de 06ea 00ce | | Action Pop_Auxiliary 06eb 00d8 | | Load_Top At_Offset_0 06ec 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06ed 0000 0000 | | .XXX[0x3] 06ef 0000 | | 06f0 ; -------------------------------------------------------------------------------------- 06f0 ; SUBPROGRAM 06f0 ; -------------------------------------------------------------------------------------- 06f0 06f5 | | .CONST 0x06f5 ; Address of begin 06f1 0004 | | .CONST 0x0004 ; Address of exception handler 06f2 0002 | | .CONST 0x0002 ; Number of locals 06f3 INIT_06f0: 06f3 00e3 | | Load_Encached Natural_Cache 06f4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 06f5 BODY_06f0: 06f5 00cf | | Action Mark_Auxiliary 06f6 e5ff | | Load 0x2,-0x1 06f7 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06f8 01d9 | | Execute Vector,Reverse_Bounds 06f9 0263 | c | Execute Discrete,Above_Bound 06fa 700c |p | Jump_Nonzero 0x707 06fb 00db | | Load_Top At_Offset_3 06fc 00d9 | | Load_Top At_Offset_1 06fd e5ff | | Load 0x2,-0x1 06fe 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06ff 01d7 | | Execute Vector,Field_Read 0700 e005 | | Load 0x0,0x5 0701 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0702 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0703 0273 | s | Execute Discrete,Plus 0704 c402 | | Store 0x2,0x2 0705 00c8 | | Action Pop_Auxiliary_Range 0706 3ff4 |? | Loop_Increasing 0x6fb 0707 00ce | | Action Pop_Auxiliary 0708 00d8 | | Load_Top At_Offset_0 0709 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 070a 0000 0000 | | .BLANK 0000[0x6] 0710 ; -------------------------------------------------------------------------------------- 0710 ; SUBPROGRAM 0710 ; -------------------------------------------------------------------------------------- 0710 0716 | | .CONST 0x0716 ; Address of begin 0711 0004 | | .CONST 0x0004 ; Address of exception handler 0712 0003 | | .CONST 0x0003 ; Number of locals 0713 INIT_0710: 0713 00e1 | | Load_Encached Boolean_Cache 0714 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0715 00e1 | | Load_Encached Boolean_Cache 0716 BODY_0710: 0716 e5fe | | Load 0x2,-0x2 0717 680c |h | Jump_Zero 0x724 0718 00e1 | | Load_Encached Boolean_Cache 0719 00da | | Load_Top At_Offset_2 071a e5fd | | Load 0x2,-0x3 071b e5ff | | Load 0x2,-0x1 071c e22a | * | Load 0x1,0x2a 071d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 071e 005b | [ | Store_Top Discrete,At_Offset_3 071f 0059 | Y | Store_Top Discrete,At_Offset_1 0720 00d8 | | Load_Top At_Offset_0 0721 6802 |h | Jump_Zero 0x724 0722 00d9 | | Load_Top At_Offset_1 0723 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0724 4800 |H | Short_Literal 0x0 0725 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0726 0000 0000 | | .XXX[0x2] 0728 ; -------------------------------------------------------------------------------------- 0728 ; SUBPROGRAM 0728 ; -------------------------------------------------------------------------------------- 0728 073e | > | .CONST 0x073e ; Address of begin 0729 0004 | | .CONST 0x0004 ; Address of exception handler 072a 0006 | | .CONST 0x0006 ; Number of locals 072b INIT_0728: 072b 00da | | Load_Top At_Offset_2 072c e005 | | Load 0x0,0x5 072d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 072e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 072f 00d8 | | Load_Top At_Offset_0 0730 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0731 e005 | | Load 0x0,0x5 0732 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0733 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0734 1c08 | | Execute_Immediate Run_Utility,0x8 0735 00e3 | | Load_Encached Natural_Cache 0736 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0737 e005 | | Load 0x0,0x5 0738 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0739 1b0d | | Execute Package,Field_Read,Field_Number 0xd 073a e005 | | Load 0x0,0x5 073b 1b15 | | Execute Package,Field_Read,Field_Number 0x15 073c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 073d 0337 | 7 | Declare_Variable Array 073e BODY_0728: 073e e402 | | Load 0x2,0x2 073f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0740 e403 | | Load 0x2,0x3 0741 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0742 00cf | | Action Mark_Auxiliary 0743 e402 | | Load 0x2,0x2 0744 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0745 01d9 | | Execute Vector,Reverse_Bounds 0746 0263 | c | Execute Discrete,Above_Bound 0747 7029 |p) | Jump_Nonzero 0x771 0748 00d8 | | Load_Top At_Offset_0 0749 e402 | | Load 0x2,0x2 074a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 074b 01d7 | | Execute Vector,Field_Read 074c a405 | | Store_Unchecked 0x2,0x5 074d e405 | | Load 0x2,0x5 074e e5ff | | Load 0x2,-0x1 074f e005 | | Load 0x0,0x5 0750 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0751 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0752 e406 | | Load 0x2,0x6 0753 01d4 | | Execute Vector,Structure_Write 0754 e5fe | | Load 0x2,-0x2 0755 6804 |h | Jump_Zero 0x75a 0756 e5fe | | Load 0x2,-0x2 0757 e406 | | Load 0x2,0x6 0758 01d7 | | Execute Vector,Field_Read 0759 6815 |h | Jump_Zero 0x76f 075a e405 | | Load 0x2,0x5 075b e5fc | | Load 0x2,-0x4 075c e5fd | | Load 0x2,-0x3 075d 8232 | 2 | Call 0x1,0x32 075e 7010 |p | Jump_Nonzero 0x76f 075f e405 | | Load 0x2,0x5 0760 e404 | | Load 0x2,0x4 0761 e403 | | Load 0x2,0x3 0762 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0763 01d6 | | Execute Vector,Field_Write 0764 e404 | | Load 0x2,0x4 0765 0a01 | | Execute_Immediate Plus,0x1 0766 c404 | | Store 0x2,0x4 0767 e5fc | | Load 0x2,-0x4 0768 6806 |h | Jump_Zero 0x76f 0769 4801 |H | Short_Literal 0x1 076a 4801 |H | Short_Literal 0x1 076b e405 | | Load 0x2,0x5 076c e5fd | | Load 0x2,-0x3 076d e22a | * | Load 0x1,0x2a 076e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 076f 00c8 | | Action Pop_Auxiliary_Range 0770 3fd7 |? | Loop_Increasing 0x748 0771 00ce | | Action Pop_Auxiliary 0772 00da | | Load_Top At_Offset_2 0773 0aff | | Execute_Immediate Plus,-0x1 0774 e005 | | Load 0x0,0x5 0775 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0776 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0777 1c08 | | Execute_Immediate Run_Utility,0x8 0778 4801 |H | Short_Literal 0x1 0779 e404 | | Load 0x2,0x4 077a 0aff | | Execute_Immediate Plus,-0x1 077b e403 | | Load 0x2,0x3 077c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 077d 01cf | | Execute Vector,Slice_Read 077e 00d9 | | Load_Top At_Offset_1 077f 00d8 | | Load_Top At_Offset_0 0780 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0781 00da | | Load_Top At_Offset_2 0782 01da | | Execute Vector,Bounds 0783 00da | | Load_Top At_Offset_2 0784 01da | | Execute Vector,Bounds 0785 00da | | Load_Top At_Offset_2 0786 027f | | Execute Discrete,Equal 0787 7001 |p | Jump_Nonzero 0x789 0788 08e0 | | Execute_Immediate Raise,0xe0 0789 00cd | | Action Spare6_Action 078a 027f | | Execute Discrete,Equal 078b 7001 |p | Jump_Nonzero 0x78d 078c 08e0 | | Execute_Immediate Raise,0xe0 078d 00d2 | | Pop_Control Pop_Count_2 078e 00d9 | | Load_Top At_Offset_1 078f 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0790 e403 | | Load 0x2,0x3 0791 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0792 00d9 | | Load_Top At_Offset_1 0793 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0794 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0795 0000 0000 | | .XXX[0x3] 0797 0000 | | 0798 ; -------------------------------------------------------------------------------------- 0798 ; SUBPROGRAM 0798 ; -------------------------------------------------------------------------------------- 0798 079b | | .CONST 0x079b ; Address of begin 0799 0004 | | .CONST 0x0004 ; Address of exception handler 079a 0001 | | .CONST 0x0001 ; Number of locals 079b BODY_0798: 079b INIT_0798: 079b 4800 |H | Short_Literal 0x0 079c a5fd | | Store_Unchecked 0x2,-0x3 079d 00cf | | Action Mark_Auxiliary 079e 00db | | Load_Top At_Offset_3 079f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 07a0 01d9 | | Execute Vector,Reverse_Bounds 07a1 0263 | c | Execute Discrete,Above_Bound 07a2 7011 |p | Jump_Nonzero 0x7b4 07a3 4801 |H | Short_Literal 0x1 07a4 00d9 | | Load_Top At_Offset_1 07a5 e5ff | | Load 0x2,-0x1 07a6 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 07a7 01d7 | | Execute Vector,Field_Read 07a8 e005 | | Load 0x0,0x5 07a9 1b15 | | Execute Package,Field_Read,Field_Number 0x15 07aa 1811 | | Execute Package,Field_Execute,Field_Number 0x11 07ab e5fe | | Load 0x2,-0x2 07ac e017 | | Load 0x0,0x17 07ad 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 07ae 6803 |h | Jump_Zero 0x7b2 07af 00d8 | | Load_Top At_Offset_0 07b0 a5fd | | Store_Unchecked 0x2,-0x3 07b1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 07b2 00c8 | | Action Pop_Auxiliary_Range 07b3 3fef |? | Loop_Increasing 0x7a3 07b4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 07b5 0000 0000 | | .XXX[0x3] 07b7 0000 | | 07b8 ; -------------------------------------------------------------------------------------- 07b8 ; SUBPROGRAM 07b8 ; -------------------------------------------------------------------------------------- 07b8 07d7 | | .CONST 0x07d7 ; Address of begin 07b9 0004 | | .CONST 0x0004 ; Address of exception handler 07ba 0009 | | .CONST 0x0009 ; Number of locals 07bb INIT_07b8: 07bb 00da | | Load_Top At_Offset_2 07bc e005 | | Load 0x0,0x5 07bd 1b16 | | Execute Package,Field_Read,Field_Number 0x16 07be 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 07bf 00d8 | | Load_Top At_Offset_0 07c0 e005 | | Load 0x0,0x5 07c1 1b16 | | Execute Package,Field_Read,Field_Number 0x16 07c2 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 07c3 e5ff | | Load 0x2,-0x1 07c4 e005 | | Load 0x0,0x5 07c5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 07c6 181c | | Execute Package,Field_Execute,Field_Number 0x1c 07c7 e005 | | Load 0x0,0x5 07c8 1b16 | | Execute Package,Field_Read,Field_Number 0x16 07c9 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 07ca e014 | | Load 0x0,0x14 07cb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07cc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 07cd e5fe | | Load 0x2,-0x2 07ce 8231 | 1 | Call 0x1,0x31 07cf e005 | | Load 0x0,0x5 07d0 1b14 | | Execute Package,Field_Read,Field_Number 0x14 07d1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 07d2 1c08 | | Execute_Immediate Run_Utility,0x8 07d3 00e3 | | Load_Encached Natural_Cache 07d4 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 07d5 029f 12a3 | | Declare_Subprogram INIT_12a0,For_Call 07d7 BODY_07b8: 07d7 4800 |H | Short_Literal 0x0 07d8 00db | | Load_Top At_Offset_3 07d9 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 07da 00cf | | Action Mark_Auxiliary 07db e5fe | | Load 0x2,-0x2 07dc 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 07dd 01d9 | | Execute Vector,Reverse_Bounds 07de 0263 | c | Execute Discrete,Above_Bound 07df 702c |p, | Jump_Nonzero 0x80c 07e0 4800 |H | Short_Literal 0x0 07e1 00d9 | | Load_Top At_Offset_1 07e2 e5fe | | Load 0x2,-0x2 07e3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 07e4 01d7 | | Execute Vector,Field_Read 07e5 e005 | | Load 0x0,0x5 07e6 1b16 | | Execute Package,Field_Read,Field_Number 0x16 07e7 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 07e8 e403 | | Load 0x2,0x3 07e9 e017 | | Load 0x0,0x17 07ea 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 07eb 701e |p | Jump_Nonzero 0x80a 07ec 00d8 | | Load_Top At_Offset_0 07ed e5fe | | Load 0x2,-0x2 07ee 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 07ef 01d7 | | Execute Vector,Field_Read 07f0 e402 | | Load 0x2,0x2 07f1 e005 | | Load 0x0,0x5 07f2 1b16 | | Execute Package,Field_Read,Field_Number 0x16 07f3 1884 | | Execute Package,Field_Execute,Field_Number 0x84 07f4 6815 |h | Jump_Zero 0x80a 07f5 e406 | | Load 0x2,0x6 07f6 e005 | | Load 0x0,0x5 07f7 1b16 | | Execute Package,Field_Read,Field_Number 0x16 07f8 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 07f9 00da | | Load_Top At_Offset_2 07fa e5fe | | Load 0x2,-0x2 07fb 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 07fc 01d7 | | Execute Vector,Field_Read 07fd e402 | | Load 0x2,0x2 07fe e005 | | Load 0x0,0x5 07ff 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0800 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0801 c405 | | Store 0x2,0x5 0802 c406 | | Store 0x2,0x6 0803 e406 | | Load 0x2,0x6 0804 7002 |p | Jump_Nonzero 0x807 0805 8409 | | Call 0x2,0x9 0806 7803 |x | Jump 0x80a 0807 e406 | | Load 0x2,0x6 0808 e407 | | Load 0x2,0x7 0809 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 080a 00c8 | | Action Pop_Auxiliary_Range 080b 3fd4 |? | Loop_Increasing 0x7e0 080c 00ce | | Action Pop_Auxiliary 080d 00d9 | | Load_Top At_Offset_1 080e 0aff | | Execute_Immediate Plus,-0x1 080f e005 | | Load 0x0,0x5 0810 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0811 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0812 1c08 | | Execute_Immediate Run_Utility,0x8 0813 4801 |H | Short_Literal 0x1 0814 00db | | Load_Top At_Offset_3 0815 0aff | | Execute_Immediate Plus,-0x1 0816 e407 | | Load 0x2,0x7 0817 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0818 01cf | | Execute Vector,Slice_Read 0819 00d9 | | Load_Top At_Offset_1 081a 00d8 | | Load_Top At_Offset_0 081b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 081c 00da | | Load_Top At_Offset_2 081d 01da | | Execute Vector,Bounds 081e 00da | | Load_Top At_Offset_2 081f 01da | | Execute Vector,Bounds 0820 00da | | Load_Top At_Offset_2 0821 027f | | Execute Discrete,Equal 0822 7001 |p | Jump_Nonzero 0x824 0823 08e0 | | Execute_Immediate Raise,0xe0 0824 00cd | | Action Spare6_Action 0825 027f | | Execute Discrete,Equal 0826 7001 |p | Jump_Nonzero 0x828 0827 08e0 | | Execute_Immediate Raise,0xe0 0828 00d2 | | Pop_Control Pop_Count_2 0829 00d9 | | Load_Top At_Offset_1 082a 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 082b 00db | | Load_Top At_Offset_3 082c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 082d 00d9 | | Load_Top At_Offset_1 082e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 082f 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0830 ; -------------------------------------------------------------------------------------- 0830 ; SUBPROGRAM 0830 ; -------------------------------------------------------------------------------------- 0830 0840 | @ | .CONST 0x0840 ; Address of begin 0831 0004 | | .CONST 0x0004 ; Address of exception handler 0832 0005 | | .CONST 0x0005 ; Number of locals 0833 INIT_0830: 0833 e005 | | Load 0x0,0x5 0834 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0835 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0836 e014 | | Load 0x0,0x14 0837 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0838 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0839 4800 |H | Short_Literal 0x0 083a e005 | | Load 0x0,0x5 083b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 083c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 083d 1c08 | | Execute_Immediate Run_Utility,0x8 083e 029f 12bb | | Declare_Subprogram INIT_12b8,For_Call 0840 BODY_0830: 0840 00da | | Load_Top At_Offset_2 0841 e005 | | Load 0x0,0x5 0842 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0843 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0844 e5ff | | Load 0x2,-0x1 0845 e005 | | Load 0x0,0x5 0846 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0847 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0848 c402 | | Store 0x2,0x2 0849 005b | [ | Store_Top Discrete,At_Offset_3 084a 00da | | Load_Top At_Offset_2 084b 6805 |h | Jump_Zero 0x851 084c 00da | | Load_Top At_Offset_2 084d 00da | | Load_Top At_Offset_2 084e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 084f 00d9 | | Load_Top At_Offset_1 0850 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0851 8405 | | Call 0x2,0x5 0852 0831 | 1 | Execute_Immediate Raise,0x31 0853 0000 0000 | | .BLANK 0000[0x5] 0858 ; -------------------------------------------------------------------------------------- 0858 ; SUBPROGRAM 0858 ; -------------------------------------------------------------------------------------- 0858 0865 | e | .CONST 0x0865 ; Address of begin 0859 0004 | | .CONST 0x0004 ; Address of exception handler 085a 0004 | | .CONST 0x0004 ; Number of locals 085b INIT_0858: 085b 00db | | Load_Top At_Offset_3 085c 8230 | 0 | Call 0x1,0x30 085d e005 | | Load 0x0,0x5 085e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 085f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0860 1c08 | | Execute_Immediate Run_Utility,0x8 0861 00e3 | | Load_Encached Natural_Cache 0862 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0863 029f 12d3 | | Declare_Subprogram INIT_12d0,For_Call 0865 BODY_0858: 0865 e5ff | | Load 0x2,-0x1 0866 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0867 00db | | Load_Top At_Offset_3 0868 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0869 00cf | | Action Mark_Auxiliary 086a e5ff | | Load 0x2,-0x1 086b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 086c 01d9 | | Execute Vector,Reverse_Bounds 086d 0263 | c | Execute Discrete,Above_Bound 086e 7003 |p | Jump_Nonzero 0x872 086f 8404 | | Call 0x2,0x4 0870 00c8 | | Action Pop_Auxiliary_Range 0871 3ffd |? | Loop_Increasing 0x86f 0872 00ce | | Action Pop_Auxiliary 0873 00d9 | | Load_Top At_Offset_1 0874 0aff | | Execute_Immediate Plus,-0x1 0875 e005 | | Load 0x0,0x5 0876 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0877 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0878 1c08 | | Execute_Immediate Run_Utility,0x8 0879 4801 |H | Short_Literal 0x1 087a 00db | | Load_Top At_Offset_3 087b 0aff | | Execute_Immediate Plus,-0x1 087c e402 | | Load 0x2,0x2 087d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 087e 01cf | | Execute Vector,Slice_Read 087f 00d9 | | Load_Top At_Offset_1 0880 00d8 | | Load_Top At_Offset_0 0881 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0882 00da | | Load_Top At_Offset_2 0883 01da | | Execute Vector,Bounds 0884 00da | | Load_Top At_Offset_2 0885 01da | | Execute Vector,Bounds 0886 00da | | Load_Top At_Offset_2 0887 027f | | Execute Discrete,Equal 0888 7001 |p | Jump_Nonzero 0x88a 0889 08e0 | | Execute_Immediate Raise,0xe0 088a 00cd | | Action Spare6_Action 088b 027f | | Execute Discrete,Equal 088c 7001 |p | Jump_Nonzero 0x88e 088d 08e0 | | Execute_Immediate Raise,0xe0 088e 00d2 | | Pop_Control Pop_Count_2 088f 00d9 | | Load_Top At_Offset_1 0890 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0891 00db | | Load_Top At_Offset_3 0892 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0893 00d9 | | Load_Top At_Offset_1 0894 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0895 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0896 0000 0000 | | .XXX[0x2] 0898 ; -------------------------------------------------------------------------------------- 0898 ; SUBPROGRAM 0898 ; -------------------------------------------------------------------------------------- 0898 089b | | .CONST 0x089b ; Address of begin 0899 0004 | | .CONST 0x0004 ; Address of exception handler 089a 0001 | | .CONST 0x0001 ; Number of locals 089b BODY_0898: 089b INIT_0898: 089b 00da | | Load_Top At_Offset_2 089c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 089d 7002 |p | Jump_Nonzero 0x8a0 089e 00da | | Load_Top At_Offset_2 089f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 08a0 00cf | | Action Mark_Auxiliary 08a1 00db | | Load_Top At_Offset_3 08a2 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 08a3 01d9 | | Execute Vector,Reverse_Bounds 08a4 0263 | c | Execute Discrete,Above_Bound 08a5 700b |p | Jump_Nonzero 0x8b1 08a6 4800 |H | Short_Literal 0x0 08a7 4801 |H | Short_Literal 0x1 08a8 00da | | Load_Top At_Offset_2 08a9 e5ff | | Load 0x2,-0x1 08aa 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 08ab 01d7 | | Execute Vector,Field_Read 08ac e5fd | | Load 0x2,-0x3 08ad e22a | * | Load 0x1,0x2a 08ae 1818 | | Execute Package,Field_Execute,Field_Number 0x18 08af 00c8 | | Action Pop_Auxiliary_Range 08b0 3ff5 |? | Loop_Increasing 0x8a6 08b1 00ce | | Action Pop_Auxiliary 08b2 e5fd | | Load 0x2,-0x3 08b3 e5fe | | Load 0x2,-0x2 08b4 4801 |H | Short_Literal 0x1 08b5 e5fd | | Load 0x2,-0x3 08b6 e5fe | | Load 0x2,-0x2 08b7 e5ff | | Load 0x2,-0x1 08b8 8237 | 7 | Call 0x1,0x37 08b9 8238 | 8 | Call 0x1,0x38 08ba 00db | | Load_Top At_Offset_3 08bb 822e | . | Call 0x1,0x2e 08bc 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 08bd 0000 0000 | | .XXX[0x3] 08bf 0000 | | 08c0 ; -------------------------------------------------------------------------------------- 08c0 ; SUBPROGRAM 08c0 ; -------------------------------------------------------------------------------------- 08c0 08d2 | | .CONST 0x08d2 ; Address of begin 08c1 0004 | | .CONST 0x0004 ; Address of exception handler 08c2 0006 | | .CONST 0x0006 ; Number of locals 08c3 INIT_08c0: 08c3 00db | | Load_Top At_Offset_3 08c4 8230 | 0 | Call 0x1,0x30 08c5 e005 | | Load 0x0,0x5 08c6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 08c7 1b14 | | Execute Package,Field_Read,Field_Number 0x14 08c8 1c08 | | Execute_Immediate Run_Utility,0x8 08c9 00e3 | | Load_Encached Natural_Cache 08ca 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 08cb e005 | | Load 0x0,0x5 08cc 1b14 | | Execute Package,Field_Read,Field_Number 0x14 08cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08ce 029f 1303 | | Declare_Subprogram INIT_1300,For_Call 08d0 029f 1323 | #| Declare_Subprogram INIT_1320,For_Call 08d2 BODY_08c0: 08d2 00cf | | Action Mark_Auxiliary 08d3 e5ff | | Load 0x2,-0x1 08d4 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 08d5 01d9 | | Execute Vector,Reverse_Bounds 08d6 0263 | c | Execute Discrete,Above_Bound 08d7 7021 |p! | Jump_Nonzero 0x8f9 08d8 00d8 | | Load_Top At_Offset_0 08d9 e5ff | | Load 0x2,-0x1 08da 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 08db 01d7 | | Execute Vector,Field_Read 08dc e403 | | Load 0x2,0x3 08dd e402 | | Load 0x2,0x2 08de 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 08df 01d6 | | Execute Vector,Field_Write 08e0 e403 | | Load 0x2,0x3 08e1 0a01 | | Execute_Immediate Plus,0x1 08e2 c403 | | Store 0x2,0x3 08e3 00d8 | | Load_Top At_Offset_0 08e4 e5ff | | Load 0x2,-0x1 08e5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 08e6 01d7 | | Execute Vector,Field_Read 08e7 e005 | | Load 0x0,0x5 08e8 1b14 | | Execute Package,Field_Read,Field_Number 0x14 08e9 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 08ea a404 | | Store_Unchecked 0x2,0x4 08eb e404 | | Load 0x2,0x4 08ec e005 | | Load 0x0,0x5 08ed 1b14 | | Execute Package,Field_Read,Field_Number 0x14 08ee 180f | | Execute Package,Field_Execute,Field_Number 0xf 08ef 7007 |p | Jump_Nonzero 0x8f7 08f0 e404 | | Load 0x2,0x4 08f1 8405 | | Call 0x2,0x5 08f2 e404 | | Load 0x2,0x4 08f3 e005 | | Load 0x0,0x5 08f4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 08f5 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 08f6 8406 | | Call 0x2,0x6 08f7 00c8 | | Action Pop_Auxiliary_Range 08f8 3fdf |? | Loop_Increasing 0x8d8 08f9 00ce | | Action Pop_Auxiliary 08fa 00db | | Load_Top At_Offset_3 08fb 0aff | | Execute_Immediate Plus,-0x1 08fc e005 | | Load 0x0,0x5 08fd 1b14 | | Execute Package,Field_Read,Field_Number 0x14 08fe 1b14 | | Execute Package,Field_Read,Field_Number 0x14 08ff 1c08 | | Execute_Immediate Run_Utility,0x8 0900 e5ff | | Load 0x2,-0x1 0901 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0902 00d9 | | Load_Top At_Offset_1 0903 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0904 4801 |H | Short_Literal 0x1 0905 e403 | | Load 0x2,0x3 0906 0aff | | Execute_Immediate Plus,-0x1 0907 e402 | | Load 0x2,0x2 0908 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0909 01cf | | Execute Vector,Slice_Read 090a 00d9 | | Load_Top At_Offset_1 090b 00d8 | | Load_Top At_Offset_0 090c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 090d 00da | | Load_Top At_Offset_2 090e 01da | | Execute Vector,Bounds 090f 00da | | Load_Top At_Offset_2 0910 01da | | Execute Vector,Bounds 0911 00da | | Load_Top At_Offset_2 0912 027f | | Execute Discrete,Equal 0913 7001 |p | Jump_Nonzero 0x915 0914 08e0 | | Execute_Immediate Raise,0xe0 0915 00cd | | Action Spare6_Action 0916 027f | | Execute Discrete,Equal 0917 7001 |p | Jump_Nonzero 0x919 0918 08e0 | | Execute_Immediate Raise,0xe0 0919 00d2 | | Pop_Control Pop_Count_2 091a 00d9 | | Load_Top At_Offset_1 091b 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 091c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 091d 0000 0000 | | .XXX[0x3] 091f 0000 | | 0920 ; -------------------------------------------------------------------------------------- 0920 ; SUBPROGRAM 0920 ; -------------------------------------------------------------------------------------- 0920 0938 | 8 | .CONST 0x0938 ; Address of begin 0921 0004 | | .CONST 0x0004 ; Address of exception handler 0922 0006 | | .CONST 0x0006 ; Number of locals 0923 INIT_0920: 0923 e005 | | Load 0x0,0x5 0924 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0925 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 0926 00db | | Load_Top At_Offset_3 0927 e005 | | Load 0x0,0x5 0928 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0929 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 092a 00d8 | | Load_Top At_Offset_0 092b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 092c 0a01 | | Execute_Immediate Plus,0x1 092d e005 | | Load 0x0,0x5 092e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 092f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0930 1c08 | | Execute_Immediate Run_Utility,0x8 0931 00e3 | | Load_Encached Natural_Cache 0932 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0933 e005 | | Load 0x0,0x5 0934 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0935 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0936 029f 1343 | C| Declare_Subprogram INIT_1340,For_Call 0938 BODY_0920: 0938 4800 |H | Short_Literal 0x0 0939 e403 | | Load 0x2,0x3 093a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 093b 00cf | | Action Mark_Auxiliary 093c e402 | | Load 0x2,0x2 093d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 093e 01d9 | | Execute Vector,Reverse_Bounds 093f 0263 | c | Execute Discrete,Above_Bound 0940 703d |p= | Jump_Nonzero 0x97e 0941 00d8 | | Load_Top At_Offset_0 0942 e402 | | Load 0x2,0x2 0943 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0944 01d7 | | Execute Vector,Field_Read 0945 8406 | | Call 0x2,0x6 0946 a405 | | Store_Unchecked 0x2,0x5 0947 e405 | | Load 0x2,0x5 0948 e005 | | Load 0x0,0x5 0949 1b14 | | Execute Package,Field_Read,Field_Number 0x14 094a 180f | | Execute Package,Field_Execute,Field_Number 0xf 094b 681b |h | Jump_Zero 0x967 094c 4801 |H | Short_Literal 0x1 094d 4802 |H | Short_Literal 0x2 094e e012 | | Load 0x0,0x12 094f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0950 0334 | 4 | Declare_Variable Array,With_Constraint 0951 00d9 | | Load_Top At_Offset_1 0952 e402 | | Load 0x2,0x2 0953 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0954 01d7 | | Execute Vector,Field_Read 0955 e005 | | Load 0x0,0x5 0956 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0957 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0958 4801 |H | Short_Literal 0x1 0959 00da | | Load_Top At_Offset_2 095a 01d6 | | Execute Vector,Field_Write 095b e5fd | | Load 0x2,-0x3 095c e013 | | Load 0x0,0x13 095d 1820 | | Execute Package,Field_Execute,Field_Number 0x20 095e 4802 |H | Short_Literal 0x2 095f 00da | | Load_Top At_Offset_2 0960 01d6 | | Execute Vector,Field_Write 0961 606a |`j | Indirect_Literal Discrete,0x9cc,{0x00000000, 0x0000380a} 0962 e014 | | Load 0x0,0x14 0963 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0964 e403 | | Load 0x2,0x3 0965 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0966 7815 |x | Jump 0x97c 0967 e405 | | Load 0x2,0x5 0968 e5fb | | Load 0x2,-0x5 0969 e5fc | | Load 0x2,-0x4 096a 8232 | 2 | Call 0x1,0x32 096b 7010 |p | Jump_Nonzero 0x97c 096c e405 | | Load 0x2,0x5 096d e404 | | Load 0x2,0x4 096e e403 | | Load 0x2,0x3 096f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0970 01d6 | | Execute Vector,Field_Write 0971 e404 | | Load 0x2,0x4 0972 0a01 | | Execute_Immediate Plus,0x1 0973 c404 | | Store 0x2,0x4 0974 e5fb | | Load 0x2,-0x5 0975 6806 |h | Jump_Zero 0x97c 0976 4801 |H | Short_Literal 0x1 0977 4801 |H | Short_Literal 0x1 0978 e405 | | Load 0x2,0x5 0979 e5fc | | Load 0x2,-0x4 097a e22a | * | Load 0x1,0x2a 097b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 097c 00c8 | | Action Pop_Auxiliary_Range 097d 3fc3 |? | Loop_Increasing 0x941 097e 00ce | | Action Pop_Auxiliary 097f e5fe | | Load 0x2,-0x2 0980 6826 |h& | Jump_Zero 0x9a7 0981 e5fc | | Load 0x2,-0x4 0982 e5fd | | Load 0x2,-0x3 0983 e404 | | Load 0x2,0x4 0984 0aff | | Execute_Immediate Plus,-0x1 0985 e005 | | Load 0x0,0x5 0986 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0987 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0988 1c08 | | Execute_Immediate Run_Utility,0x8 0989 4801 |H | Short_Literal 0x1 098a e404 | | Load 0x2,0x4 098b 0aff | | Execute_Immediate Plus,-0x1 098c e403 | | Load 0x2,0x3 098d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 098e 01cf | | Execute Vector,Slice_Read 098f 00d9 | | Load_Top At_Offset_1 0990 00d8 | | Load_Top At_Offset_0 0991 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0992 00da | | Load_Top At_Offset_2 0993 01da | | Execute Vector,Bounds 0994 00da | | Load_Top At_Offset_2 0995 01da | | Execute Vector,Bounds 0996 00da | | Load_Top At_Offset_2 0997 027f | | Execute Discrete,Equal 0998 7001 |p | Jump_Nonzero 0x99a 0999 08e0 | | Execute_Immediate Raise,0xe0 099a 00cd | | Action Spare6_Action 099b 027f | | Execute Discrete,Equal 099c 7001 |p | Jump_Nonzero 0x99e 099d 08e0 | | Execute_Immediate Raise,0xe0 099e 00d2 | | Pop_Control Pop_Count_2 099f 00d9 | | Load_Top At_Offset_1 09a0 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 09a1 e403 | | Load 0x2,0x3 09a2 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 09a3 00d9 | | Load_Top At_Offset_1 09a4 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 09a5 8239 | 9 | Call 0x1,0x39 09a6 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 09a7 00da | | Load_Top At_Offset_2 09a8 0aff | | Execute_Immediate Plus,-0x1 09a9 e005 | | Load 0x0,0x5 09aa 1b14 | | Execute Package,Field_Read,Field_Number 0x14 09ab 1b14 | | Execute Package,Field_Read,Field_Number 0x14 09ac 1c08 | | Execute_Immediate Run_Utility,0x8 09ad 4801 |H | Short_Literal 0x1 09ae e404 | | Load 0x2,0x4 09af 0aff | | Execute_Immediate Plus,-0x1 09b0 e403 | | Load 0x2,0x3 09b1 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 09b2 01cf | | Execute Vector,Slice_Read 09b3 00d9 | | Load_Top At_Offset_1 09b4 00d8 | | Load_Top At_Offset_0 09b5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 09b6 00da | | Load_Top At_Offset_2 09b7 01da | | Execute Vector,Bounds 09b8 00da | | Load_Top At_Offset_2 09b9 01da | | Execute Vector,Bounds 09ba 00da | | Load_Top At_Offset_2 09bb 027f | | Execute Discrete,Equal 09bc 7001 |p | Jump_Nonzero 0x9be 09bd 08e0 | | Execute_Immediate Raise,0xe0 09be 00cd | | Action Spare6_Action 09bf 027f | | Execute Discrete,Equal 09c0 7001 |p | Jump_Nonzero 0x9c2 09c1 08e0 | | Execute_Immediate Raise,0xe0 09c2 00d2 | | Pop_Control Pop_Count_2 09c3 00d9 | | Load_Top At_Offset_1 09c4 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 09c5 e403 | | Load 0x2,0x3 09c6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 09c7 00d9 | | Load_Top At_Offset_1 09c8 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 09c9 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 09ca 0000 0000 | | .XXX[0x2] 09cc 0000 0000 | | .LITERAL {0x00000000, 0x0000380a} 09d0 ; -------------------------------------------------------------------------------------- 09d0 ; SUBPROGRAM 09d0 ; -------------------------------------------------------------------------------------- 09d0 09dd | | .CONST 0x09dd ; Address of begin 09d1 0004 | | .CONST 0x0004 ; Address of exception handler 09d2 0004 | | .CONST 0x0004 ; Number of locals 09d3 INIT_09d0: 09d3 e5fd | | Load 0x2,-0x3 09d4 8230 | 0 | Call 0x1,0x30 09d5 e005 | | Load 0x0,0x5 09d6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 09d7 1b14 | | Execute Package,Field_Read,Field_Number 0x14 09d8 1c08 | | Execute_Immediate Run_Utility,0x8 09d9 00e3 | | Load_Encached Natural_Cache 09da 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 09db 029f 135b | [| Declare_Subprogram INIT_1358,For_Call 09dd BODY_09d0: 09dd e5ff | | Load 0x2,-0x1 09de 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 09df 00db | | Load_Top At_Offset_3 09e0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 09e1 00cf | | Action Mark_Auxiliary 09e2 e5ff | | Load 0x2,-0x1 09e3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 09e4 01d9 | | Execute Vector,Reverse_Bounds 09e5 0263 | c | Execute Discrete,Above_Bound 09e6 7003 |p | Jump_Nonzero 0x9ea 09e7 8404 | | Call 0x2,0x4 09e8 00c8 | | Action Pop_Auxiliary_Range 09e9 3ffd |? | Loop_Increasing 0x9e7 09ea 00ce | | Action Pop_Auxiliary 09eb e5fe | | Load 0x2,-0x2 09ec 6826 |h& | Jump_Zero 0xa13 09ed e5fc | | Load 0x2,-0x4 09ee e5fd | | Load 0x2,-0x3 09ef 00db | | Load_Top At_Offset_3 09f0 0aff | | Execute_Immediate Plus,-0x1 09f1 e005 | | Load 0x0,0x5 09f2 1b14 | | Execute Package,Field_Read,Field_Number 0x14 09f3 1b14 | | Execute Package,Field_Read,Field_Number 0x14 09f4 1c08 | | Execute_Immediate Run_Utility,0x8 09f5 4801 |H | Short_Literal 0x1 09f6 e403 | | Load 0x2,0x3 09f7 0aff | | Execute_Immediate Plus,-0x1 09f8 e402 | | Load 0x2,0x2 09f9 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 09fa 01cf | | Execute Vector,Slice_Read 09fb 00d9 | | Load_Top At_Offset_1 09fc 00d8 | | Load_Top At_Offset_0 09fd 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 09fe 00da | | Load_Top At_Offset_2 09ff 01da | | Execute Vector,Bounds 0a00 00da | | Load_Top At_Offset_2 0a01 01da | | Execute Vector,Bounds 0a02 00da | | Load_Top At_Offset_2 0a03 027f | | Execute Discrete,Equal 0a04 7001 |p | Jump_Nonzero 0xa06 0a05 08e0 | | Execute_Immediate Raise,0xe0 0a06 00cd | | Action Spare6_Action 0a07 027f | | Execute Discrete,Equal 0a08 7001 |p | Jump_Nonzero 0xa0a 0a09 08e0 | | Execute_Immediate Raise,0xe0 0a0a 00d2 | | Pop_Control Pop_Count_2 0a0b 00d9 | | Load_Top At_Offset_1 0a0c 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0a0d e402 | | Load 0x2,0x2 0a0e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0a0f 00d9 | | Load_Top At_Offset_1 0a10 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0a11 8239 | 9 | Call 0x1,0x39 0a12 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0a13 00d9 | | Load_Top At_Offset_1 0a14 0aff | | Execute_Immediate Plus,-0x1 0a15 e005 | | Load 0x0,0x5 0a16 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0a17 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0a18 1c08 | | Execute_Immediate Run_Utility,0x8 0a19 4801 |H | Short_Literal 0x1 0a1a 00db | | Load_Top At_Offset_3 0a1b 0aff | | Execute_Immediate Plus,-0x1 0a1c e402 | | Load 0x2,0x2 0a1d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0a1e 01cf | | Execute Vector,Slice_Read 0a1f 00d9 | | Load_Top At_Offset_1 0a20 00d8 | | Load_Top At_Offset_0 0a21 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0a22 00da | | Load_Top At_Offset_2 0a23 01da | | Execute Vector,Bounds 0a24 00da | | Load_Top At_Offset_2 0a25 01da | | Execute Vector,Bounds 0a26 00da | | Load_Top At_Offset_2 0a27 027f | | Execute Discrete,Equal 0a28 7001 |p | Jump_Nonzero 0xa2a 0a29 08e0 | | Execute_Immediate Raise,0xe0 0a2a 00cd | | Action Spare6_Action 0a2b 027f | | Execute Discrete,Equal 0a2c 7001 |p | Jump_Nonzero 0xa2e 0a2d 08e0 | | Execute_Immediate Raise,0xe0 0a2e 00d2 | | Pop_Control Pop_Count_2 0a2f 00d9 | | Load_Top At_Offset_1 0a30 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0a31 00db | | Load_Top At_Offset_3 0a32 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0a33 00d9 | | Load_Top At_Offset_1 0a34 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0a35 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0a36 0000 0000 | | .XXX[0x2] 0a38 ; -------------------------------------------------------------------------------------- 0a38 ; SUBPROGRAM 0a38 ; -------------------------------------------------------------------------------------- 0a38 0a4d | M | .CONST 0x0a4d ; Address of begin 0a39 0004 | | .CONST 0x0004 ; Address of exception handler 0a3a 0007 | | .CONST 0x0007 ; Number of locals 0a3b INIT_0a38: 0a3b 00db | | Load_Top At_Offset_3 0a3c 8230 | 0 | Call 0x1,0x30 0a3d e005 | | Load 0x0,0x5 0a3e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0a3f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0a40 1c08 | | Execute_Immediate Run_Utility,0x8 0a41 00e3 | | Load_Encached Natural_Cache 0a42 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0a43 e005 | | Load 0x0,0x5 0a44 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0a45 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a46 e005 | | Load 0x0,0x5 0a47 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0a48 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a49 029f 138b | | Declare_Subprogram INIT_1388,For_Call 0a4b 029f 13db | | Declare_Subprogram INIT_13d8,For_Call 0a4d BODY_0a38: 0a4d 4800 |H | Short_Literal 0x0 0a4e e402 | | Load 0x2,0x2 0a4f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0a50 00cf | | Action Mark_Auxiliary 0a51 e5ff | | Load 0x2,-0x1 0a52 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0a53 01d9 | | Execute Vector,Reverse_Bounds 0a54 0263 | c | Execute Discrete,Above_Bound 0a55 702e |p. | Jump_Nonzero 0xa84 0a56 00d8 | | Load_Top At_Offset_0 0a57 e5ff | | Load 0x2,-0x1 0a58 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0a59 01d7 | | Execute Vector,Field_Read 0a5a a405 | | Store_Unchecked 0x2,0x5 0a5b 00cf | | Action Mark_Auxiliary 0a5c 7811 |x | Jump 0xa6e 0a5d e405 | | Load 0x2,0x5 0a5e e005 | | Load 0x0,0x5 0a5f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0a60 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0a61 a404 | | Store_Unchecked 0x2,0x4 0a62 e404 | | Load 0x2,0x4 0a63 e005 | | Load 0x0,0x5 0a64 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0a65 180f | | Execute Package,Field_Execute,Field_Number 0xf 0a66 7001 |p | Jump_Nonzero 0xa68 0a67 780b |x | Jump 0xa73 0a68 e405 | | Load 0x2,0x5 0a69 e005 | | Load 0x0,0x5 0a6a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0a6b 1849 | I | Execute Package,Field_Execute,Field_Number 0x49 0a6c a405 | | Store_Unchecked 0x2,0x5 0a6d 00c9 | | Action Pop_Auxiliary_Loop 0a6e e405 | | Load 0x2,0x5 0a6f e005 | | Load 0x0,0x5 0a70 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0a71 180f | | Execute Package,Field_Execute,Field_Number 0xf 0a72 6fea |o | Jump_Zero 0xa5d 0a73 00ce | | Action Pop_Auxiliary 0a74 e404 | | Load 0x2,0x4 0a75 e005 | | Load 0x0,0x5 0a76 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0a77 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 0a78 6808 |h | Jump_Zero 0xa81 0a79 4801 |H | Short_Literal 0x1 0a7a 4801 |H | Short_Literal 0x1 0a7b e404 | | Load 0x2,0x4 0a7c e5fd | | Load 0x2,-0x3 0a7d e22a | * | Load 0x1,0x2a 0a7e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0a7f 8406 | | Call 0x2,0x6 0a80 7801 |x | Jump 0xa82 0a81 8407 | | Call 0x2,0x7 0a82 00c8 | | Action Pop_Auxiliary_Range 0a83 3fd2 |? | Loop_Increasing 0xa56 0a84 00ce | | Action Pop_Auxiliary 0a85 e403 | | Load 0x2,0x3 0a86 0aff | | Execute_Immediate Plus,-0x1 0a87 e005 | | Load 0x0,0x5 0a88 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0a89 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0a8a 1c08 | | Execute_Immediate Run_Utility,0x8 0a8b 4801 |H | Short_Literal 0x1 0a8c e403 | | Load 0x2,0x3 0a8d 0aff | | Execute_Immediate Plus,-0x1 0a8e e402 | | Load 0x2,0x2 0a8f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0a90 01cf | | Execute Vector,Slice_Read 0a91 00d9 | | Load_Top At_Offset_1 0a92 00d8 | | Load_Top At_Offset_0 0a93 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0a94 00da | | Load_Top At_Offset_2 0a95 01da | | Execute Vector,Bounds 0a96 00da | | Load_Top At_Offset_2 0a97 01da | | Execute Vector,Bounds 0a98 00da | | Load_Top At_Offset_2 0a99 027f | | Execute Discrete,Equal 0a9a 7001 |p | Jump_Nonzero 0xa9c 0a9b 08e0 | | Execute_Immediate Raise,0xe0 0a9c 00cd | | Action Spare6_Action 0a9d 027f | | Execute Discrete,Equal 0a9e 7001 |p | Jump_Nonzero 0xaa0 0a9f 08e0 | | Execute_Immediate Raise,0xe0 0aa0 00d2 | | Pop_Control Pop_Count_2 0aa1 00d9 | | Load_Top At_Offset_1 0aa2 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0aa3 e402 | | Load 0x2,0x2 0aa4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0aa5 00d9 | | Load_Top At_Offset_1 0aa6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0aa7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0aa8 ; -------------------------------------------------------------------------------------- 0aa8 ; SUBPROGRAM 0aa8 ; -------------------------------------------------------------------------------------- 0aa8 0aab | | .CONST 0x0aab ; Address of begin 0aa9 0004 | | .CONST 0x0004 ; Address of exception handler 0aaa 0001 | | .CONST 0x0001 ; Number of locals 0aab BODY_0aa8: 0aab INIT_0aa8: 0aab 00da | | Load_Top At_Offset_2 0aac 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0aad 7002 |p | Jump_Nonzero 0xab0 0aae 00da | | Load_Top At_Offset_2 0aaf 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0ab0 00cf | | Action Mark_Auxiliary 0ab1 00db | | Load_Top At_Offset_3 0ab2 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0ab3 01d9 | | Execute Vector,Reverse_Bounds 0ab4 0263 | c | Execute Discrete,Above_Bound 0ab5 700b |p | Jump_Nonzero 0xac1 0ab6 4800 |H | Short_Literal 0x0 0ab7 4801 |H | Short_Literal 0x1 0ab8 00da | | Load_Top At_Offset_2 0ab9 e5ff | | Load 0x2,-0x1 0aba 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0abb 01d7 | | Execute Vector,Field_Read 0abc e5fc | | Load 0x2,-0x4 0abd e22a | * | Load 0x1,0x2a 0abe 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0abf 00c8 | | Action Pop_Auxiliary_Range 0ac0 3ff5 |? | Loop_Increasing 0xab6 0ac1 00ce | | Action Pop_Auxiliary 0ac2 e5fc | | Load 0x2,-0x4 0ac3 e5fd | | Load 0x2,-0x3 0ac4 e5fe | | Load 0x2,-0x2 0ac5 4801 |H | Short_Literal 0x1 0ac6 e5fc | | Load 0x2,-0x4 0ac7 e5fd | | Load 0x2,-0x3 0ac8 e5fe | | Load 0x2,-0x2 0ac9 e5ff | | Load 0x2,-0x1 0aca 823b | ; | Call 0x1,0x3b 0acb 823d | = | Call 0x1,0x3d 0acc 00db | | Load_Top At_Offset_3 0acd 822e | . | Call 0x1,0x2e 0ace 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0acf 0000 | | .XXX[0x1] 0ad0 ; -------------------------------------------------------------------------------------- 0ad0 ; SUBPROGRAM 0ad0 ; -------------------------------------------------------------------------------------- 0ad0 0ad3 | | .CONST 0x0ad3 ; Address of begin 0ad1 0004 | | .CONST 0x0004 ; Address of exception handler 0ad2 0001 | | .CONST 0x0001 ; Number of locals 0ad3 BODY_0ad0: 0ad3 INIT_0ad0: 0ad3 00da | | Load_Top At_Offset_2 0ad4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0ad5 7002 |p | Jump_Nonzero 0xad8 0ad6 00da | | Load_Top At_Offset_2 0ad7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0ad8 00cf | | Action Mark_Auxiliary 0ad9 00db | | Load_Top At_Offset_3 0ada 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0adb 01d9 | | Execute Vector,Reverse_Bounds 0adc 0263 | c | Execute Discrete,Above_Bound 0add 700b |p | Jump_Nonzero 0xae9 0ade 4800 |H | Short_Literal 0x0 0adf 4801 |H | Short_Literal 0x1 0ae0 00da | | Load_Top At_Offset_2 0ae1 e5ff | | Load 0x2,-0x1 0ae2 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0ae3 01d7 | | Execute Vector,Field_Read 0ae4 e5fd | | Load 0x2,-0x3 0ae5 e22a | * | Load 0x1,0x2a 0ae6 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0ae7 00c8 | | Action Pop_Auxiliary_Range 0ae8 3ff5 |? | Loop_Increasing 0xade 0ae9 00ce | | Action Pop_Auxiliary 0aea e5fd | | Load 0x2,-0x3 0aeb e5fe | | Load 0x2,-0x2 0aec e5fd | | Load 0x2,-0x3 0aed e5fe | | Load 0x2,-0x2 0aee e5ff | | Load 0x2,-0x1 0aef 823c | < | Call 0x1,0x3c 0af0 823e | > | Call 0x1,0x3e 0af1 00db | | Load_Top At_Offset_3 0af2 822e | . | Call 0x1,0x2e 0af3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0af4 0000 0000 | | .BLANK 0000[0x4] 0af8 ; -------------------------------------------------------------------------------------- 0af8 ; SUBPROGRAM 0af8 ; -------------------------------------------------------------------------------------- 0af8 0b0f | | .CONST 0x0b0f ; Address of begin 0af9 0004 | | .CONST 0x0004 ; Address of exception handler 0afa 0005 | | .CONST 0x0005 ; Number of locals 0afb INIT_0af8: 0afb 00da | | Load_Top At_Offset_2 0afc e005 | | Load 0x0,0x5 0afd 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0afe 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0aff e5fe | | Load 0x2,-0x2 0b00 e005 | | Load 0x0,0x5 0b01 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0b02 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0b03 00d9 | | Load_Top At_Offset_1 0b04 e005 | | Load 0x0,0x5 0b05 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0b06 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0b07 00e3 | | Load_Encached Natural_Cache 0b08 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0b09 00d9 | | Load_Top At_Offset_1 0b0a e005 | | Load 0x0,0x5 0b0b 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0b0c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0b0d 00e3 | | Load_Encached Natural_Cache 0b0e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0b0f BODY_0af8: 0b0f 00d9 | | Load_Top At_Offset_1 0b10 00d9 | | Load_Top At_Offset_1 0b11 027f | | Execute Discrete,Equal 0b12 680c |h | Jump_Zero 0xb1f 0b13 4800 |H | Short_Literal 0x0 0b14 00db | | Load_Top At_Offset_3 0b15 e005 | | Load 0x0,0x5 0b16 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0b17 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0b18 e402 | | Load 0x2,0x2 0b19 e005 | | Load 0x0,0x5 0b1a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0b1b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0b1c e017 | | Load 0x0,0x17 0b1d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0b1e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0b1f 00d9 | | Load_Top At_Offset_1 0b20 00d9 | | Load_Top At_Offset_1 0b21 027c | | | Execute Discrete,Less 0b22 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0b23 0000 0000 | | .BLANK 0000[0x5] 0b28 ; -------------------------------------------------------------------------------------- 0b28 ; SUBPROGRAM 0b28 ; -------------------------------------------------------------------------------------- 0b28 0b5a | Z | .CONST 0x0b5a ; Address of begin 0b29 0c58 | X | .CONST 0x0c58 ; Address of exception handler 0b2a 0012 | | .CONST 0x0012 ; Number of locals 0b2b INIT_0b28: 0b2b e005 | | Load 0x0,0x5 0b2c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0b2d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b2e e005 | | Load 0x0,0x5 0b2f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0b30 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b31 e005 | | Load 0x0,0x5 0b32 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0b33 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b34 e005 | | Load 0x0,0x5 0b35 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0b36 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b37 e22b | + | Load 0x1,0x2b 0b38 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0b39 e5ff | | Load 0x2,-0x1 0b3a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0b3b 00e3 | | Load_Encached Natural_Cache 0b3c 03f1 | | Declare_Variable Discrete,With_Value 0b3d 00e3 | | Load_Encached Natural_Cache 0b3e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0b3f e5fe | | Load 0x2,-0x2 0b40 e013 | | Load 0x0,0x13 0b41 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0b42 e016 | | Load 0x0,0x16 0b43 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0b44 4801 |H | Short_Literal 0x1 0b45 00d9 | | Load_Top At_Offset_1 0b46 01d7 | | Execute Vector,Field_Read 0b47 0007 | | Action Break_Optional 0b48 4802 |H | Short_Literal 0x2 0b49 00da | | Load_Top At_Offset_2 0b4a 01d7 | | Execute Vector,Field_Read 0b4b 0007 | | Action Break_Optional 0b4c 029f 140b | | Declare_Subprogram INIT_1408,For_Call 0b4e 029f 142b | +| Declare_Subprogram INIT_1428,For_Call 0b50 029f 143b | ;| Declare_Subprogram INIT_1438,For_Call 0b52 029f 1463 | c| Declare_Subprogram INIT_1460,For_Call 0b54 029f 14db | | Declare_Subprogram INIT_14d8,For_Call 0b56 029f 151b | | Declare_Subprogram INIT_1518,For_Call 0b58 029f 1553 | S| Declare_Subprogram INIT_1550,For_Call 0b5a BODY_0b28: 0b5a e22b | + | Load 0x1,0x2b 0b5b 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0b5c e011 | | Load 0x0,0x11 0b5d 180d | | Execute Package,Field_Execute,Field_Number 0xd 0b5e e22b | + | Load 0x1,0x2b 0b5f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0b60 c406 | | Store 0x2,0x6 0b61 00cf | | Action Mark_Auxiliary 0b62 e5ff | | Load 0x2,-0x1 0b63 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0b64 01d9 | | Execute Vector,Reverse_Bounds 0b65 0263 | c | Execute Discrete,Above_Bound 0b66 70c2 |p | Jump_Nonzero 0xc29 0b67 00d8 | | Load_Top At_Offset_0 0b68 e5ff | | Load 0x2,-0x1 0b69 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0b6a 01d7 | | Execute Vector,Field_Read 0b6b 8410 | | Call 0x2,0x10 0b6c 68ba |h | Jump_Zero 0xc27 0b6d 00d8 | | Load_Top At_Offset_0 0b6e e5ff | | Load 0x2,-0x1 0b6f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0b70 01d7 | | Execute Vector,Field_Read 0b71 e005 | | Load 0x0,0x5 0b72 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0b73 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 0b74 a403 | | Store_Unchecked 0x2,0x3 0b75 e403 | | Load 0x2,0x3 0b76 a405 | | Store_Unchecked 0x2,0x5 0b77 00cf | | Action Mark_Auxiliary 0b78 7811 |x | Jump 0xb8a 0b79 e405 | | Load 0x2,0x5 0b7a e005 | | Load 0x0,0x5 0b7b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0b7c 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0b7d a404 | | Store_Unchecked 0x2,0x4 0b7e e404 | | Load 0x2,0x4 0b7f e005 | | Load 0x0,0x5 0b80 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0b81 180f | | Execute Package,Field_Execute,Field_Number 0xf 0b82 7001 |p | Jump_Nonzero 0xb84 0b83 780b |x | Jump 0xb8f 0b84 e405 | | Load 0x2,0x5 0b85 e005 | | Load 0x0,0x5 0b86 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0b87 1849 | I | Execute Package,Field_Execute,Field_Number 0x49 0b88 a405 | | Store_Unchecked 0x2,0x5 0b89 00c9 | | Action Pop_Auxiliary_Loop 0b8a e405 | | Load 0x2,0x5 0b8b e005 | | Load 0x0,0x5 0b8c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0b8d 180f | | Execute Package,Field_Execute,Field_Number 0xf 0b8e 6fea |o | Jump_Zero 0xb79 0b8f 00ce | | Action Pop_Auxiliary 0b90 e404 | | Load 0x2,0x4 0b91 e005 | | Load 0x0,0x5 0b92 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0b93 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 0b94 6813 |h | Jump_Zero 0xba8 0b95 e404 | | Load 0x2,0x4 0b96 840c | | Call 0x2,0xc 0b97 6810 |h | Jump_Zero 0xba8 0b98 e40a | | Load 0x2,0xa 0b99 6807 |h | Jump_Zero 0xba1 0b9a e403 | | Load 0x2,0x3 0b9b 00d8 | | Load_Top At_Offset_0 0b9c e005 | | Load 0x0,0x5 0b9d 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0b9e 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 0b9f 021f | | Execute Heap_Access,Equal 0ba0 7002 |p | Jump_Nonzero 0xba3 0ba1 e40b | | Load 0x2,0xb 0ba2 6805 |h | Jump_Zero 0xba8 0ba3 e404 | | Load 0x2,0x4 0ba4 e005 | | Load 0x0,0x5 0ba5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0ba6 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 0ba7 a403 | | Store_Unchecked 0x2,0x3 0ba8 e403 | | Load 0x2,0x3 0ba9 e005 | | Load 0x0,0x5 0baa 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0bab 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 0bac 6877 |hw | Jump_Zero 0xc24 0bad e403 | | Load 0x2,0x3 0bae e005 | | Load 0x0,0x5 0baf 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0bb0 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 0bb1 a402 | | Store_Unchecked 0x2,0x2 0bb2 e402 | | Load 0x2,0x2 0bb3 e005 | | Load 0x0,0x5 0bb4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0bb5 180f | | Execute Package,Field_Execute,Field_Number 0xf 0bb6 7069 |pi | Jump_Nonzero 0xc20 0bb7 e40a | | Load 0x2,0xa 0bb8 7002 |p | Jump_Nonzero 0xbbb 0bb9 e40b | | Load 0x2,0xb 0bba 6865 |he | Jump_Zero 0xc20 0bbb e5fd | | Load 0x2,-0x3 0bbc e402 | | Load 0x2,0x2 0bbd e005 | | Load 0x0,0x5 0bbe 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0bbf 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0bc0 7022 |p" | Jump_Nonzero 0xbe3 0bc1 e406 | | Load 0x2,0x6 0bc2 e22b | + | Load 0x1,0x2b 0bc3 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0bc4 4801 |H | Short_Literal 0x1 0bc5 4803 |H | Short_Literal 0x3 0bc6 e012 | | Load 0x0,0x12 0bc7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0bc8 0334 | 4 | Declare_Variable Array,With_Constraint 0bc9 e402 | | Load 0x2,0x2 0bca e005 | | Load 0x0,0x5 0bcb 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0bcc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0bcd 4801 |H | Short_Literal 0x1 0bce 00da | | Load_Top At_Offset_2 0bcf 01d6 | | Execute Vector,Field_Write 0bd0 e5fe | | Load 0x2,-0x2 0bd1 e013 | | Load 0x0,0x13 0bd2 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0bd3 4802 |H | Short_Literal 0x2 0bd4 00da | | Load_Top At_Offset_2 0bd5 01d6 | | Execute Vector,Field_Write 0bd6 e5fd | | Load 0x2,-0x3 0bd7 e016 | | Load 0x0,0x16 0bd8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0bd9 4803 |H | Short_Literal 0x3 0bda 00da | | Load_Top At_Offset_2 0bdb 01d6 | | Execute Vector,Field_Write 0bdc 609b |` | Indirect_Literal Discrete,0xc78,{0x00000000, 0x00003810} 0bdd e014 | | Load 0x0,0x14 0bde 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0bdf e5fc | | Load 0x2,-0x4 0be0 e015 | | Load 0x0,0x15 0be1 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0be2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0be3 e408 | | Load 0x2,0x8 0be4 0a01 | | Execute_Immediate Plus,0x1 0be5 c408 | | Store 0x2,0x8 0be6 e407 | | Load 0x2,0x7 0be7 00d9 | | Load_Top At_Offset_1 0be8 0273 | s | Execute Discrete,Plus 0be9 00d8 | | Load_Top At_Offset_0 0bea 00e3 | | Load_Encached Natural_Cache 0beb 0260 | ` | Execute Discrete,In_Type 0bec 7001 |p | Jump_Nonzero 0xbee 0bed 0801 | | Execute_Immediate Raise,0x1 0bee e404 | | Load 0x2,0x4 0bef 840d | | Call 0x2,0xd 0bf0 e407 | | Load 0x2,0x7 0bf1 00d9 | | Load_Top At_Offset_1 0bf2 0273 | s | Execute Discrete,Plus 0bf3 00d8 | | Load_Top At_Offset_0 0bf4 00e3 | | Load_Encached Natural_Cache 0bf5 0260 | ` | Execute Discrete,In_Type 0bf6 7001 |p | Jump_Nonzero 0xbf8 0bf7 0801 | | Execute_Immediate Raise,0x1 0bf8 e402 | | Load 0x2,0x2 0bf9 840d | | Call 0x2,0xd 0bfa e40b | | Load 0x2,0xb 0bfb 6802 |h | Jump_Zero 0xbfe 0bfc 8412 | | Call 0x2,0x12 0bfd 7829 |x) | Jump 0xc27 0bfe e5fd | | Load 0x2,-0x3 0bff e002 | | Load 0x0,0x2 0c00 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0c01 4801 |H | Short_Literal 0x1 0c02 4803 |H | Short_Literal 0x3 0c03 e012 | | Load 0x0,0x12 0c04 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c05 0334 | 4 | Declare_Variable Array,With_Constraint 0c06 e404 | | Load 0x2,0x4 0c07 e005 | | Load 0x0,0x5 0c08 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0c09 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0c0a 4801 |H | Short_Literal 0x1 0c0b 00da | | Load_Top At_Offset_2 0c0c 01d6 | | Execute Vector,Field_Write 0c0d e404 | | Load 0x2,0x4 0c0e e005 | | Load 0x0,0x5 0c0f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0c10 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0c11 4802 |H | Short_Literal 0x2 0c12 00da | | Load_Top At_Offset_2 0c13 01d6 | | Execute Vector,Field_Write 0c14 e402 | | Load 0x2,0x2 0c15 e005 | | Load 0x0,0x5 0c16 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0c17 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0c18 4803 |H | Short_Literal 0x3 0c19 00da | | Load_Top At_Offset_2 0c1a 01d6 | | Execute Vector,Field_Write 0c1b 480c |H | Short_Literal 0xc 0c1c e5fc | | Load 0x2,-0x4 0c1d e015 | | Load 0x0,0x15 0c1e 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0c1f 7807 |x | Jump 0xc27 0c20 00d8 | | Load_Top At_Offset_0 0c21 e403 | | Load 0x2,0x3 0c22 840e | | Call 0x2,0xe 0c23 7803 |x | Jump 0xc27 0c24 00d8 | | Load_Top At_Offset_0 0c25 e403 | | Load 0x2,0x3 0c26 840e | | Call 0x2,0xe 0c27 00c8 | | Action Pop_Auxiliary_Range 0c28 3f3e |?> | Loop_Increasing 0xb67 0c29 00c9 | | Action Pop_Auxiliary_Loop 0c2a e5ff | | Load 0x2,-0x1 0c2b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0c2c 01d9 | | Execute Vector,Reverse_Bounds 0c2d 0263 | c | Execute Discrete,Above_Bound 0c2e 7024 |p$ | Jump_Nonzero 0xc53 0c2f 00d8 | | Load_Top At_Offset_0 0c30 00d9 | | Load_Top At_Offset_1 0c31 e5ff | | Load 0x2,-0x1 0c32 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0c33 01d7 | | Execute Vector,Field_Read 0c34 8411 | | Call 0x2,0x11 0c35 681b |h | Jump_Zero 0xc51 0c36 00d8 | | Load_Top At_Offset_0 0c37 e5ff | | Load 0x2,-0x1 0c38 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0c39 01d7 | | Execute Vector,Field_Read 0c3a e005 | | Load 0x0,0x5 0c3b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0c3c 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 0c3d a403 | | Store_Unchecked 0x2,0x3 0c3e e5fd | | Load 0x2,-0x3 0c3f e002 | | Load 0x0,0x2 0c40 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0c41 4801 |H | Short_Literal 0x1 0c42 4801 |H | Short_Literal 0x1 0c43 e012 | | Load 0x0,0x12 0c44 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c45 0334 | 4 | Declare_Variable Array,With_Constraint 0c46 e403 | | Load 0x2,0x3 0c47 e005 | | Load 0x0,0x5 0c48 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0c49 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0c4a 4801 |H | Short_Literal 0x1 0c4b 00da | | Load_Top At_Offset_2 0c4c 01d6 | | Execute Vector,Field_Write 0c4d 480f |H | Short_Literal 0xf 0c4e e5fc | | Load 0x2,-0x4 0c4f e015 | | Load 0x0,0x15 0c50 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0c51 00c8 | | Action Pop_Auxiliary_Range 0c52 3fdc |? | Loop_Increasing 0xc2f 0c53 00ce | | Action Pop_Auxiliary 0c54 e406 | | Load 0x2,0x6 0c55 e22b | + | Load 0x1,0x2b 0c56 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0c57 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0c58 TRAP_0b28: 0c58 0007 | | Action Break_Optional 0c59 e406 | | Load 0x2,0x6 0c5a e22b | + | Load 0x1,0x2b 0c5b 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0c5c 4801 |H | Short_Literal 0x1 0c5d 4802 |H | Short_Literal 0x2 0c5e e012 | | Load 0x0,0x12 0c5f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c60 0334 | 4 | Declare_Variable Array,With_Constraint 0c61 e5fe | | Load 0x2,-0x2 0c62 e013 | | Load 0x0,0x13 0c63 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0c64 4801 |H | Short_Literal 0x1 0c65 00da | | Load_Top At_Offset_2 0c66 01d6 | | Execute Vector,Field_Write 0c67 e5fd | | Load 0x2,-0x3 0c68 e016 | | Load 0x0,0x16 0c69 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0c6a 4802 |H | Short_Literal 0x2 0c6b 00da | | Load_Top At_Offset_2 0c6c 01d6 | | Execute Vector,Field_Write 0c6d 6006 |` | Indirect_Literal Discrete,0xc74,{0x00000000, 0x0000380e} 0c6e e014 | | Load 0x0,0x14 0c6f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0c70 e5fc | | Load 0x2,-0x4 0c71 e015 | | Load 0x0,0x15 0c72 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0c73 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0c74 0000 0000 | | .LITERAL {0x00000000, 0x0000380e} 0c78 0000 0000 | | .LITERAL {0x00000000, 0x00003810} 0c7c 0000 0000 | | .BLANK 0000[0x4] 0c80 ; -------------------------------------------------------------------------------------- 0c80 ; SUBPROGRAM 0c80 ; -------------------------------------------------------------------------------------- 0c80 0c89 | | .CONST 0x0c89 ; Address of begin 0c81 0004 | | .CONST 0x0004 ; Address of exception handler 0c82 0003 | | .CONST 0x0003 ; Number of locals 0c83 INIT_0c80: 0c83 00db | | Load_Top At_Offset_3 0c84 00db | | Load_Top At_Offset_3 0c85 e013 | | Load 0x0,0x13 0c86 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0c87 e015 | | Load 0x0,0x15 0c88 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0c89 BODY_0c80: 0c89 00d9 | | Load_Top At_Offset_1 0c8a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0c8b 7001 |p | Jump_Nonzero 0xc8d 0c8c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0c8d e5fd | | Load 0x2,-0x3 0c8e e002 | | Load 0x0,0x2 0c8f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0c90 4801 |H | Short_Literal 0x1 0c91 4801 |H | Short_Literal 0x1 0c92 e012 | | Load 0x0,0x12 0c93 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c94 0334 | 4 | Declare_Variable Array,With_Constraint 0c95 e5fe | | Load 0x2,-0x2 0c96 e005 | | Load 0x0,0x5 0c97 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0c98 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 0c99 4801 |H | Short_Literal 0x1 0c9a 00da | | Load_Top At_Offset_2 0c9b 01d6 | | Execute Vector,Field_Write 0c9c 4807 |H | Short_Literal 0x7 0c9d e403 | | Load 0x2,0x3 0c9e e015 | | Load 0x0,0x15 0c9f 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0ca0 00d8 | | Load_Top At_Offset_0 0ca1 e5fd | | Load 0x2,-0x3 0ca2 e5ff | | Load 0x2,-0x1 0ca3 e402 | | Load 0x2,0x2 0ca4 8247 | G | Call 0x1,0x47 0ca5 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0ca6 00d8 | | Load_Top At_Offset_0 0ca7 e015 | | Load 0x0,0x15 0ca8 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0ca9 0e01 | | Execute_Immediate Not_Equal,0x1 0caa 6812 |h | Jump_Zero 0xcbd 0cab e5fd | | Load 0x2,-0x3 0cac e002 | | Load 0x0,0x2 0cad 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0cae 4801 |H | Short_Literal 0x1 0caf 4801 |H | Short_Literal 0x1 0cb0 e012 | | Load 0x0,0x12 0cb1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0cb2 0334 | 4 | Declare_Variable Array,With_Constraint 0cb3 00db | | Load_Top At_Offset_3 0cb4 e015 | | Load 0x0,0x15 0cb5 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0cb6 4801 |H | Short_Literal 0x1 0cb7 00da | | Load_Top At_Offset_2 0cb8 01d6 | | Execute Vector,Field_Write 0cb9 4803 |H | Short_Literal 0x3 0cba e5fc | | Load 0x2,-0x4 0cbb e015 | | Load 0x0,0x15 0cbc 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0cbd 00d8 | | Load_Top At_Offset_0 0cbe e015 | | Load 0x0,0x15 0cbf 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0cc0 7006 |p | Jump_Nonzero 0xcc7 0cc1 00d8 | | Load_Top At_Offset_0 0cc2 e015 | | Load 0x0,0x15 0cc3 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0cc4 e5fc | | Load 0x2,-0x4 0cc5 e015 | | Load 0x0,0x15 0cc6 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0cc7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0cc8 ; -------------------------------------------------------------------------------------- 0cc8 ; SUBPROGRAM 0cc8 ; -------------------------------------------------------------------------------------- 0cc8 0cd1 | | .CONST 0x0cd1 ; Address of begin 0cc9 0004 | | .CONST 0x0004 ; Address of exception handler 0cca 0003 | | .CONST 0x0003 ; Number of locals 0ccb INIT_0cc8: 0ccb 00db | | Load_Top At_Offset_3 0ccc 00db | | Load_Top At_Offset_3 0ccd e013 | | Load 0x0,0x13 0cce 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0ccf e015 | | Load 0x0,0x15 0cd0 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0cd1 BODY_0cc8: 0cd1 00d9 | | Load_Top At_Offset_1 0cd2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0cd3 7001 |p | Jump_Nonzero 0xcd5 0cd4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0cd5 e5fd | | Load 0x2,-0x3 0cd6 e002 | | Load 0x0,0x2 0cd7 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0cd8 4801 |H | Short_Literal 0x1 0cd9 4801 |H | Short_Literal 0x1 0cda e012 | | Load 0x0,0x12 0cdb 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0cdc 0334 | 4 | Declare_Variable Array,With_Constraint 0cdd e5fe | | Load 0x2,-0x2 0cde e005 | | Load 0x0,0x5 0cdf 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0ce0 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 0ce1 4801 |H | Short_Literal 0x1 0ce2 00da | | Load_Top At_Offset_2 0ce3 01d6 | | Execute Vector,Field_Write 0ce4 4807 |H | Short_Literal 0x7 0ce5 e403 | | Load 0x2,0x3 0ce6 e015 | | Load 0x0,0x15 0ce7 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0ce8 00cf | | Action Mark_Auxiliary 0ce9 00da | | Load_Top At_Offset_2 0cea 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0ceb 01d9 | | Execute Vector,Reverse_Bounds 0cec 0263 | c | Execute Discrete,Above_Bound 0ced 7020 |p | Jump_Nonzero 0xd0e 0cee 00d8 | | Load_Top At_Offset_0 0cef e402 | | Load 0x2,0x2 0cf0 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0cf1 01d7 | | Execute Vector,Field_Read 0cf2 e005 | | Load 0x0,0x5 0cf3 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0cf4 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0cf5 7016 |p | Jump_Nonzero 0xd0c 0cf6 e5fd | | Load 0x2,-0x3 0cf7 e002 | | Load 0x0,0x2 0cf8 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0cf9 4801 |H | Short_Literal 0x1 0cfa 4801 |H | Short_Literal 0x1 0cfb e012 | | Load 0x0,0x12 0cfc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0cfd 0334 | 4 | Declare_Variable Array,With_Constraint 0cfe 00db | | Load_Top At_Offset_3 0cff e402 | | Load 0x2,0x2 0d00 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0d01 01d7 | | Execute Vector,Field_Read 0d02 e005 | | Load 0x0,0x5 0d03 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0d04 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0d05 4801 |H | Short_Literal 0x1 0d06 00da | | Load_Top At_Offset_2 0d07 01d6 | | Execute Vector,Field_Write 0d08 480e |H | Short_Literal 0xe 0d09 e403 | | Load 0x2,0x3 0d0a e015 | | Load 0x0,0x15 0d0b 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0d0c 00c8 | | Action Pop_Auxiliary_Range 0d0d 3fe0 |? | Loop_Increasing 0xcee 0d0e 00ce | | Action Pop_Auxiliary 0d0f 00d8 | | Load_Top At_Offset_0 0d10 e015 | | Load 0x0,0x15 0d11 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0d12 0e01 | | Execute_Immediate Not_Equal,0x1 0d13 6812 |h | Jump_Zero 0xd26 0d14 e5fd | | Load 0x2,-0x3 0d15 e002 | | Load 0x0,0x2 0d16 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0d17 4801 |H | Short_Literal 0x1 0d18 4801 |H | Short_Literal 0x1 0d19 e012 | | Load 0x0,0x12 0d1a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d1b 0334 | 4 | Declare_Variable Array,With_Constraint 0d1c 00db | | Load_Top At_Offset_3 0d1d e015 | | Load 0x0,0x15 0d1e 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0d1f 4801 |H | Short_Literal 0x1 0d20 00da | | Load_Top At_Offset_2 0d21 01d6 | | Execute Vector,Field_Write 0d22 4805 |H | Short_Literal 0x5 0d23 e5fc | | Load 0x2,-0x4 0d24 e015 | | Load 0x0,0x15 0d25 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0d26 00d8 | | Load_Top At_Offset_0 0d27 e015 | | Load 0x0,0x15 0d28 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0d29 7006 |p | Jump_Nonzero 0xd30 0d2a 00d8 | | Load_Top At_Offset_0 0d2b e015 | | Load 0x0,0x15 0d2c 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0d2d e5fc | | Load 0x2,-0x4 0d2e e015 | | Load 0x0,0x15 0d2f 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0d30 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0d31 0000 0000 | | .BLANK 0000[0x7] 0d38 ; -------------------------------------------------------------------------------------- 0d38 ; SUBPROGRAM 0d38 ; -------------------------------------------------------------------------------------- 0d38 0d3d | = | .CONST 0x0d3d ; Address of begin 0d39 0004 | | .CONST 0x0004 ; Address of exception handler 0d3a 0002 | | .CONST 0x0002 ; Number of locals 0d3b INIT_0d38: 0d3b e016 | | Load 0x0,0x16 0d3c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d3d BODY_0d38: 0d3d 00cf | | Action Mark_Auxiliary 0d3e e5ff | | Load 0x2,-0x1 0d3f 01d9 | | Execute Vector,Reverse_Bounds 0d40 0263 | c | Execute Discrete,Above_Bound 0d41 700a |p | Jump_Nonzero 0xd4c 0d42 00d8 | | Load_Top At_Offset_0 0d43 a402 | | Store_Unchecked 0x2,0x2 0d44 00d8 | | Load_Top At_Offset_0 0d45 e5ff | | Load 0x2,-0x1 0d46 01d7 | | Execute Vector,Field_Read 0d47 6802 |h | Jump_Zero 0xd4a 0d48 00d2 | | Pop_Control Pop_Count_2 0d49 7802 |x | Jump 0xd4c 0d4a 00c8 | | Action Pop_Auxiliary_Range 0d4b 3ff6 |? | Loop_Increasing 0xd42 0d4c 00ce | | Action Pop_Auxiliary 0d4d 00d8 | | Load_Top At_Offset_0 0d4e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0d4f 0000 | | .XXX[0x1] 0d50 ; -------------------------------------------------------------------------------------- 0d50 ; SUBPROGRAM 0d50 ; -------------------------------------------------------------------------------------- 0d50 0d7b | { | .CONST 0x0d7b ; Address of begin 0d51 0004 | | .CONST 0x0004 ; Address of exception handler 0d52 0011 | | .CONST 0x0011 ; Number of locals 0d53 INIT_0d50: 0d53 029f 15e3 | | Declare_Subprogram INIT_15e0,For_Call 0d55 029f 160b | | Declare_Subprogram INIT_1608,For_Call 0d57 029f 1613 | | Declare_Subprogram INIT_1610,For_Call 0d59 029f 165b | [| Declare_Subprogram INIT_1658,For_Call 0d5b 029f 16ab | | Declare_Subprogram INIT_16a8,For_Call 0d5d a00c | | Store_Unchecked 0x0,0xc 0d5e 00c6 | | Action Check_Subprogram_Elaborated 0d5f e005 | | Load 0x0,0x5 0d60 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0d61 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d62 e005 | | Load 0x0,0x5 0d63 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0d64 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d65 4802 |H | Short_Literal 0x2 0d66 4802 |H | Short_Literal 0x2 0d67 0099 | | Action Reference_Dynamic 0d68 4803 |H | Short_Literal 0x3 0d69 4802 |H | Short_Literal 0x2 0d6a 0099 | | Action Reference_Dynamic 0d6b 4804 |H | Short_Literal 0x4 0d6c 4802 |H | Short_Literal 0x2 0d6d 0099 | | Action Reference_Dynamic 0d6e 4806 |H | Short_Literal 0x6 0d6f 4802 |H | Short_Literal 0x2 0d70 0099 | | Action Reference_Dynamic 0d71 e005 | | Load 0x0,0x5 0d72 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0d73 195a | Z | Execute Package,Field_Reference,Field_Number 0x5a 0d74 e005 | | Load 0x0,0x5 0d75 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0d76 195c | \ | Execute Package,Field_Reference,Field_Number 0x5c 0d77 e018 | | Load 0x0,0x18 0d78 e019 | | Load 0x0,0x19 0d79 4811 |H | Short_Literal 0x11 0d7a 0007 | | Action Break_Optional 0d7b BODY_0d50: 0d7b e5fe | | Load 0x2,-0x2 0d7c e5ff | | Load 0x2,-0x1 0d7d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0d7e e407 | | Load 0x2,0x7 0d7f e408 | | Load 0x2,0x8 0d80 4809 |H | Short_Literal 0x9 0d81 4802 |H | Short_Literal 0x2 0d82 0099 | | Action Reference_Dynamic 0d83 480a |H | Short_Literal 0xa 0d84 4802 |H | Short_Literal 0x2 0d85 0099 | | Action Reference_Dynamic 0d86 480b |H | Short_Literal 0xb 0d87 4802 |H | Short_Literal 0x2 0d88 0099 | | Action Reference_Dynamic 0d89 480c |H | Short_Literal 0xc 0d8a 4802 |H | Short_Literal 0x2 0d8b 0099 | | Action Reference_Dynamic 0d8c 480d |H | Short_Literal 0xd 0d8d 4802 |H | Short_Literal 0x2 0d8e 0099 | | Action Reference_Dynamic 0d8f 480e |H | Short_Literal 0xe 0d90 4802 |H | Short_Literal 0x2 0d91 0099 | | Action Reference_Dynamic 0d92 480f |H | Short_Literal 0xf 0d93 4802 |H | Short_Literal 0x2 0d94 0099 | | Action Reference_Dynamic 0d95 800c | | Call 0x0,0xc 0d96 e005 | | Load 0x0,0x5 0d97 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0d98 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d99 01c6 | | Execute Vector,Convert_To_Formal 0d9a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0d9b 0000 0000 | | .BLANK 0000[0x5] 0da0 ; -------------------------------------------------------------------------------------- 0da0 ; SUBPROGRAM 0da0 ; -------------------------------------------------------------------------------------- 0da0 0db3 | | .CONST 0x0db3 ; Address of begin 0da1 0004 | | .CONST 0x0004 ; Address of exception handler 0da2 0005 | | .CONST 0x0005 ; Number of locals 0da3 INIT_0da0: 0da3 00db | | Load_Top At_Offset_3 0da4 e013 | | Load 0x0,0x13 0da5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0da6 00db | | Load_Top At_Offset_3 0da7 01da | | Execute Vector,Bounds 0da8 e005 | | Load 0x0,0x5 0da9 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0daa 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0dab 035b | [ | Declare_Type Array,Constrained 0dac 0337 | 7 | Declare_Variable Array 0dad 00d8 | | Load_Top At_Offset_0 0dae 01dd | | Execute Vector,First 0daf 00e3 | | Load_Encached Natural_Cache 0db0 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0db1 029f 16c3 | | Declare_Subprogram INIT_16c0,For_Call 0db3 BODY_0da0: 0db3 00cf | | Action Mark_Auxiliary 0db4 e402 | | Load 0x2,0x2 0db5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0db6 01d9 | | Execute Vector,Reverse_Bounds 0db7 0263 | c | Execute Discrete,Above_Bound 0db8 700d |p | Jump_Nonzero 0xdc6 0db9 00d8 | | Load_Top At_Offset_0 0dba e402 | | Load 0x2,0x2 0dbb 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0dbc 01d7 | | Execute Vector,Field_Read 0dbd e005 | | Load 0x0,0x5 0dbe 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0dbf 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0dc0 0f01 | | Execute_Immediate Equal,0x1 0dc1 7002 |p | Jump_Nonzero 0xdc4 0dc2 e5ff | | Load 0x2,-0x1 0dc3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0dc4 00c8 | | Action Pop_Auxiliary_Range 0dc5 3ff3 |? | Loop_Increasing 0xdb9 0dc6 00ce | | Action Pop_Auxiliary 0dc7 8405 | | Call 0x2,0x5 0dc8 4801 |H | Short_Literal 0x1 0dc9 00da | | Load_Top At_Offset_2 0dca 0aff | | Execute_Immediate Plus,-0x1 0dcb e403 | | Load 0x2,0x3 0dcc 01cf | | Execute Vector,Slice_Read 0dcd e005 | | Load 0x0,0x5 0dce 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0dcf 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0dd0 01c6 | | Execute Vector,Convert_To_Formal 0dd1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0dd2 0000 0000 | | .BLANK 0000[0x6] 0dd8 ; -------------------------------------------------------------------------------------- 0dd8 ; SUBPROGRAM 0dd8 ; -------------------------------------------------------------------------------------- 0dd8 0ddb | | .CONST 0x0ddb ; Address of begin 0dd9 0004 | | .CONST 0x0004 ; Address of exception handler 0dda 0001 | | .CONST 0x0001 ; Number of locals 0ddb BODY_0dd8: 0ddb INIT_0dd8: 0ddb 4801 |H | Short_Literal 0x1 0ddc e5fe | | Load 0x2,-0x2 0ddd e005 | | Load 0x0,0x5 0dde 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0ddf 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0de0 e5ff | | Load 0x2,-0x1 0de1 e005 | | Load 0x0,0x5 0de2 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0de3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0de4 e017 | | Load 0x0,0x17 0de5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0de6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0de7 0000 | | .XXX[0x1] 0de8 ; -------------------------------------------------------------------------------------- 0de8 ; SUBPROGRAM 0de8 ; -------------------------------------------------------------------------------------- 0de8 0dfb | | .CONST 0x0dfb ; Address of begin 0de9 0004 | | .CONST 0x0004 ; Address of exception handler 0dea 0004 | | .CONST 0x0004 ; Number of locals 0deb INIT_0de8: 0deb e005 | | Load 0x0,0x5 0dec 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0ded 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0dee e005 | | Load 0x0,0x5 0def 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0df0 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0df1 0337 | 7 | Declare_Variable Array 0df2 e5ff | | Load 0x2,-0x1 0df3 e005 | | Load 0x0,0x5 0df4 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0df5 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0df6 e005 | | Load 0x0,0x5 0df7 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0df8 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0df9 e016 | | Load 0x0,0x16 0dfa 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0dfb BODY_0de8: 0dfb 4800 |H | Short_Literal 0x0 0dfc 00d9 | | Load_Top At_Offset_1 0dfd 01d7 | | Execute Vector,Field_Read 0dfe 6804 |h | Jump_Zero 0xe03 0dff 4803 |H | Short_Literal 0x3 0e00 00d9 | | Load_Top At_Offset_1 0e01 01d7 | | Execute Vector,Field_Read 0e02 681b |h | Jump_Zero 0xe1e 0e03 e5ff | | Load 0x2,-0x1 0e04 e5fe | | Load 0x2,-0x2 0e05 e005 | | Load 0x0,0x5 0e06 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0e07 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0e08 e005 | | Load 0x0,0x5 0e09 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0e0a 188a | | Execute Package,Field_Execute,Field_Number 0x8a 0e0b 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0e0c e5fe | | Load 0x2,-0x2 0e0d 00db | | Load_Top At_Offset_3 0e0e e005 | | Load 0x0,0x5 0e0f 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0e10 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0e11 00da | | Load_Top At_Offset_2 0e12 01d4 | | Execute Vector,Structure_Write 0e13 4803 |H | Short_Literal 0x3 0e14 00da | | Load_Top At_Offset_2 0e15 01d7 | | Execute Vector,Field_Read 0e16 7004 |p | Jump_Nonzero 0xe1b 0e17 4804 |H | Short_Literal 0x4 0e18 00da | | Load_Top At_Offset_2 0e19 01d7 | | Execute Vector,Field_Read 0e1a 7801 |x | Jump 0xe1c 0e1b 4801 |H | Short_Literal 0x1 0e1c 0f00 | | Execute_Immediate Equal,0x0 0e1d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0e1e 4801 |H | Short_Literal 0x1 0e1f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0e20 ; -------------------------------------------------------------------------------------- 0e20 ; SUBPROGRAM 0e20 ; -------------------------------------------------------------------------------------- 0e20 0e23 | # | .CONST 0x0e23 ; Address of begin 0e21 0004 | | .CONST 0x0004 ; Address of exception handler 0e22 0001 | | .CONST 0x0001 ; Number of locals 0e23 BODY_0e20: 0e23 INIT_0e20: 0e23 4800 |H | Short_Literal 0x0 0e24 e22c | , | Load 0x1,0x2c 0e25 4800 |H | Short_Literal 0x0 0e26 e5fe | | Load 0x2,-0x2 0e27 e5ff | | Load 0x2,-0x1 0e28 8236 | 6 | Call 0x1,0x36 0e29 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0e2a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0e2b 0000 0000 | | .BLANK 0000[0x5] 0e30 ; -------------------------------------------------------------------------------------- 0e30 ; SUBPROGRAM 0e30 ; -------------------------------------------------------------------------------------- 0e30 0e33 | 3 | .CONST 0x0e33 ; Address of begin 0e31 0004 | | .CONST 0x0004 ; Address of exception handler 0e32 0001 | | .CONST 0x0001 ; Number of locals 0e33 BODY_0e30: 0e33 INIT_0e30: 0e33 4800 |H | Short_Literal 0x0 0e34 e22c | , | Load 0x1,0x2c 0e35 e5fe | | Load 0x2,-0x2 0e36 4800 |H | Short_Literal 0x0 0e37 e5ff | | Load 0x2,-0x1 0e38 823a | : | Call 0x1,0x3a 0e39 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0e3a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0e3b 0000 0000 | | .BLANK 0000[0x5] 0e40 ; -------------------------------------------------------------------------------------- 0e40 ; SUBPROGRAM 0e40 ; -------------------------------------------------------------------------------------- 0e40 0e71 | q | .CONST 0x0e71 ; Address of begin 0e41 0ed9 | | .CONST 0x0ed9 ; Address of exception handler 0e42 000b | | .CONST 0x000b ; Number of locals 0e43 INIT_0e40: 0e43 00db | | Load_Top At_Offset_3 0e44 e013 | | Load 0x0,0x13 0e45 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0e46 e016 | | Load 0x0,0x16 0e47 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0e48 4802 |H | Short_Literal 0x2 0e49 00d9 | | Load_Top At_Offset_1 0e4a 01d7 | | Execute Vector,Field_Read 0e4b 0007 | | Action Break_Optional 0e4c 4800 |H | Short_Literal 0x0 0e4d e22c | , | Load 0x1,0x2c 0e4e 4800 |H | Short_Literal 0x0 0e4f e5fe | | Load 0x2,-0x2 0e50 e5ff | | Load 0x2,-0x1 0e51 8236 | 6 | Call 0x1,0x36 0e52 00d8 | | Load_Top At_Offset_0 0e53 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0e54 01da | | Execute Vector,Bounds 0e55 e005 | | Load 0x0,0x5 0e56 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0e57 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0e58 035b | [ | Declare_Type Array,Constrained 0e59 0337 | 7 | Declare_Variable Array 0e5a 00e3 | | Load_Encached Natural_Cache 0e5b 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0e5c e22a | * | Load 0x1,0x2a 0e5d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0e5e e005 | | Load 0x0,0x5 0e5f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0e60 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0e61 4800 |H | Short_Literal 0x0 0e62 e005 | | Load 0x0,0x5 0e63 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0e64 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0e65 1c08 | | Execute_Immediate Run_Utility,0x8 0e66 e005 | | Load 0x0,0x5 0e67 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0e68 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0e69 00d9 | | Load_Top At_Offset_1 0e6a 016d | m | Execute Variant_Record,Structure_Write 0e6b e005 | | Load 0x0,0x5 0e6c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0e6d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0e6e e005 | | Load 0x0,0x5 0e6f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0e70 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0e71 BODY_0e40: 0e71 e404 | | Load 0x2,0x4 0e72 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0e73 6803 |h | Jump_Zero 0xe77 0e74 00da | | Load_Top At_Offset_2 0e75 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0e76 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0e77 e22a | * | Load 0x1,0x2a 0e78 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0e79 e011 | | Load 0x0,0x11 0e7a 180d | | Execute Package,Field_Execute,Field_Number 0xd 0e7b e22a | * | Load 0x1,0x2a 0e7c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0e7d c407 | | Store 0x2,0x7 0e7e 00cf | | Action Mark_Auxiliary 0e7f e404 | | Load 0x2,0x4 0e80 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0e81 01d9 | | Execute Vector,Reverse_Bounds 0e82 0263 | c | Execute Discrete,Above_Bound 0e83 7047 |pG | Jump_Nonzero 0xecb 0e84 00d8 | | Load_Top At_Offset_0 0e85 e404 | | Load 0x2,0x4 0e86 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0e87 01d7 | | Execute Vector,Field_Read 0e88 a408 | | Store_Unchecked 0x2,0x8 0e89 e408 | | Load 0x2,0x8 0e8a e005 | | Load 0x0,0x5 0e8b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0e8c 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 0e8d a40b | | Store_Unchecked 0x2,0xb 0e8e 00cf | | Action Mark_Auxiliary 0e8f 7814 |x | Jump 0xea4 0e90 e40b | | Load 0x2,0xb 0e91 e005 | | Load 0x0,0x5 0e92 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0e93 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0e94 a40a | | Store_Unchecked 0x2,0xa 0e95 e40a | | Load 0x2,0xa 0e96 e005 | | Load 0x0,0x5 0e97 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0e98 180f | | Execute Package,Field_Execute,Field_Number 0xf 0e99 7001 |p | Jump_Nonzero 0xe9b 0e9a 780e |x | Jump 0xea9 0e9b e403 | | Load 0x2,0x3 0e9c 680c |h | Jump_Zero 0xea9 0e9d e40b | | Load 0x2,0xb 0e9e e005 | | Load 0x0,0x5 0e9f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0ea0 1849 | I | Execute Package,Field_Execute,Field_Number 0x49 0ea1 a40b | | Store_Unchecked 0x2,0xb 0ea2 7800 |x | Jump 0xea3 0ea3 00c9 | | Action Pop_Auxiliary_Loop 0ea4 e40b | | Load 0x2,0xb 0ea5 e005 | | Load 0x0,0x5 0ea6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0ea7 180f | | Execute Package,Field_Execute,Field_Number 0xf 0ea8 6fe7 |o | Jump_Zero 0xe90 0ea9 00ce | | Action Pop_Auxiliary 0eaa e40a | | Load 0x2,0xa 0eab e005 | | Load 0x0,0x5 0eac 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0ead 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 0eae 6813 |h | Jump_Zero 0xec2 0eaf e40a | | Load 0x2,0xa 0eb0 4801 |H | Short_Literal 0x1 0eb1 e407 | | Load 0x2,0x7 0eb2 8232 | 2 | Call 0x1,0x32 0eb3 7015 |p | Jump_Nonzero 0xec9 0eb4 4800 |H | Short_Literal 0x0 0eb5 4801 |H | Short_Literal 0x1 0eb6 e40a | | Load 0x2,0xa 0eb7 e407 | | Load 0x2,0x7 0eb8 e22a | * | Load 0x1,0x2a 0eb9 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0eba e40a | | Load 0x2,0xa 0ebb e406 | | Load 0x2,0x6 0ebc e405 | | Load 0x2,0x5 0ebd 01d6 | | Execute Vector,Field_Write 0ebe e406 | | Load 0x2,0x6 0ebf 0a01 | | Execute_Immediate Plus,0x1 0ec0 c406 | | Store 0x2,0x6 0ec1 7807 |x | Jump 0xec9 0ec2 e408 | | Load 0x2,0x8 0ec3 e406 | | Load 0x2,0x6 0ec4 e405 | | Load 0x2,0x5 0ec5 01d6 | | Execute Vector,Field_Write 0ec6 e406 | | Load 0x2,0x6 0ec7 0a01 | | Execute_Immediate Plus,0x1 0ec8 c406 | | Store 0x2,0x6 0ec9 00c8 | | Action Pop_Auxiliary_Range 0eca 3fb9 |? | Loop_Increasing 0xe84 0ecb 00ce | | Action Pop_Auxiliary 0ecc e407 | | Load 0x2,0x7 0ecd e22a | * | Load 0x1,0x2a 0ece 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0ecf 4801 |H | Short_Literal 0x1 0ed0 e406 | | Load 0x2,0x6 0ed1 0aff | | Execute_Immediate Plus,-0x1 0ed2 e405 | | Load 0x2,0x5 0ed3 01cf | | Execute Vector,Slice_Read 0ed4 e005 | | Load 0x0,0x5 0ed5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0ed6 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0ed7 01c6 | | Execute Vector,Convert_To_Formal 0ed8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0ed9 TRAP_0e40: 0ed9 0007 | | Action Break_Optional 0eda e407 | | Load 0x2,0x7 0edb e22a | * | Load 0x1,0x2a 0edc 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0edd 4801 |H | Short_Literal 0x1 0ede 4802 |H | Short_Literal 0x2 0edf e012 | | Load 0x0,0x12 0ee0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ee1 0334 | 4 | Declare_Variable Array,With_Constraint 0ee2 e5fe | | Load 0x2,-0x2 0ee3 e013 | | Load 0x0,0x13 0ee4 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0ee5 4801 |H | Short_Literal 0x1 0ee6 00da | | Load_Top At_Offset_2 0ee7 01d6 | | Execute Vector,Field_Write 0ee8 e5ff | | Load 0x2,-0x1 0ee9 e005 | | Load 0x0,0x5 0eea 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0eeb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0eec 4802 |H | Short_Literal 0x2 0eed 00da | | Load_Top At_Offset_2 0eee 01d6 | | Execute Vector,Field_Write 0eef 6008 |` | Indirect_Literal Discrete,0xef8,{0x00000000, 0x0000380f} 0ef0 e014 | | Load 0x0,0x14 0ef1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0ef2 e409 | | Load 0x2,0x9 0ef3 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0ef4 00db | | Load_Top At_Offset_3 0ef5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0ef6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0ef7 0000 | | .XXX[0x1] 0ef8 0000 0000 | | .LITERAL {0x00000000, 0x0000380f} 0efc 0000 0000 | | .BLANK 0000[0x4] 0f00 ; -------------------------------------------------------------------------------------- 0f00 ; SUBPROGRAM 0f00 ; -------------------------------------------------------------------------------------- 0f00 0f23 | # | .CONST 0x0f23 ; Address of begin 0f01 0004 | | .CONST 0x0004 ; Address of exception handler 0f02 0009 | | .CONST 0x0009 ; Number of locals 0f03 INIT_0f00: 0f03 00db | | Load_Top At_Offset_3 0f04 e013 | | Load 0x0,0x13 0f05 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0f06 e016 | | Load 0x0,0x16 0f07 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0f08 4802 |H | Short_Literal 0x2 0f09 00d9 | | Load_Top At_Offset_1 0f0a 01d7 | | Execute Vector,Field_Read 0f0b 0007 | | Action Break_Optional 0f0c e22a | * | Load 0x1,0x2a 0f0d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0f0e e014 | | Load 0x0,0x14 0f0f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f10 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0f11 4800 |H | Short_Literal 0x0 0f12 e005 | | Load 0x0,0x5 0f13 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0f14 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0f15 1c08 | | Execute_Immediate Run_Utility,0x8 0f16 e005 | | Load 0x0,0x5 0f17 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0f18 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0f19 00d9 | | Load_Top At_Offset_1 0f1a 016d | m | Execute Variant_Record,Structure_Write 0f1b e005 | | Load 0x0,0x5 0f1c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0f1d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f1e e005 | | Load 0x0,0x5 0f1f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0f20 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f21 029f 16db | | Declare_Subprogram INIT_16d8,For_Call 0f23 BODY_0f00: 0f23 e5ff | | Load 0x2,-0x1 0f24 e005 | | Load 0x0,0x5 0f25 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0f26 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 0f27 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0f28 00cf | | Action Mark_Auxiliary 0f29 7814 |x | Jump 0xf3e 0f2a 00da | | Load_Top At_Offset_2 0f2b e005 | | Load 0x0,0x5 0f2c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0f2d 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0f2e a407 | | Store_Unchecked 0x2,0x7 0f2f 00db | | Load_Top At_Offset_3 0f30 e005 | | Load 0x0,0x5 0f31 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0f32 180f | | Execute Package,Field_Execute,Field_Number 0xf 0f33 7001 |p | Jump_Nonzero 0xf35 0f34 780e |x | Jump 0xf43 0f35 e403 | | Load 0x2,0x3 0f36 680c |h | Jump_Zero 0xf43 0f37 00da | | Load_Top At_Offset_2 0f38 e005 | | Load 0x0,0x5 0f39 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0f3a 1849 | I | Execute Package,Field_Execute,Field_Number 0x49 0f3b 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0f3c 7800 |x | Jump 0xf3d 0f3d 00c9 | | Action Pop_Auxiliary_Loop 0f3e 00da | | Load_Top At_Offset_2 0f3f e005 | | Load 0x0,0x5 0f40 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0f41 180f | | Execute Package,Field_Execute,Field_Number 0xf 0f42 6fe7 |o | Jump_Zero 0xf2a 0f43 00ce | | Action Pop_Auxiliary 0f44 00da | | Load_Top At_Offset_2 0f45 e005 | | Load 0x0,0x5 0f46 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0f47 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 0f48 6809 |h | Jump_Zero 0xf52 0f49 00da | | Load_Top At_Offset_2 0f4a e5ff | | Load 0x2,-0x1 0f4b 021e | | Execute Heap_Access,Maximum 0f4c 6803 |h | Jump_Zero 0xf50 0f4d 00db | | Load_Top At_Offset_3 0f4e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0f4f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0f50 8409 | | Call 0x2,0x9 0f51 7808 |x | Jump 0xf5a 0f52 4800 |H | Short_Literal 0x0 0f53 e22c | , | Load 0x1,0x2c 0f54 e5fe | | Load 0x2,-0x2 0f55 4800 |H | Short_Literal 0x0 0f56 e5ff | | Load 0x2,-0x1 0f57 823a | : | Call 0x1,0x3a 0f58 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0f59 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0f5a 0831 | 1 | Execute_Immediate Raise,0x31 0f5b 0000 0000 | | .BLANK 0000[0x5] 0f60 ; -------------------------------------------------------------------------------------- 0f60 ; SUBPROGRAM 0f60 ; -------------------------------------------------------------------------------------- 0f60 0f63 | c | .CONST 0x0f63 ; Address of begin 0f61 0004 | | .CONST 0x0004 ; Address of exception handler 0f62 0001 | | .CONST 0x0001 ; Number of locals 0f63 BODY_0f60: 0f63 INIT_0f60: 0f63 e5fd | | Load 0x2,-0x3 0f64 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0f65 6802 |h | Jump_Zero 0xf68 0f66 00da | | Load_Top At_Offset_2 0f67 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0f68 00db | | Load_Top At_Offset_3 0f69 00db | | Load_Top At_Offset_3 0f6a 01db | | Execute Vector,Length 0f6b e005 | | Load 0x0,0x5 0f6c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0f6d 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0f6e 1c08 | | Execute_Immediate Run_Utility,0x8 0f6f e5ff | | Load 0x2,-0x1 0f70 00d9 | | Load_Top At_Offset_1 0f71 00d8 | | Load_Top At_Offset_0 0f72 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0f73 00da | | Load_Top At_Offset_2 0f74 01da | | Execute Vector,Bounds 0f75 00da | | Load_Top At_Offset_2 0f76 01da | | Execute Vector,Bounds 0f77 00da | | Load_Top At_Offset_2 0f78 027f | | Execute Discrete,Equal 0f79 7001 |p | Jump_Nonzero 0xf7b 0f7a 08e0 | | Execute_Immediate Raise,0xe0 0f7b 00cd | | Action Spare6_Action 0f7c 027f | | Execute Discrete,Equal 0f7d 7001 |p | Jump_Nonzero 0xf7f 0f7e 08e0 | | Execute_Immediate Raise,0xe0 0f7f 00d2 | | Pop_Control Pop_Count_2 0f80 00d9 | | Load_Top At_Offset_1 0f81 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0f82 4800 |H | Short_Literal 0x0 0f83 00d9 | | Load_Top At_Offset_1 0f84 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0f85 8213 | | Call 0x1,0x13 0f86 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0f87 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0f88 ; -------------------------------------------------------------------------------------- 0f88 ; SUBPROGRAM 0f88 ; -------------------------------------------------------------------------------------- 0f88 0fc8 | | .CONST 0x0fc8 ; Address of begin 0f89 0004 | | .CONST 0x0004 ; Address of exception handler 0f8a 0013 | | .CONST 0x0013 ; Number of locals 0f8b INIT_0f88: 0f8b e5fd | | Load 0x2,-0x3 0f8c e5fe | | Load 0x2,-0x2 0f8d e5ff | | Load 0x2,-0x1 0f8e 8269 | i | Call 0x1,0x69 0f8f e5fe | | Load 0x2,-0x2 0f90 00d9 | | Load_Top At_Offset_1 0f91 e25e | ^ | Load 0x1,0x5e 0f92 e25f | _ | Load 0x1,0x5f 0f93 1d60 | ` | Execute_Immediate Reference_Lex_1,0x60 0f94 1d61 | a | Execute_Immediate Reference_Lex_1,0x61 0f95 1d62 | b | Execute_Immediate Reference_Lex_1,0x62 0f96 1d63 | c | Execute_Immediate Reference_Lex_1,0x63 0f97 1d64 | d | Execute_Immediate Reference_Lex_1,0x64 0f98 1d65 | e | Execute_Immediate Reference_Lex_1,0x65 0f99 1d66 | f | Execute_Immediate Reference_Lex_1,0x66 0f9a 800c | | Call 0x0,0xc 0f9b e5fe | | Load 0x2,-0x2 0f9c 00d9 | | Load_Top At_Offset_1 0f9d 824c | L | Call 0x1,0x4c 0f9e e5fe | | Load 0x2,-0x2 0f9f e013 | | Load 0x0,0x13 0fa0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0fa1 e016 | | Load 0x0,0x16 0fa2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0fa3 4801 |H | Short_Literal 0x1 0fa4 00d9 | | Load_Top At_Offset_1 0fa5 01d7 | | Execute Vector,Field_Read 0fa6 0007 | | Action Break_Optional 0fa7 4802 |H | Short_Literal 0x2 0fa8 00da | | Load_Top At_Offset_2 0fa9 01d7 | | Execute Vector,Field_Read 0faa 0007 | | Action Break_Optional 0fab e005 | | Load 0x0,0x5 0fac 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0fad 180e | | Execute Package,Field_Execute,Field_Number 0xe 0fae e005 | | Load 0x0,0x5 0faf 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0fb0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0fb1 e015 | | Load 0x0,0x15 0fb2 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0fb3 e005 | | Load 0x0,0x5 0fb4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0fb5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0fb6 00e1 | | Load_Encached Boolean_Cache 0fb7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0fb8 e016 | | Load 0x0,0x16 0fb9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0fba e015 | | Load 0x0,0x15 0fbb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0fbc e005 | | Load 0x0,0x5 0fbd 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0fbe 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0fbf e005 | | Load 0x0,0x5 0fc0 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0fc1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0fc2 029f 1713 | | Declare_Subprogram INIT_1710,For_Call 0fc4 029f 173b | ;| Declare_Subprogram INIT_1738,For_Call 0fc6 029f 1763 | c| Declare_Subprogram INIT_1760,For_Call 0fc8 BODY_0f88: 0fc8 e404 | | Load 0x2,0x4 0fc9 01db | | Execute Vector,Length 0fca 7001 |p | Jump_Nonzero 0xfcc 0fcb 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0fcc 00cf | | Action Mark_Auxiliary 0fcd e404 | | Load 0x2,0x4 0fce 01d9 | | Execute Vector,Reverse_Bounds 0fcf 0263 | c | Execute Discrete,Above_Bound 0fd0 7077 |pw | Jump_Nonzero 0x1048 0fd1 00d8 | | Load_Top At_Offset_0 0fd2 e404 | | Load 0x2,0x4 0fd3 01d7 | | Execute Vector,Field_Read 0fd4 a410 | | Store_Unchecked 0x2,0x10 0fd5 e410 | | Load 0x2,0x10 0fd6 e005 | | Load 0x0,0x5 0fd7 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0fd8 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0fd9 a409 | | Store_Unchecked 0x2,0x9 0fda e408 | | Load 0x2,0x8 0fdb e005 | | Load 0x0,0x5 0fdc 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0fdd 180e | | Execute Package,Field_Execute,Field_Number 0xe 0fde 021f | | Execute Heap_Access,Equal 0fdf 700a |p | Jump_Nonzero 0xfea 0fe0 e408 | | Load 0x2,0x8 0fe1 e005 | | Load 0x0,0x5 0fe2 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0fe3 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0fe4 e409 | | Load 0x2,0x9 0fe5 e005 | | Load 0x0,0x5 0fe6 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0fe7 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0fe8 01de | | Execute Vector,Not_Equal 0fe9 6801 |h | Jump_Zero 0xfeb 0fea 8412 | | Call 0x2,0x12 0feb e40d | | Load 0x2,0xd 0fec e410 | | Load 0x2,0x10 0fed e005 | | Load 0x0,0x5 0fee 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0fef 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0ff0 a40e | | Store_Unchecked 0x2,0xe 0ff1 e40e | | Load 0x2,0xe 0ff2 e015 | | Load 0x0,0x15 0ff3 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0ff4 684a |hJ | Jump_Zero 0x103f 0ff5 e410 | | Load 0x2,0x10 0ff6 a40b | | Store_Unchecked 0x2,0xb 0ff7 00cf | | Action Mark_Auxiliary 0ff8 7813 |x | Jump 0x100c 0ff9 e40b | | Load 0x2,0xb 0ffa e005 | | Load 0x0,0x5 0ffb 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0ffc 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0ffd a40f | | Store_Unchecked 0x2,0xf 0ffe e40f | | Load 0x2,0xf 0fff e005 | | Load 0x0,0x5 1000 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1001 180f | | Execute Package,Field_Execute,Field_Number 0xf 1002 7001 |p | Jump_Nonzero 0x1004 1003 780d |x | Jump 0x1011 1004 4801 |H | Short_Literal 0x1 1005 a40c | | Store_Unchecked 0x2,0xc 1006 e40b | | Load 0x2,0xb 1007 e005 | | Load 0x0,0x5 1008 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1009 1849 | I | Execute Package,Field_Execute,Field_Number 0x49 100a a40b | | Store_Unchecked 0x2,0xb 100b 00c9 | | Action Pop_Auxiliary_Loop 100c e40b | | Load 0x2,0xb 100d e005 | | Load 0x0,0x5 100e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 100f 180f | | Execute Package,Field_Execute,Field_Number 0xf 1010 6fe8 |o | Jump_Zero 0xff9 1011 00ce | | Action Pop_Auxiliary 1012 e40f | | Load 0x2,0xf 1013 e005 | | Load 0x0,0x5 1014 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1015 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 1016 680e |h | Jump_Zero 0x1025 1017 e406 | | Load 0x2,0x6 1018 6807 |h | Jump_Zero 0x1020 1019 e410 | | Load 0x2,0x10 101a e40f | | Load 0x2,0xf 101b e005 | | Load 0x0,0x5 101c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 101d 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 101e 021f | | Execute Heap_Access,Equal 101f 7026 |p& | Jump_Nonzero 0x1046 1020 e407 | | Load 0x2,0x7 1021 6803 |h | Jump_Zero 0x1025 1022 e40c | | Load 0x2,0xc 1023 6801 |h | Jump_Zero 0x1025 1024 7821 |x! | Jump 0x1046 1025 e40e | | Load 0x2,0xe 1026 e015 | | Load 0x0,0x15 1027 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 1028 6814 |h | Jump_Zero 0x103d 1029 e40d | | Load 0x2,0xd 102a e002 | | Load 0x0,0x2 102b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 102c 4801 |H | Short_Literal 0x1 102d 4801 |H | Short_Literal 0x1 102e e012 | | Load 0x0,0x12 102f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1030 0334 | 4 | Declare_Variable Array,With_Constraint 1031 e410 | | Load 0x2,0x10 1032 e005 | | Load 0x0,0x5 1033 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1034 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1035 4801 |H | Short_Literal 0x1 1036 00da | | Load_Top At_Offset_2 1037 01d6 | | Execute Vector,Field_Write 1038 480f |H | Short_Literal 0xf 1039 e40a | | Load 0x2,0xa 103a e015 | | Load 0x0,0x15 103b 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 103c 7809 |x | Jump 0x1046 103d 8413 | | Call 0x2,0x13 103e 7807 |x | Jump 0x1046 103f e40e | | Load 0x2,0xe 1040 e015 | | Load 0x0,0x15 1041 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 1042 e5fc | | Load 0x2,-0x4 1043 e015 | | Load 0x0,0x15 1044 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 1045 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1046 00c8 | | Action Pop_Auxiliary_Range 1047 3f89 |? | Loop_Increasing 0xfd1 1048 00ce | | Action Pop_Auxiliary 1049 8411 | | Call 0x2,0x11 104a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 104b 0000 0000 | | .BLANK 0000[0x5] 1050 ; -------------------------------------------------------------------------------------- 1050 ; SUBPROGRAM 1050 ; -------------------------------------------------------------------------------------- 1050 1078 | x | .CONST 0x1078 ; Address of begin 1051 0004 | | .CONST 0x0004 ; Address of exception handler 1052 000c | | .CONST 0x000c ; Number of locals 1053 INIT_1050: 1053 e5fd | | Load 0x2,-0x3 1054 e5fe | | Load 0x2,-0x2 1055 e5ff | | Load 0x2,-0x1 1056 8269 | i | Call 0x1,0x69 1057 e5fe | | Load 0x2,-0x2 1058 00d9 | | Load_Top At_Offset_1 1059 e251 | Q | Load 0x1,0x51 105a e252 | R | Load 0x1,0x52 105b 1d53 | S | Execute_Immediate Reference_Lex_1,0x53 105c 1d54 | T | Execute_Immediate Reference_Lex_1,0x54 105d 1d55 | U | Execute_Immediate Reference_Lex_1,0x55 105e 1d56 | V | Execute_Immediate Reference_Lex_1,0x56 105f 1d57 | W | Execute_Immediate Reference_Lex_1,0x57 1060 1d58 | X | Execute_Immediate Reference_Lex_1,0x58 1061 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59 1062 800c | | Call 0x0,0xc 1063 e5fe | | Load 0x2,-0x2 1064 00d9 | | Load_Top At_Offset_1 1065 824c | L | Call 0x1,0x4c 1066 e005 | | Load 0x0,0x5 1067 1b16 | | Execute Package,Field_Read,Field_Number 0x16 1068 180e | | Execute Package,Field_Execute,Field_Number 0xe 1069 e005 | | Load 0x0,0x5 106a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 106b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 106c e015 | | Load 0x0,0x15 106d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 106e e016 | | Load 0x0,0x16 106f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1070 e015 | | Load 0x0,0x15 1071 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1072 029f 177b | {| Declare_Subprogram INIT_1778,For_Call 1074 029f 17a3 | | Declare_Subprogram INIT_17a0,For_Call 1076 029f 17cb | | Declare_Subprogram INIT_17c8,For_Call 1078 BODY_1050: 1078 e404 | | Load 0x2,0x4 1079 01db | | Execute Vector,Length 107a 7001 |p | Jump_Nonzero 0x107c 107b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 107c 00cf | | Action Mark_Auxiliary 107d e404 | | Load 0x2,0x4 107e 01d9 | | Execute Vector,Reverse_Bounds 107f 0263 | c | Execute Discrete,Above_Bound 1080 7049 |pI | Jump_Nonzero 0x10ca 1081 00d8 | | Load_Top At_Offset_0 1082 e404 | | Load 0x2,0x4 1083 01d7 | | Execute Vector,Field_Read 1084 e005 | | Load 0x0,0x5 1085 1b16 | | Execute Package,Field_Read,Field_Number 0x16 1086 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 1087 a406 | | Store_Unchecked 0x2,0x6 1088 e405 | | Load 0x2,0x5 1089 e005 | | Load 0x0,0x5 108a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 108b 180e | | Execute Package,Field_Execute,Field_Number 0xe 108c 021f | | Execute Heap_Access,Equal 108d 700a |p | Jump_Nonzero 0x1098 108e e405 | | Load 0x2,0x5 108f e005 | | Load 0x0,0x5 1090 1b16 | | Execute Package,Field_Read,Field_Number 0x16 1091 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 1092 e406 | | Load 0x2,0x6 1093 e005 | | Load 0x0,0x5 1094 1b16 | | Execute Package,Field_Read,Field_Number 0x16 1095 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 1096 01de | | Execute Vector,Not_Equal 1097 6801 |h | Jump_Zero 0x1099 1098 840b | | Call 0x2,0xb 1099 e408 | | Load 0x2,0x8 109a 00d9 | | Load_Top At_Offset_1 109b e404 | | Load 0x2,0x4 109c 01d7 | | Execute Vector,Field_Read 109d e005 | | Load 0x0,0x5 109e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 109f 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 10a0 a409 | | Store_Unchecked 0x2,0x9 10a1 e409 | | Load 0x2,0x9 10a2 e015 | | Load 0x0,0x15 10a3 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 10a4 681c |h | Jump_Zero 0x10c1 10a5 e409 | | Load 0x2,0x9 10a6 e015 | | Load 0x0,0x15 10a7 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 10a8 6816 |h | Jump_Zero 0x10bf 10a9 e408 | | Load 0x2,0x8 10aa e002 | | Load 0x0,0x2 10ab 1812 | | Execute Package,Field_Execute,Field_Number 0x12 10ac 4801 |H | Short_Literal 0x1 10ad 4801 |H | Short_Literal 0x1 10ae e012 | | Load 0x0,0x12 10af 1b0f | | Execute Package,Field_Read,Field_Number 0xf 10b0 0334 | 4 | Declare_Variable Array,With_Constraint 10b1 00db | | Load_Top At_Offset_3 10b2 e404 | | Load 0x2,0x4 10b3 01d7 | | Execute Vector,Field_Read 10b4 e005 | | Load 0x0,0x5 10b5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 10b6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 10b7 4801 |H | Short_Literal 0x1 10b8 00da | | Load_Top At_Offset_2 10b9 01d6 | | Execute Vector,Field_Write 10ba 480f |H | Short_Literal 0xf 10bb e407 | | Load 0x2,0x7 10bc e015 | | Load 0x0,0x15 10bd 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 10be 7809 |x | Jump 0x10c8 10bf 840c | | Call 0x2,0xc 10c0 7807 |x | Jump 0x10c8 10c1 e409 | | Load 0x2,0x9 10c2 e015 | | Load 0x0,0x15 10c3 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 10c4 e5fc | | Load 0x2,-0x4 10c5 e015 | | Load 0x0,0x15 10c6 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 10c7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 10c8 00c8 | | Action Pop_Auxiliary_Range 10c9 3fb7 |? | Loop_Increasing 0x1081 10ca 00ce | | Action Pop_Auxiliary 10cb 840a | | Call 0x2,0xa 10cc 4504 |E | Exit_Suprogram New_Top_Offset 0x4 10cd 0000 0000 | | .XXX[0x3] 10cf 0000 | | 10d0 ; -------------------------------------------------------------------------------------- 10d0 ; SUBPROGRAM 10d0 ; -------------------------------------------------------------------------------------- 10d0 10e7 | | .CONST 0x10e7 ; Address of begin 10d1 0004 | | .CONST 0x0004 ; Address of exception handler 10d2 0008 | | .CONST 0x0008 ; Number of locals 10d3 INIT_10d0: 10d3 4801 |H | Short_Literal 0x1 10d4 e5fe | | Load 0x2,-0x2 10d5 e005 | | Load 0x0,0x5 10d6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 10d7 1b13 | | Execute Package,Field_Read,Field_Number 0x13 10d8 035b | [ | Declare_Type Array,Constrained 10d9 0337 | 7 | Declare_Variable Array 10da 00e3 | | Load_Encached Natural_Cache 10db 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 10dc e5ff | | Load 0x2,-0x1 10dd e015 | | Load 0x0,0x15 10de 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 10df e015 | | Load 0x0,0x15 10e0 1b10 | | Execute Package,Field_Read,Field_Number 0x10 10e1 e012 | | Load 0x0,0x12 10e2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 10e3 029f 17e3 | | Declare_Subprogram INIT_17e0,For_Call 10e5 029f 1813 | | Declare_Subprogram INIT_1810,For_Call 10e7 BODY_10d0: 10e7 00cf | | Action Mark_Auxiliary 10e8 e404 | | Load 0x2,0x4 10e9 01d9 | | Execute Vector,Reverse_Bounds 10ea 0263 | c | Execute Discrete,Above_Bound 10eb 703f |p? | Jump_Nonzero 0x112b 10ec 00d8 | | Load_Top At_Offset_0 10ed e404 | | Load 0x2,0x4 10ee 01d7 | | Execute Vector,Field_Read 10ef e015 | | Load 0x0,0x15 10f0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 10f1 e5fd | | Load 0x2,-0x3 10f2 027f | | Execute Discrete,Equal 10f3 6835 |h5 | Jump_Zero 0x1129 10f4 4801 |H | Short_Literal 0x1 10f5 00d9 | | Load_Top At_Offset_1 10f6 e404 | | Load 0x2,0x4 10f7 01d7 | | Execute Vector,Field_Read 10f8 e015 | | Load 0x0,0x15 10f9 1818 | | Execute Package,Field_Execute,Field_Number 0x18 10fa a406 | | Store_Unchecked 0x2,0x6 10fb 00d8 | | Load_Top At_Offset_0 10fc e404 | | Load 0x2,0x4 10fd 01d7 | | Execute Vector,Field_Read 10fe e015 | | Load 0x0,0x15 10ff 1816 | | Execute Package,Field_Execute,Field_Number 0x16 1100 4612 |F | Jump_Case 0x13 1101 7827 |x' | Jump 0x1129 ; case 0x0 1102 7826 |x& | Jump 0x1129 ; case 0x1 1103 7820 |x | Jump 0x1124 ; case 0x2 1104 780f |x | Jump 0x1114 ; case 0x3 1105 7823 |x# | Jump 0x1129 ; case 0x4 1106 7822 |x" | Jump 0x1129 ; case 0x5 1107 7821 |x! | Jump 0x1129 ; case 0x6 1108 7820 |x | Jump 0x1129 ; case 0x7 1109 781f |x | Jump 0x1129 ; case 0x8 110a 781e |x | Jump 0x1129 ; case 0x9 110b 780a |x | Jump 0x1116 ; case 0xa 110c 781c |x | Jump 0x1129 ; case 0xb 110d 7808 |x | Jump 0x1116 ; case 0xc 110e 781a |x | Jump 0x1129 ; case 0xd 110f 7819 |x | Jump 0x1129 ; case 0xe 1110 7805 |x | Jump 0x1116 ; case 0xf 1111 7817 |x | Jump 0x1129 ; case 0x10 1112 7816 |x | Jump 0x1129 ; case 0x11 1113 7815 |x | Jump 0x1129 ; case 0x12 1114 8407 | | Call 0x2,0x7 1115 7813 |x | Jump 0x1129 1116 e406 | | Load 0x2,0x6 1117 e005 | | Load 0x0,0x5 1118 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1119 1811 | | Execute Package,Field_Execute,Field_Number 0x11 111a e005 | | Load 0x0,0x5 111b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 111c 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 111d e403 | | Load 0x2,0x3 111e e402 | | Load 0x2,0x2 111f 01d6 | | Execute Vector,Field_Write 1120 e403 | | Load 0x2,0x3 1121 0a01 | | Execute_Immediate Plus,0x1 1122 c403 | | Store 0x2,0x3 1123 7805 |x | Jump 0x1129 1124 e406 | | Load 0x2,0x6 1125 e012 | | Load 0x0,0x12 1126 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 1127 7001 |p | Jump_Nonzero 0x1129 1128 8408 | | Call 0x2,0x8 1129 00c8 | | Action Pop_Auxiliary_Range 112a 3fc1 |? | Loop_Increasing 0x10ec 112b 00ce | | Action Pop_Auxiliary 112c 4801 |H | Short_Literal 0x1 112d e403 | | Load 0x2,0x3 112e 0aff | | Execute_Immediate Plus,-0x1 112f e402 | | Load 0x2,0x2 1130 01cf | | Execute Vector,Slice_Read 1131 e005 | | Load 0x0,0x5 1132 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1133 1b13 | | Execute Package,Field_Read,Field_Number 0x13 1134 01c6 | | Execute Vector,Convert_To_Formal 1135 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 1136 0000 0000 | | .XXX[0x2] 1138 ; -------------------------------------------------------------------------------------- 1138 ; SUBPROGRAM 1138 ; -------------------------------------------------------------------------------------- 1138 114d | M | .CONST 0x114d ; Address of begin 1139 0004 | | .CONST 0x0004 ; Address of exception handler 113a 0007 | | .CONST 0x0007 ; Number of locals 113b INIT_1138: 113b e015 | | Load 0x0,0x15 113c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 113d e015 | | Load 0x0,0x15 113e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 113f e5fe | | Load 0x2,-0x2 1140 e013 | | Load 0x0,0x13 1141 1817 | | Execute Package,Field_Execute,Field_Number 0x17 1142 e016 | | Load 0x0,0x16 1143 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1144 4801 |H | Short_Literal 0x1 1145 00d9 | | Load_Top At_Offset_1 1146 01d7 | | Execute Vector,Field_Read 1147 0007 | | Action Break_Optional 1148 4802 |H | Short_Literal 0x2 1149 00da | | Load_Top At_Offset_2 114a 01d7 | | Execute Vector,Field_Read 114b 029f 1833 | 3| Declare_Subprogram INIT_1830,For_Call 114d BODY_1138: 114d 00cf | | Action Mark_Auxiliary 114e e016 | | Load 0x0,0x16 114f 1819 | | Execute Package,Field_Execute,Field_Number 0x19 1150 01d9 | | Execute Vector,Reverse_Bounds 1151 0263 | c | Execute Discrete,Above_Bound 1152 7003 |p | Jump_Nonzero 0x1156 1153 8407 | | Call 0x2,0x7 1154 00c8 | | Action Pop_Auxiliary_Range 1155 3ffd |? | Loop_Increasing 0x1153 1156 00ce | | Action Pop_Auxiliary 1157 e403 | | Load 0x2,0x3 1158 a5fc | | Store_Unchecked 0x2,-0x4 1159 4504 |E | Exit_Suprogram New_Top_Offset 0x4 115a 0000 0000 | | .BLANK 0000[0x6] 1160 ; -------------------------------------------------------------------------------------- 1160 ; SUBPROGRAM 1160 ; -------------------------------------------------------------------------------------- 1160 116c | l | .CONST 0x116c ; Address of begin 1161 0004 | | .CONST 0x0004 ; Address of exception handler 1162 0002 | | .CONST 0x0002 ; Number of locals 1163 INIT_1160: 1163 e402 | | Load 0x2,0x2 1164 e5fe | | Load 0x2,-0x2 1165 4801 |H | Short_Literal 0x1 1166 e402 | | Load 0x2,0x2 1167 4800 |H | Short_Literal 0x0 1168 e5fe | | Load 0x2,-0x2 1169 e5ff | | Load 0x2,-0x1 116a 8236 | 6 | Call 0x1,0x36 116b 8238 | 8 | Call 0x1,0x38 116c BODY_1160: 116c e402 | | Load 0x2,0x2 116d e22a | * | Load 0x1,0x2a 116e 181d | | Execute Package,Field_Execute,Field_Number 0x1d 116f e5ff | | Load 0x2,-0x1 1170 00d9 | | Load_Top At_Offset_1 1171 822f | / | Call 0x1,0x2f 1172 00cb | | Action Pop_Block_With_Result 1173 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1174 0000 0000 | | .BLANK 0000[0x4] 1178 ; -------------------------------------------------------------------------------------- 1178 ; SUBPROGRAM 1178 ; -------------------------------------------------------------------------------------- 1178 117f | | .CONST 0x117f ; Address of begin 1179 0004 | | .CONST 0x0004 ; Address of exception handler 117a 0002 | | .CONST 0x0002 ; Number of locals 117b INIT_1178: 117b e402 | | Load 0x2,0x2 117c e5fe | | Load 0x2,-0x2 117d e5ff | | Load 0x2,-0x1 117e 8238 | 8 | Call 0x1,0x38 117f BODY_1178: 117f e402 | | Load 0x2,0x2 1180 e22a | * | Load 0x1,0x2a 1181 181d | | Execute Package,Field_Execute,Field_Number 0x1d 1182 00d8 | | Load_Top At_Offset_0 1183 00cb | | Action Pop_Block_With_Result 1184 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1185 0000 0000 | | .XXX[0x3] 1187 0000 | | 1188 ; -------------------------------------------------------------------------------------- 1188 ; SUBPROGRAM 1188 ; -------------------------------------------------------------------------------------- 1188 1195 | | .CONST 0x1195 ; Address of begin 1189 0004 | | .CONST 0x0004 ; Address of exception handler 118a 0002 | | .CONST 0x0002 ; Number of locals 118b INIT_1188: 118b e402 | | Load 0x2,0x2 118c e5fe | | Load 0x2,-0x2 118d e5fd | | Load 0x2,-0x3 118e 4801 |H | Short_Literal 0x1 118f e402 | | Load 0x2,0x2 1190 e5fe | | Load 0x2,-0x2 1191 e5fd | | Load 0x2,-0x3 1192 e5ff | | Load 0x2,-0x1 1193 823a | : | Call 0x1,0x3a 1194 823d | = | Call 0x1,0x3d 1195 BODY_1188: 1195 e402 | | Load 0x2,0x2 1196 e22a | * | Load 0x1,0x2a 1197 181d | | Execute Package,Field_Execute,Field_Number 0x1d 1198 e5ff | | Load 0x2,-0x1 1199 00d9 | | Load_Top At_Offset_1 119a 822f | / | Call 0x1,0x2f 119b 00cb | | Action Pop_Block_With_Result 119c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 119d 0000 0000 | | .XXX[0x3] 119f 0000 | | 11a0 ; -------------------------------------------------------------------------------------- 11a0 ; SUBPROGRAM 11a0 ; -------------------------------------------------------------------------------------- 11a0 11a8 | | .CONST 0x11a8 ; Address of begin 11a1 0004 | | .CONST 0x0004 ; Address of exception handler 11a2 0002 | | .CONST 0x0002 ; Number of locals 11a3 INIT_11a0: 11a3 e402 | | Load 0x2,0x2 11a4 e5fe | | Load 0x2,-0x2 11a5 e5fd | | Load 0x2,-0x3 11a6 e5ff | | Load 0x2,-0x1 11a7 823d | = | Call 0x1,0x3d 11a8 BODY_11a0: 11a8 e402 | | Load 0x2,0x2 11a9 e22a | * | Load 0x1,0x2a 11aa 181d | | Execute Package,Field_Execute,Field_Number 0x1d 11ab 00d8 | | Load_Top At_Offset_0 11ac 00cb | | Action Pop_Block_With_Result 11ad 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 11ae 0000 0000 | | .XXX[0x2] 11b0 ; -------------------------------------------------------------------------------------- 11b0 ; SUBPROGRAM 11b0 ; -------------------------------------------------------------------------------------- 11b0 11bc | | .CONST 0x11bc ; Address of begin 11b1 0004 | | .CONST 0x0004 ; Address of exception handler 11b2 0002 | | .CONST 0x0002 ; Number of locals 11b3 INIT_11b0: 11b3 e404 | | Load 0x2,0x4 11b4 e402 | | Load 0x2,0x2 11b5 01d7 | | Execute Vector,Field_Read 11b6 e005 | | Load 0x0,0x5 11b7 1b16 | | Execute Package,Field_Read,Field_Number 0x16 11b8 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 11b9 e005 | | Load 0x0,0x5 11ba 1b16 | | Execute Package,Field_Read,Field_Number 0x16 11bb 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 11bc BODY_11b0: 11bc 00cf | | Action Mark_Auxiliary 11bd e405 | | Load 0x2,0x5 11be 0a01 | | Execute_Immediate Plus,0x1 11bf c405 | | Store 0x2,0x5 11c0 e405 | | Load 0x2,0x5 11c1 e402 | | Load 0x2,0x2 11c2 01dc | | Execute Vector,Last 11c3 027d | } | Execute Discrete,Greater 11c4 7010 |p | Jump_Nonzero 0x11d5 11c5 4800 |H | Short_Literal 0x0 11c6 e405 | | Load 0x2,0x5 11c7 e402 | | Load 0x2,0x2 11c8 01d7 | | Execute Vector,Field_Read 11c9 e005 | | Load 0x0,0x5 11ca 1b16 | | Execute Package,Field_Read,Field_Number 0x16 11cb 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 11cc e005 | | Load 0x0,0x5 11cd 1b16 | | Execute Package,Field_Read,Field_Number 0x16 11ce 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 11cf 00db | | Load_Top At_Offset_3 11d0 e017 | | Load 0x0,0x17 11d1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 11d2 6802 |h | Jump_Zero 0x11d5 11d3 00c9 | | Action Pop_Auxiliary_Loop 11d4 7fe8 | | Jump 0x11bd 11d5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 11d6 0000 0000 | | .XXX[0x2] 11d8 ; -------------------------------------------------------------------------------------- 11d8 ; SUBPROGRAM 11d8 ; -------------------------------------------------------------------------------------- 11d8 11eb | | .CONST 0x11eb ; Address of begin 11d9 0004 | | .CONST 0x0004 ; Address of exception handler 11da 0002 | | .CONST 0x0002 ; Number of locals 11db INIT_11d8: 11db 4801 |H | Short_Literal 0x1 11dc e405 | | Load 0x2,0x5 11dd e404 | | Load 0x2,0x4 11de 0272 | r | Execute Discrete,Minus 11df e005 | | Load 0x0,0x5 11e0 1b14 | | Execute Package,Field_Read,Field_Number 0x14 11e1 1b13 | | Execute Package,Field_Read,Field_Number 0x13 11e2 035b | [ | Declare_Type Array,Constrained 11e3 0337 | 7 | Declare_Variable Array 11e4 e404 | | Load 0x2,0x4 11e5 e405 | | Load 0x2,0x5 11e6 0aff | | Execute_Immediate Plus,-0x1 11e7 e402 | | Load 0x2,0x2 11e8 01cf | | Execute Vector,Slice_Read 11e9 00d9 | | Load_Top At_Offset_1 11ea 01d4 | | Execute Vector,Structure_Write 11eb BODY_11d8: 11eb e40a | | Load 0x2,0xa 11ec e410 | | Load 0x2,0x10 11ed e5fe | | Load 0x2,-0x2 11ee e405 | | Load 0x2,0x5 11ef e404 | | Load 0x2,0x4 11f0 0272 | r | Execute Discrete,Minus 11f1 e005 | | Load 0x0,0x5 11f2 1b14 | | Execute Package,Field_Read,Field_Number 0x14 11f3 1b14 | | Execute Package,Field_Read,Field_Number 0x14 11f4 1c08 | | Execute_Immediate Run_Utility,0x8 11f5 e602 | | Load 0x3,0x2 11f6 00d9 | | Load_Top At_Offset_1 11f7 00d8 | | Load_Top At_Offset_0 11f8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 11f9 00da | | Load_Top At_Offset_2 11fa 01da | | Execute Vector,Bounds 11fb 00da | | Load_Top At_Offset_2 11fc 01da | | Execute Vector,Bounds 11fd 00da | | Load_Top At_Offset_2 11fe 027f | | Execute Discrete,Equal 11ff 7001 |p | Jump_Nonzero 0x1201 1200 08e0 | | Execute_Immediate Raise,0xe0 1201 00cd | | Action Spare6_Action 1202 027f | | Execute Discrete,Equal 1203 7001 |p | Jump_Nonzero 0x1205 1204 08e0 | | Execute_Immediate Raise,0xe0 1205 00d2 | | Pop_Control Pop_Count_2 1206 00d9 | | Load_Top At_Offset_1 1207 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 1208 4800 |H | Short_Literal 0x0 1209 00d9 | | Load_Top At_Offset_1 120a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 120b 8247 | G | Call 0x1,0x47 120c c40a | | Store 0x2,0xa 120d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 120e 0000 0000 | | .XXX[0x2] 1210 ; -------------------------------------------------------------------------------------- 1210 ; SUBPROGRAM 1210 ; -------------------------------------------------------------------------------------- 1210 121c | | .CONST 0x121c ; Address of begin 1211 0004 | | .CONST 0x0004 ; Address of exception handler 1212 0002 | | .CONST 0x0002 ; Number of locals 1213 INIT_1210: 1213 e404 | | Load 0x2,0x4 1214 e402 | | Load 0x2,0x2 1215 01d7 | | Execute Vector,Field_Read 1216 e005 | | Load 0x0,0x5 1217 1b16 | | Execute Package,Field_Read,Field_Number 0x16 1218 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 1219 e005 | | Load 0x0,0x5 121a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 121b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 121c BODY_1210: 121c 00cf | | Action Mark_Auxiliary 121d e405 | | Load 0x2,0x5 121e 0a01 | | Execute_Immediate Plus,0x1 121f c405 | | Store 0x2,0x5 1220 e405 | | Load 0x2,0x5 1221 e402 | | Load 0x2,0x2 1222 01dc | | Execute Vector,Last 1223 027d | } | Execute Discrete,Greater 1224 7010 |p | Jump_Nonzero 0x1235 1225 4800 |H | Short_Literal 0x0 1226 e405 | | Load 0x2,0x5 1227 e402 | | Load 0x2,0x2 1228 01d7 | | Execute Vector,Field_Read 1229 e005 | | Load 0x0,0x5 122a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 122b 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 122c e005 | | Load 0x0,0x5 122d 1b16 | | Execute Package,Field_Read,Field_Number 0x16 122e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 122f 00db | | Load_Top At_Offset_3 1230 e017 | | Load 0x0,0x17 1231 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1232 6802 |h | Jump_Zero 0x1235 1233 00c9 | | Action Pop_Auxiliary_Loop 1234 7fe8 | | Jump 0x121d 1235 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1236 0000 0000 | | .XXX[0x2] 1238 ; -------------------------------------------------------------------------------------- 1238 ; SUBPROGRAM 1238 ; -------------------------------------------------------------------------------------- 1238 1240 | @ | .CONST 0x1240 ; Address of begin 1239 0004 | | .CONST 0x0004 ; Address of exception handler 123a 0002 | | .CONST 0x0002 ; Number of locals 123b INIT_1238: 123b e40a | | Load 0x2,0xa 123c e5fe | | Load 0x2,-0x2 123d 8230 | 0 | Call 0x1,0x30 123e e5ff | | Load 0x2,-0x1 123f 826c | l | Call 0x1,0x6c 1240 BODY_1238: 1240 00d8 | | Load_Top At_Offset_0 1241 01db | | Execute Vector,Length 1242 0c01 | | Execute_Immediate Greater_Equal,0x1 1243 6838 |h8 | Jump_Zero 0x127c 1244 e405 | | Load 0x2,0x5 1245 7002 |p | Jump_Nonzero 0x1248 1246 e406 | | Load 0x2,0x6 1247 6809 |h | Jump_Zero 0x1251 1248 e402 | | Load 0x2,0x2 1249 e005 | | Load 0x0,0x5 124a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 124b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 124c e5fe | | Load 0x2,-0x2 124d 00db | | Load_Top At_Offset_3 124e 826a | j | Call 0x1,0x6a 124f c402 | | Store 0x2,0x2 1250 7808 |x | Jump 0x1259 1251 e402 | | Load 0x2,0x2 1252 e005 | | Load 0x0,0x5 1253 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1254 1815 | | Execute Package,Field_Execute,Field_Number 0x15 1255 e5fe | | Load 0x2,-0x2 1256 00db | | Load_Top At_Offset_3 1257 826b | k | Call 0x1,0x6b 1258 c402 | | Store 0x2,0x2 1259 e402 | | Load 0x2,0x2 125a e015 | | Load 0x0,0x15 125b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 125c 701f |p | Jump_Nonzero 0x127c 125d e40a | | Load 0x2,0xa 125e e002 | | Load 0x0,0x2 125f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 1260 4801 |H | Short_Literal 0x1 1261 4801 |H | Short_Literal 0x1 1262 e012 | | Load 0x0,0x12 1263 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1264 0334 | 4 | Declare_Variable Array,With_Constraint 1265 e402 | | Load 0x2,0x2 1266 e015 | | Load 0x0,0x15 1267 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 1268 4801 |H | Short_Literal 0x1 1269 00da | | Load_Top At_Offset_2 126a 01d6 | | Execute Vector,Field_Write 126b 4802 |H | Short_Literal 0x2 126c e403 | | Load 0x2,0x3 126d e015 | | Load 0x0,0x15 126e 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 126f e402 | | Load 0x2,0x2 1270 e015 | | Load 0x0,0x15 1271 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 1272 7006 |p | Jump_Nonzero 0x1279 1273 e402 | | Load 0x2,0x2 1274 e015 | | Load 0x0,0x15 1275 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 1276 e403 | | Load 0x2,0x3 1277 e015 | | Load 0x0,0x15 1278 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 1279 e015 | | Load 0x0,0x15 127a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 127b a402 | | Store_Unchecked 0x2,0x2 127c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 127d 0000 0000 | | .XXX[0x3] 127f 0000 | | 1280 ; -------------------------------------------------------------------------------------- 1280 ; SUBPROGRAM 1280 ; -------------------------------------------------------------------------------------- 1280 1286 | | .CONST 0x1286 ; Address of begin 1281 0004 | | .CONST 0x0004 ; Address of exception handler 1282 0002 | | .CONST 0x0002 ; Number of locals 1283 INIT_1280: 1283 00da | | Load_Top At_Offset_2 1284 e015 | | Load 0x0,0x15 1285 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 1286 BODY_1280: 1286 00db | | Load_Top At_Offset_3 1287 e015 | | Load 0x0,0x15 1288 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 1289 700e |p | Jump_Nonzero 0x1298 128a 00cf | | Action Mark_Auxiliary 128b 00d9 | | Load_Top At_Offset_1 128c 01d9 | | Execute Vector,Reverse_Bounds 128d 0263 | c | Execute Discrete,Above_Bound 128e 7008 |p | Jump_Nonzero 0x1297 128f e402 | | Load 0x2,0x2 1290 00d9 | | Load_Top At_Offset_1 1291 e602 | | Load 0x3,0x2 1292 01d7 | | Execute Vector,Field_Read 1293 e015 | | Load 0x0,0x15 1294 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 1295 00c8 | | Action Pop_Auxiliary_Range 1296 3ff8 |? | Loop_Increasing 0x128f 1297 00ce | | Action Pop_Auxiliary 1298 4502 |E | Exit_Suprogram New_Top_Offset 0x2 1299 0000 0000 | | .BLANK 0000[0x7] 12a0 ; -------------------------------------------------------------------------------------- 12a0 ; SUBPROGRAM 12a0 ; -------------------------------------------------------------------------------------- 12a0 12aa | | .CONST 0x12aa ; Address of begin 12a1 0004 | | .CONST 0x0004 ; Address of exception handler 12a2 0004 | | .CONST 0x0004 ; Number of locals 12a3 INIT_12a0: 12a3 e405 | | Load 0x2,0x5 12a4 e005 | | Load 0x0,0x5 12a5 1b16 | | Execute Package,Field_Read,Field_Number 0x16 12a6 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 12a7 00e3 | | Load_Encached Natural_Cache 12a8 029f 187b | {| Declare_Subprogram INIT_1878,For_Call 12aa BODY_12a0: 12aa 00e3 | | Load_Encached Natural_Cache 12ab e404 | | Load 0x2,0x4 12ac e602 | | Load 0x3,0x2 12ad 8234 | 4 | Call 0x1,0x34 12ae 005a | Z | Store_Top Discrete,At_Offset_2 12af 00d9 | | Load_Top At_Offset_1 12b0 6801 |h | Jump_Zero 0x12b2 12b1 8604 | | Call 0x3,0x4 12b2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 12b3 0000 0000 | | .BLANK 0000[0x5] 12b8 ; -------------------------------------------------------------------------------------- 12b8 ; SUBPROGRAM 12b8 ; -------------------------------------------------------------------------------------- 12b8 12c8 | | .CONST 0x12c8 ; Address of begin 12b9 0004 | | .CONST 0x0004 ; Address of exception handler 12ba 0003 | | .CONST 0x0003 ; Number of locals 12bb INIT_12b8: 12bb e5fb | | Load 0x2,-0x5 12bc e5fc | | Load 0x2,-0x4 12bd e5fd | | Load 0x2,-0x3 12be e402 | | Load 0x2,0x2 12bf 8233 | 3 | Call 0x1,0x33 12c0 e5fb | | Load 0x2,-0x5 12c1 e5fc | | Load 0x2,-0x4 12c2 e5fd | | Load 0x2,-0x3 12c3 e5fe | | Load 0x2,-0x2 12c4 e013 | | Load 0x0,0x13 12c5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 12c6 e5ff | | Load 0x2,-0x1 12c7 8235 | 5 | Call 0x1,0x35 12c8 BODY_12b8: 12c8 00d8 | | Load_Top At_Offset_0 12c9 00da | | Load_Top At_Offset_2 12ca 822e | . | Call 0x1,0x2e 12cb 00cb | | Action Pop_Block_With_Result 12cc 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 12cd 0000 0000 | | .XXX[0x3] 12cf 0000 | | 12d0 ; -------------------------------------------------------------------------------------- 12d0 ; SUBPROGRAM 12d0 ; -------------------------------------------------------------------------------------- 12d0 12dc | | .CONST 0x12dc ; Address of begin 12d1 0004 | | .CONST 0x0004 ; Address of exception handler 12d2 0002 | | .CONST 0x0002 ; Number of locals 12d3 INIT_12d0: 12d3 e5fc | | Load 0x2,-0x4 12d4 e5fd | | Load 0x2,-0x3 12d5 4800 |H | Short_Literal 0x0 12d6 e5fe | | Load 0x2,-0x2 12d7 e407 | | Load 0x2,0x7 12d8 e5ff | | Load 0x2,-0x1 12d9 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 12da 01d7 | | Execute Vector,Field_Read 12db 8236 | 6 | Call 0x1,0x36 12dc BODY_12d0: 12dc 00d8 | | Load_Top At_Offset_0 12dd 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 12de 6804 |h | Jump_Zero 0x12e3 12df 00d8 | | Load_Top At_Offset_0 12e0 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 12e1 e402 | | Load 0x2,0x2 12e2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 12e3 00d8 | | Load_Top At_Offset_0 12e4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 12e5 6815 |h | Jump_Zero 0x12fb 12e6 00d8 | | Load_Top At_Offset_0 12e7 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 12e8 e403 | | Load 0x2,0x3 12e9 00d8 | | Load_Top At_Offset_0 12ea 00db | | Load_Top At_Offset_3 12eb 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 12ec 0273 | s | Execute Discrete,Plus 12ed 0aff | | Execute_Immediate Plus,-0x1 12ee 00d8 | | Load_Top At_Offset_0 12ef 00e2 | | Load_Encached Integer_Cache 12f0 0260 | ` | Execute Discrete,In_Type 12f1 7001 |p | Jump_Nonzero 0x12f3 12f2 0801 | | Execute_Immediate Raise,0x1 12f3 e402 | | Load 0x2,0x2 12f4 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 12f5 01ce | | Execute Vector,Slice_Write 12f6 e403 | | Load 0x2,0x3 12f7 00d9 | | Load_Top At_Offset_1 12f8 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 12f9 0273 | s | Execute Discrete,Plus 12fa c403 | | Store 0x2,0x3 12fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 12fc 0000 0000 | | .BLANK 0000[0x4] 1300 ; -------------------------------------------------------------------------------------- 1300 ; SUBPROGRAM 1300 ; -------------------------------------------------------------------------------------- 1300 1303 | | .CONST 0x1303 ; Address of begin 1301 0004 | | .CONST 0x0004 ; Address of exception handler 1302 0001 | | .CONST 0x0001 ; Number of locals 1303 BODY_1300: 1303 INIT_1300: 1303 00da | | Load_Top At_Offset_2 1304 e005 | | Load 0x0,0x5 1305 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1306 180f | | Execute Package,Field_Execute,Field_Number 0xf 1307 7013 |p | Jump_Nonzero 0x131b 1308 00da | | Load_Top At_Offset_2 1309 4801 |H | Short_Literal 0x1 130a e5fd | | Load 0x2,-0x3 130b 8232 | 2 | Call 0x1,0x32 130c 700e |p | Jump_Nonzero 0x131b 130d 00da | | Load_Top At_Offset_2 130e e403 | | Load 0x2,0x3 130f e402 | | Load 0x2,0x2 1310 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1311 01d6 | | Execute Vector,Field_Write 1312 e403 | | Load 0x2,0x3 1313 0a01 | | Execute_Immediate Plus,0x1 1314 c403 | | Store 0x2,0x3 1315 4800 |H | Short_Literal 0x0 1316 4801 |H | Short_Literal 0x1 1317 e7ff | | Load 0x3,-0x1 1318 e5fd | | Load 0x2,-0x3 1319 e22a | * | Load 0x1,0x2a 131a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 131b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 131c 0000 0000 | | .BLANK 0000[0x4] 1320 ; -------------------------------------------------------------------------------------- 1320 ; SUBPROGRAM 1320 ; -------------------------------------------------------------------------------------- 1320 1323 | # | .CONST 0x1323 ; Address of begin 1321 0004 | | .CONST 0x0004 ; Address of exception handler 1322 0001 | | .CONST 0x0001 ; Number of locals 1323 BODY_1320: 1323 INIT_1320: 1323 00cf | | Action Mark_Auxiliary 1324 00db | | Load_Top At_Offset_3 1325 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1326 01d9 | | Execute Vector,Reverse_Bounds 1327 0263 | c | Execute Discrete,Above_Bound 1328 700f |p | Jump_Nonzero 0x1338 1329 00d8 | | Load_Top At_Offset_0 132a e7ff | | Load 0x3,-0x1 132b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 132c 01d7 | | Execute Vector,Field_Read 132d 8405 | | Call 0x2,0x5 132e 00d8 | | Load_Top At_Offset_0 132f e7ff | | Load 0x3,-0x1 1330 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1331 01d7 | | Execute Vector,Field_Read 1332 e005 | | Load 0x0,0x5 1333 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1334 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 1335 8406 | | Call 0x2,0x6 1336 00c8 | | Action Pop_Auxiliary_Range 1337 3ff1 |? | Loop_Increasing 0x1329 1338 4502 |E | Exit_Suprogram New_Top_Offset 0x2 1339 0000 0000 | | .BLANK 0000[0x7] 1340 ; -------------------------------------------------------------------------------------- 1340 ; SUBPROGRAM 1340 ; -------------------------------------------------------------------------------------- 1340 134a | J | .CONST 0x134a ; Address of begin 1341 0004 | | .CONST 0x0004 ; Address of exception handler 1342 0005 | | .CONST 0x0005 ; Number of locals 1343 INIT_1340: 1343 00e1 | | Load_Encached Boolean_Cache 1344 00e1 | | Load_Encached Boolean_Cache 1345 e005 | | Load 0x0,0x5 1346 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1347 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1348 029f 18a3 | | Declare_Subprogram INIT_18a0,For_Call 134a BODY_1340: 134a 4800 |H | Short_Literal 0x0 134b e014 | | Load 0x0,0x14 134c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 134d a602 | | Store_Unchecked 0x3,0x2 134e 4801 |H | Short_Literal 0x1 134f e014 | | Load 0x0,0x14 1350 181f | | Execute Package,Field_Execute,Field_Number 0x1f 1351 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 1352 8605 | | Call 0x3,0x5 1353 0831 | 1 | Execute_Immediate Raise,0x31 1354 0000 0000 | | .BLANK 0000[0x4] 1358 ; -------------------------------------------------------------------------------------- 1358 ; SUBPROGRAM 1358 ; -------------------------------------------------------------------------------------- 1358 1364 | d | .CONST 0x1364 ; Address of begin 1359 0004 | | .CONST 0x0004 ; Address of exception handler 135a 0002 | | .CONST 0x0002 ; Number of locals 135b INIT_1358: 135b e5fb | | Load 0x2,-0x5 135c e5fc | | Load 0x2,-0x4 135d e5fd | | Load 0x2,-0x3 135e 4800 |H | Short_Literal 0x0 135f e407 | | Load 0x2,0x7 1360 e5ff | | Load 0x2,-0x1 1361 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1362 01d7 | | Execute Vector,Field_Read 1363 823a | : | Call 0x1,0x3a 1364 BODY_1358: 1364 00d8 | | Load_Top At_Offset_0 1365 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 1366 6804 |h | Jump_Zero 0x136b 1367 00d8 | | Load_Top At_Offset_0 1368 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 1369 e402 | | Load 0x2,0x2 136a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 136b 00d8 | | Load_Top At_Offset_0 136c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 136d 6815 |h | Jump_Zero 0x1383 136e 00d8 | | Load_Top At_Offset_0 136f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1370 e403 | | Load 0x2,0x3 1371 00d8 | | Load_Top At_Offset_0 1372 00db | | Load_Top At_Offset_3 1373 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 1374 0273 | s | Execute Discrete,Plus 1375 0aff | | Execute_Immediate Plus,-0x1 1376 00d8 | | Load_Top At_Offset_0 1377 00e2 | | Load_Encached Integer_Cache 1378 0260 | ` | Execute Discrete,In_Type 1379 7001 |p | Jump_Nonzero 0x137b 137a 0801 | | Execute_Immediate Raise,0x1 137b e402 | | Load 0x2,0x2 137c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 137d 01ce | | Execute Vector,Slice_Write 137e e403 | | Load 0x2,0x3 137f 00d9 | | Load_Top At_Offset_1 1380 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 1381 0273 | s | Execute Discrete,Plus 1382 c403 | | Store 0x2,0x3 1383 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1384 0000 0000 | | .BLANK 0000[0x4] 1388 ; -------------------------------------------------------------------------------------- 1388 ; SUBPROGRAM 1388 ; -------------------------------------------------------------------------------------- 1388 13b8 | | .CONST 0x13b8 ; Address of begin 1389 0004 | | .CONST 0x0004 ; Address of exception handler 138a 0003 | | .CONST 0x0003 ; Number of locals 138b INIT_1388: 138b e5fd | | Load 0x2,-0x3 138c e5fe | | Load 0x2,-0x2 138d 4801 |H | Short_Literal 0x1 138e e005 | | Load 0x0,0x5 138f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1390 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1391 1c08 | | Execute_Immediate Run_Utility,0x8 1392 4801 |H | Short_Literal 0x1 1393 4801 |H | Short_Literal 0x1 1394 e005 | | Load 0x0,0x5 1395 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1396 1b13 | | Execute Package,Field_Read,Field_Number 0x13 1397 0334 | 4 | Declare_Variable Array,With_Constraint 1398 e404 | | Load 0x2,0x4 1399 4801 |H | Short_Literal 0x1 139a 00da | | Load_Top At_Offset_2 139b 01d6 | | Execute Vector,Field_Write 139c 00d9 | | Load_Top At_Offset_1 139d 00d8 | | Load_Top At_Offset_0 139e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 139f 00da | | Load_Top At_Offset_2 13a0 01da | | Execute Vector,Bounds 13a1 00da | | Load_Top At_Offset_2 13a2 01da | | Execute Vector,Bounds 13a3 00da | | Load_Top At_Offset_2 13a4 027f | | Execute Discrete,Equal 13a5 7001 |p | Jump_Nonzero 0x13a7 13a6 08e0 | | Execute_Immediate Raise,0xe0 13a7 00cd | | Action Spare6_Action 13a8 027f | | Execute Discrete,Equal 13a9 7001 |p | Jump_Nonzero 0x13ab 13aa 08e0 | | Execute_Immediate Raise,0xe0 13ab 00d2 | | Pop_Control Pop_Count_2 13ac 00d9 | | Load_Top At_Offset_1 13ad 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 13ae 4800 |H | Short_Literal 0x0 13af 00d9 | | Load_Top At_Offset_1 13b0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 13b1 8239 | 9 | Call 0x1,0x39 13b2 4801 |H | Short_Literal 0x1 13b3 e5fd | | Load 0x2,-0x3 13b4 e5fe | | Load 0x2,-0x2 13b5 4800 |H | Short_Literal 0x0 13b6 e602 | | Load 0x3,0x2 13b7 823b | ; | Call 0x1,0x3b 13b8 BODY_1388: 13b8 00d8 | | Load_Top At_Offset_0 13b9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 13ba 6804 |h | Jump_Zero 0x13bf 13bb 00d8 | | Load_Top At_Offset_0 13bc 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 13bd e402 | | Load 0x2,0x2 13be 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 13bf 00d8 | | Load_Top At_Offset_0 13c0 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 13c1 6815 |h | Jump_Zero 0x13d7 13c2 00d8 | | Load_Top At_Offset_0 13c3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 13c4 e403 | | Load 0x2,0x3 13c5 00d8 | | Load_Top At_Offset_0 13c6 00db | | Load_Top At_Offset_3 13c7 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 13c8 0273 | s | Execute Discrete,Plus 13c9 0aff | | Execute_Immediate Plus,-0x1 13ca 00d8 | | Load_Top At_Offset_0 13cb 00e2 | | Load_Encached Integer_Cache 13cc 0260 | ` | Execute Discrete,In_Type 13cd 7001 |p | Jump_Nonzero 0x13cf 13ce 0801 | | Execute_Immediate Raise,0x1 13cf e402 | | Load 0x2,0x2 13d0 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 13d1 01ce | | Execute Vector,Slice_Write 13d2 e403 | | Load 0x2,0x3 13d3 00d9 | | Load_Top At_Offset_1 13d4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 13d5 0273 | s | Execute Discrete,Plus 13d6 c403 | | Store 0x2,0x3 13d7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 13d8 ; -------------------------------------------------------------------------------------- 13d8 ; SUBPROGRAM 13d8 ; -------------------------------------------------------------------------------------- 13d8 13e4 | | .CONST 0x13e4 ; Address of begin 13d9 0004 | | .CONST 0x0004 ; Address of exception handler 13da 0002 | | .CONST 0x0002 ; Number of locals 13db INIT_13d8: 13db 4801 |H | Short_Literal 0x1 13dc e5fd | | Load 0x2,-0x3 13dd e5fe | | Load 0x2,-0x2 13de 4800 |H | Short_Literal 0x0 13df e40a | | Load 0x2,0xa 13e0 e5ff | | Load 0x2,-0x1 13e1 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 13e2 01d7 | | Execute Vector,Field_Read 13e3 823a | : | Call 0x1,0x3a 13e4 BODY_13d8: 13e4 00d8 | | Load_Top At_Offset_0 13e5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 13e6 6804 |h | Jump_Zero 0x13eb 13e7 00d8 | | Load_Top At_Offset_0 13e8 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 13e9 e402 | | Load 0x2,0x2 13ea 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 13eb 00d8 | | Load_Top At_Offset_0 13ec 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 13ed 6815 |h | Jump_Zero 0x1403 13ee 00d8 | | Load_Top At_Offset_0 13ef 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 13f0 e403 | | Load 0x2,0x3 13f1 00d8 | | Load_Top At_Offset_0 13f2 00db | | Load_Top At_Offset_3 13f3 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 13f4 0273 | s | Execute Discrete,Plus 13f5 0aff | | Execute_Immediate Plus,-0x1 13f6 00d8 | | Load_Top At_Offset_0 13f7 00e2 | | Load_Encached Integer_Cache 13f8 0260 | ` | Execute Discrete,In_Type 13f9 7001 |p | Jump_Nonzero 0x13fb 13fa 0801 | | Execute_Immediate Raise,0x1 13fb e402 | | Load 0x2,0x2 13fc 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 13fd 01ce | | Execute Vector,Slice_Write 13fe e403 | | Load 0x2,0x3 13ff 00d9 | | Load_Top At_Offset_1 1400 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 1401 0273 | s | Execute Discrete,Plus 1402 c403 | | Store 0x2,0x3 1403 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1404 0000 0000 | | .BLANK 0000[0x4] 1408 ; -------------------------------------------------------------------------------------- 1408 ; SUBPROGRAM 1408 ; -------------------------------------------------------------------------------------- 1408 140e | | .CONST 0x140e ; Address of begin 1409 0004 | | .CONST 0x0004 ; Address of exception handler 140a 0003 | | .CONST 0x0003 ; Number of locals 140b INIT_1408: 140b 00e3 | | Load_Encached Natural_Cache 140c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 140d 00e1 | | Load_Encached Boolean_Cache 140e BODY_1408: 140e e7ff | | Load 0x3,-0x1 140f e005 | | Load 0x0,0x5 1410 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1411 180f | | Execute Package,Field_Execute,Field_Number 0xf 1412 7012 |p | Jump_Nonzero 0x1425 1413 e5fd | | Load 0x2,-0x3 1414 e7ff | | Load 0x3,-0x1 1415 e005 | | Load 0x0,0x5 1416 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1417 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 1418 680c |h | Jump_Zero 0x1425 1419 00e1 | | Load_Encached Boolean_Cache 141a 00da | | Load_Top At_Offset_2 141b e7ff | | Load 0x3,-0x1 141c e406 | | Load 0x2,0x6 141d e22b | + | Load 0x1,0x2b 141e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 141f 005b | [ | Store_Top Discrete,At_Offset_3 1420 0059 | Y | Store_Top Discrete,At_Offset_1 1421 00d8 | | Load_Top At_Offset_0 1422 7002 |p | Jump_Nonzero 0x1425 1423 4801 |H | Short_Literal 0x1 1424 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1425 4800 |H | Short_Literal 0x0 1426 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1427 0000 | | .XXX[0x1] 1428 ; -------------------------------------------------------------------------------------- 1428 ; SUBPROGRAM 1428 ; -------------------------------------------------------------------------------------- 1428 142b | + | .CONST 0x142b ; Address of begin 1429 0004 | | .CONST 0x0004 ; Address of exception handler 142a 0001 | | .CONST 0x0001 ; Number of locals 142b BODY_1428: 142b INIT_1428: 142b 4800 |H | Short_Literal 0x0 142c e7fe | | Load 0x3,-0x2 142d e7ff | | Load 0x3,-0x1 142e e406 | | Load 0x2,0x6 142f e22b | + | Load 0x1,0x2b 1430 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1431 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1432 0000 0000 | | .BLANK 0000[0x6] 1438 ; -------------------------------------------------------------------------------------- 1438 ; SUBPROGRAM 1438 ; -------------------------------------------------------------------------------------- 1438 143b | ; | .CONST 0x143b ; Address of begin 1439 0004 | | .CONST 0x0004 ; Address of exception handler 143a 0001 | | .CONST 0x0001 ; Number of locals 143b BODY_1438: 143b INIT_1438: 143b e5fd | | Load 0x2,-0x3 143c e002 | | Load 0x0,0x2 143d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 143e 4801 |H | Short_Literal 0x1 143f 4802 |H | Short_Literal 0x2 1440 e012 | | Load 0x0,0x12 1441 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1442 0334 | 4 | Declare_Variable Array,With_Constraint 1443 e7ff | | Load 0x3,-0x1 1444 e005 | | Load 0x0,0x5 1445 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1446 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1447 4801 |H | Short_Literal 0x1 1448 00da | | Load_Top At_Offset_2 1449 01d6 | | Execute Vector,Field_Write 144a e7ff | | Load 0x3,-0x1 144b e005 | | Load 0x0,0x5 144c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 144d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 144e 4802 |H | Short_Literal 0x2 144f 00da | | Load_Top At_Offset_2 1450 01d6 | | Execute Vector,Field_Write 1451 480a |H | Short_Literal 0xa 1452 e5fc | | Load 0x2,-0x4 1453 e015 | | Load 0x0,0x15 1454 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 1455 00db | | Load_Top At_Offset_3 1456 00db | | Load_Top At_Offset_3 1457 840d | | Call 0x2,0xd 1458 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1459 0000 0000 | | .BLANK 0000[0x7] 1460 ; -------------------------------------------------------------------------------------- 1460 ; SUBPROGRAM 1460 ; -------------------------------------------------------------------------------------- 1460 1479 | y | .CONST 0x1479 ; Address of begin 1461 14b0 | | .CONST 0x14b0 ; Address of exception handler 1462 0007 | | .CONST 0x0007 ; Number of locals 1463 INIT_1460: 1463 e22a | * | Load 0x1,0x2a 1464 1b13 | | Execute Package,Field_Read,Field_Number 0x13 1465 4800 |H | Short_Literal 0x0 1466 e005 | | Load 0x0,0x5 1467 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1468 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1469 1c08 | | Execute_Immediate Run_Utility,0x8 146a e005 | | Load 0x0,0x5 146b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 146c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 146d 00d9 | | Load_Top At_Offset_1 146e 016d | m | Execute Variant_Record,Structure_Write 146f e005 | | Load 0x0,0x5 1470 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1471 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1472 e005 | | Load 0x0,0x5 1473 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1474 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1475 029f 18c3 | | Declare_Subprogram INIT_18c0,For_Call 1477 029f 190b | | Declare_Subprogram INIT_1908,For_Call 1479 BODY_1460: 1479 e22a | * | Load 0x1,0x2a 147a 1b13 | | Execute Package,Field_Read,Field_Number 0x13 147b e011 | | Load 0x0,0x11 147c 180d | | Execute Package,Field_Execute,Field_Number 0xd 147d e22a | * | Load 0x1,0x2a 147e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 147f c602 | | Store 0x3,0x2 1480 e7ff | | Load 0x3,-0x1 1481 0033 | 3 | Store_Top Heap_Access,At_Offset_3 1482 00cf | | Action Mark_Auxiliary 1483 7811 |x | Jump 0x1495 1484 00db | | Load_Top At_Offset_3 1485 e005 | | Load 0x0,0x5 1486 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1487 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 1488 a604 | | Store_Unchecked 0x3,0x4 1489 e604 | | Load 0x3,0x4 148a e005 | | Load 0x0,0x5 148b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 148c 180f | | Execute Package,Field_Execute,Field_Number 0xf 148d 7001 |p | Jump_Nonzero 0x148f 148e 780b |x | Jump 0x149a 148f 00db | | Load_Top At_Offset_3 1490 e005 | | Load 0x0,0x5 1491 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1492 1849 | I | Execute Package,Field_Execute,Field_Number 0x49 1493 a605 | | Store_Unchecked 0x3,0x5 1494 00c9 | | Action Pop_Auxiliary_Loop 1495 00db | | Load_Top At_Offset_3 1496 e005 | | Load 0x0,0x5 1497 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1498 180f | | Execute Package,Field_Execute,Field_Number 0xf 1499 6fea |o | Jump_Zero 0x1484 149a 00ce | | Action Pop_Auxiliary 149b 00db | | Load_Top At_Offset_3 149c e005 | | Load 0x0,0x5 149d 1b14 | | Execute Package,Field_Read,Field_Number 0x14 149e 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 149f 6808 |h | Jump_Zero 0x14a8 14a0 4800 |H | Short_Literal 0x0 14a1 4801 |H | Short_Literal 0x1 14a2 e604 | | Load 0x3,0x4 14a3 e602 | | Load 0x3,0x2 14a4 e22a | * | Load 0x1,0x2a 14a5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 14a6 8606 | | Call 0x3,0x6 14a7 7807 |x | Jump 0x14af 14a8 4800 |H | Short_Literal 0x0 14a9 4801 |H | Short_Literal 0x1 14aa e7ff | | Load 0x3,-0x1 14ab e602 | | Load 0x3,0x2 14ac e22a | * | Load 0x1,0x2a 14ad 1818 | | Execute Package,Field_Execute,Field_Number 0x18 14ae 8607 | | Call 0x3,0x7 14af 0831 | 1 | Execute_Immediate Raise,0x31 14b0 TRAP_1460: 14b0 0007 | | Action Break_Optional 14b1 e602 | | Load 0x3,0x2 14b2 e22a | * | Load 0x1,0x2a 14b3 181d | | Execute Package,Field_Execute,Field_Number 0x1d 14b4 4801 |H | Short_Literal 0x1 14b5 4802 |H | Short_Literal 0x2 14b6 e012 | | Load 0x0,0x12 14b7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 14b8 0334 | 4 | Declare_Variable Array,With_Constraint 14b9 e7fe | | Load 0x3,-0x2 14ba e013 | | Load 0x0,0x13 14bb 1820 | | Execute Package,Field_Execute,Field_Number 0x20 14bc 4801 |H | Short_Literal 0x1 14bd 00da | | Load_Top At_Offset_2 14be 01d6 | | Execute Vector,Field_Write 14bf e7ff | | Load 0x3,-0x1 14c0 e005 | | Load 0x0,0x5 14c1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 14c2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 14c3 4802 |H | Short_Literal 0x2 14c4 00da | | Load_Top At_Offset_2 14c5 01d6 | | Execute Vector,Field_Write 14c6 6009 |` | Indirect_Literal Discrete,0x14d0,{0x00000000, 0x00003811} 14c7 e014 | | Load 0x0,0x14 14c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 14c9 e603 | | Load 0x3,0x3 14ca 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 14cb e603 | | Load 0x3,0x3 14cc 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 14cd 0000 0000 | | .XXX[0x3] 14cf 0000 | | 14d0 0000 0000 | | .LITERAL {0x00000000, 0x00003811} 14d4 0000 0000 | | .BLANK 0000[0x4] 14d8 ; -------------------------------------------------------------------------------------- 14d8 ; SUBPROGRAM 14d8 ; -------------------------------------------------------------------------------------- 14d8 14e4 | | .CONST 0x14e4 ; Address of begin 14d9 0004 | | .CONST 0x0004 ; Address of exception handler 14da 0004 | | .CONST 0x0004 ; Number of locals 14db INIT_14d8: 14db 00e1 | | Load_Encached Boolean_Cache 14dc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 14dd 00db | | Load_Top At_Offset_3 14de 0007 | | Action Break_Optional 14df e002 | | Load 0x0,0x2 14e0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 14e1 02c7 | | Declare_Variable Any 14e2 00d8 | | Load_Top At_Offset_0 14e3 1c00 | | Execute_Immediate Run_Utility,0x0 14e4 BODY_14d8: 14e4 00d9 | | Load_Top At_Offset_1 14e5 e005 | | Load 0x0,0x5 14e6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 14e7 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 14e8 0032 | 2 | Store_Top Heap_Access,At_Offset_2 14e9 00cf | | Action Mark_Auxiliary 14ea 7826 |x& | Jump 0x1511 14eb 00da | | Load_Top At_Offset_2 14ec e005 | | Load 0x0,0x5 14ed 1b14 | | Execute Package,Field_Read,Field_Number 0x14 14ee 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 14ef c604 | | Store 0x3,0x4 14f0 e5fd | | Load 0x2,-0x3 14f1 00db | | Load_Top At_Offset_3 14f2 e005 | | Load 0x0,0x5 14f3 1b14 | | Execute Package,Field_Read,Field_Number 0x14 14f4 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 14f5 00da | | Load_Top At_Offset_2 14f6 8227 | ' | Call 0x1,0x27 14f7 7008 |p | Jump_Nonzero 0x1500 14f8 e5fd | | Load 0x2,-0x3 14f9 00db | | Load_Top At_Offset_3 14fa e005 | | Load 0x0,0x5 14fb 1b14 | | Execute Package,Field_Read,Field_Number 0x14 14fc 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 14fd 00da | | Load_Top At_Offset_2 14fe 8227 | ' | Call 0x1,0x27 14ff 7801 |x | Jump 0x1501 1500 4801 |H | Short_Literal 0x1 1501 a602 | | Store_Unchecked 0x3,0x2 1502 00db | | Load_Top At_Offset_3 1503 6802 |h | Jump_Zero 0x1506 1504 4801 |H | Short_Literal 0x1 1505 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1506 00da | | Load_Top At_Offset_2 1507 e005 | | Load 0x0,0x5 1508 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1509 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 150a 6809 |h | Jump_Zero 0x1514 150b 00da | | Load_Top At_Offset_2 150c e005 | | Load 0x0,0x5 150d 1b14 | | Execute Package,Field_Read,Field_Number 0x14 150e 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 150f 0033 | 3 | Store_Top Heap_Access,At_Offset_3 1510 00c9 | | Action Pop_Auxiliary_Loop 1511 00da | | Load_Top At_Offset_2 1512 840c | | Call 0x2,0xc 1513 77d7 |w | Jump_Nonzero 0x14eb 1514 00ce | | Action Pop_Auxiliary 1515 4800 |H | Short_Literal 0x0 1516 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1517 0000 | | .XXX[0x1] 1518 ; -------------------------------------------------------------------------------------- 1518 ; SUBPROGRAM 1518 ; -------------------------------------------------------------------------------------- 1518 1528 | ( | .CONST 0x1528 ; Address of begin 1519 0004 | | .CONST 0x0004 ; Address of exception handler 151a 0006 | | .CONST 0x0006 ; Number of locals 151b INIT_1518: 151b 00e1 | | Load_Encached Boolean_Cache 151c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 151d 00db | | Load_Top At_Offset_3 151e 0007 | | Action Break_Optional 151f e002 | | Load 0x0,0x2 1520 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1521 02c7 | | Declare_Variable Any 1522 00d8 | | Load_Top At_Offset_0 1523 1c00 | | Execute_Immediate Run_Utility,0x0 1524 029f 1923 | #| Declare_Subprogram INIT_1920,For_Call 1526 029f 195b | [| Declare_Subprogram INIT_1958,For_Call 1528 BODY_1518: 1528 00db | | Load_Top At_Offset_3 1529 e005 | | Load 0x0,0x5 152a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 152b 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 152c a603 | | Store_Unchecked 0x3,0x3 152d 00cf | | Action Mark_Auxiliary 152e 7819 |x | Jump 0x1548 152f e5fd | | Load 0x2,-0x3 1530 4800 |H | Short_Literal 0x0 1531 e603 | | Load 0x3,0x3 1532 e005 | | Load 0x0,0x5 1533 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1534 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 1535 c604 | | Store 0x3,0x4 1536 e40a | | Load 0x2,0xa 1537 7002 |p | Jump_Nonzero 0x153a 1538 e40b | | Load 0x2,0xb 1539 6802 |h | Jump_Zero 0x153c 153a 8605 | | Call 0x3,0x5 153b 7801 |x | Jump 0x153d 153c 8606 | | Call 0x3,0x6 153d e603 | | Load 0x3,0x3 153e e005 | | Load 0x0,0x5 153f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1540 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 1541 6809 |h | Jump_Zero 0x154b 1542 e603 | | Load 0x3,0x3 1543 e005 | | Load 0x0,0x5 1544 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1545 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 1546 a603 | | Store_Unchecked 0x3,0x3 1547 00c9 | | Action Pop_Auxiliary_Loop 1548 e603 | | Load 0x3,0x3 1549 840c | | Call 0x2,0xc 154a 77e4 |w | Jump_Nonzero 0x152f 154b 00ce | | Action Pop_Auxiliary 154c 4800 |H | Short_Literal 0x0 154d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 154e 0000 0000 | | .XXX[0x2] 1550 ; -------------------------------------------------------------------------------------- 1550 ; SUBPROGRAM 1550 ; -------------------------------------------------------------------------------------- 1550 1568 | h | .CONST 0x1568 ; Address of begin 1551 0004 | | .CONST 0x0004 ; Address of exception handler 1552 0004 | | .CONST 0x0004 ; Number of locals 1553 INIT_1550: 1553 e402 | | Load 0x2,0x2 1554 e005 | | Load 0x0,0x5 1555 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1556 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 1557 4801 |H | Short_Literal 0x1 1558 00d9 | | Load_Top At_Offset_1 1559 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 155a 01db | | Execute Vector,Length 155b 0a03 | | Execute_Immediate Plus,0x3 155c 00d8 | | Load_Top At_Offset_0 155d 00e2 | | Load_Encached Integer_Cache 155e 0260 | ` | Execute Discrete,In_Type 155f 7001 |p | Jump_Nonzero 0x1561 1560 0801 | | Execute_Immediate Raise,0x1 1561 e012 | | Load 0x0,0x12 1562 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1563 035b | [ | Declare_Type Array,Constrained 1564 0337 | 7 | Declare_Variable Array 1565 e005 | | Load 0x0,0x5 1566 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1567 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1568 BODY_1550: 1568 e404 | | Load 0x2,0x4 1569 e005 | | Load 0x0,0x5 156a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 156b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 156c 4801 |H | Short_Literal 0x1 156d 00db | | Load_Top At_Offset_3 156e 01d6 | | Execute Vector,Field_Write 156f e404 | | Load 0x2,0x4 1570 e005 | | Load 0x0,0x5 1571 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1572 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1573 4802 |H | Short_Literal 0x2 1574 00db | | Load_Top At_Offset_3 1575 01d6 | | Execute Vector,Field_Write 1576 e402 | | Load 0x2,0x2 1577 e005 | | Load 0x0,0x5 1578 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1579 1810 | | Execute Package,Field_Execute,Field_Number 0x10 157a 4803 |H | Short_Literal 0x3 157b 00db | | Load_Top At_Offset_3 157c 01d6 | | Execute Vector,Field_Write 157d 00cf | | Action Mark_Auxiliary 157e 00db | | Load_Top At_Offset_3 157f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1580 01d9 | | Execute Vector,Reverse_Bounds 1581 0263 | c | Execute Discrete,Above_Bound 1582 7049 |pI | Jump_Nonzero 0x15cc 1583 00d8 | | Load_Top At_Offset_0 1584 e602 | | Load 0x3,0x2 1585 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1586 01d7 | | Execute Vector,Field_Read 1587 a604 | | Store_Unchecked 0x3,0x4 1588 e5fd | | Load 0x2,-0x3 1589 e604 | | Load 0x3,0x4 158a e005 | | Load 0x0,0x5 158b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 158c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 158d 702a |p* | Jump_Nonzero 0x15b8 158e e406 | | Load 0x2,0x6 158f e22b | + | Load 0x1,0x2b 1590 181d | | Execute Package,Field_Execute,Field_Number 0x1d 1591 4801 |H | Short_Literal 0x1 1592 4804 |H | Short_Literal 0x4 1593 e012 | | Load 0x0,0x12 1594 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1595 0334 | 4 | Declare_Variable Array,With_Constraint 1596 e402 | | Load 0x2,0x2 1597 e005 | | Load 0x0,0x5 1598 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1599 1810 | | Execute Package,Field_Execute,Field_Number 0x10 159a 4801 |H | Short_Literal 0x1 159b 00da | | Load_Top At_Offset_2 159c 01d6 | | Execute Vector,Field_Write 159d e604 | | Load 0x3,0x4 159e e005 | | Load 0x0,0x5 159f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 15a0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 15a1 4802 |H | Short_Literal 0x2 15a2 00da | | Load_Top At_Offset_2 15a3 01d6 | | Execute Vector,Field_Write 15a4 e5fe | | Load 0x2,-0x2 15a5 e013 | | Load 0x0,0x13 15a6 1820 | | Execute Package,Field_Execute,Field_Number 0x20 15a7 4803 |H | Short_Literal 0x3 15a8 00da | | Load_Top At_Offset_2 15a9 01d6 | | Execute Vector,Field_Write 15aa e5fd | | Load 0x2,-0x3 15ab e016 | | Load 0x0,0x16 15ac 181c | | Execute Package,Field_Execute,Field_Number 0x1c 15ad 4804 |H | Short_Literal 0x4 15ae 00da | | Load_Top At_Offset_2 15af 01d6 | | Execute Vector,Field_Write 15b0 6027 |`' | Indirect_Literal Discrete,0x15d8,{0x00000000, 0x00003803} 15b1 e014 | | Load 0x0,0x14 15b2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 15b3 e5fc | | Load 0x2,-0x4 15b4 e015 | | Load 0x0,0x15 15b5 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 15b6 00cc | | Action Pop_Block 15b7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 15b8 e407 | | Load 0x2,0x7 15b9 00d9 | | Load_Top At_Offset_1 15ba 0273 | s | Execute Discrete,Plus 15bb 00d8 | | Load_Top At_Offset_0 15bc 00e3 | | Load_Encached Natural_Cache 15bd 0260 | ` | Execute Discrete,In_Type 15be 7001 |p | Jump_Nonzero 0x15c0 15bf 0801 | | Execute_Immediate Raise,0x1 15c0 e604 | | Load 0x3,0x4 15c1 840d | | Call 0x2,0xd 15c2 00db | | Load_Top At_Offset_3 15c3 e005 | | Load 0x0,0x5 15c4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 15c5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 15c6 00d9 | | Load_Top At_Offset_1 15c7 0a03 | | Execute_Immediate Plus,0x3 15c8 e603 | | Load 0x3,0x3 15c9 01d6 | | Execute Vector,Field_Write 15ca 00c8 | | Action Pop_Auxiliary_Range 15cb 3fb7 |? | Loop_Increasing 0x1583 15cc 00ce | | Action Pop_Auxiliary 15cd e5fd | | Load 0x2,-0x3 15ce e002 | | Load 0x0,0x2 15cf 1812 | | Execute Package,Field_Execute,Field_Number 0x12 15d0 00db | | Load_Top At_Offset_3 15d1 480c |H | Short_Literal 0xc 15d2 e5fc | | Load 0x2,-0x4 15d3 e015 | | Load 0x0,0x15 15d4 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 15d5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 15d6 0000 0000 | | .XXX[0x2] 15d8 0000 0000 | | .LITERAL {0x00000000, 0x00003803} 15dc 0000 0000 | | .BLANK 0000[0x4] 15e0 ; -------------------------------------------------------------------------------------- 15e0 ; SUBPROGRAM 15e0 ; -------------------------------------------------------------------------------------- 15e0 15e3 | | .CONST 0x15e3 ; Address of begin 15e1 0004 | | .CONST 0x0004 ; Address of exception handler 15e2 0001 | | .CONST 0x0001 ; Number of locals 15e3 BODY_15e0: 15e3 INIT_15e0: 15e3 00da | | Load_Top At_Offset_2 15e4 e005 | | Load 0x0,0x5 15e5 1b16 | | Execute Package,Field_Read,Field_Number 0x16 15e6 1886 | | Execute Package,Field_Execute,Field_Number 0x86 15e7 700f |p | Jump_Nonzero 0x15f7 15e8 00db | | Load_Top At_Offset_3 15e9 e005 | | Load 0x0,0x5 15ea 1b16 | | Execute Package,Field_Read,Field_Number 0x16 15eb 1886 | | Execute Package,Field_Execute,Field_Number 0x86 15ec 700a |p | Jump_Nonzero 0x15f7 15ed 00da | | Load_Top At_Offset_2 15ee e005 | | Load 0x0,0x5 15ef 1b16 | | Execute Package,Field_Read,Field_Number 0x16 15f0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 15f1 e7fe | | Load 0x3,-0x2 15f2 e005 | | Load 0x0,0x5 15f3 1b16 | | Execute Package,Field_Read,Field_Number 0x16 15f4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 15f5 027e | ~ | Execute Discrete,Not_Equal 15f6 6802 |h | Jump_Zero 0x15f9 15f7 4800 |H | Short_Literal 0x0 15f8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 15f9 4800 |H | Short_Literal 0x0 15fa e7fe | | Load 0x3,-0x2 15fb e005 | | Load 0x0,0x5 15fc 1b16 | | Execute Package,Field_Read,Field_Number 0x16 15fd 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 15fe e7ff | | Load 0x3,-0x1 15ff e005 | | Load 0x0,0x5 1600 1b16 | | Execute Package,Field_Read,Field_Number 0x16 1601 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 1602 e017 | | Load 0x0,0x17 1603 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1604 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1605 0000 0000 | | .XXX[0x3] 1607 0000 | | 1608 ; -------------------------------------------------------------------------------------- 1608 ; SUBPROGRAM 1608 ; -------------------------------------------------------------------------------------- 1608 160b | | .CONST 0x160b ; Address of begin 1609 0004 | | .CONST 0x0004 ; Address of exception handler 160a 0001 | | .CONST 0x0001 ; Number of locals 160b BODY_1608: 160b INIT_1608: 160b 4801 |H | Short_Literal 0x1 160c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 160d 0000 0000 | | .XXX[0x3] 160f 0000 | | 1610 ; -------------------------------------------------------------------------------------- 1610 ; SUBPROGRAM 1610 ; -------------------------------------------------------------------------------------- 1610 1624 | $ | .CONST 0x1624 ; Address of begin 1611 0004 | | .CONST 0x0004 ; Address of exception handler 1612 0005 | | .CONST 0x0005 ; Number of locals 1613 INIT_1610: 1613 00db | | Load_Top At_Offset_3 1614 e013 | | Load 0x0,0x13 1615 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 1616 00db | | Load_Top At_Offset_3 1617 e005 | | Load 0x0,0x5 1618 1b16 | | Execute Package,Field_Read,Field_Number 0x16 1619 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 161a 4801 |H | Short_Literal 0x1 161b 00da | | Load_Top At_Offset_2 161c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 161d e005 | | Load 0x0,0x5 161e 1b16 | | Execute Package,Field_Read,Field_Number 0x16 161f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1620 035b | [ | Declare_Type Array,Constrained 1621 0337 | 7 | Declare_Variable Array 1622 00e3 | | Load_Encached Natural_Cache 1623 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 1624 BODY_1610: 1624 00cf | | Action Mark_Auxiliary 1625 e602 | | Load 0x3,0x2 1626 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1627 01d9 | | Execute Vector,Reverse_Bounds 1628 0263 | c | Execute Discrete,Above_Bound 1629 7021 |p! | Jump_Nonzero 0x164b 162a 4801 |H | Short_Literal 0x1 162b 00d9 | | Load_Top At_Offset_1 162c e602 | | Load 0x3,0x2 162d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 162e 01d7 | | Execute Vector,Field_Read 162f e005 | | Load 0x0,0x5 1630 1b16 | | Execute Package,Field_Read,Field_Number 0x16 1631 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 1632 e603 | | Load 0x3,0x3 1633 e017 | | Load 0x0,0x17 1634 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 1635 7013 |p | Jump_Nonzero 0x1649 1636 00d8 | | Load_Top At_Offset_0 1637 e602 | | Load 0x3,0x2 1638 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1639 01d7 | | Execute Vector,Field_Read 163a e7ff | | Load 0x3,-0x1 163b e005 | | Load 0x0,0x5 163c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 163d 1884 | | Execute Package,Field_Execute,Field_Number 0x84 163e 680a |h | Jump_Zero 0x1649 163f 00d8 | | Load_Top At_Offset_0 1640 e602 | | Load 0x3,0x2 1641 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1642 01d7 | | Execute Vector,Field_Read 1643 e605 | | Load 0x3,0x5 1644 e604 | | Load 0x3,0x4 1645 01d6 | | Execute Vector,Field_Write 1646 00db | | Load_Top At_Offset_3 1647 0a01 | | Execute_Immediate Plus,0x1 1648 c605 | | Store 0x3,0x5 1649 00c8 | | Action Pop_Auxiliary_Range 164a 3fdf |? | Loop_Increasing 0x162a 164b 00ce | | Action Pop_Auxiliary 164c 4801 |H | Short_Literal 0x1 164d 00d9 | | Load_Top At_Offset_1 164e 0aff | | Execute_Immediate Plus,-0x1 164f 00db | | Load_Top At_Offset_3 1650 01cf | | Execute Vector,Slice_Read 1651 e005 | | Load 0x0,0x5 1652 1b16 | | Execute Package,Field_Read,Field_Number 0x16 1653 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1654 01c6 | | Execute Vector,Convert_To_Formal 1655 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1656 0000 0000 | | .XXX[0x2] 1658 ; -------------------------------------------------------------------------------------- 1658 ; SUBPROGRAM 1658 ; -------------------------------------------------------------------------------------- 1658 1679 | y | .CONST 0x1679 ; Address of begin 1659 0004 | | .CONST 0x0004 ; Address of exception handler 165a 0006 | | .CONST 0x0006 ; Number of locals 165b INIT_1658: 165b 00db | | Load_Top At_Offset_3 165c 00db | | Load_Top At_Offset_3 165d e013 | | Load 0x0,0x13 165e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 165f 00db | | Load_Top At_Offset_3 1660 e005 | | Load 0x0,0x5 1661 1b16 | | Execute Package,Field_Read,Field_Number 0x16 1662 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 1663 4801 |H | Short_Literal 0x1 1664 00da | | Load_Top At_Offset_2 1665 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 1666 e005 | | Load 0x0,0x5 1667 1b16 | | Execute Package,Field_Read,Field_Number 0x16 1668 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1669 035b | [ | Declare_Type Array,Constrained 166a 0337 | 7 | Declare_Variable Array 166b 00da | | Load_Top At_Offset_2 166c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 166d 00d9 | | Load_Top At_Offset_1 166e 01d4 | | Execute Vector,Structure_Write 166f 4801 |H | Short_Literal 0x1 1670 00db | | Load_Top At_Offset_3 1671 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 1672 e005 | | Load 0x0,0x5 1673 1b16 | | Execute Package,Field_Read,Field_Number 0x16 1674 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1675 035b | [ | Declare_Type Array,Constrained 1676 0337 | 7 | Declare_Variable Array 1677 00e3 | | Load_Encached Natural_Cache 1678 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 1679 BODY_1658: 1679 00cf | | Action Mark_Auxiliary 167a 00db | | Load_Top At_Offset_3 167b 01d9 | | Execute Vector,Reverse_Bounds 167c 0263 | c | Execute Discrete,Above_Bound 167d 701d |p | Jump_Nonzero 0x169b 167e 00d8 | | Load_Top At_Offset_0 167f e604 | | Load 0x3,0x4 1680 01d7 | | Execute Vector,Field_Read 1681 e005 | | Load 0x0,0x5 1682 1b16 | | Execute Package,Field_Read,Field_Number 0x16 1683 1886 | | Execute Package,Field_Execute,Field_Number 0x86 1684 7014 |p | Jump_Nonzero 0x1699 1685 4801 |H | Short_Literal 0x1 1686 00d9 | | Load_Top At_Offset_1 1687 e604 | | Load 0x3,0x4 1688 01d7 | | Execute Vector,Field_Read 1689 e005 | | Load 0x0,0x5 168a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 168b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 168c e603 | | Load 0x3,0x3 168d e017 | | Load 0x0,0x17 168e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 168f 7009 |p | Jump_Nonzero 0x1699 1690 00d8 | | Load_Top At_Offset_0 1691 e604 | | Load 0x3,0x4 1692 01d7 | | Execute Vector,Field_Read 1693 e606 | | Load 0x3,0x6 1694 e605 | | Load 0x3,0x5 1695 01d6 | | Execute Vector,Field_Write 1696 00db | | Load_Top At_Offset_3 1697 0a01 | | Execute_Immediate Plus,0x1 1698 c606 | | Store 0x3,0x6 1699 00c8 | | Action Pop_Auxiliary_Range 169a 3fe3 |? | Loop_Increasing 0x167e 169b 00ce | | Action Pop_Auxiliary 169c 4801 |H | Short_Literal 0x1 169d e602 | | Load 0x3,0x2 169e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 169f 0aff | | Execute_Immediate Plus,-0x1 16a0 00db | | Load_Top At_Offset_3 16a1 01cf | | Execute Vector,Slice_Read 16a2 e005 | | Load 0x0,0x5 16a3 1b16 | | Execute Package,Field_Read,Field_Number 0x16 16a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 16a5 01c6 | | Execute Vector,Convert_To_Formal 16a6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 16a7 0000 | | .XXX[0x1] 16a8 ; -------------------------------------------------------------------------------------- 16a8 ; SUBPROGRAM 16a8 ; -------------------------------------------------------------------------------------- 16a8 16af | | .CONST 0x16af ; Address of begin 16a9 0004 | | .CONST 0x0004 ; Address of exception handler 16aa 0004 | | .CONST 0x0004 ; Number of locals 16ab INIT_16a8: 16ab 00e1 | | Load_Encached Boolean_Cache 16ac 00e1 | | Load_Encached Boolean_Cache 16ad 029f 198b | | Declare_Subprogram INIT_1988,For_Call 16af BODY_16a8: 16af 4800 |H | Short_Literal 0x0 16b0 e014 | | Load 0x0,0x14 16b1 181c | | Execute Package,Field_Execute,Field_Number 0x1c 16b2 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 16b3 4801 |H | Short_Literal 0x1 16b4 e014 | | Load 0x0,0x14 16b5 181f | | Execute Package,Field_Execute,Field_Number 0x1f 16b6 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 16b7 8604 | | Call 0x3,0x4 16b8 0831 | 1 | Execute_Immediate Raise,0x31 16b9 0000 0000 | | .BLANK 0000[0x7] 16c0 ; -------------------------------------------------------------------------------------- 16c0 ; SUBPROGRAM 16c0 ; -------------------------------------------------------------------------------------- 16c0 16c8 | | .CONST 0x16c8 ; Address of begin 16c1 0004 | | .CONST 0x0004 ; Address of exception handler 16c2 0003 | | .CONST 0x0003 ; Number of locals 16c3 INIT_16c0: 16c3 e5fe | | Load 0x2,-0x2 16c4 e402 | | Load 0x2,0x2 16c5 824b | K | Call 0x1,0x4b 16c6 029f 19a3 | | Declare_Subprogram INIT_19a0,For_Call 16c8 BODY_16c0: 16c8 00cf | | Action Mark_Auxiliary 16c9 00da | | Load_Top At_Offset_2 16ca 01d9 | | Execute Vector,Reverse_Bounds 16cb 0263 | c | Execute Discrete,Above_Bound 16cc 700a |p | Jump_Nonzero 0x16d7 16cd e404 | | Load 0x2,0x4 16ce e403 | | Load 0x2,0x3 16cf 01dc | | Execute Vector,Last 16d0 027d | } | Execute Discrete,Greater 16d1 6802 |h | Jump_Zero 0x16d4 16d2 00d2 | | Pop_Control Pop_Count_2 16d3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 16d4 8603 | | Call 0x3,0x3 16d5 00c8 | | Action Pop_Auxiliary_Range 16d6 3ff6 |? | Loop_Increasing 0x16cd 16d7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 16d8 ; -------------------------------------------------------------------------------------- 16d8 ; SUBPROGRAM 16d8 ; -------------------------------------------------------------------------------------- 16d8 16dd | | .CONST 0x16dd ; Address of begin 16d9 16ec | | .CONST 0x16ec ; Address of exception handler 16da 0002 | | .CONST 0x0002 ; Number of locals 16db INIT_16d8: 16db 029f 19d3 | | Declare_Subprogram INIT_19d0,For_Call 16dd BODY_16d8: 16dd e22a | * | Load 0x1,0x2a 16de 1b13 | | Execute Package,Field_Read,Field_Number 0x13 16df e011 | | Load 0x0,0x11 16e0 180d | | Execute Package,Field_Execute,Field_Number 0xd 16e1 e22a | * | Load 0x1,0x2a 16e2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 16e3 c404 | | Store 0x2,0x4 16e4 4800 |H | Short_Literal 0x0 16e5 4801 |H | Short_Literal 0x1 16e6 e407 | | Load 0x2,0x7 16e7 e404 | | Load 0x2,0x4 16e8 e22a | * | Load 0x1,0x2a 16e9 1818 | | Execute Package,Field_Execute,Field_Number 0x18 16ea 8602 | | Call 0x3,0x2 16eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 16ec TRAP_16d8: 16ec 0007 | | Action Break_Optional 16ed e404 | | Load 0x2,0x4 16ee e22a | * | Load 0x1,0x2a 16ef 181d | | Execute Package,Field_Execute,Field_Number 0x1d 16f0 4801 |H | Short_Literal 0x1 16f1 4802 |H | Short_Literal 0x2 16f2 e012 | | Load 0x0,0x12 16f3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 16f4 0334 | 4 | Declare_Variable Array,With_Constraint 16f5 e5fe | | Load 0x2,-0x2 16f6 e013 | | Load 0x0,0x13 16f7 1820 | | Execute Package,Field_Execute,Field_Number 0x20 16f8 4801 |H | Short_Literal 0x1 16f9 00da | | Load_Top At_Offset_2 16fa 01d6 | | Execute Vector,Field_Write 16fb e5ff | | Load 0x2,-0x1 16fc e005 | | Load 0x0,0x5 16fd 1b14 | | Execute Package,Field_Read,Field_Number 0x14 16fe 1810 | | Execute Package,Field_Execute,Field_Number 0x10 16ff 4802 |H | Short_Literal 0x2 1700 00da | | Load_Top At_Offset_2 1701 01d6 | | Execute Vector,Field_Write 1702 6009 |` | Indirect_Literal Discrete,0x170c,{0x00000000, 0x0000380d} 1703 e014 | | Load 0x0,0x14 1704 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1705 e406 | | Load 0x2,0x6 1706 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 1707 e406 | | Load 0x2,0x6 1708 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1709 00cb | | Action Pop_Block_With_Result 170a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 170b 0000 | | .XXX[0x1] 170c 0000 0000 | | .LITERAL {0x00000000, 0x0000380d} 1710 ; -------------------------------------------------------------------------------------- 1710 ; SUBPROGRAM 1710 ; -------------------------------------------------------------------------------------- 1710 1713 | | .CONST 0x1713 ; Address of begin 1711 0004 | | .CONST 0x0004 ; Address of exception handler 1712 0001 | | .CONST 0x0001 ; Number of locals 1713 BODY_1710: 1713 INIT_1710: 1713 e40a | | Load 0x2,0xa 1714 e015 | | Load 0x0,0x15 1715 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 1716 0c02 | | Execute_Immediate Greater_Equal,0x2 1717 6812 |h | Jump_Zero 0x172a 1718 e40d | | Load 0x2,0xd 1719 e002 | | Load 0x0,0x2 171a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 171b 4801 |H | Short_Literal 0x1 171c 4801 |H | Short_Literal 0x1 171d e012 | | Load 0x0,0x12 171e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 171f 0334 | 4 | Declare_Variable Array,With_Constraint 1720 e40a | | Load 0x2,0xa 1721 e015 | | Load 0x0,0x15 1722 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 1723 4801 |H | Short_Literal 0x1 1724 00da | | Load_Top At_Offset_2 1725 01d6 | | Execute Vector,Field_Write 1726 4804 |H | Short_Literal 0x4 1727 e5fc | | Load 0x2,-0x4 1728 e015 | | Load 0x0,0x15 1729 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 172a e40a | | Load 0x2,0xa 172b e015 | | Load 0x0,0x15 172c 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 172d 7006 |p | Jump_Nonzero 0x1734 172e e40a | | Load 0x2,0xa 172f e015 | | Load 0x0,0x15 1730 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 1731 e5fc | | Load 0x2,-0x4 1732 e015 | | Load 0x0,0x15 1733 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 1734 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1735 0000 0000 | | .XXX[0x3] 1737 0000 | | 1738 ; -------------------------------------------------------------------------------------- 1738 ; SUBPROGRAM 1738 ; -------------------------------------------------------------------------------------- 1738 173b | ; | .CONST 0x173b ; Address of begin 1739 0004 | | .CONST 0x0004 ; Address of exception handler 173a 0001 | | .CONST 0x0001 ; Number of locals 173b BODY_1738: 173b INIT_1738: 173b e409 | | Load 0x2,0x9 173c a408 | | Store_Unchecked 0x2,0x8 173d e409 | | Load 0x2,0x9 173e e005 | | Load 0x0,0x5 173f 1b16 | | Execute Package,Field_Read,Field_Number 0x16 1740 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 1741 824a | J | Call 0x1,0x4a 1742 a40d | | Store_Unchecked 0x2,0xd 1743 8411 | | Call 0x2,0x11 1744 e015 | | Load 0x0,0x15 1745 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 1746 a40a | | Store_Unchecked 0x2,0xa 1747 e40d | | Load 0x2,0xd 1748 e002 | | Load 0x0,0x2 1749 1812 | | Execute Package,Field_Execute,Field_Number 0x12 174a 4801 |H | Short_Literal 0x1 174b 4801 |H | Short_Literal 0x1 174c e012 | | Load 0x0,0x12 174d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 174e 0334 | 4 | Declare_Variable Array,With_Constraint 174f e409 | | Load 0x2,0x9 1750 e005 | | Load 0x0,0x5 1751 1b16 | | Execute Package,Field_Read,Field_Number 0x16 1752 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 1753 4801 |H | Short_Literal 0x1 1754 00da | | Load_Top At_Offset_2 1755 01d6 | | Execute Vector,Field_Write 1756 4807 |H | Short_Literal 0x7 1757 e40a | | Load 0x2,0xa 1758 e015 | | Load 0x0,0x15 1759 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 175a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 175b 0000 0000 | | .BLANK 0000[0x5] 1760 ; -------------------------------------------------------------------------------------- 1760 ; SUBPROGRAM 1760 ; -------------------------------------------------------------------------------------- 1760 1766 | f | .CONST 0x1766 ; Address of begin 1761 0004 | | .CONST 0x0004 ; Address of exception handler 1762 0002 | | .CONST 0x0002 ; Number of locals 1763 INIT_1760: 1763 e40e | | Load 0x2,0xe 1764 e015 | | Load 0x0,0x15 1765 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 1766 BODY_1760: 1766 00cf | | Action Mark_Auxiliary 1767 00d9 | | Load_Top At_Offset_1 1768 01d9 | | Execute Vector,Reverse_Bounds 1769 0263 | c | Execute Discrete,Above_Bound 176a 7008 |p | Jump_Nonzero 0x1773 176b e40a | | Load 0x2,0xa 176c 00d9 | | Load_Top At_Offset_1 176d e602 | | Load 0x3,0x2 176e 01d7 | | Execute Vector,Field_Read 176f e015 | | Load 0x0,0x15 1770 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 1771 00c8 | | Action Pop_Auxiliary_Range 1772 3ff8 |? | Loop_Increasing 0x176b 1773 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1774 0000 0000 | | .BLANK 0000[0x4] 1778 ; -------------------------------------------------------------------------------------- 1778 ; SUBPROGRAM 1778 ; -------------------------------------------------------------------------------------- 1778 177b | { | .CONST 0x177b ; Address of begin 1779 0004 | | .CONST 0x0004 ; Address of exception handler 177a 0001 | | .CONST 0x0001 ; Number of locals 177b BODY_1778: 177b INIT_1778: 177b e407 | | Load 0x2,0x7 177c e015 | | Load 0x0,0x15 177d 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 177e 0c02 | | Execute_Immediate Greater_Equal,0x2 177f 6812 |h | Jump_Zero 0x1792 1780 e408 | | Load 0x2,0x8 1781 e002 | | Load 0x0,0x2 1782 1812 | | Execute Package,Field_Execute,Field_Number 0x12 1783 4801 |H | Short_Literal 0x1 1784 4801 |H | Short_Literal 0x1 1785 e012 | | Load 0x0,0x12 1786 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1787 0334 | 4 | Declare_Variable Array,With_Constraint 1788 e407 | | Load 0x2,0x7 1789 e015 | | Load 0x0,0x15 178a 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 178b 4801 |H | Short_Literal 0x1 178c 00da | | Load_Top At_Offset_2 178d 01d6 | | Execute Vector,Field_Write 178e 4804 |H | Short_Literal 0x4 178f e5fc | | Load 0x2,-0x4 1790 e015 | | Load 0x0,0x15 1791 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 1792 e407 | | Load 0x2,0x7 1793 e015 | | Load 0x0,0x15 1794 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 1795 7006 |p | Jump_Nonzero 0x179c 1796 e407 | | Load 0x2,0x7 1797 e015 | | Load 0x0,0x15 1798 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 1799 e5fc | | Load 0x2,-0x4 179a e015 | | Load 0x0,0x15 179b 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 179c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 179d 0000 0000 | | .XXX[0x3] 179f 0000 | | 17a0 ; -------------------------------------------------------------------------------------- 17a0 ; SUBPROGRAM 17a0 ; -------------------------------------------------------------------------------------- 17a0 17a3 | | .CONST 0x17a3 ; Address of begin 17a1 0004 | | .CONST 0x0004 ; Address of exception handler 17a2 0001 | | .CONST 0x0001 ; Number of locals 17a3 BODY_17a0: 17a3 INIT_17a0: 17a3 e406 | | Load 0x2,0x6 17a4 a405 | | Store_Unchecked 0x2,0x5 17a5 e406 | | Load 0x2,0x6 17a6 e005 | | Load 0x0,0x5 17a7 1b16 | | Execute Package,Field_Read,Field_Number 0x16 17a8 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 17a9 824a | J | Call 0x1,0x4a 17aa a408 | | Store_Unchecked 0x2,0x8 17ab 840a | | Call 0x2,0xa 17ac e015 | | Load 0x0,0x15 17ad 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 17ae a407 | | Store_Unchecked 0x2,0x7 17af e408 | | Load 0x2,0x8 17b0 e002 | | Load 0x0,0x2 17b1 1812 | | Execute Package,Field_Execute,Field_Number 0x12 17b2 4801 |H | Short_Literal 0x1 17b3 4801 |H | Short_Literal 0x1 17b4 e012 | | Load 0x0,0x12 17b5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 17b6 0334 | 4 | Declare_Variable Array,With_Constraint 17b7 e406 | | Load 0x2,0x6 17b8 e005 | | Load 0x0,0x5 17b9 1b16 | | Execute Package,Field_Read,Field_Number 0x16 17ba 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 17bb 4801 |H | Short_Literal 0x1 17bc 00da | | Load_Top At_Offset_2 17bd 01d6 | | Execute Vector,Field_Write 17be 4807 |H | Short_Literal 0x7 17bf e407 | | Load 0x2,0x7 17c0 e015 | | Load 0x0,0x15 17c1 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 17c2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 17c3 0000 0000 | | .BLANK 0000[0x5] 17c8 ; -------------------------------------------------------------------------------------- 17c8 ; SUBPROGRAM 17c8 ; -------------------------------------------------------------------------------------- 17c8 17ce | | .CONST 0x17ce ; Address of begin 17c9 0004 | | .CONST 0x0004 ; Address of exception handler 17ca 0002 | | .CONST 0x0002 ; Number of locals 17cb INIT_17c8: 17cb e409 | | Load 0x2,0x9 17cc e015 | | Load 0x0,0x15 17cd 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 17ce BODY_17c8: 17ce 00cf | | Action Mark_Auxiliary 17cf 00d9 | | Load_Top At_Offset_1 17d0 01d9 | | Execute Vector,Reverse_Bounds 17d1 0263 | c | Execute Discrete,Above_Bound 17d2 7008 |p | Jump_Nonzero 0x17db 17d3 e407 | | Load 0x2,0x7 17d4 00d9 | | Load_Top At_Offset_1 17d5 e602 | | Load 0x3,0x2 17d6 01d7 | | Execute Vector,Field_Read 17d7 e015 | | Load 0x0,0x15 17d8 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 17d9 00c8 | | Action Pop_Auxiliary_Range 17da 3ff8 |? | Loop_Increasing 0x17d3 17db 4501 |E | Exit_Suprogram New_Top_Offset 0x1 17dc 0000 0000 | | .BLANK 0000[0x4] 17e0 ; -------------------------------------------------------------------------------------- 17e0 ; SUBPROGRAM 17e0 ; -------------------------------------------------------------------------------------- 17e0 17ea | | .CONST 0x17ea ; Address of begin 17e1 0004 | | .CONST 0x0004 ; Address of exception handler 17e2 0003 | | .CONST 0x0003 ; Number of locals 17e3 INIT_17e0: 17e3 e406 | | Load 0x2,0x6 17e4 e015 | | Load 0x0,0x15 17e5 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 17e6 e015 | | Load 0x0,0x15 17e7 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 17e8 029f 1a13 | | Declare_Subprogram INIT_1a10,For_Call 17ea BODY_17e0: 17ea 00d9 | | Load_Top At_Offset_1 17eb 01db | | Execute Vector,Length 17ec 7001 |p | Jump_Nonzero 0x17ee 17ed 4501 |E | Exit_Suprogram New_Top_Offset 0x1 17ee 00cf | | Action Mark_Auxiliary 17ef 00da | | Load_Top At_Offset_2 17f0 01d9 | | Execute Vector,Reverse_Bounds 17f1 0263 | c | Execute Discrete,Above_Bound 17f2 7017 |p | Jump_Nonzero 0x180a 17f3 00d8 | | Load_Top At_Offset_0 17f4 e602 | | Load 0x3,0x2 17f5 01d7 | | Execute Vector,Field_Read 17f6 e015 | | Load 0x0,0x15 17f7 1816 | | Execute Package,Field_Execute,Field_Number 0x16 17f8 a405 | | Store_Unchecked 0x2,0x5 17f9 e405 | | Load 0x2,0x5 17fa 0f0a | | Execute_Immediate Equal,0xa 17fb 7006 |p | Jump_Nonzero 0x1802 17fc e405 | | Load 0x2,0x5 17fd 0f0c | | Execute_Immediate Equal,0xc 17fe 7003 |p | Jump_Nonzero 0x1802 17ff e405 | | Load 0x2,0x5 1800 0f0f | | Execute_Immediate Equal,0xf 1801 6806 |h | Jump_Zero 0x1808 1802 e403 | | Load 0x2,0x3 1803 e5fe | | Load 0x2,-0x2 1804 027d | } | Execute Discrete,Greater 1805 6801 |h | Jump_Zero 0x1807 1806 08e2 | | Execute_Immediate Raise,0xe2 1807 8603 | | Call 0x3,0x3 1808 00c8 | | Action Pop_Auxiliary_Range 1809 3fe9 |? | Loop_Increasing 0x17f3 180a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 180b 0000 0000 | | .BLANK 0000[0x5] 1810 ; -------------------------------------------------------------------------------------- 1810 ; SUBPROGRAM 1810 ; -------------------------------------------------------------------------------------- 1810 1818 | | .CONST 0x1818 ; Address of begin 1811 0004 | | .CONST 0x0004 ; Address of exception handler 1812 0002 | | .CONST 0x0002 ; Number of locals 1813 INIT_1810: 1813 e406 | | Load 0x2,0x6 1814 e015 | | Load 0x0,0x15 1815 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 1816 e015 | | Load 0x0,0x15 1817 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 1818 BODY_1810: 1818 00cf | | Action Mark_Auxiliary 1819 00d9 | | Load_Top At_Offset_1 181a 01d9 | | Execute Vector,Reverse_Bounds 181b 0263 | c | Execute Discrete,Above_Bound 181c 7011 |p | Jump_Nonzero 0x182e 181d 00d8 | | Load_Top At_Offset_0 181e e602 | | Load 0x3,0x2 181f 01d7 | | Execute Vector,Field_Read 1820 e015 | | Load 0x0,0x15 1821 1816 | | Execute Package,Field_Execute,Field_Number 0x16 1822 0f03 | | Execute_Immediate Equal,0x3 1823 6808 |h | Jump_Zero 0x182c 1824 4801 |H | Short_Literal 0x1 1825 00d9 | | Load_Top At_Offset_1 1826 e602 | | Load 0x3,0x2 1827 01d7 | | Execute Vector,Field_Read 1828 e015 | | Load 0x0,0x15 1829 1818 | | Execute Package,Field_Execute,Field_Number 0x18 182a a406 | | Store_Unchecked 0x2,0x6 182b 8407 | | Call 0x2,0x7 182c 00c8 | | Action Pop_Auxiliary_Range 182d 3fef |? | Loop_Increasing 0x181d 182e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 182f 0000 | | .XXX[0x1] 1830 ; -------------------------------------------------------------------------------------- 1830 ; SUBPROGRAM 1830 ; -------------------------------------------------------------------------------------- 1830 1838 | 8 | .CONST 0x1838 ; Address of begin 1831 0004 | | .CONST 0x0004 ; Address of exception handler 1832 0002 | | .CONST 0x0002 ; Number of locals 1833 INIT_1830: 1833 e40a | | Load 0x2,0xa 1834 e5fe | | Load 0x2,-0x2 1835 8230 | 0 | Call 0x1,0x30 1836 e5ff | | Load 0x2,-0x1 1837 826c | l | Call 0x1,0x6c 1838 BODY_1830: 1838 00d8 | | Load_Top At_Offset_0 1839 01db | | Execute Vector,Length 183a 0c01 | | Execute_Immediate Greater_Equal,0x1 183b 6834 |h4 | Jump_Zero 0x1870 183c e405 | | Load 0x2,0x5 183d 7002 |p | Jump_Nonzero 0x1840 183e e406 | | Load 0x2,0x6 183f 6807 |h | Jump_Zero 0x1847 1840 e402 | | Load 0x2,0x2 1841 e5fd | | Load 0x2,-0x3 1842 e5fe | | Load 0x2,-0x2 1843 00db | | Load_Top At_Offset_3 1844 826a | j | Call 0x1,0x6a 1845 c402 | | Store 0x2,0x2 1846 7806 |x | Jump 0x184d 1847 e402 | | Load 0x2,0x2 1848 e5fd | | Load 0x2,-0x3 1849 e5fe | | Load 0x2,-0x2 184a 00db | | Load_Top At_Offset_3 184b 826b | k | Call 0x1,0x6b 184c c402 | | Store 0x2,0x2 184d e402 | | Load 0x2,0x2 184e e015 | | Load 0x0,0x15 184f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 1850 701f |p | Jump_Nonzero 0x1870 1851 e40a | | Load 0x2,0xa 1852 e002 | | Load 0x0,0x2 1853 1812 | | Execute Package,Field_Execute,Field_Number 0x12 1854 4801 |H | Short_Literal 0x1 1855 4801 |H | Short_Literal 0x1 1856 e012 | | Load 0x0,0x12 1857 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1858 0334 | 4 | Declare_Variable Array,With_Constraint 1859 e402 | | Load 0x2,0x2 185a e015 | | Load 0x0,0x15 185b 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 185c 4801 |H | Short_Literal 0x1 185d 00da | | Load_Top At_Offset_2 185e 01d6 | | Execute Vector,Field_Write 185f 4802 |H | Short_Literal 0x2 1860 e403 | | Load 0x2,0x3 1861 e015 | | Load 0x0,0x15 1862 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 1863 e402 | | Load 0x2,0x2 1864 e015 | | Load 0x0,0x15 1865 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 1866 7006 |p | Jump_Nonzero 0x186d 1867 e402 | | Load 0x2,0x2 1868 e015 | | Load 0x0,0x15 1869 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 186a e403 | | Load 0x2,0x3 186b e015 | | Load 0x0,0x15 186c 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 186d e015 | | Load 0x0,0x15 186e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 186f a402 | | Store_Unchecked 0x2,0x2 1870 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1871 0000 0000 | | .BLANK 0000[0x7] 1878 ; -------------------------------------------------------------------------------------- 1878 ; SUBPROGRAM 1878 ; -------------------------------------------------------------------------------------- 1878 1883 | | .CONST 0x1883 ; Address of begin 1879 0004 | | .CONST 0x0004 ; Address of exception handler 187a 0002 | | .CONST 0x0002 ; Number of locals 187b INIT_1878: 187b e5fb | | Load 0x2,-0x5 187c e5fc | | Load 0x2,-0x4 187d e5fd | | Load 0x2,-0x3 187e e603 | | Load 0x3,0x3 187f e602 | | Load 0x3,0x2 1880 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1881 01d7 | | Execute Vector,Field_Read 1882 8233 | 3 | Call 0x1,0x33 1883 BODY_1878: 1883 00d8 | | Load_Top At_Offset_0 1884 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1885 e408 | | Load 0x2,0x8 1886 00d8 | | Load_Top At_Offset_0 1887 00db | | Load_Top At_Offset_3 1888 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 1889 0273 | s | Execute Discrete,Plus 188a 0aff | | Execute_Immediate Plus,-0x1 188b 00d8 | | Load_Top At_Offset_0 188c 00e2 | | Load_Encached Integer_Cache 188d 0260 | ` | Execute Discrete,In_Type 188e 7001 |p | Jump_Nonzero 0x1890 188f 0801 | | Execute_Immediate Raise,0x1 1890 e407 | | Load 0x2,0x7 1891 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1892 01ce | | Execute Vector,Slice_Write 1893 e408 | | Load 0x2,0x8 1894 00d9 | | Load_Top At_Offset_1 1895 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 1896 0273 | s | Execute Discrete,Plus 1897 c408 | | Store 0x2,0x8 1898 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1899 0000 0000 | | .BLANK 0000[0x7] 18a0 ; -------------------------------------------------------------------------------------- 18a0 ; SUBPROGRAM 18a0 ; -------------------------------------------------------------------------------------- 18a0 18a3 | | .CONST 0x18a3 ; Address of begin 18a1 18b1 | | .CONST 0x18b1 ; Address of exception handler 18a2 0001 | | .CONST 0x0001 ; Number of locals 18a3 BODY_18a0: 18a3 INIT_18a0: 18a3 e5fd | | Load 0x2,-0x3 18a4 e7ff | | Load 0x3,-0x1 18a5 e013 | | Load 0x0,0x13 18a6 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 18a7 a604 | | Store_Unchecked 0x3,0x4 18a8 e602 | | Load 0x3,0x2 18a9 e014 | | Load 0x0,0x14 18aa 181d | | Execute Package,Field_Execute,Field_Number 0x1d 18ab e603 | | Load 0x3,0x3 18ac e014 | | Load 0x0,0x14 18ad 1820 | | Execute Package,Field_Execute,Field_Number 0x20 18ae e604 | | Load 0x3,0x4 18af 00cb | | Action Pop_Block_With_Result 18b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 18b1 TRAP_18a0: 18b1 0007 | | Action Break_Optional 18b2 e602 | | Load 0x3,0x2 18b3 e014 | | Load 0x0,0x14 18b4 181d | | Execute Package,Field_Execute,Field_Number 0x1d 18b5 e603 | | Load 0x3,0x3 18b6 e014 | | Load 0x0,0x14 18b7 1820 | | Execute Package,Field_Execute,Field_Number 0x20 18b8 00d8 | | Load_Top At_Offset_0 18b9 0101 | | Execute Exception,Reraise 18ba 0000 0000 | | .BLANK 0000[0x6] 18c0 ; -------------------------------------------------------------------------------------- 18c0 ; SUBPROGRAM 18c0 ; -------------------------------------------------------------------------------------- 18c0 18ee | | .CONST 0x18ee ; Address of begin 18c1 0004 | | .CONST 0x0004 ; Address of exception handler 18c2 0003 | | .CONST 0x0003 ; Number of locals 18c3 INIT_18c0: 18c3 e602 | | Load 0x3,0x2 18c4 e7fe | | Load 0x3,-0x2 18c5 4801 |H | Short_Literal 0x1 18c6 e005 | | Load 0x0,0x5 18c7 1b14 | | Execute Package,Field_Read,Field_Number 0x14 18c8 1b14 | | Execute Package,Field_Read,Field_Number 0x14 18c9 1c08 | | Execute_Immediate Run_Utility,0x8 18ca 4801 |H | Short_Literal 0x1 18cb 4801 |H | Short_Literal 0x1 18cc e005 | | Load 0x0,0x5 18cd 1b14 | | Execute Package,Field_Read,Field_Number 0x14 18ce 1b13 | | Execute Package,Field_Read,Field_Number 0x13 18cf 0334 | 4 | Declare_Variable Array,With_Constraint 18d0 e604 | | Load 0x3,0x4 18d1 4801 |H | Short_Literal 0x1 18d2 00da | | Load_Top At_Offset_2 18d3 01d6 | | Execute Vector,Field_Write 18d4 00d9 | | Load_Top At_Offset_1 18d5 00d8 | | Load_Top At_Offset_0 18d6 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 18d7 00da | | Load_Top At_Offset_2 18d8 01da | | Execute Vector,Bounds 18d9 00da | | Load_Top At_Offset_2 18da 01da | | Execute Vector,Bounds 18db 00da | | Load_Top At_Offset_2 18dc 027f | | Execute Discrete,Equal 18dd 7001 |p | Jump_Nonzero 0x18df 18de 08e0 | | Execute_Immediate Raise,0xe0 18df 00cd | | Action Spare6_Action 18e0 027f | | Execute Discrete,Equal 18e1 7001 |p | Jump_Nonzero 0x18e3 18e2 08e0 | | Execute_Immediate Raise,0xe0 18e3 00d2 | | Pop_Control Pop_Count_2 18e4 00d9 | | Load_Top At_Offset_1 18e5 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 18e6 4800 |H | Short_Literal 0x0 18e7 00d9 | | Load_Top At_Offset_1 18e8 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 18e9 8239 | 9 | Call 0x1,0x39 18ea e602 | | Load 0x3,0x2 18eb e7fe | | Load 0x3,-0x2 18ec 00da | | Load_Top At_Offset_2 18ed 823e | > | Call 0x1,0x3e 18ee BODY_18c0: 18ee 00cf | | Action Mark_Auxiliary 18ef 00da | | Load_Top At_Offset_2 18f0 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 18f1 01d9 | | Execute Vector,Reverse_Bounds 18f2 0263 | c | Execute Discrete,Above_Bound 18f3 7008 |p | Jump_Nonzero 0x18fc 18f4 e7fd | | Load 0x3,-0x3 18f5 00d9 | | Load_Top At_Offset_1 18f6 e802 | | Load 0x4,0x2 18f7 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 18f8 01d7 | | Execute Vector,Field_Read 18f9 840d | | Call 0x2,0xd 18fa 00c8 | | Action Pop_Auxiliary_Range 18fb 3ff8 |? | Loop_Increasing 0x18f4 18fc 00ce | | Action Pop_Auxiliary 18fd e602 | | Load 0x3,0x2 18fe e22a | * | Load 0x1,0x2a 18ff 181d | | Execute Package,Field_Execute,Field_Number 0x1d 1900 00d8 | | Load_Top At_Offset_0 1901 00cb | | Action Pop_Block_With_Result 1902 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 1903 0000 0000 | | .BLANK 0000[0x5] 1908 ; -------------------------------------------------------------------------------------- 1908 ; SUBPROGRAM 1908 ; -------------------------------------------------------------------------------------- 1908 1915 | | .CONST 0x1915 ; Address of begin 1909 0004 | | .CONST 0x0004 ; Address of exception handler 190a 0003 | | .CONST 0x0003 ; Number of locals 190b INIT_1908: 190b 4801 |H | Short_Literal 0x1 190c e602 | | Load 0x3,0x2 190d e7fe | | Load 0x3,-0x2 190e 4800 |H | Short_Literal 0x0 190f e7ff | | Load 0x3,-0x1 1910 823a | : | Call 0x1,0x3a 1911 e602 | | Load 0x3,0x2 1912 e7fe | | Load 0x3,-0x2 1913 00da | | Load_Top At_Offset_2 1914 823e | > | Call 0x1,0x3e 1915 BODY_1908: 1915 e7fd | | Load 0x3,-0x3 1916 e7ff | | Load 0x3,-0x1 1917 840d | | Call 0x2,0xd 1918 e602 | | Load 0x3,0x2 1919 e22a | * | Load 0x1,0x2a 191a 181d | | Execute Package,Field_Execute,Field_Number 0x1d 191b e7ff | | Load 0x3,-0x1 191c 00d9 | | Load_Top At_Offset_1 191d 822f | / | Call 0x1,0x2f 191e 00cb | | Action Pop_Block_With_Result 191f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 1920 ; -------------------------------------------------------------------------------------- 1920 ; SUBPROGRAM 1920 ; -------------------------------------------------------------------------------------- 1920 192c | , | .CONST 0x192c ; Address of begin 1921 0004 | | .CONST 0x0004 ; Address of exception handler 1922 0002 | | .CONST 0x0002 ; Number of locals 1923 INIT_1920: 1923 e7fe | | Load 0x3,-0x2 1924 00d8 | | Load_Top At_Offset_0 1925 00e3 | | Load_Encached Natural_Cache 1926 0260 | ` | Execute Discrete,In_Type 1927 7001 |p | Jump_Nonzero 0x1929 1928 0801 | | Execute_Immediate Raise,0x1 1929 e5fe | | Load 0x2,-0x2 192a e603 | | Load 0x3,0x3 192b 840f | | Call 0x2,0xf 192c BODY_1920: 192c 00cf | | Action Mark_Auxiliary 192d 00d9 | | Load_Top At_Offset_1 192e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 192f 01d9 | | Execute Vector,Reverse_Bounds 1930 0263 | c | Execute Discrete,Above_Bound 1931 701f |p | Jump_Nonzero 0x1951 1932 e604 | | Load 0x3,0x4 1933 e5fd | | Load 0x2,-0x3 1934 00da | | Load_Top At_Offset_2 1935 e802 | | Load 0x4,0x2 1936 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1937 01d7 | | Execute Vector,Field_Read 1938 e005 | | Load 0x0,0x5 1939 1b14 | | Execute Package,Field_Read,Field_Number 0x14 193a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 193b 8227 | ' | Call 0x1,0x27 193c 700b |p | Jump_Nonzero 0x1948 193d e604 | | Load 0x3,0x4 193e e5fd | | Load 0x2,-0x3 193f 00da | | Load_Top At_Offset_2 1940 e802 | | Load 0x4,0x2 1941 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1942 01d7 | | Execute Vector,Field_Read 1943 e005 | | Load 0x0,0x5 1944 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1945 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 1946 8227 | ' | Call 0x1,0x27 1947 7801 |x | Jump 0x1949 1948 4801 |H | Short_Literal 0x1 1949 a602 | | Store_Unchecked 0x3,0x2 194a e602 | | Load 0x3,0x2 194b 6803 |h | Jump_Zero 0x194f 194c 4801 |H | Short_Literal 0x1 194d 00cb | | Action Pop_Block_With_Result 194e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 194f 00c8 | | Action Pop_Auxiliary_Range 1950 3fe1 |? | Loop_Increasing 0x1932 1951 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1952 0000 0000 | | .BLANK 0000[0x6] 1958 ; -------------------------------------------------------------------------------------- 1958 ; SUBPROGRAM 1958 ; -------------------------------------------------------------------------------------- 1958 195f | _ | .CONST 0x195f ; Address of begin 1959 0004 | | .CONST 0x0004 ; Address of exception handler 195a 0002 | | .CONST 0x0002 ; Number of locals 195b INIT_1958: 195b 4800 |H | Short_Literal 0x0 195c e5fe | | Load 0x2,-0x2 195d e603 | | Load 0x3,0x3 195e 821f | | Call 0x1,0x1f 195f BODY_1958: 195f 00cf | | Action Mark_Auxiliary 1960 00d9 | | Load_Top At_Offset_1 1961 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1962 01d9 | | Execute Vector,Reverse_Bounds 1963 0263 | c | Execute Discrete,Above_Bound 1964 701f |p | Jump_Nonzero 0x1984 1965 e604 | | Load 0x3,0x4 1966 e5fd | | Load 0x2,-0x3 1967 00da | | Load_Top At_Offset_2 1968 e802 | | Load 0x4,0x2 1969 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 196a 01d7 | | Execute Vector,Field_Read 196b e005 | | Load 0x0,0x5 196c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 196d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 196e 8227 | ' | Call 0x1,0x27 196f 700b |p | Jump_Nonzero 0x197b 1970 e604 | | Load 0x3,0x4 1971 e5fd | | Load 0x2,-0x3 1972 00da | | Load_Top At_Offset_2 1973 e802 | | Load 0x4,0x2 1974 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1975 01d7 | | Execute Vector,Field_Read 1976 e005 | | Load 0x0,0x5 1977 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1978 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 1979 8227 | ' | Call 0x1,0x27 197a 7801 |x | Jump 0x197c 197b 4801 |H | Short_Literal 0x1 197c a602 | | Store_Unchecked 0x3,0x2 197d e602 | | Load 0x3,0x2 197e 6803 |h | Jump_Zero 0x1982 197f 4801 |H | Short_Literal 0x1 1980 00cb | | Action Pop_Block_With_Result 1981 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1982 00c8 | | Action Pop_Auxiliary_Range 1983 3fe1 |? | Loop_Increasing 0x1965 1984 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1985 0000 0000 | | .XXX[0x3] 1987 0000 | | 1988 ; -------------------------------------------------------------------------------------- 1988 ; SUBPROGRAM 1988 ; -------------------------------------------------------------------------------------- 1988 198e | | .CONST 0x198e ; Address of begin 1989 1997 | | .CONST 0x1997 ; Address of exception handler 198a 0002 | | .CONST 0x0002 ; Number of locals 198b INIT_1988: 198b e7fe | | Load 0x3,-0x2 198c e7ff | | Load 0x3,-0x1 198d 8405 | | Call 0x2,0x5 198e BODY_1988: 198e e602 | | Load 0x3,0x2 198f e014 | | Load 0x0,0x14 1990 181d | | Execute Package,Field_Execute,Field_Number 0x1d 1991 e603 | | Load 0x3,0x3 1992 e014 | | Load 0x0,0x14 1993 1820 | | Execute Package,Field_Execute,Field_Number 0x20 1994 00d8 | | Load_Top At_Offset_0 1995 00cb | | Action Pop_Block_With_Result 1996 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1997 TRAP_1988: 1997 0007 | | Action Break_Optional 1998 e602 | | Load 0x3,0x2 1999 e014 | | Load 0x0,0x14 199a 181d | | Execute Package,Field_Execute,Field_Number 0x1d 199b e603 | | Load 0x3,0x3 199c e014 | | Load 0x0,0x14 199d 1820 | | Execute Package,Field_Execute,Field_Number 0x20 199e 00d8 | | Load_Top At_Offset_0 199f 0101 | | Execute Exception,Reraise 19a0 ; -------------------------------------------------------------------------------------- 19a0 ; SUBPROGRAM 19a0 ; -------------------------------------------------------------------------------------- 19a0 19a9 | | .CONST 0x19a9 ; Address of begin 19a1 0004 | | .CONST 0x0004 ; Address of exception handler 19a2 0002 | | .CONST 0x0002 ; Number of locals 19a3 INIT_19a0: 19a3 e606 | | Load 0x3,0x6 19a4 e602 | | Load 0x3,0x2 19a5 01d7 | | Execute Vector,Field_Read 19a6 e005 | | Load 0x0,0x5 19a7 1b16 | | Execute Package,Field_Read,Field_Number 0x16 19a8 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 19a9 BODY_19a0: 19a9 00cf | | Action Mark_Auxiliary 19aa e5ff | | Load 0x2,-0x1 19ab 01d9 | | Execute Vector,Reverse_Bounds 19ac 0263 | c | Execute Discrete,Above_Bound 19ad 7020 |p | Jump_Nonzero 0x19ce 19ae 00d8 | | Load_Top At_Offset_0 19af e5ff | | Load 0x2,-0x1 19b0 01d7 | | Execute Vector,Field_Read 19b1 e005 | | Load 0x0,0x5 19b2 1b14 | | Execute Package,Field_Read,Field_Number 0x14 19b3 180f | | Execute Package,Field_Execute,Field_Number 0xf 19b4 7017 |p | Jump_Nonzero 0x19cc 19b5 4801 |H | Short_Literal 0x1 19b6 00d9 | | Load_Top At_Offset_1 19b7 e5ff | | Load 0x2,-0x1 19b8 01d7 | | Execute Vector,Field_Read 19b9 e005 | | Load 0x0,0x5 19ba 1b16 | | Execute Package,Field_Read,Field_Number 0x16 19bb 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 19bc e005 | | Load 0x0,0x5 19bd 1b16 | | Execute Package,Field_Read,Field_Number 0x16 19be 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 19bf e802 | | Load 0x4,0x2 19c0 e017 | | Load 0x0,0x17 19c1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 19c2 6809 |h | Jump_Zero 0x19cc 19c3 00d8 | | Load_Top At_Offset_0 19c4 e5ff | | Load 0x2,-0x1 19c5 01d7 | | Execute Vector,Field_Read 19c6 e404 | | Load 0x2,0x4 19c7 e403 | | Load 0x2,0x3 19c8 01d6 | | Execute Vector,Field_Write 19c9 e404 | | Load 0x2,0x4 19ca 0a01 | | Execute_Immediate Plus,0x1 19cb c404 | | Store 0x2,0x4 19cc 00c8 | | Action Pop_Auxiliary_Range 19cd 3fe0 |? | Loop_Increasing 0x19ae 19ce 4501 |E | Exit_Suprogram New_Top_Offset 0x1 19cf 0000 | | .XXX[0x1] 19d0 ; -------------------------------------------------------------------------------------- 19d0 ; SUBPROGRAM 19d0 ; -------------------------------------------------------------------------------------- 19d0 1a00 | | .CONST 0x1a00 ; Address of begin 19d1 0004 | | .CONST 0x0004 ; Address of exception handler 19d2 0003 | | .CONST 0x0003 ; Number of locals 19d3 INIT_19d0: 19d3 e404 | | Load 0x2,0x4 19d4 e5fe | | Load 0x2,-0x2 19d5 4801 |H | Short_Literal 0x1 19d6 e005 | | Load 0x0,0x5 19d7 1b14 | | Execute Package,Field_Read,Field_Number 0x14 19d8 1b14 | | Execute Package,Field_Read,Field_Number 0x14 19d9 1c08 | | Execute_Immediate Run_Utility,0x8 19da 4801 |H | Short_Literal 0x1 19db 4801 |H | Short_Literal 0x1 19dc e005 | | Load 0x0,0x5 19dd 1b14 | | Execute Package,Field_Read,Field_Number 0x14 19de 1b13 | | Execute Package,Field_Read,Field_Number 0x13 19df 0334 | 4 | Declare_Variable Array,With_Constraint 19e0 e407 | | Load 0x2,0x7 19e1 4801 |H | Short_Literal 0x1 19e2 00da | | Load_Top At_Offset_2 19e3 01d6 | | Execute Vector,Field_Write 19e4 00d9 | | Load_Top At_Offset_1 19e5 00d8 | | Load_Top At_Offset_0 19e6 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 19e7 00da | | Load_Top At_Offset_2 19e8 01da | | Execute Vector,Bounds 19e9 00da | | Load_Top At_Offset_2 19ea 01da | | Execute Vector,Bounds 19eb 00da | | Load_Top At_Offset_2 19ec 027f | | Execute Discrete,Equal 19ed 7001 |p | Jump_Nonzero 0x19ef 19ee 08e0 | | Execute_Immediate Raise,0xe0 19ef 00cd | | Action Spare6_Action 19f0 027f | | Execute Discrete,Equal 19f1 7001 |p | Jump_Nonzero 0x19f3 19f2 08e0 | | Execute_Immediate Raise,0xe0 19f3 00d2 | | Pop_Control Pop_Count_2 19f4 00d9 | | Load_Top At_Offset_1 19f5 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 19f6 e405 | | Load 0x2,0x5 19f7 00d9 | | Load_Top At_Offset_1 19f8 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 19f9 8239 | 9 | Call 0x1,0x39 19fa 4801 |H | Short_Literal 0x1 19fb e404 | | Load 0x2,0x4 19fc e5fe | | Load 0x2,-0x2 19fd 4800 |H | Short_Literal 0x0 19fe e802 | | Load 0x4,0x2 19ff 823b | ; | Call 0x1,0x3b 1a00 BODY_19d0: 1a00 e404 | | Load 0x2,0x4 1a01 e22a | * | Load 0x1,0x2a 1a02 181d | | Execute Package,Field_Execute,Field_Number 0x1d 1a03 00d8 | | Load_Top At_Offset_0 1a04 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 1a05 7005 |p | Jump_Nonzero 0x1a0b 1a06 00d8 | | Load_Top At_Offset_0 1a07 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1a08 00cb | | Action Pop_Block_With_Result 1a09 00cb | | Action Pop_Block_With_Result 1a0a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1a0b e406 | | Load 0x2,0x6 1a0c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 1a0d 00cb | | Action Pop_Block_With_Result 1a0e 00cb | | Action Pop_Block_With_Result 1a0f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 1a10 ; -------------------------------------------------------------------------------------- 1a10 ; SUBPROGRAM 1a10 ; -------------------------------------------------------------------------------------- 1a10 1a13 | | .CONST 0x1a13 ; Address of begin 1a11 1a26 | & | .CONST 0x1a26 ; Address of exception handler 1a12 0001 | | .CONST 0x0001 ; Number of locals 1a13 BODY_1a10: 1a13 INIT_1a10: 1a13 4801 |H | Short_Literal 0x1 1a14 e606 | | Load 0x3,0x6 1a15 e602 | | Load 0x3,0x2 1a16 01d7 | | Execute Vector,Field_Read 1a17 e015 | | Load 0x0,0x15 1a18 1818 | | Execute Package,Field_Execute,Field_Number 0x18 1a19 e005 | | Load 0x0,0x5 1a1a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1a1b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1a1c e005 | | Load 0x0,0x5 1a1d 1b14 | | Execute Package,Field_Read,Field_Number 0x14 1a1e 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 1a1f e403 | | Load 0x2,0x3 1a20 e402 | | Load 0x2,0x2 1a21 01d6 | | Execute Vector,Field_Write 1a22 e403 | | Load 0x2,0x3 1a23 0a01 | | Execute_Immediate Plus,0x1 1a24 c403 | | Store 0x2,0x3 1a25 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1a26 TRAP_1a10: 1a26 0007 | | Action Break_Optional 1a27 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1a28 ; -------------------------------------------------------------------------------------- 1a28 ; Debug Table 1a28 ; -------------------------------------------------------------------------------------- 1a28 0004 0009 | | .DEBUG4 0x0004,0x0009,0xeb37,0x0000,0x0001,0x0000 1a2e 0000 0000 | | .BLANK 0000[0x1d2]