|
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: 12288 (0x3000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 1610 | | .CONST 0x1610 ; 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 800d | | .CONST 0x800d ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0223 | # | .CONST 0x0223 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0077 | w | .CONST 0x0077 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 000d 0129 | ) | Execute Any,Make_Visible 000e 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 0010 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 0012 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 0014 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated 0016 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated 0018 00e3 | | Load_Encached Natural_Cache 0019 0266 | f | Execute Discrete,Bounds 001a e20d | | Load 0x1,0xd 001b 02a0 | | Declare_Subprogram Null_Subprogram 001c 4801 |H | Short_Literal 0x1 001d 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 001e 00e3 | | Load_Encached Natural_Cache 001f e002 | | Load 0x0,0x2 0020 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0021 4801 |H | Short_Literal 0x1 0022 620d |b | Indirect_Literal Discrete,0x230,{0x00000000, 0x7fffffff} 0023 e213 | | Load 0x1,0x13 0024 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object 0025 029f 14f3 | | Declare_Subprogram INIT_14f0,For_Call 0027 4800 |H | Short_Literal 0x0 0028 4801 |H | Short_Literal 0x1 0029 4801 |H | Short_Literal 0x1 002a 4800 |H | Short_Literal 0x0 002b 4801 |H | Short_Literal 0x1 002c 4801 |H | Short_Literal 0x1 002d 031e | | Declare_Type Variant_Record,Defined,Visible 002e 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 0030 00c4 | | Action Make_Default 0031 00c4 | | Action Make_Default 0032 00c4 | | Action Make_Default 0033 00c4 | | Action Make_Default 0034 00c4 | | Action Make_Default 0035 00c4 | | Action Make_Default 0036 00c4 | | Action Make_Default 0037 00c4 | | Action Make_Default 0038 00c4 | | Action Make_Default 0039 00c4 | | Action Make_Default 003a 00c4 | | Action Make_Default 003b 00c4 | | Action Make_Default 003c 00c4 | | Action Make_Default 003d 00c4 | | Action Make_Default 003e 00c4 | | Action Make_Default 003f 00c4 | | Action Make_Default 0040 00c4 | | Action Make_Default 0041 00c4 | | Action Make_Default 0042 00c4 | | Action Make_Default 0043 00c4 | | Action Make_Default 0044 00c4 | | Action Make_Default 0045 00c4 | | Action Make_Default 0046 00c4 | | Action Make_Default 0047 00c4 | | Action Make_Default 0048 00c4 | | Action Make_Default 0049 00c4 | | Action Make_Default 004a 00c4 | | Action Make_Default 004b 00c4 | | Action Make_Default 004c 00c4 | | Action Make_Default 004d 00c4 | | Action Make_Default 004e 00c4 | | Action Make_Default 004f 00c4 | | Action Make_Default 0050 00c4 | | Action Make_Default 0051 00c4 | | Action Make_Default 0052 00c4 | | Action Make_Default 0053 00c4 | | Action Make_Default 0054 00c4 | | Action Make_Default 0055 00c4 | | Action Make_Default 0056 00c4 | | Action Make_Default 0057 00c4 | | Action Make_Default 0058 00c4 | | Action Make_Default 0059 00c4 | | Action Make_Default 005a 00c4 | | Action Make_Default 005b 00c4 | | Action Make_Default 005c 00c4 | | Action Make_Default 005d 00c4 | | Action Make_Default 005e 00c4 | | Action Make_Default 005f 00c4 | | Action Make_Default 0060 00c4 | | Action Make_Default 0061 00c4 | | Action Make_Default 0062 00c4 | | Action Make_Default 0063 00c4 | | Action Make_Default 0064 00c4 | | Action Make_Default 0065 00c4 | | Action Make_Default 0066 00c4 | | Action Make_Default 0067 00c4 | | Action Make_Default 0068 00c4 | | Action Make_Default 0069 00c4 | | Action Make_Default 006a 00c4 | | Action Make_Default 006b 00c4 | | Action Make_Default 006c 00c4 | | Action Make_Default 006d 00c4 | | Action Make_Default 006e 00c4 | | Action Make_Default 006f 00c4 | | Action Make_Default 0070 00c4 | | Action Make_Default 0071 00c4 | | Action Make_Default 0072 00c4 | | Action Make_Default 0073 00c4 | | Action Make_Default 0074 00c4 | | Action Make_Default 0075 00c4 | | Action Make_Default 0076 00c4 | | Action Make_Default 0077 00c4 | | Action Make_Default 0078 00c4 | | Action Make_Default 0079 e003 | | Load 0x0,0x3 007a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 007b e003 | | Load 0x0,0x3 007c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 007d 029f 151b | | Declare_Subprogram INIT_1518,For_Call 007f 4802 |H | Short_Literal 0x2 0080 032e | . | Declare_Type Record,Defined,Visible 0081 c257 | W | Store 0x1,0x57 0082 00e3 | | Load_Encached Natural_Cache 0083 0266 | f | Execute Discrete,Bounds 0084 e257 | W | Load 0x1,0x57 0085 029f 0293 | | Declare_Subprogram INIT_0290,For_Call 0087 4801 |H | Short_Literal 0x1 0088 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0089 c258 | X | Store 0x1,0x58 008a 4801 |H | Short_Literal 0x1 008b 4801 |H | Short_Literal 0x1 008c e258 | X | Load 0x1,0x58 008d 035b | [ | Declare_Type Array,Constrained 008e 0336 | 6 | Declare_Variable Array,Visible 008f 00d8 | | Load_Top At_Offset_0 0090 0335 | 5 | Declare_Variable Array,Duplicate 0091 00cd | | Action Spare6_Action 0092 e257 | W | Load 0x1,0x57 0093 0322 | " | Declare_Variable Record 0094 e003 | | Load 0x0,0x3 0095 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0096 e257 | W | Load 0x1,0x57 0097 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 0098 0119 | | Execute Any,Check_In_Formal_Type 0099 00d9 | | Load_Top At_Offset_1 009a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 009b e003 | | Load 0x0,0x3 009c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 009d e257 | W | Load 0x1,0x57 009e 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 009f 0119 | | Execute Any,Check_In_Formal_Type 00a0 00d9 | | Load_Top At_Offset_1 00a1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00a2 4801 |H | Short_Literal 0x1 00a3 00da | | Load_Top At_Offset_2 00a4 01d6 | | Execute Vector,Field_Write 00a5 00d9 | | Load_Top At_Offset_1 00a6 01d4 | | Execute Vector,Structure_Write 00a7 c259 | Y | Store 0x1,0x59 00a8 e004 | | Load 0x0,0x4 00a9 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00aa 0129 | ) | Execute Any,Make_Visible 00ab c24b | K | Store 0x1,0x4b 00ac 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated 00ae c25a | Z | Store 0x1,0x5a 00af 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated 00b1 c25b | [ | Store 0x1,0x5b 00b2 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated 00b4 c218 | | Store 0x1,0x18 00b5 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated 00b7 c219 | | Store 0x1,0x19 00b8 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated 00ba c24e | N | Store 0x1,0x4e 00bb 029a 038b | | Declare_Subprogram INIT_0388,For_Outer_Call,Visible,Unelaborated 00bd c24f | O | Store 0x1,0x4f 00be 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated 00c0 c21c | | Store 0x1,0x1c 00c1 029a 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call,Visible,Unelaborated 00c3 c21d | | Store 0x1,0x1d 00c4 029a 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call,Visible,Unelaborated 00c6 c21e | | Store 0x1,0x1e 00c7 029a 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call,Visible,Unelaborated 00c9 c21f | | Store 0x1,0x1f 00ca 029a 040b | | Declare_Subprogram INIT_0408,For_Outer_Call,Visible,Unelaborated 00cc c220 | | Store 0x1,0x20 00cd 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated 00cf c221 | ! | Store 0x1,0x21 00d0 029a 0423 | #| Declare_Subprogram INIT_0420,For_Outer_Call,Visible,Unelaborated 00d2 c222 | " | Store 0x1,0x22 00d3 029a 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call,Visible,Unelaborated 00d5 c223 | # | Store 0x1,0x23 00d6 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated 00d8 c224 | $ | Store 0x1,0x24 00d9 029a 048b | | Declare_Subprogram INIT_0488,For_Outer_Call,Visible,Unelaborated 00db c225 | % | Store 0x1,0x25 00dc 029a 04a3 | | Declare_Subprogram INIT_04a0,For_Outer_Call,Visible,Unelaborated 00de c226 | & | Store 0x1,0x26 00df 029a 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call,Visible,Unelaborated 00e1 c227 | ' | Store 0x1,0x27 00e2 029a 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call,Visible,Unelaborated 00e4 c228 | ( | Store 0x1,0x28 00e5 029a 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated 00e7 c250 | P | Store 0x1,0x50 00e8 029a 051b | | Declare_Subprogram INIT_0518,For_Outer_Call,Visible,Unelaborated 00ea c251 | Q | Store 0x1,0x51 00eb 029a 0523 | #| Declare_Subprogram INIT_0520,For_Outer_Call,Visible,Unelaborated 00ed c252 | R | Store 0x1,0x52 00ee 029a 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call,Visible,Unelaborated 00f0 c253 | S | Store 0x1,0x53 00f1 029a 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call,Visible,Unelaborated 00f3 c254 | T | Store 0x1,0x54 00f4 029a 057b | {| Declare_Subprogram INIT_0578,For_Outer_Call,Visible,Unelaborated 00f6 c255 | U | Store 0x1,0x55 00f7 029a 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call,Visible,Unelaborated 00f9 c229 | ) | Store 0x1,0x29 00fa 029a 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call,Visible,Unelaborated 00fc c22a | * | Store 0x1,0x2a 00fd 029a 061b | | Declare_Subprogram INIT_0618,For_Outer_Call,Visible,Unelaborated 00ff c22b | + | Store 0x1,0x2b 0100 029a 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call,Visible,Unelaborated 0102 c22c | , | Store 0x1,0x2c 0103 029a 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call,Visible,Unelaborated 0105 c22d | - | Store 0x1,0x2d 0106 029a 06bb | | Declare_Subprogram INIT_06b8,For_Outer_Call,Visible,Unelaborated 0108 c22e | . | Store 0x1,0x2e 0109 029a 0703 | | Declare_Subprogram INIT_0700,For_Outer_Call,Visible,Unelaborated 010b c22f | / | Store 0x1,0x2f 010c 029a 073b | ;| Declare_Subprogram INIT_0738,For_Outer_Call,Visible,Unelaborated 010e c230 | 0 | Store 0x1,0x30 010f 029a 076b | k| Declare_Subprogram INIT_0768,For_Outer_Call,Visible,Unelaborated 0111 c231 | 1 | Store 0x1,0x31 0112 029a 07ab | | Declare_Subprogram INIT_07a8,For_Outer_Call,Visible,Unelaborated 0114 c256 | V | Store 0x1,0x56 0115 029a 07e3 | | Declare_Subprogram INIT_07e0,For_Outer_Call,Visible,Unelaborated 0117 c233 | 3 | Store 0x1,0x33 0118 029a 0823 | #| Declare_Subprogram INIT_0820,For_Outer_Call,Visible,Unelaborated 011a c234 | 4 | Store 0x1,0x34 011b 029a 0853 | S| Declare_Subprogram INIT_0850,For_Outer_Call,Visible,Unelaborated 011d c235 | 5 | Store 0x1,0x35 011e 029a 086b | k| Declare_Subprogram INIT_0868,For_Outer_Call,Visible,Unelaborated 0120 c236 | 6 | Store 0x1,0x36 0121 029a 0873 | s| Declare_Subprogram INIT_0870,For_Outer_Call,Visible,Unelaborated 0123 c237 | 7 | Store 0x1,0x37 0124 029a 0883 | | Declare_Subprogram INIT_0880,For_Outer_Call,Visible,Unelaborated 0126 c238 | 8 | Store 0x1,0x38 0127 029a 08a3 | | Declare_Subprogram INIT_08a0,For_Outer_Call,Visible,Unelaborated 0129 c239 | 9 | Store 0x1,0x39 012a 029a 08c3 | | Declare_Subprogram INIT_08c0,For_Outer_Call,Visible,Unelaborated 012c c23a | : | Store 0x1,0x3a 012d 029a 08e3 | | Declare_Subprogram INIT_08e0,For_Outer_Call,Visible,Unelaborated 012f c23b | ; | Store 0x1,0x3b 0130 029a 08fb | | Declare_Subprogram INIT_08f8,For_Outer_Call,Visible,Unelaborated 0132 c23c | < | Store 0x1,0x3c 0133 029a 0913 | | Declare_Subprogram INIT_0910,For_Outer_Call,Visible,Unelaborated 0135 c23d | = | Store 0x1,0x3d 0136 029a 098b | | Declare_Subprogram INIT_0988,For_Outer_Call,Visible,Unelaborated 0138 c23e | > | Store 0x1,0x3e 0139 029a 0a03 | | Declare_Subprogram INIT_0a00,For_Outer_Call,Visible,Unelaborated 013b c23f | ? | Store 0x1,0x3f 013c 029a 0a3b | ;| Declare_Subprogram INIT_0a38,For_Outer_Call,Visible,Unelaborated 013e c240 | @ | Store 0x1,0x40 013f 029a 0a7b | {| Declare_Subprogram INIT_0a78,For_Outer_Call,Visible,Unelaborated 0141 c241 | A | Store 0x1,0x41 0142 029a 0abb | | Declare_Subprogram INIT_0ab8,For_Outer_Call,Visible,Unelaborated 0144 c242 | B | Store 0x1,0x42 0145 029a 0b13 | | Declare_Subprogram INIT_0b10,For_Outer_Call,Visible,Unelaborated 0147 c243 | C | Store 0x1,0x43 0148 029a 0b53 | S| Declare_Subprogram INIT_0b50,For_Outer_Call,Visible,Unelaborated 014a c244 | D | Store 0x1,0x44 014b 029a 0b93 | | Declare_Subprogram INIT_0b90,For_Outer_Call,Visible,Unelaborated 014d c245 | E | Store 0x1,0x45 014e 029a 0bd3 | | Declare_Subprogram INIT_0bd0,For_Outer_Call,Visible,Unelaborated 0150 c246 | F | Store 0x1,0x46 0151 029a 0beb | | Declare_Subprogram INIT_0be8,For_Outer_Call,Visible,Unelaborated 0153 c247 | G | Store 0x1,0x47 0154 029a 0c03 | | Declare_Subprogram INIT_0c00,For_Outer_Call,Visible,Unelaborated 0156 c248 | H | Store 0x1,0x48 0157 029a 0c13 | | Declare_Subprogram INIT_0c10,For_Outer_Call,Visible,Unelaborated 0159 c249 | I | Store 0x1,0x49 015a 4808 |H | Short_Literal 0x8 015b 0093 153b | ;| push_full_address INIT_1538 015d 02a0 | | Declare_Subprogram Null_Subprogram 015e 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 015f c24a | J | Store 0x1,0x4a 0160 029a 0c23 | #| Declare_Subprogram INIT_0c20,For_Outer_Call,Visible,Unelaborated 0162 c25c | \ | Store 0x1,0x5c 0163 029a 0c33 | 3| Declare_Subprogram INIT_0c30,For_Outer_Call,Visible,Unelaborated 0165 c25d | ] | Store 0x1,0x5d 0166 00bf | | Action Accept_Activation 0167 029d 0c3b | ;| Declare_Subprogram INIT_0c38,For_Outer_Call 0169 029d 0c4b | K| Declare_Subprogram INIT_0c48,For_Outer_Call 016b 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 016c 00c7 | | Action Elaborate_Subprogram 016d 029d 0c5b | [| Declare_Subprogram INIT_0c58,For_Outer_Call 016f 029d 0d23 | #| Declare_Subprogram INIT_0d20,For_Outer_Call 0171 029d 0e1b | | Declare_Subprogram INIT_0e18,For_Outer_Call 0173 029d 0e43 | C| Declare_Subprogram INIT_0e40,For_Outer_Call 0175 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0176 00c7 | | Action Elaborate_Subprogram 0177 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0178 00c7 | | Action Elaborate_Subprogram 0179 e005 | | Load 0x0,0x5 017a 193c | < | Execute Package,Field_Reference,Field_Number 0x3c 017b 00c6 | | Action Check_Subprogram_Elaborated 017c e20d | | Load 0x1,0xd 017d 480f |H | Short_Literal 0xf 017e e006 | | Load 0x0,0x6 017f 1911 | | Execute Package,Field_Reference,Field_Number 0x11 0180 e006 | | Load 0x0,0x6 0181 1912 | | Execute Package,Field_Reference,Field_Number 0x12 0182 e007 | | Load 0x0,0x7 0183 e008 | | Load 0x0,0x8 0184 4800 |H | Short_Literal 0x0 0185 0007 | | Action Break_Optional 0186 029d 0e6b | k| Declare_Subprogram INIT_0e68,For_Outer_Call 0188 e005 | | Load 0x0,0x5 0189 193d | = | Execute Package,Field_Reference,Field_Number 0x3d 018a 00c6 | | Action Check_Subprogram_Elaborated 018b e20d | | Load 0x1,0xd 018c 480f |H | Short_Literal 0xf 018d 1d6c | l | Execute_Immediate Reference_Lex_1,0x6c 018e e001 | | Load 0x0,0x1 018f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0190 e009 | | Load 0x0,0x9 0191 e00a | | Load 0x0,0xa 0192 4800 |H | Short_Literal 0x0 0193 0007 | | Action Break_Optional 0194 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0195 00c7 | | Action Elaborate_Subprogram 0196 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0197 00c7 | | Action Elaborate_Subprogram 0198 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0199 00c7 | | Action Elaborate_Subprogram 019a 1d15 | | Execute_Immediate Reference_Lex_1,0x15 019b 00c7 | | Action Elaborate_Subprogram 019c 029d 0e83 | | Declare_Subprogram INIT_0e80,For_Outer_Call 019e 029d 0f03 | | Declare_Subprogram INIT_0f00,For_Outer_Call 01a0 029d 101b | | Declare_Subprogram INIT_1018,For_Outer_Call 01a2 1d5a | Z | Execute_Immediate Reference_Lex_1,0x5a 01a3 00c7 | | Action Elaborate_Subprogram 01a4 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b 01a5 00c7 | | Action Elaborate_Subprogram 01a6 1d18 | | Execute_Immediate Reference_Lex_1,0x18 01a7 00c7 | | Action Elaborate_Subprogram 01a8 1d19 | | Execute_Immediate Reference_Lex_1,0x19 01a9 00c7 | | Action Elaborate_Subprogram 01aa 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e 01ab 00c7 | | Action Elaborate_Subprogram 01ac 1d4f | O | Execute_Immediate Reference_Lex_1,0x4f 01ad 00c7 | | Action Elaborate_Subprogram 01ae 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 01af 00c7 | | Action Elaborate_Subprogram 01b0 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 01b1 00c7 | | Action Elaborate_Subprogram 01b2 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 01b3 00c7 | | Action Elaborate_Subprogram 01b4 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 01b5 00c7 | | Action Elaborate_Subprogram 01b6 1d20 | | Execute_Immediate Reference_Lex_1,0x20 01b7 00c7 | | Action Elaborate_Subprogram 01b8 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 01b9 00c7 | | Action Elaborate_Subprogram 01ba 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 01bb 00c7 | | Action Elaborate_Subprogram 01bc 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 01bd 00c7 | | Action Elaborate_Subprogram 01be 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 01bf 00c7 | | Action Elaborate_Subprogram 01c0 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 01c1 00c7 | | Action Elaborate_Subprogram 01c2 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 01c3 00c7 | | Action Elaborate_Subprogram 01c4 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 01c5 00c7 | | Action Elaborate_Subprogram 01c6 1d50 | P | Execute_Immediate Reference_Lex_1,0x50 01c7 00c7 | | Action Elaborate_Subprogram 01c8 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51 01c9 00c7 | | Action Elaborate_Subprogram 01ca 1d52 | R | Execute_Immediate Reference_Lex_1,0x52 01cb 00c7 | | Action Elaborate_Subprogram 01cc 1d53 | S | Execute_Immediate Reference_Lex_1,0x53 01cd 00c7 | | Action Elaborate_Subprogram 01ce 029d 1043 | C| Declare_Subprogram INIT_1040,For_Outer_Call 01d0 1d54 | T | Execute_Immediate Reference_Lex_1,0x54 01d1 00c7 | | Action Elaborate_Subprogram 01d2 1d55 | U | Execute_Immediate Reference_Lex_1,0x55 01d3 00c7 | | Action Elaborate_Subprogram 01d4 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 01d5 00c7 | | Action Elaborate_Subprogram 01d6 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 01d7 00c7 | | Action Elaborate_Subprogram 01d8 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 01d9 00c7 | | Action Elaborate_Subprogram 01da 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 01db 00c7 | | Action Elaborate_Subprogram 01dc 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 01dd 00c7 | | Action Elaborate_Subprogram 01de 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 01df 00c7 | | Action Elaborate_Subprogram 01e0 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 01e1 00c7 | | Action Elaborate_Subprogram 01e2 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 01e3 00c7 | | Action Elaborate_Subprogram 01e4 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 01e5 00c7 | | Action Elaborate_Subprogram 01e6 1d56 | V | Execute_Immediate Reference_Lex_1,0x56 01e7 00c7 | | Action Elaborate_Subprogram 01e8 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 01e9 00c7 | | Action Elaborate_Subprogram 01ea 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 01eb 00c7 | | Action Elaborate_Subprogram 01ec 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 01ed 00c7 | | Action Elaborate_Subprogram 01ee 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 01ef 00c7 | | Action Elaborate_Subprogram 01f0 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 01f1 00c7 | | Action Elaborate_Subprogram 01f2 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 01f3 00c7 | | Action Elaborate_Subprogram 01f4 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 01f5 00c7 | | Action Elaborate_Subprogram 01f6 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a 01f7 00c7 | | Action Elaborate_Subprogram 01f8 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b 01f9 00c7 | | Action Elaborate_Subprogram 01fa 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c 01fb 00c7 | | Action Elaborate_Subprogram 01fc 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d 01fd 00c7 | | Action Elaborate_Subprogram 01fe 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e 01ff 00c7 | | Action Elaborate_Subprogram 0200 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 0201 00c7 | | Action Elaborate_Subprogram 0202 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40 0203 00c7 | | Action Elaborate_Subprogram 0204 1d41 | A | Execute_Immediate Reference_Lex_1,0x41 0205 00c7 | | Action Elaborate_Subprogram 0206 1d42 | B | Execute_Immediate Reference_Lex_1,0x42 0207 00c7 | | Action Elaborate_Subprogram 0208 1d43 | C | Execute_Immediate Reference_Lex_1,0x43 0209 00c7 | | Action Elaborate_Subprogram 020a 1d44 | D | Execute_Immediate Reference_Lex_1,0x44 020b 00c7 | | Action Elaborate_Subprogram 020c 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 020d 00c7 | | Action Elaborate_Subprogram 020e 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 020f 00c7 | | Action Elaborate_Subprogram 0210 1d47 | G | Execute_Immediate Reference_Lex_1,0x47 0211 00c7 | | Action Elaborate_Subprogram 0212 1d48 | H | Execute_Immediate Reference_Lex_1,0x48 0213 00c7 | | Action Elaborate_Subprogram 0214 1d49 | I | Execute_Immediate Reference_Lex_1,0x49 0215 00c7 | | Action Elaborate_Subprogram 0216 1d5c | \ | Execute_Immediate Reference_Lex_1,0x5c 0217 00c7 | | Action Elaborate_Subprogram 0218 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d 0219 00c7 | | Action Elaborate_Subprogram 021a e00b | | Load 0x0,0xb 021b e00c | | Load 0x0,0xc 021c e00d | | Load 0x0,0xd 021d 1d60 | ` | Execute_Immediate Reference_Lex_1,0x60 021e 4804 |H | Short_Literal 0x4 021f e24a | J | Load 0x1,0x4a 0220 020e | | Execute Module,Augment_Imports 0221 e24a | J | Load 0x1,0x4a 0222 020d | | Execute Module,Elaborate 0223 BODY_0008: 0223 00bc | | Action Signal_Activated 0224 00bb | | Action Signal_Completion 0225 0000 0000 | | .XXX[0x3] 0227 0000 | | 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b e001 | | Load 0x0,0x1 022c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 022d 00ca | | Action Exit_Nullary_Function 022e 0000 0000 | | .XXX[0x2] 0230 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0234 0000 0000 | | .BLANK 0000[0x4] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b 00da | | Load_Top At_Offset_2 023c 021d | | Execute Heap_Access,Is_Null 023d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 023e 0000 0000 | | .XXX[0x2] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 00da | | Load_Top At_Offset_2 0244 e265 | e | Load 0x1,0x65 0245 e266 | f | Load 0x1,0x66 0246 1d67 | g | Execute_Immediate Reference_Lex_1,0x67 0247 1d68 | h | Execute_Immediate Reference_Lex_1,0x68 0248 1d69 | i | Execute_Immediate Reference_Lex_1,0x69 0249 e005 | | Load 0x0,0x5 024a 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 024b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 024c 0000 0000 | | .BLANK 0000[0x4] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 00da | | Load_Top At_Offset_2 0254 e26d | m | Load 0x1,0x6d 0255 e26e | n | Load 0x1,0x6e 0256 1d6f | o | Execute_Immediate Reference_Lex_1,0x6f 0257 e270 | p | Load 0x1,0x70 0258 1d71 | q | Execute_Immediate Reference_Lex_1,0x71 0259 e005 | | Load 0x0,0x5 025a 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 025b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 025c 0000 0000 | | .BLANK 0000[0x4] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0263 | c | .CONST 0x0263 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0001 | | .CONST 0x0001 ; Number of locals 0263 BODY_0260: 0263 INIT_0260: 0263 00da | | Load_Top At_Offset_2 0264 821c | | Call 0x1,0x1c 0265 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0266 0000 0000 | | .XXX[0x2] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b 4800 |H | Short_Literal 0x0 026c e214 | | Load 0x1,0x14 026d 1c08 | | Execute_Immediate Run_Utility,0x8 026e 4800 |H | Short_Literal 0x0 026f 00d9 | | Load_Top At_Offset_1 0270 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0271 4801 |H | Short_Literal 0x1 0272 4800 |H | Short_Literal 0x0 0273 e213 | | Load 0x1,0x13 0274 035b | [ | Declare_Type Array,Constrained 0275 0337 | 7 | Declare_Variable Array 0276 00d9 | | Load_Top At_Offset_1 0277 00d8 | | Load_Top At_Offset_0 0278 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0279 00da | | Load_Top At_Offset_2 027a 01da | | Execute Vector,Bounds 027b 00da | | Load_Top At_Offset_2 027c 01da | | Execute Vector,Bounds 027d 00da | | Load_Top At_Offset_2 027e 027f | | Execute Discrete,Equal 027f 7001 |p | Jump_Nonzero 0x281 0280 08e0 | | Execute_Immediate Raise,0xe0 0281 00cd | | Action Spare6_Action 0282 027f | | Execute Discrete,Equal 0283 7001 |p | Jump_Nonzero 0x285 0284 08e0 | | Execute_Immediate Raise,0xe0 0285 00d2 | | Pop_Control Pop_Count_2 0286 00d9 | | Load_Top At_Offset_1 0287 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0288 00ca | | Action Exit_Nullary_Function 0289 0000 0000 | | .BLANK 0000[0x7] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0293 | | .CONST 0x0293 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0001 | | .CONST 0x0001 ; Number of locals 0293 BODY_0290: 0293 INIT_0290: 0293 00d1 | | Pop_Control Pop_Count_1 0294 00da | | Load_Top At_Offset_2 0295 01dc | | Execute Vector,Last 0296 00db | | Load_Top At_Offset_3 0297 01dd | | Execute Vector,First 0298 0263 | c | Execute Discrete,Above_Bound 0299 7006 |p | Jump_Nonzero 0x2a0 029a 00d8 | | Load_Top At_Offset_0 029b e5ff | | Load 0x2,-0x1 029c 01d5 | | Execute Vector,Field_Reference 029d 1c00 | | Execute_Immediate Run_Utility,0x0 029e 0a01 | | Execute_Immediate Plus,0x1 029f 7ff8 | | Jump 0x298 02a0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02a1 0000 0000 | | .BLANK 0000[0x7] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02b9 | | .CONST 0x02b9 ; Address of begin 02a9 0327 | ' | .CONST 0x0327 ; Address of exception handler 02aa 0004 | | .CONST 0x0004 ; Number of locals 02ab INIT_02a8: 02ab e00e | | Load 0x0,0xe 02ac 0322 | " | Declare_Variable Record 02ad 00d8 | | Load_Top At_Offset_0 02ae 1c00 | | Execute_Immediate Run_Utility,0x0 02af e00f | | Load 0x0,0xf 02b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02b1 02c7 | | Declare_Variable Any 02b2 00d8 | | Load_Top At_Offset_0 02b3 1c00 | | Execute_Immediate Run_Utility,0x0 02b4 e00f | | Load 0x0,0xf 02b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02b6 02c7 | | Declare_Variable Any 02b7 00d8 | | Load_Top At_Offset_0 02b8 1c00 | | Execute_Immediate Run_Utility,0x0 02b9 BODY_02a8: 02b9 e5fd | | Load 0x2,-0x3 02ba 686b |hk | Jump_Zero 0x326 02bb 0092 157b | {| Action Push_String_Extended,0x157b ; "Refreshing unit " 02bd e5ff | | Load 0x2,-0x1 02be 0217 | | Execute Heap_Access,All_Reference 02bf 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 02c0 e010 | | Load 0x0,0x10 02c1 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02c2 01cc | | Execute Vector,Catenate 02c3 8011 | | Call 0x0,0x11 02c4 e5fc | | Load 0x2,-0x4 02c5 00db | | Load_Top At_Offset_3 02c6 e5ff | | Load 0x2,-0x1 02c7 8261 | a | Call 0x1,0x61 02c8 00d1 | | Pop_Control Pop_Count_1 02c9 c5fc | | Store 0x2,-0x4 02ca 4800 |H | Short_Literal 0x0 02cb e5fc | | Load 0x2,-0x4 02cc e002 | | Load 0x0,0x2 02cd 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 02ce 6857 |hW | Jump_Zero 0x326 02cf e5fc | | Load 0x2,-0x4 02d0 00d9 | | Load_Top At_Offset_1 02d1 0120 | | Execute Any,Is_Value 02d2 6803 |h | Jump_Zero 0x2d6 02d3 e00f | | Load 0x0,0xf 02d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02d5 7801 |x | Jump 0x2d7 02d6 00d9 | | Load_Top At_Offset_1 02d7 00db | | Load_Top At_Offset_3 02d8 0120 | | Execute Any,Is_Value 02d9 6803 |h | Jump_Zero 0x2dd 02da e00f | | Load 0x0,0xf 02db 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02dc 7801 |x | Jump 0x2de 02dd 00db | | Load_Top At_Offset_3 02de e5ff | | Load 0x2,-0x1 02df 8262 | b | Call 0x1,0x62 02e0 c403 | | Store 0x2,0x3 02e1 c404 | | Store 0x2,0x4 02e2 c5fc | | Store 0x2,-0x4 02e3 4800 |H | Short_Literal 0x0 02e4 e5fc | | Load 0x2,-0x4 02e5 e002 | | Load 0x0,0x2 02e6 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 02e7 683e |h> | Jump_Zero 0x326 02e8 4801 |H | Short_Literal 0x1 02e9 e5ff | | Load 0x2,-0x1 02ea 0217 | | Execute Heap_Access,All_Reference 02eb 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 02ec e00f | | Load 0x0,0xf 02ed 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02ee e5ff | | Load 0x2,-0x1 02ef 0217 | | Execute Heap_Access,All_Reference 02f0 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 02f1 e5fd | | Load 0x2,-0x3 02f2 0f02 | | Execute_Immediate Equal,0x2 02f3 6832 |h2 | Jump_Zero 0x326 02f4 00da | | Load_Top At_Offset_2 02f5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02f6 e003 | | Load 0x0,0x3 02f7 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02f8 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02f9 012f | / | Execute Any,Equal 02fa 6822 |h" | Jump_Zero 0x31d 02fb e5ff | | Load 0x2,-0x1 02fc 0217 | | Execute Heap_Access,All_Reference 02fd 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 02fe 681e |h | Jump_Zero 0x31d 02ff e5ff | | Load 0x2,-0x1 0300 0217 | | Execute Heap_Access,All_Reference 0301 3c11 |< | Execute Record,Field_Read,Field_Number 0x11 0302 0e02 | | Execute_Immediate Not_Equal,0x2 0303 7007 |p | Jump_Nonzero 0x30b 0304 e5ff | | Load 0x2,-0x1 0305 0217 | | Execute Heap_Access,All_Reference 0306 3c10 |< | Execute Record,Field_Read,Field_Number 0x10 0307 00da | | Load_Top At_Offset_2 0308 e00f | | Load 0x0,0xf 0309 181f | | Execute Package,Field_Execute,Field_Number 0x1f 030a 6808 |h | Jump_Zero 0x313 030b e5ff | | Load 0x2,-0x1 030c 8276 | v | Call 0x1,0x76 030d 6805 |h | Jump_Zero 0x313 030e e5fc | | Load 0x2,-0x4 030f e5fe | | Load 0x2,-0x2 0310 e5ff | | Load 0x2,-0x1 0311 8275 | u | Call 0x1,0x75 0312 c5fc | | Store 0x2,-0x4 0313 4802 |H | Short_Literal 0x2 0314 e5ff | | Load 0x2,-0x1 0315 0217 | | Execute Heap_Access,All_Reference 0316 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 0317 e00f | | Load 0x0,0xf 0318 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0319 e5ff | | Load 0x2,-0x1 031a 0217 | | Execute Heap_Access,All_Reference 031b 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 031c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 031d 4802 |H | Short_Literal 0x2 031e e5ff | | Load 0x2,-0x1 031f 0217 | | Execute Heap_Access,All_Reference 0320 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 0321 e00f | | Load 0x0,0xf 0322 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0323 e5ff | | Load 0x2,-0x1 0324 0217 | | Execute Heap_Access,All_Reference 0325 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 0326 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0327 TRAP_02a8: 0327 4885 |H | Short_Literal 0x85 0328 010f | | Execute Exception,Equal 0329 6812 |h | Jump_Zero 0x33c 032a e002 | | Load 0x0,0x2 032b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 032c 4801 |H | Short_Literal 0x1 032d 4801 |H | Short_Literal 0x1 032e e005 | | Load 0x0,0x5 032f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0330 035b | [ | Declare_Type Array,Constrained 0331 0337 | 7 | Declare_Variable Array 0332 e5ff | | Load 0x2,-0x1 0333 8210 | | Call 0x1,0x10 0334 4801 |H | Short_Literal 0x1 0335 00da | | Load_Top At_Offset_2 0336 01d6 | | Execute Vector,Field_Write 0337 6008 |` | Indirect_Literal Discrete,0x340,{0x00000000, 0x0000200e} 0338 e002 | | Load 0x0,0x2 0339 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 033a c5fc | | Store 0x2,-0x4 033b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 033c 0100 | | Execute Exception,Raise 033d 0000 0000 | | .XXX[0x3] 033f 0000 | | 0340 0000 0000 | | .LITERAL {0x00000000, 0x0000200e} 0344 0000 0000 | | .BLANK 0000[0x4] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 034b | K | .CONST 0x034b ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 0001 | | .CONST 0x0001 ; Number of locals 034b BODY_0348: 034b INIT_0348: 034b 00cf | | Action Mark_Auxiliary 034c 00db | | Load_Top At_Offset_3 034d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 034e 4801 |H | Short_Literal 0x1 034f 0263 | c | Execute Discrete,Above_Bound 0350 700b |p | Jump_Nonzero 0x35c 0351 e5fc | | Load 0x2,-0x4 0352 e5fd | | Load 0x2,-0x3 0353 e5fe | | Load 0x2,-0x2 0354 00db | | Load_Top At_Offset_3 0355 e5ff | | Load 0x2,-0x1 0356 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0357 01d7 | | Execute Vector,Field_Read 0358 825a | Z | Call 0x1,0x5a 0359 c5fc | | Store 0x2,-0x4 035a 00c8 | | Action Pop_Auxiliary_Range 035b 3ff5 |? | Loop_Increasing 0x351 035c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 035d 0000 0000 | | .XXX[0x3] 035f 0000 | | 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0363 | c | .CONST 0x0363 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0001 | | .CONST 0x0001 ; Number of locals 0363 BODY_0360: 0363 INIT_0360: 0363 00da | | Load_Top At_Offset_2 0364 6804 |h | Jump_Zero 0x369 0365 00da | | Load_Top At_Offset_2 0366 0217 | | Execute Heap_Access,All_Reference 0367 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0368 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0369 4800 |H | Short_Literal 0x0 036a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 036b 0000 0000 | | .BLANK 0000[0x5] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0373 | s | .CONST 0x0373 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0001 | | .CONST 0x0001 ; Number of locals 0373 BODY_0370: 0373 INIT_0370: 0373 00db | | Load_Top At_Offset_3 0374 00db | | Load_Top At_Offset_3 0375 0217 | | Execute Heap_Access,All_Reference 0376 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0377 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 037b | { | .CONST 0x037b ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0001 | | .CONST 0x0001 ; Number of locals 037b BODY_0378: 037b INIT_0378: 037b 00da | | Load_Top At_Offset_2 037c 6806 |h | Jump_Zero 0x383 037d 00da | | Load_Top At_Offset_2 037e 0217 | | Execute Heap_Access,All_Reference 037f 3c11 |< | Execute Record,Field_Read,Field_Number 0x11 0380 e5fe | | Load 0x2,-0x2 0381 027b | { | Execute Discrete,Greater_Equal 0382 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0383 4800 |H | Short_Literal 0x0 0384 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0385 0000 0000 | | .XXX[0x3] 0387 0000 | | 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 038b | | .CONST 0x038b ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0001 | | .CONST 0x0001 ; Number of locals 038b BODY_0388: 038b INIT_0388: 038b 00db | | Load_Top At_Offset_3 038c 00db | | Load_Top At_Offset_3 038d 824e | N | Call 0x1,0x4e 038e 6809 |h | Jump_Zero 0x398 038f 00da | | Load_Top At_Offset_2 0390 0217 | | Execute Heap_Access,All_Reference 0391 3c10 |< | Execute Record,Field_Read,Field_Number 0x10 0392 00d8 | | Load_Top At_Offset_0 0393 0120 | | Execute Any,Is_Value 0394 7002 |p | Jump_Nonzero 0x397 0395 00d8 | | Load_Top At_Offset_0 0396 011e | | Execute Any,Convert 0397 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0398 e004 | | Load 0x0,0x4 0399 180f | | Execute Package,Field_Execute,Field_Number 0xf 039a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 039b 0000 0000 | | .BLANK 0000[0x5] 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03a3 | | .CONST 0x03a3 ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0001 | | .CONST 0x0001 ; Number of locals 03a3 BODY_03a0: 03a3 INIT_03a0: 03a3 00da | | Load_Top At_Offset_2 03a4 6806 |h | Jump_Zero 0x3ab 03a5 00da | | Load_Top At_Offset_2 03a6 0217 | | Execute Heap_Access,All_Reference 03a7 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 03a8 e010 | | Load 0x0,0x10 03a9 1812 | | Execute Package,Field_Execute,Field_Number 0x12 03aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03ab 00ea | | Load_Encached Null_String_Cache 03ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03ad 0000 0000 | | .XXX[0x3] 03af 0000 | | 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03bf | | .CONST 0x03bf ; Address of begin 03b1 0004 | | .CONST 0x0004 ; Address of exception handler 03b2 0003 | | .CONST 0x0003 ; Number of locals 03b3 INIT_03b0: 03b3 00da | | Load_Top At_Offset_2 03b4 0217 | | Execute Heap_Access,All_Reference 03b5 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 03b6 e010 | | Load 0x0,0x10 03b7 1812 | | Execute Package,Field_Execute,Field_Number 0x12 03b8 4800 |H | Short_Literal 0x0 03b9 00d9 | | Load_Top At_Offset_1 03ba 4827 |H' | Short_Literal 0x27 03bb e012 | | Load 0x0,0x12 03bc 1820 | | Execute Package,Field_Execute,Field_Number 0x20 03bd 00e2 | | Load_Encached Integer_Cache 03be 03f1 | | Declare_Variable Discrete,With_Value 03bf BODY_03b0: 03bf 00d8 | | Load_Top At_Offset_0 03c0 680e |h | Jump_Zero 0x3cf 03c1 e5ff | | Load 0x2,-0x1 03c2 0217 | | Execute Heap_Access,All_Reference 03c3 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 03c4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03c5 e003 | | Load 0x0,0x3 03c6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03c7 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 03c8 00d9 | | Load_Top At_Offset_1 03c9 00db | | Load_Top At_Offset_3 03ca 01dc | | Execute Vector,Last 03cb e402 | | Load 0x2,0x2 03cc 01cf | | Execute Vector,Slice_Read 03cd 01cc | | Execute Vector,Catenate 03ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03cf e5ff | | Load 0x2,-0x1 03d0 0217 | | Execute Heap_Access,All_Reference 03d1 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 03d2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03d3 e003 | | Load 0x0,0x3 03d4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03d5 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 03d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03d7 0000 | | .XXX[0x1] 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; -------------------------------------------------------------------------------------- 03d8 03df | | .CONST 0x03df ; Address of begin 03d9 0004 | | .CONST 0x0004 ; Address of exception handler 03da 0003 | | .CONST 0x0003 ; Number of locals 03db INIT_03d8: 03db 00da | | Load_Top At_Offset_2 03dc 821c | | Call 0x1,0x1c 03dd 00db | | Load_Top At_Offset_3 03de 821d | | Call 0x1,0x1d 03df BODY_03d8: 03df 00d9 | | Load_Top At_Offset_1 03e0 01dd | | Execute Vector,First 03e1 00da | | Load_Top At_Offset_2 03e2 01dc | | Execute Vector,Last 03e3 00da | | Load_Top At_Offset_2 03e4 01db | | Execute Vector,Length 03e5 0272 | r | Execute Discrete,Minus 03e6 0aff | | Execute_Immediate Plus,-0x1 03e7 00d8 | | Load_Top At_Offset_0 03e8 00e2 | | Load_Encached Integer_Cache 03e9 0260 | ` | Execute Discrete,In_Type 03ea 7001 |p | Jump_Nonzero 0x3ec 03eb 0801 | | Execute_Immediate Raise,0x1 03ec 00db | | Load_Top At_Offset_3 03ed 01cf | | Execute Vector,Slice_Read 03ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03ef 0000 | | .XXX[0x1] 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 03f3 | | .CONST 0x03f3 ; Address of begin 03f1 0004 | | .CONST 0x0004 ; Address of exception handler 03f2 0001 | | .CONST 0x0001 ; Number of locals 03f3 BODY_03f0: 03f3 INIT_03f0: 03f3 00da | | Load_Top At_Offset_2 03f4 680b |h | Jump_Zero 0x400 03f5 00da | | Load_Top At_Offset_2 03f6 0217 | | Execute Heap_Access,All_Reference 03f7 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 03f8 e001 | | Load 0x0,0x1 03f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03fa 00d9 | | Load_Top At_Offset_1 03fb 00d0 | | Action Swap_Control 03fc 0260 | ` | Execute Discrete,In_Type 03fd 7001 |p | Jump_Nonzero 0x3ff 03fe 0801 | | Execute_Immediate Raise,0x1 03ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0400 4800 |H | Short_Literal 0x0 0401 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0402 0000 0000 | | .BLANK 0000[0x6] 0408 ; -------------------------------------------------------------------------------------- 0408 ; SUBPROGRAM 0408 ; -------------------------------------------------------------------------------------- 0408 040b | | .CONST 0x040b ; Address of begin 0409 0004 | | .CONST 0x0004 ; Address of exception handler 040a 0001 | | .CONST 0x0001 ; Number of locals 040b BODY_0408: 040b INIT_0408: 040b 00db | | Load_Top At_Offset_3 040c 00db | | Load_Top At_Offset_3 040d 0217 | | Execute Heap_Access,All_Reference 040e 380a |8 | Execute Record,Field_Write,Field_Number 0xa 040f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0410 ; -------------------------------------------------------------------------------------- 0410 ; SUBPROGRAM 0410 ; -------------------------------------------------------------------------------------- 0410 0413 | | .CONST 0x0413 ; Address of begin 0411 0004 | | .CONST 0x0004 ; Address of exception handler 0412 0001 | | .CONST 0x0001 ; Number of locals 0413 BODY_0410: 0413 INIT_0410: 0413 00da | | Load_Top At_Offset_2 0414 6804 |h | Jump_Zero 0x419 0415 00da | | Load_Top At_Offset_2 0416 0217 | | Execute Heap_Access,All_Reference 0417 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0418 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0419 4800 |H | Short_Literal 0x0 041a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 041b 0000 0000 | | .BLANK 0000[0x5] 0420 ; -------------------------------------------------------------------------------------- 0420 ; SUBPROGRAM 0420 ; -------------------------------------------------------------------------------------- 0420 0427 | ' | .CONST 0x0427 ; Address of begin 0421 0004 | | .CONST 0x0004 ; Address of exception handler 0422 0002 | | .CONST 0x0002 ; Number of locals 0423 INIT_0420: 0423 e00e | | Load 0x0,0xe 0424 0322 | " | Declare_Variable Record 0425 00d8 | | Load_Top At_Offset_0 0426 1c00 | | Execute_Immediate Run_Utility,0x0 0427 BODY_0420: 0427 00db | | Load_Top At_Offset_3 0428 0217 | | Execute Heap_Access,All_Reference 0429 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 042a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 042b e003 | | Load 0x0,0x3 042c 181f | | Execute Package,Field_Execute,Field_Number 0x1f 042d 680a |h | Jump_Zero 0x438 042e e5fd | | Load 0x2,-0x3 042f 00d9 | | Load_Top At_Offset_1 0430 e5ff | | Load 0x2,-0x1 0431 8261 | a | Call 0x1,0x61 0432 00d1 | | Pop_Control Pop_Count_1 0433 c5fd | | Store 0x2,-0x3 0434 00d8 | | Load_Top At_Offset_0 0435 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0436 c5fe | | Store 0x2,-0x2 0437 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0438 00db | | Load_Top At_Offset_3 0439 0217 | | Execute Heap_Access,All_Reference 043a 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 043b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 043c c5fe | | Store 0x2,-0x2 043d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 043e 0000 0000 | | .XXX[0x2] 0440 ; -------------------------------------------------------------------------------------- 0440 ; SUBPROGRAM 0440 ; -------------------------------------------------------------------------------------- 0440 0447 | G | .CONST 0x0447 ; Address of begin 0441 0004 | | .CONST 0x0004 ; Address of exception handler 0442 0002 | | .CONST 0x0002 ; Number of locals 0443 INIT_0440: 0443 e00e | | Load 0x0,0xe 0444 0322 | " | Declare_Variable Record 0445 00d8 | | Load_Top At_Offset_0 0446 1c00 | | Execute_Immediate Run_Utility,0x0 0447 BODY_0440: 0447 00db | | Load_Top At_Offset_3 0448 0217 | | Execute Heap_Access,All_Reference 0449 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 044a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 044b e003 | | Load 0x0,0x3 044c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 044d 680a |h | Jump_Zero 0x458 044e e5fd | | Load 0x2,-0x3 044f 00d9 | | Load_Top At_Offset_1 0450 e5ff | | Load 0x2,-0x1 0451 8261 | a | Call 0x1,0x61 0452 00d1 | | Pop_Control Pop_Count_1 0453 c5fd | | Store 0x2,-0x3 0454 00d8 | | Load_Top At_Offset_0 0455 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0456 a5fe | | Store_Unchecked 0x2,-0x2 0457 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0458 00db | | Load_Top At_Offset_3 0459 0217 | | Execute Heap_Access,All_Reference 045a 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 045b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 045c a5fe | | Store_Unchecked 0x2,-0x2 045d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 045e 0000 0000 | | .XXX[0x2] 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 046a | j | .CONST 0x046a ; Address of begin 0461 047d | } | .CONST 0x047d ; Address of exception handler 0462 0003 | | .CONST 0x0003 ; Number of locals 0463 INIT_0460: 0463 e003 | | Load 0x0,0x3 0464 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0465 02c7 | | Declare_Variable Any 0466 00d8 | | Load_Top At_Offset_0 0467 1c00 | | Execute_Immediate Run_Utility,0x0 0468 029f 1073 | s| Declare_Subprogram INIT_1070,For_Call 046a BODY_0460: 046a e5ff | | Load 0x2,-0x1 046b 0217 | | Execute Heap_Access,All_Reference 046c 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 046d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 046e e003 | | Load 0x0,0x3 046f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0470 6806 |h | Jump_Zero 0x477 0471 8403 | | Call 0x2,0x3 0472 00d9 | | Load_Top At_Offset_1 0473 e5ff | | Load 0x2,-0x1 0474 0217 | | Execute Heap_Access,All_Reference 0475 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 0476 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0477 e5ff | | Load 0x2,-0x1 0478 0217 | | Execute Heap_Access,All_Reference 0479 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 047a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 047b c5fe | | Store 0x2,-0x2 047c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 047d TRAP_0460: 047d 4885 |H | Short_Literal 0x85 047e 010f | | Execute Exception,Equal 047f 6806 |h | Jump_Zero 0x486 0480 e5ff | | Load 0x2,-0x1 0481 0217 | | Execute Heap_Access,All_Reference 0482 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 0483 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0484 c5fe | | Store 0x2,-0x2 0485 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0486 0100 | | Execute Exception,Raise 0487 0000 | | .XXX[0x1] 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 048f | | .CONST 0x048f ; Address of begin 0489 0004 | | .CONST 0x0004 ; Address of exception handler 048a 0002 | | .CONST 0x0002 ; Number of locals 048b INIT_0488: 048b e00e | | Load 0x0,0xe 048c 0322 | " | Declare_Variable Record 048d 00d8 | | Load_Top At_Offset_0 048e 1c00 | | Execute_Immediate Run_Utility,0x0 048f BODY_0488: 048f e5fd | | Load 0x2,-0x3 0490 00d9 | | Load_Top At_Offset_1 0491 e5ff | | Load 0x2,-0x1 0492 8261 | a | Call 0x1,0x61 0493 00d1 | | Pop_Control Pop_Count_1 0494 c5fd | | Store 0x2,-0x3 0495 00d8 | | Load_Top At_Offset_0 0496 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0497 e5fe | | Load 0x2,-0x2 0498 016d | m | Execute Variant_Record,Structure_Write 0499 4502 |E | Exit_Suprogram New_Top_Offset 0x2 049a 0000 0000 | | .BLANK 0000[0x6] 04a0 ; -------------------------------------------------------------------------------------- 04a0 ; SUBPROGRAM 04a0 ; -------------------------------------------------------------------------------------- 04a0 04aa | | .CONST 0x04aa ; Address of begin 04a1 0004 | | .CONST 0x0004 ; Address of exception handler 04a2 0003 | | .CONST 0x0003 ; Number of locals 04a3 INIT_04a0: 04a3 e003 | | Load 0x0,0x3 04a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04a5 e003 | | Load 0x0,0x3 04a6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04a7 02c7 | | Declare_Variable Any 04a8 00d8 | | Load_Top At_Offset_0 04a9 1c00 | | Execute_Immediate Run_Utility,0x0 04aa BODY_04a0: 04aa e5fd | | Load 0x2,-0x3 04ab 00d9 | | Load_Top At_Offset_1 04ac 0120 | | Execute Any,Is_Value 04ad 6803 |h | Jump_Zero 0x4b1 04ae e003 | | Load 0x0,0x3 04af 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04b0 7801 |x | Jump 0x4b2 04b1 00d9 | | Load_Top At_Offset_1 04b2 e5ff | | Load 0x2,-0x1 04b3 8224 | $ | Call 0x1,0x24 04b4 c403 | | Store 0x2,0x3 04b5 c5fd | | Store 0x2,-0x3 04b6 4800 |H | Short_Literal 0x0 04b7 e5fd | | Load 0x2,-0x3 04b8 e002 | | Load 0x0,0x2 04b9 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 04ba 6827 |h' | Jump_Zero 0x4e2 04bb e003 | | Load 0x0,0x3 04bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04bd e5fe | | Load 0x2,-0x2 04be 0120 | | Execute Any,Is_Value 04bf 6803 |h | Jump_Zero 0x4c3 04c0 e003 | | Load 0x0,0x3 04c1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04c2 7801 |x | Jump 0x4c4 04c3 e5fe | | Load 0x2,-0x2 04c4 6023 |`# | Indirect_Literal Discrete,0x4e8,{0x00000000, 0x00004000} 04c5 e013 | | Load 0x0,0x13 04c6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04c7 4800 |H | Short_Literal 0x0 04c8 e403 | | Load 0x2,0x3 04c9 e003 | | Load 0x0,0x3 04ca 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 04cb 1819 | | Execute Package,Field_Execute,Field_Number 0x19 04cc c5fe | | Store 0x2,-0x2 04cd 005a | Z | Store_Top Discrete,At_Offset_2 04ce 00d9 | | Load_Top At_Offset_1 04cf 6812 |h | Jump_Zero 0x4e2 04d0 e002 | | Load 0x0,0x2 04d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04d2 4801 |H | Short_Literal 0x1 04d3 4801 |H | Short_Literal 0x1 04d4 e005 | | Load 0x0,0x5 04d5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04d6 035b | [ | Declare_Type Array,Constrained 04d7 0337 | 7 | Declare_Variable Array 04d8 00da | | Load_Top At_Offset_2 04d9 e005 | | Load 0x0,0x5 04da 181a | | Execute Package,Field_Execute,Field_Number 0x1a 04db 4801 |H | Short_Literal 0x1 04dc 00da | | Load_Top At_Offset_2 04dd 01d6 | | Execute Vector,Field_Write 04de 6005 |` | Indirect_Literal Discrete,0x4e4,{0x00000000, 0x00002001} 04df e002 | | Load 0x0,0x2 04e0 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 04e1 c5fd | | Store 0x2,-0x3 04e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04e3 0000 | | .XXX[0x1] 04e4 0000 0000 | | .LITERAL {0x00000000, 0x00002001} 04e8 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 04ec 0000 0000 | | .BLANK 0000[0x4] 04f0 ; -------------------------------------------------------------------------------------- 04f0 ; SUBPROGRAM 04f0 ; -------------------------------------------------------------------------------------- 04f0 04f3 | | .CONST 0x04f3 ; Address of begin 04f1 0004 | | .CONST 0x0004 ; Address of exception handler 04f2 0001 | | .CONST 0x0001 ; Number of locals 04f3 BODY_04f0: 04f3 INIT_04f0: 04f3 00da | | Load_Top At_Offset_2 04f4 6804 |h | Jump_Zero 0x4f9 04f5 00da | | Load_Top At_Offset_2 04f6 0217 | | Execute Heap_Access,All_Reference 04f7 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 04f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04f9 4800 |H | Short_Literal 0x0 04fa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04fb 0000 0000 | | .BLANK 0000[0x5] 0500 ; -------------------------------------------------------------------------------------- 0500 ; SUBPROGRAM 0500 ; -------------------------------------------------------------------------------------- 0500 0503 | | .CONST 0x0503 ; Address of begin 0501 0004 | | .CONST 0x0004 ; Address of exception handler 0502 0001 | | .CONST 0x0001 ; Number of locals 0503 BODY_0500: 0503 INIT_0500: 0503 00db | | Load_Top At_Offset_3 0504 00db | | Load_Top At_Offset_3 0505 0217 | | Execute Heap_Access,All_Reference 0506 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0507 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0508 ; -------------------------------------------------------------------------------------- 0508 ; SUBPROGRAM 0508 ; -------------------------------------------------------------------------------------- 0508 050b | | .CONST 0x050b ; Address of begin 0509 0004 | | .CONST 0x0004 ; Address of exception handler 050a 0001 | | .CONST 0x0001 ; Number of locals 050b BODY_0508: 050b INIT_0508: 050b 00da | | Load_Top At_Offset_2 050c 6804 |h | Jump_Zero 0x511 050d 00da | | Load_Top At_Offset_2 050e 0217 | | Execute Heap_Access,All_Reference 050f 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0510 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0511 4800 |H | Short_Literal 0x0 0512 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0513 0000 0000 | | .BLANK 0000[0x5] 0518 ; -------------------------------------------------------------------------------------- 0518 ; SUBPROGRAM 0518 ; -------------------------------------------------------------------------------------- 0518 051b | | .CONST 0x051b ; Address of begin 0519 0004 | | .CONST 0x0004 ; Address of exception handler 051a 0001 | | .CONST 0x0001 ; Number of locals 051b BODY_0518: 051b INIT_0518: 051b 00db | | Load_Top At_Offset_3 051c 00db | | Load_Top At_Offset_3 051d 0217 | | Execute Heap_Access,All_Reference 051e 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 051f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0520 ; -------------------------------------------------------------------------------------- 0520 ; SUBPROGRAM 0520 ; -------------------------------------------------------------------------------------- 0520 0523 | # | .CONST 0x0523 ; Address of begin 0521 0004 | | .CONST 0x0004 ; Address of exception handler 0522 0001 | | .CONST 0x0001 ; Number of locals 0523 BODY_0520: 0523 INIT_0520: 0523 00da | | Load_Top At_Offset_2 0524 6806 |h | Jump_Zero 0x52b 0525 00da | | Load_Top At_Offset_2 0526 0217 | | Execute Heap_Access,All_Reference 0527 3c0c |< | Execute Record,Field_Read,Field_Number 0xc 0528 e010 | | Load 0x0,0x10 0529 1812 | | Execute Package,Field_Execute,Field_Number 0x12 052a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 052b 00ea | | Load_Encached Null_String_Cache 052c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 052d 0000 0000 | | .XXX[0x3] 052f 0000 | | 0530 ; -------------------------------------------------------------------------------------- 0530 ; SUBPROGRAM 0530 ; -------------------------------------------------------------------------------------- 0530 0533 | 3 | .CONST 0x0533 ; Address of begin 0531 0004 | | .CONST 0x0004 ; Address of exception handler 0532 0001 | | .CONST 0x0001 ; Number of locals 0533 BODY_0530: 0533 INIT_0530: 0533 00da | | Load_Top At_Offset_2 0534 8260 | ` | Call 0x1,0x60 0535 e5fe | | Load 0x2,-0x2 0536 e010 | | Load 0x0,0x10 0537 180f | | Execute Package,Field_Execute,Field_Number 0xf 0538 00db | | Load_Top At_Offset_3 0539 0217 | | Execute Heap_Access,All_Reference 053a 380c |8 | Execute Record,Field_Write,Field_Number 0xc 053b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 053c 0000 0000 | | .BLANK 0000[0x4] 0540 ; -------------------------------------------------------------------------------------- 0540 ; SUBPROGRAM 0540 ; -------------------------------------------------------------------------------------- 0540 0548 | H | .CONST 0x0548 ; Address of begin 0541 0004 | | .CONST 0x0004 ; Address of exception handler 0542 0003 | | .CONST 0x0003 ; Number of locals 0543 INIT_0540: 0543 e00d | | Load 0x0,0xd 0544 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0545 e002 | | Load 0x0,0x2 0546 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0547 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0548 BODY_0540: 0548 00d8 | | Load_Top At_Offset_0 0549 e00d | | Load 0x0,0xd 054a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 054b 4800 |H | Short_Literal 0x0 054c e5fe | | Load 0x2,-0x2 054d e5ff | | Load 0x2,-0x1 054e 8277 | w | Call 0x1,0x77 054f 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0550 0059 | Y | Store_Top Discrete,At_Offset_1 0551 00d8 | | Load_Top At_Offset_0 0552 7006 |p | Jump_Nonzero 0x559 0553 00d9 | | Load_Top At_Offset_1 0554 0217 | | Execute Heap_Access,All_Reference 0555 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0556 e010 | | Load 0x0,0x10 0557 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0558 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0559 00d8 | | Load_Top At_Offset_0 055a 6019 |` | Indirect_Literal Discrete,0x574,{0x00000000, 0x00002009} 055b 027f | | Execute Discrete,Equal 055c 6802 |h | Jump_Zero 0x55f 055d 00ea | | Load_Encached Null_String_Cache 055e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 055f 4801 |H | Short_Literal 0x1 0560 4802 |H | Short_Literal 0x2 0561 e005 | | Load 0x0,0x5 0562 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0563 035b | [ | Declare_Type Array,Constrained 0564 0337 | 7 | Declare_Variable Array 0565 e5ff | | Load 0x2,-0x1 0566 8210 | | Call 0x1,0x10 0567 4801 |H | Short_Literal 0x1 0568 00da | | Load_Top At_Offset_2 0569 01d6 | | Execute Vector,Field_Write 056a e5fe | | Load 0x2,-0x2 056b e014 | | Load 0x0,0x14 056c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 056d 4802 |H | Short_Literal 0x2 056e 00da | | Load_Top At_Offset_2 056f 01d6 | | Execute Vector,Field_Write 0570 00d9 | | Load_Top At_Offset_1 0571 e002 | | Load 0x0,0x2 0572 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0573 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0574 0000 0000 | | .LITERAL {0x00000000, 0x00002009} 0578 ; -------------------------------------------------------------------------------------- 0578 ; SUBPROGRAM 0578 ; -------------------------------------------------------------------------------------- 0578 0580 | | .CONST 0x0580 ; Address of begin 0579 0004 | | .CONST 0x0004 ; Address of exception handler 057a 0003 | | .CONST 0x0003 ; Number of locals 057b INIT_0578: 057b e00d | | Load 0x0,0xd 057c 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 057d e002 | | Load 0x0,0x2 057e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 057f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0580 BODY_0578: 0580 00d8 | | Load_Top At_Offset_0 0581 e00d | | Load 0x0,0xd 0582 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0583 4801 |H | Short_Literal 0x1 0584 e5fd | | Load 0x2,-0x3 0585 e5ff | | Load 0x2,-0x1 0586 8277 | w | Call 0x1,0x77 0587 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0588 0059 | Y | Store_Top Discrete,At_Offset_1 0589 00d8 | | Load_Top At_Offset_0 058a 7009 |p | Jump_Nonzero 0x594 058b e5ff | | Load 0x2,-0x1 058c 8260 | ` | Call 0x1,0x60 058d e5fe | | Load 0x2,-0x2 058e e010 | | Load 0x0,0x10 058f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0590 00da | | Load_Top At_Offset_2 0591 0217 | | Execute Heap_Access,All_Reference 0592 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0593 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0594 e002 | | Load 0x0,0x2 0595 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0596 4801 |H | Short_Literal 0x1 0597 4802 |H | Short_Literal 0x2 0598 e005 | | Load 0x0,0x5 0599 1b0f | | Execute Package,Field_Read,Field_Number 0xf 059a 035b | [ | Declare_Type Array,Constrained 059b 0337 | 7 | Declare_Variable Array 059c e5ff | | Load 0x2,-0x1 059d 8210 | | Call 0x1,0x10 059e 4801 |H | Short_Literal 0x1 059f 00da | | Load_Top At_Offset_2 05a0 01d6 | | Execute Vector,Field_Write 05a1 e5fd | | Load 0x2,-0x3 05a2 e014 | | Load 0x0,0x14 05a3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 05a4 4802 |H | Short_Literal 0x2 05a5 00da | | Load_Top At_Offset_2 05a6 01d6 | | Execute Vector,Field_Write 05a7 00da | | Load_Top At_Offset_2 05a8 e002 | | Load 0x0,0x2 05a9 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 05aa c5fc | | Store 0x2,-0x4 05ab 4504 |E | Exit_Suprogram New_Top_Offset 0x4 05ac 0000 0000 | | .BLANK 0000[0x4] 05b0 ; -------------------------------------------------------------------------------------- 05b0 ; SUBPROGRAM 05b0 ; -------------------------------------------------------------------------------------- 05b0 05b8 | | .CONST 0x05b8 ; Address of begin 05b1 0004 | | .CONST 0x0004 ; Address of exception handler 05b2 0003 | | .CONST 0x0003 ; Number of locals 05b3 INIT_05b0: 05b3 e00d | | Load 0x0,0xd 05b4 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 05b5 e002 | | Load 0x0,0x2 05b6 1b10 | | Execute Package,Field_Read,Field_Number 0x10 05b7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 05b8 BODY_05b0: 05b8 00d8 | | Load_Top At_Offset_0 05b9 e00d | | Load 0x0,0xd 05ba 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 05bb 4800 |H | Short_Literal 0x0 05bc e5fe | | Load 0x2,-0x2 05bd e5ff | | Load 0x2,-0x1 05be 8277 | w | Call 0x1,0x77 05bf 0033 | 3 | Store_Top Heap_Access,At_Offset_3 05c0 0059 | Y | Store_Top Discrete,At_Offset_1 05c1 00d8 | | Load_Top At_Offset_0 05c2 7004 |p | Jump_Nonzero 0x5c7 05c3 00d9 | | Load_Top At_Offset_1 05c4 0217 | | Execute Heap_Access,All_Reference 05c5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 05c6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05c7 00d8 | | Load_Top At_Offset_0 05c8 601b |` | Indirect_Literal Discrete,0x5e4,{0x00000000, 0x00002009} 05c9 027f | | Execute Discrete,Equal 05ca 6802 |h | Jump_Zero 0x5cd 05cb 4800 |H | Short_Literal 0x0 05cc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05cd 4801 |H | Short_Literal 0x1 05ce 4802 |H | Short_Literal 0x2 05cf e005 | | Load 0x0,0x5 05d0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05d1 035b | [ | Declare_Type Array,Constrained 05d2 0337 | 7 | Declare_Variable Array 05d3 e5ff | | Load 0x2,-0x1 05d4 8210 | | Call 0x1,0x10 05d5 4801 |H | Short_Literal 0x1 05d6 00da | | Load_Top At_Offset_2 05d7 01d6 | | Execute Vector,Field_Write 05d8 e5fe | | Load 0x2,-0x2 05d9 e014 | | Load 0x0,0x14 05da 181c | | Execute Package,Field_Execute,Field_Number 0x1c 05db 4802 |H | Short_Literal 0x2 05dc 00da | | Load_Top At_Offset_2 05dd 01d6 | | Execute Vector,Field_Write 05de 00d9 | | Load_Top At_Offset_1 05df e002 | | Load 0x0,0x2 05e0 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 05e1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05e2 0000 0000 | | .XXX[0x2] 05e4 0000 0000 | | .LITERAL {0x00000000, 0x00002009} 05e8 ; -------------------------------------------------------------------------------------- 05e8 ; SUBPROGRAM 05e8 ; -------------------------------------------------------------------------------------- 05e8 05f0 | | .CONST 0x05f0 ; Address of begin 05e9 0004 | | .CONST 0x0004 ; Address of exception handler 05ea 0003 | | .CONST 0x0003 ; Number of locals 05eb INIT_05e8: 05eb e002 | | Load 0x0,0x2 05ec 1b10 | | Execute Package,Field_Read,Field_Number 0x10 05ed 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 05ee e00d | | Load 0x0,0xd 05ef 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 05f0 BODY_05e8: 05f0 00d9 | | Load_Top At_Offset_1 05f1 e00d | | Load 0x0,0xd 05f2 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 05f3 4801 |H | Short_Literal 0x1 05f4 e5fd | | Load 0x2,-0x3 05f5 e5ff | | Load 0x2,-0x1 05f6 8277 | w | Call 0x1,0x77 05f7 0032 | 2 | Store_Top Heap_Access,At_Offset_2 05f8 005a | Z | Store_Top Discrete,At_Offset_2 05f9 00d9 | | Load_Top At_Offset_1 05fa 7005 |p | Jump_Nonzero 0x600 05fb e5fe | | Load 0x2,-0x2 05fc 00d9 | | Load_Top At_Offset_1 05fd 0217 | | Execute Heap_Access,All_Reference 05fe 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 05ff 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0600 e002 | | Load 0x0,0x2 0601 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0602 4801 |H | Short_Literal 0x1 0603 4802 |H | Short_Literal 0x2 0604 e005 | | Load 0x0,0x5 0605 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0606 035b | [ | Declare_Type Array,Constrained 0607 0337 | 7 | Declare_Variable Array 0608 e5ff | | Load 0x2,-0x1 0609 8210 | | Call 0x1,0x10 060a 4801 |H | Short_Literal 0x1 060b 00da | | Load_Top At_Offset_2 060c 01d6 | | Execute Vector,Field_Write 060d e5fd | | Load 0x2,-0x3 060e e014 | | Load 0x0,0x14 060f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0610 4802 |H | Short_Literal 0x2 0611 00da | | Load_Top At_Offset_2 0612 01d6 | | Execute Vector,Field_Write 0613 00db | | Load_Top At_Offset_3 0614 e002 | | Load 0x0,0x2 0615 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0616 c5fc | | Store 0x2,-0x4 0617 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0618 ; -------------------------------------------------------------------------------------- 0618 ; SUBPROGRAM 0618 ; -------------------------------------------------------------------------------------- 0618 0620 | | .CONST 0x0620 ; Address of begin 0619 0004 | | .CONST 0x0004 ; Address of exception handler 061a 0003 | | .CONST 0x0003 ; Number of locals 061b INIT_0618: 061b e00d | | Load 0x0,0xd 061c 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 061d e002 | | Load 0x0,0x2 061e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 061f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0620 BODY_0618: 0620 00d8 | | Load_Top At_Offset_0 0621 e00d | | Load 0x0,0xd 0622 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0623 4800 |H | Short_Literal 0x0 0624 e5fe | | Load 0x2,-0x2 0625 e5ff | | Load 0x2,-0x1 0626 8277 | w | Call 0x1,0x77 0627 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0628 0059 | Y | Store_Top Discrete,At_Offset_1 0629 00d8 | | Load_Top At_Offset_0 062a 7004 |p | Jump_Nonzero 0x62f 062b 00d9 | | Load_Top At_Offset_1 062c 0217 | | Execute Heap_Access,All_Reference 062d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 062e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 062f 00d8 | | Load_Top At_Offset_0 0630 601b |` | Indirect_Literal Discrete,0x64c,{0x00000000, 0x00002009} 0631 027f | | Execute Discrete,Equal 0632 6802 |h | Jump_Zero 0x635 0633 4800 |H | Short_Literal 0x0 0634 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0635 4801 |H | Short_Literal 0x1 0636 4802 |H | Short_Literal 0x2 0637 e005 | | Load 0x0,0x5 0638 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0639 035b | [ | Declare_Type Array,Constrained 063a 0337 | 7 | Declare_Variable Array 063b e5ff | | Load 0x2,-0x1 063c 8210 | | Call 0x1,0x10 063d 4801 |H | Short_Literal 0x1 063e 00da | | Load_Top At_Offset_2 063f 01d6 | | Execute Vector,Field_Write 0640 e5fe | | Load 0x2,-0x2 0641 e014 | | Load 0x0,0x14 0642 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0643 4802 |H | Short_Literal 0x2 0644 00da | | Load_Top At_Offset_2 0645 01d6 | | Execute Vector,Field_Write 0646 00d9 | | Load_Top At_Offset_1 0647 e002 | | Load 0x0,0x2 0648 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0649 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 064a 0000 0000 | | .XXX[0x2] 064c 0000 0000 | | .LITERAL {0x00000000, 0x00002009} 0650 ; -------------------------------------------------------------------------------------- 0650 ; SUBPROGRAM 0650 ; -------------------------------------------------------------------------------------- 0650 0658 | X | .CONST 0x0658 ; Address of begin 0651 0004 | | .CONST 0x0004 ; Address of exception handler 0652 0003 | | .CONST 0x0003 ; Number of locals 0653 INIT_0650: 0653 e002 | | Load 0x0,0x2 0654 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0655 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0656 e00d | | Load 0x0,0xd 0657 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0658 BODY_0650: 0658 00d9 | | Load_Top At_Offset_1 0659 e00d | | Load 0x0,0xd 065a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 065b 4801 |H | Short_Literal 0x1 065c e5fd | | Load 0x2,-0x3 065d e5ff | | Load 0x2,-0x1 065e 8277 | w | Call 0x1,0x77 065f 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0660 005a | Z | Store_Top Discrete,At_Offset_2 0661 00d9 | | Load_Top At_Offset_1 0662 7005 |p | Jump_Nonzero 0x668 0663 e5fe | | Load 0x2,-0x2 0664 00d9 | | Load_Top At_Offset_1 0665 0217 | | Execute Heap_Access,All_Reference 0666 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0667 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0668 e002 | | Load 0x0,0x2 0669 1b0d | | Execute Package,Field_Read,Field_Number 0xd 066a 4801 |H | Short_Literal 0x1 066b 4802 |H | Short_Literal 0x2 066c e005 | | Load 0x0,0x5 066d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 066e 035b | [ | Declare_Type Array,Constrained 066f 0337 | 7 | Declare_Variable Array 0670 e5ff | | Load 0x2,-0x1 0671 8210 | | Call 0x1,0x10 0672 4801 |H | Short_Literal 0x1 0673 00da | | Load_Top At_Offset_2 0674 01d6 | | Execute Vector,Field_Write 0675 e5fd | | Load 0x2,-0x3 0676 e014 | | Load 0x0,0x14 0677 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0678 4802 |H | Short_Literal 0x2 0679 00da | | Load_Top At_Offset_2 067a 01d6 | | Execute Vector,Field_Write 067b 00db | | Load_Top At_Offset_3 067c e002 | | Load 0x0,0x2 067d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 067e c5fc | | Store 0x2,-0x4 067f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0680 ; -------------------------------------------------------------------------------------- 0680 ; SUBPROGRAM 0680 ; -------------------------------------------------------------------------------------- 0680 0688 | | .CONST 0x0688 ; Address of begin 0681 0004 | | .CONST 0x0004 ; Address of exception handler 0682 0003 | | .CONST 0x0003 ; Number of locals 0683 INIT_0680: 0683 e00d | | Load 0x0,0xd 0684 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0685 e002 | | Load 0x0,0x2 0686 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0687 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0688 BODY_0680: 0688 00d8 | | Load_Top At_Offset_0 0689 e00d | | Load 0x0,0xd 068a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 068b 4800 |H | Short_Literal 0x0 068c e5fe | | Load 0x2,-0x2 068d e5ff | | Load 0x2,-0x1 068e 8277 | w | Call 0x1,0x77 068f 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0690 0059 | Y | Store_Top Discrete,At_Offset_1 0691 00d8 | | Load_Top At_Offset_0 0692 7006 |p | Jump_Nonzero 0x699 0693 00d9 | | Load_Top At_Offset_1 0694 0217 | | Execute Heap_Access,All_Reference 0695 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0696 e010 | | Load 0x0,0x10 0697 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0698 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0699 00d8 | | Load_Top At_Offset_0 069a 6019 |` | Indirect_Literal Discrete,0x6b4,{0x00000000, 0x00002009} 069b 027f | | Execute Discrete,Equal 069c 6802 |h | Jump_Zero 0x69f 069d 00ea | | Load_Encached Null_String_Cache 069e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 069f 4801 |H | Short_Literal 0x1 06a0 4802 |H | Short_Literal 0x2 06a1 e005 | | Load 0x0,0x5 06a2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 06a3 035b | [ | Declare_Type Array,Constrained 06a4 0337 | 7 | Declare_Variable Array 06a5 e5ff | | Load 0x2,-0x1 06a6 8210 | | Call 0x1,0x10 06a7 4801 |H | Short_Literal 0x1 06a8 00da | | Load_Top At_Offset_2 06a9 01d6 | | Execute Vector,Field_Write 06aa e5fe | | Load 0x2,-0x2 06ab e014 | | Load 0x0,0x14 06ac 181c | | Execute Package,Field_Execute,Field_Number 0x1c 06ad 4802 |H | Short_Literal 0x2 06ae 00da | | Load_Top At_Offset_2 06af 01d6 | | Execute Vector,Field_Write 06b0 00d9 | | Load_Top At_Offset_1 06b1 e002 | | Load 0x0,0x2 06b2 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 06b3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06b4 0000 0000 | | .LITERAL {0x00000000, 0x00002009} 06b8 ; -------------------------------------------------------------------------------------- 06b8 ; SUBPROGRAM 06b8 ; -------------------------------------------------------------------------------------- 06b8 06c0 | | .CONST 0x06c0 ; Address of begin 06b9 0004 | | .CONST 0x0004 ; Address of exception handler 06ba 0003 | | .CONST 0x0003 ; Number of locals 06bb INIT_06b8: 06bb e002 | | Load 0x0,0x2 06bc 1b10 | | Execute Package,Field_Read,Field_Number 0x10 06bd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 06be e00d | | Load 0x0,0xd 06bf 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 06c0 BODY_06b8: 06c0 00d9 | | Load_Top At_Offset_1 06c1 e00d | | Load 0x0,0xd 06c2 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 06c3 4801 |H | Short_Literal 0x1 06c4 e5fd | | Load 0x2,-0x3 06c5 e5ff | | Load 0x2,-0x1 06c6 8277 | w | Call 0x1,0x77 06c7 0032 | 2 | Store_Top Heap_Access,At_Offset_2 06c8 005a | Z | Store_Top Discrete,At_Offset_2 06c9 00d9 | | Load_Top At_Offset_1 06ca 701d |p | Jump_Nonzero 0x6e8 06cb e5ff | | Load 0x2,-0x1 06cc 8260 | ` | Call 0x1,0x60 06cd e5fe | | Load 0x2,-0x2 06ce e010 | | Load 0x0,0x10 06cf 180f | | Execute Package,Field_Execute,Field_Number 0xf 06d0 00d9 | | Load_Top At_Offset_1 06d1 0217 | | Execute Heap_Access,All_Reference 06d2 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 06d3 e5fe | | Load 0x2,-0x2 06d4 01db | | Execute Vector,Length 06d5 0e00 | | Execute_Immediate Not_Equal,0x0 06d6 00d9 | | Load_Top At_Offset_1 06d7 0217 | | Execute Heap_Access,All_Reference 06d8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 06d9 0092 157c | || Action Push_String_Extended,0x157c ; "Target name for " 06db e5ff | | Load 0x2,-0x1 06dc 821d | | Call 0x1,0x1d 06dd 01cc | | Execute Vector,Catenate 06de 0092 157d | }| Action Push_String_Extended,0x157d ; " has been set to " 06e0 01cc | | Execute Vector,Catenate 06e1 e5fe | | Load 0x2,-0x2 06e2 01cc | | Execute Vector,Catenate 06e3 0092 157e | ~| Action Push_String_Extended,0x157e ; "." 06e5 01cc | | Execute Vector,Catenate 06e6 8011 | | Call 0x0,0x11 06e7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 06e8 e002 | | Load 0x0,0x2 06e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06ea 4801 |H | Short_Literal 0x1 06eb 4802 |H | Short_Literal 0x2 06ec e005 | | Load 0x0,0x5 06ed 1b0f | | Execute Package,Field_Read,Field_Number 0xf 06ee 035b | [ | Declare_Type Array,Constrained 06ef 0337 | 7 | Declare_Variable Array 06f0 e5ff | | Load 0x2,-0x1 06f1 8210 | | Call 0x1,0x10 06f2 4801 |H | Short_Literal 0x1 06f3 00da | | Load_Top At_Offset_2 06f4 01d6 | | Execute Vector,Field_Write 06f5 e5fd | | Load 0x2,-0x3 06f6 e014 | | Load 0x0,0x14 06f7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 06f8 4802 |H | Short_Literal 0x2 06f9 00da | | Load_Top At_Offset_2 06fa 01d6 | | Execute Vector,Field_Write 06fb 00db | | Load_Top At_Offset_3 06fc e002 | | Load 0x0,0x2 06fd 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 06fe c5fc | | Store 0x2,-0x4 06ff 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0700 ; -------------------------------------------------------------------------------------- 0700 ; SUBPROGRAM 0700 ; -------------------------------------------------------------------------------------- 0700 0708 | | .CONST 0x0708 ; Address of begin 0701 0004 | | .CONST 0x0004 ; Address of exception handler 0702 0003 | | .CONST 0x0003 ; Number of locals 0703 INIT_0700: 0703 e00d | | Load 0x0,0xd 0704 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0705 e002 | | Load 0x0,0x2 0706 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0707 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0708 BODY_0700: 0708 00d8 | | Load_Top At_Offset_0 0709 e00d | | Load 0x0,0xd 070a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 070b 4800 |H | Short_Literal 0x0 070c e5fe | | Load 0x2,-0x2 070d e5ff | | Load 0x2,-0x1 070e 8277 | w | Call 0x1,0x77 070f 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0710 0059 | Y | Store_Top Discrete,At_Offset_1 0711 00d8 | | Load_Top At_Offset_0 0712 7004 |p | Jump_Nonzero 0x717 0713 00d9 | | Load_Top At_Offset_1 0714 0217 | | Execute Heap_Access,All_Reference 0715 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0716 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0717 00d8 | | Load_Top At_Offset_0 0718 601b |` | Indirect_Literal Discrete,0x734,{0x00000000, 0x00002009} 0719 027f | | Execute Discrete,Equal 071a 6802 |h | Jump_Zero 0x71d 071b 4800 |H | Short_Literal 0x0 071c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 071d 4801 |H | Short_Literal 0x1 071e 4802 |H | Short_Literal 0x2 071f e005 | | Load 0x0,0x5 0720 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0721 035b | [ | Declare_Type Array,Constrained 0722 0337 | 7 | Declare_Variable Array 0723 e5ff | | Load 0x2,-0x1 0724 8210 | | Call 0x1,0x10 0725 4801 |H | Short_Literal 0x1 0726 00da | | Load_Top At_Offset_2 0727 01d6 | | Execute Vector,Field_Write 0728 e5fe | | Load 0x2,-0x2 0729 e014 | | Load 0x0,0x14 072a 181c | | Execute Package,Field_Execute,Field_Number 0x1c 072b 4802 |H | Short_Literal 0x2 072c 00da | | Load_Top At_Offset_2 072d 01d6 | | Execute Vector,Field_Write 072e 00d9 | | Load_Top At_Offset_1 072f e002 | | Load 0x0,0x2 0730 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0731 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0732 0000 0000 | | .XXX[0x2] 0734 0000 0000 | | .LITERAL {0x00000000, 0x00002009} 0738 ; -------------------------------------------------------------------------------------- 0738 ; SUBPROGRAM 0738 ; -------------------------------------------------------------------------------------- 0738 0740 | @ | .CONST 0x0740 ; Address of begin 0739 0004 | | .CONST 0x0004 ; Address of exception handler 073a 0003 | | .CONST 0x0003 ; Number of locals 073b INIT_0738: 073b e002 | | Load 0x0,0x2 073c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 073d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 073e e00d | | Load 0x0,0xd 073f 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0740 BODY_0738: 0740 00d9 | | Load_Top At_Offset_1 0741 e00d | | Load 0x0,0xd 0742 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0743 4801 |H | Short_Literal 0x1 0744 e5fd | | Load 0x2,-0x3 0745 e5ff | | Load 0x2,-0x1 0746 8277 | w | Call 0x1,0x77 0747 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0748 005a | Z | Store_Top Discrete,At_Offset_2 0749 00d9 | | Load_Top At_Offset_1 074a 7005 |p | Jump_Nonzero 0x750 074b e5fe | | Load 0x2,-0x2 074c 00d9 | | Load_Top At_Offset_1 074d 0217 | | Execute Heap_Access,All_Reference 074e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 074f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0750 e002 | | Load 0x0,0x2 0751 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0752 4801 |H | Short_Literal 0x1 0753 4802 |H | Short_Literal 0x2 0754 e005 | | Load 0x0,0x5 0755 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0756 035b | [ | Declare_Type Array,Constrained 0757 0337 | 7 | Declare_Variable Array 0758 e5ff | | Load 0x2,-0x1 0759 8210 | | Call 0x1,0x10 075a 4801 |H | Short_Literal 0x1 075b 00da | | Load_Top At_Offset_2 075c 01d6 | | Execute Vector,Field_Write 075d e5fd | | Load 0x2,-0x3 075e e014 | | Load 0x0,0x14 075f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0760 4802 |H | Short_Literal 0x2 0761 00da | | Load_Top At_Offset_2 0762 01d6 | | Execute Vector,Field_Write 0763 00db | | Load_Top At_Offset_3 0764 e002 | | Load 0x0,0x2 0765 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0766 c5fc | | Store 0x2,-0x4 0767 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0768 ; -------------------------------------------------------------------------------------- 0768 ; SUBPROGRAM 0768 ; -------------------------------------------------------------------------------------- 0768 0770 | p | .CONST 0x0770 ; Address of begin 0769 0004 | | .CONST 0x0004 ; Address of exception handler 076a 0003 | | .CONST 0x0003 ; Number of locals 076b INIT_0768: 076b e00d | | Load 0x0,0xd 076c 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 076d e002 | | Load 0x0,0x2 076e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 076f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0770 BODY_0768: 0770 00d8 | | Load_Top At_Offset_0 0771 e00d | | Load 0x0,0xd 0772 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0773 4800 |H | Short_Literal 0x0 0774 e5fe | | Load 0x2,-0x2 0775 e5ff | | Load 0x2,-0x1 0776 8277 | w | Call 0x1,0x77 0777 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0778 0059 | Y | Store_Top Discrete,At_Offset_1 0779 00d8 | | Load_Top At_Offset_0 077a 7009 |p | Jump_Nonzero 0x784 077b 00d9 | | Load_Top At_Offset_1 077c 0217 | | Execute Heap_Access,All_Reference 077d 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 077e 00d8 | | Load_Top At_Offset_0 077f 0120 | | Execute Any,Is_Value 0780 7002 |p | Jump_Nonzero 0x783 0781 00d8 | | Load_Top At_Offset_0 0782 011e | | Execute Any,Convert 0783 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0784 00d8 | | Load_Top At_Offset_0 0785 601a |` | Indirect_Literal Discrete,0x7a0,{0x00000000, 0x00002009} 0786 027f | | Execute Discrete,Equal 0787 6803 |h | Jump_Zero 0x78b 0788 e004 | | Load 0x0,0x4 0789 180f | | Execute Package,Field_Execute,Field_Number 0xf 078a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 078b 4801 |H | Short_Literal 0x1 078c 4802 |H | Short_Literal 0x2 078d e005 | | Load 0x0,0x5 078e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 078f 035b | [ | Declare_Type Array,Constrained 0790 0337 | 7 | Declare_Variable Array 0791 e5ff | | Load 0x2,-0x1 0792 8210 | | Call 0x1,0x10 0793 4801 |H | Short_Literal 0x1 0794 00da | | Load_Top At_Offset_2 0795 01d6 | | Execute Vector,Field_Write 0796 e5fe | | Load 0x2,-0x2 0797 e014 | | Load 0x0,0x14 0798 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0799 4802 |H | Short_Literal 0x2 079a 00da | | Load_Top At_Offset_2 079b 01d6 | | Execute Vector,Field_Write 079c 00d9 | | Load_Top At_Offset_1 079d e002 | | Load 0x0,0x2 079e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 079f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07a0 0000 0000 | | .LITERAL {0x00000000, 0x00002009} 07a4 0000 0000 | | .BLANK 0000[0x4] 07a8 ; -------------------------------------------------------------------------------------- 07a8 ; SUBPROGRAM 07a8 ; -------------------------------------------------------------------------------------- 07a8 07b0 | | .CONST 0x07b0 ; Address of begin 07a9 0004 | | .CONST 0x0004 ; Address of exception handler 07aa 0003 | | .CONST 0x0003 ; Number of locals 07ab INIT_07a8: 07ab e002 | | Load 0x0,0x2 07ac 1b10 | | Execute Package,Field_Read,Field_Number 0x10 07ad 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 07ae e00d | | Load 0x0,0xd 07af 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 07b0 BODY_07a8: 07b0 00d9 | | Load_Top At_Offset_1 07b1 e00d | | Load 0x0,0xd 07b2 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 07b3 4801 |H | Short_Literal 0x1 07b4 e5fc | | Load 0x2,-0x4 07b5 e5ff | | Load 0x2,-0x1 07b6 8277 | w | Call 0x1,0x77 07b7 0032 | 2 | Store_Top Heap_Access,At_Offset_2 07b8 005a | Z | Store_Top Discrete,At_Offset_2 07b9 00d9 | | Load_Top At_Offset_1 07ba 7005 |p | Jump_Nonzero 0x7c0 07bb e5fe | | Load 0x2,-0x2 07bc 00d9 | | Load_Top At_Offset_1 07bd 0217 | | Execute Heap_Access,All_Reference 07be 380a |8 | Execute Record,Field_Write,Field_Number 0xa 07bf 7817 |x | Jump 0x7d7 07c0 e002 | | Load 0x0,0x2 07c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07c2 4801 |H | Short_Literal 0x1 07c3 4802 |H | Short_Literal 0x2 07c4 e005 | | Load 0x0,0x5 07c5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 07c6 035b | [ | Declare_Type Array,Constrained 07c7 0337 | 7 | Declare_Variable Array 07c8 e5ff | | Load 0x2,-0x1 07c9 8210 | | Call 0x1,0x10 07ca 4801 |H | Short_Literal 0x1 07cb 00da | | Load_Top At_Offset_2 07cc 01d6 | | Execute Vector,Field_Write 07cd e5fc | | Load 0x2,-0x4 07ce e014 | | Load 0x0,0x14 07cf 181c | | Execute Package,Field_Execute,Field_Number 0x1c 07d0 4802 |H | Short_Literal 0x2 07d1 00da | | Load_Top At_Offset_2 07d2 01d6 | | Execute Vector,Field_Write 07d3 00db | | Load_Top At_Offset_3 07d4 e002 | | Load 0x0,0x2 07d5 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 07d6 c5fb | | Store 0x2,-0x5 07d7 e5fd | | Load 0x2,-0x3 07d8 6806 |h | Jump_Zero 0x7df 07d9 e5ff | | Load 0x2,-0x1 07da 0217 | | Execute Heap_Access,All_Reference 07db 3c0e |< | Execute Record,Field_Read,Field_Number 0xe 07dc 00d9 | | Load_Top At_Offset_1 07dd 0217 | | Execute Heap_Access,All_Reference 07de 380b |8 | Execute Record,Field_Write,Field_Number 0xb 07df 4505 |E | Exit_Suprogram New_Top_Offset 0x5 07e0 ; -------------------------------------------------------------------------------------- 07e0 ; SUBPROGRAM 07e0 ; -------------------------------------------------------------------------------------- 07e0 07e8 | | .CONST 0x07e8 ; Address of begin 07e1 0004 | | .CONST 0x0004 ; Address of exception handler 07e2 0003 | | .CONST 0x0003 ; Number of locals 07e3 INIT_07e0: 07e3 e00d | | Load 0x0,0xd 07e4 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 07e5 e002 | | Load 0x0,0x2 07e6 1b10 | | Execute Package,Field_Read,Field_Number 0x10 07e7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 07e8 BODY_07e0: 07e8 00d8 | | Load_Top At_Offset_0 07e9 e00d | | Load 0x0,0xd 07ea 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 07eb 4800 |H | Short_Literal 0x0 07ec e5fe | | Load 0x2,-0x2 07ed e5ff | | Load 0x2,-0x1 07ee 8277 | w | Call 0x1,0x77 07ef 0033 | 3 | Store_Top Heap_Access,At_Offset_3 07f0 0059 | Y | Store_Top Discrete,At_Offset_1 07f1 00d8 | | Load_Top At_Offset_0 07f2 7009 |p | Jump_Nonzero 0x7fc 07f3 00d9 | | Load_Top At_Offset_1 07f4 0217 | | Execute Heap_Access,All_Reference 07f5 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 07f6 00d8 | | Load_Top At_Offset_0 07f7 0120 | | Execute Any,Is_Value 07f8 7002 |p | Jump_Nonzero 0x7fb 07f9 00d8 | | Load_Top At_Offset_0 07fa 011e | | Execute Any,Convert 07fb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07fc 00d8 | | Load_Top At_Offset_0 07fd 601a |` | Indirect_Literal Discrete,0x818,{0x00000000, 0x00002009} 07fe 027f | | Execute Discrete,Equal 07ff 6803 |h | Jump_Zero 0x803 0800 e004 | | Load 0x0,0x4 0801 180f | | Execute Package,Field_Execute,Field_Number 0xf 0802 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0803 4801 |H | Short_Literal 0x1 0804 4802 |H | Short_Literal 0x2 0805 e005 | | Load 0x0,0x5 0806 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0807 035b | [ | Declare_Type Array,Constrained 0808 0337 | 7 | Declare_Variable Array 0809 e5ff | | Load 0x2,-0x1 080a 8210 | | Call 0x1,0x10 080b 4801 |H | Short_Literal 0x1 080c 00da | | Load_Top At_Offset_2 080d 01d6 | | Execute Vector,Field_Write 080e e5fe | | Load 0x2,-0x2 080f e014 | | Load 0x0,0x14 0810 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0811 4802 |H | Short_Literal 0x2 0812 00da | | Load_Top At_Offset_2 0813 01d6 | | Execute Vector,Field_Write 0814 00d9 | | Load_Top At_Offset_1 0815 e002 | | Load 0x0,0x2 0816 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0817 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0818 0000 0000 | | .LITERAL {0x00000000, 0x00002009} 081c 0000 0000 | | .BLANK 0000[0x4] 0820 ; -------------------------------------------------------------------------------------- 0820 ; SUBPROGRAM 0820 ; -------------------------------------------------------------------------------------- 0820 0828 | ( | .CONST 0x0828 ; Address of begin 0821 0004 | | .CONST 0x0004 ; Address of exception handler 0822 0003 | | .CONST 0x0003 ; Number of locals 0823 INIT_0820: 0823 e002 | | Load 0x0,0x2 0824 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0825 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0826 e00d | | Load 0x0,0xd 0827 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0828 BODY_0820: 0828 00d9 | | Load_Top At_Offset_1 0829 e00d | | Load 0x0,0xd 082a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 082b 4801 |H | Short_Literal 0x1 082c e5fd | | Load 0x2,-0x3 082d e5ff | | Load 0x2,-0x1 082e 8277 | w | Call 0x1,0x77 082f 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0830 005a | Z | Store_Top Discrete,At_Offset_2 0831 00d9 | | Load_Top At_Offset_1 0832 7005 |p | Jump_Nonzero 0x838 0833 e5fe | | Load 0x2,-0x2 0834 00d9 | | Load_Top At_Offset_1 0835 0217 | | Execute Heap_Access,All_Reference 0836 380b |8 | Execute Record,Field_Write,Field_Number 0xb 0837 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0838 e002 | | Load 0x0,0x2 0839 1b0d | | Execute Package,Field_Read,Field_Number 0xd 083a 4801 |H | Short_Literal 0x1 083b 4802 |H | Short_Literal 0x2 083c e005 | | Load 0x0,0x5 083d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 083e 035b | [ | Declare_Type Array,Constrained 083f 0337 | 7 | Declare_Variable Array 0840 e5ff | | Load 0x2,-0x1 0841 8210 | | Call 0x1,0x10 0842 4801 |H | Short_Literal 0x1 0843 00da | | Load_Top At_Offset_2 0844 01d6 | | Execute Vector,Field_Write 0845 e5fd | | Load 0x2,-0x3 0846 e014 | | Load 0x0,0x14 0847 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0848 4802 |H | Short_Literal 0x2 0849 00da | | Load_Top At_Offset_2 084a 01d6 | | Execute Vector,Field_Write 084b 00db | | Load_Top At_Offset_3 084c e002 | | Load 0x0,0x2 084d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 084e c5fc | | Store 0x2,-0x4 084f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0850 ; -------------------------------------------------------------------------------------- 0850 ; SUBPROGRAM 0850 ; -------------------------------------------------------------------------------------- 0850 0853 | S | .CONST 0x0853 ; Address of begin 0851 0004 | | .CONST 0x0004 ; Address of exception handler 0852 0001 | | .CONST 0x0001 ; Number of locals 0853 BODY_0850: 0853 INIT_0850: 0853 00da | | Load_Top At_Offset_2 0854 6809 |h | Jump_Zero 0x85e 0855 00da | | Load_Top At_Offset_2 0856 0217 | | Execute Heap_Access,All_Reference 0857 3c0e |< | Execute Record,Field_Read,Field_Number 0xe 0858 00d8 | | Load_Top At_Offset_0 0859 0120 | | Execute Any,Is_Value 085a 7002 |p | Jump_Nonzero 0x85d 085b 00d8 | | Load_Top At_Offset_0 085c 011e | | Execute Any,Convert 085d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 085e e004 | | Load 0x0,0x4 085f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0860 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0861 0000 0000 | | .BLANK 0000[0x7] 0868 ; -------------------------------------------------------------------------------------- 0868 ; SUBPROGRAM 0868 ; -------------------------------------------------------------------------------------- 0868 086b | k | .CONST 0x086b ; Address of begin 0869 0004 | | .CONST 0x0004 ; Address of exception handler 086a 0001 | | .CONST 0x0001 ; Number of locals 086b BODY_0868: 086b INIT_0868: 086b 00db | | Load_Top At_Offset_3 086c 00db | | Load_Top At_Offset_3 086d 0217 | | Execute Heap_Access,All_Reference 086e 380e |8 | Execute Record,Field_Write,Field_Number 0xe 086f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0870 ; -------------------------------------------------------------------------------------- 0870 ; SUBPROGRAM 0870 ; -------------------------------------------------------------------------------------- 0870 0873 | s | .CONST 0x0873 ; Address of begin 0871 0004 | | .CONST 0x0004 ; Address of exception handler 0872 0001 | | .CONST 0x0001 ; Number of locals 0873 BODY_0870: 0873 INIT_0870: 0873 00da | | Load_Top At_Offset_2 0874 6804 |h | Jump_Zero 0x879 0875 00da | | Load_Top At_Offset_2 0876 0217 | | Execute Heap_Access,All_Reference 0877 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0878 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0879 4800 |H | Short_Literal 0x0 087a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 087b 0000 0000 | | .BLANK 0000[0x5] 0880 ; -------------------------------------------------------------------------------------- 0880 ; SUBPROGRAM 0880 ; -------------------------------------------------------------------------------------- 0880 0883 | | .CONST 0x0883 ; Address of begin 0881 0004 | | .CONST 0x0004 ; Address of exception handler 0882 0001 | | .CONST 0x0001 ; Number of locals 0883 BODY_0880: 0883 INIT_0880: 0883 00da | | Load_Top At_Offset_2 0884 6814 |h | Jump_Zero 0x899 0885 00da | | Load_Top At_Offset_2 0886 0217 | | Execute Heap_Access,All_Reference 0887 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0888 700e |p | Jump_Nonzero 0x897 0889 00da | | Load_Top At_Offset_2 088a 0217 | | Execute Heap_Access,All_Reference 088b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 088c 6808 |h | Jump_Zero 0x895 088d 00da | | Load_Top At_Offset_2 088e 0217 | | Execute Heap_Access,All_Reference 088f 3c14 |< | Execute Record,Field_Read,Field_Number 0x14 0890 e001 | | Load 0x0,0x1 0891 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0892 0216 | | Execute Heap_Access,Convert 0893 021c | | Execute Heap_Access,Not_Null 0894 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0895 4800 |H | Short_Literal 0x0 0896 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0897 4801 |H | Short_Literal 0x1 0898 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0899 4800 |H | Short_Literal 0x0 089a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 089b 0000 0000 | | .BLANK 0000[0x5] 08a0 ; -------------------------------------------------------------------------------------- 08a0 ; SUBPROGRAM 08a0 ; -------------------------------------------------------------------------------------- 08a0 08a3 | | .CONST 0x08a3 ; Address of begin 08a1 0004 | | .CONST 0x0004 ; Address of exception handler 08a2 0001 | | .CONST 0x0001 ; Number of locals 08a3 BODY_08a0: 08a3 INIT_08a0: 08a3 00da | | Load_Top At_Offset_2 08a4 7002 |p | Jump_Nonzero 0x8a7 08a5 00da | | Load_Top At_Offset_2 08a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08a7 00da | | Load_Top At_Offset_2 08a8 0217 | | Execute Heap_Access,All_Reference 08a9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 08aa 6807 |h | Jump_Zero 0x8b2 08ab 00da | | Load_Top At_Offset_2 08ac 0217 | | Execute Heap_Access,All_Reference 08ad 3c14 |< | Execute Record,Field_Read,Field_Number 0x14 08ae e001 | | Load 0x0,0x1 08af 1b10 | | Execute Package,Field_Read,Field_Number 0x10 08b0 0216 | | Execute Heap_Access,Convert 08b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08b2 00da | | Load_Top At_Offset_2 08b3 0217 | | Execute Heap_Access,All_Reference 08b4 3c16 |< | Execute Record,Field_Read,Field_Number 0x16 08b5 e001 | | Load 0x0,0x1 08b6 1b10 | | Execute Package,Field_Read,Field_Number 0x10 08b7 0216 | | Execute Heap_Access,Convert 08b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08b9 0000 0000 | | .BLANK 0000[0x7] 08c0 ; -------------------------------------------------------------------------------------- 08c0 ; SUBPROGRAM 08c0 ; -------------------------------------------------------------------------------------- 08c0 08c7 | | .CONST 0x08c7 ; Address of begin 08c1 0004 | | .CONST 0x0004 ; Address of exception handler 08c2 0002 | | .CONST 0x0002 ; Number of locals 08c3 INIT_08c0: 08c3 00da | | Load_Top At_Offset_2 08c4 e001 | | Load 0x0,0x1 08c5 1b16 | | Execute Package,Field_Read,Field_Number 0x16 08c6 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 08c7 BODY_08c0: 08c7 00d8 | | Load_Top At_Offset_0 08c8 e5fe | | Load 0x2,-0x2 08c9 e001 | | Load 0x0,0x1 08ca 1b16 | | Execute Package,Field_Read,Field_Number 0x16 08cb 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 08cc 00db | | Load_Top At_Offset_3 08cd e00d | | Load 0x0,0xd 08ce 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 08cf 0216 | | Execute Heap_Access,Convert 08d0 e5fe | | Load 0x2,-0x2 08d1 0217 | | Execute Heap_Access,All_Reference 08d2 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 08d3 4801 |H | Short_Literal 0x1 08d4 e5fe | | Load 0x2,-0x2 08d5 0217 | | Execute Heap_Access,All_Reference 08d6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 08d7 00d8 | | Load_Top At_Offset_0 08d8 e5fe | | Load 0x2,-0x2 08d9 e001 | | Load 0x0,0x1 08da 1b16 | | Execute Package,Field_Read,Field_Number 0x16 08db 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 08dc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 08dd 0000 0000 | | .XXX[0x3] 08df 0000 | | 08e0 ; -------------------------------------------------------------------------------------- 08e0 ; SUBPROGRAM 08e0 ; -------------------------------------------------------------------------------------- 08e0 08e7 | | .CONST 0x08e7 ; Address of begin 08e1 0004 | | .CONST 0x0004 ; Address of exception handler 08e2 0002 | | .CONST 0x0002 ; Number of locals 08e3 INIT_08e0: 08e3 00da | | Load_Top At_Offset_2 08e4 e001 | | Load 0x0,0x1 08e5 1b16 | | Execute Package,Field_Read,Field_Number 0x16 08e6 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 08e7 BODY_08e0: 08e7 00d8 | | Load_Top At_Offset_0 08e8 e5fe | | Load 0x2,-0x2 08e9 e001 | | Load 0x0,0x1 08ea 1b16 | | Execute Package,Field_Read,Field_Number 0x16 08eb 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 08ec 00d8 | | Load_Top At_Offset_0 08ed e5fe | | Load 0x2,-0x2 08ee e001 | | Load 0x0,0x1 08ef 1b16 | | Execute Package,Field_Read,Field_Number 0x16 08f0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 08f1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 08f2 0000 0000 | | .BLANK 0000[0x6] 08f8 ; -------------------------------------------------------------------------------------- 08f8 ; SUBPROGRAM 08f8 ; -------------------------------------------------------------------------------------- 08f8 08fb | | .CONST 0x08fb ; Address of begin 08f9 0004 | | .CONST 0x0004 ; Address of exception handler 08fa 0001 | | .CONST 0x0001 ; Number of locals 08fb BODY_08f8: 08fb INIT_08f8: 08fb 00da | | Load_Top At_Offset_2 08fc 680b |h | Jump_Zero 0x908 08fd 00da | | Load_Top At_Offset_2 08fe 0217 | | Execute Heap_Access,All_Reference 08ff 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0900 6807 |h | Jump_Zero 0x908 0901 00da | | Load_Top At_Offset_2 0902 0217 | | Execute Heap_Access,All_Reference 0903 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 0904 e001 | | Load 0x0,0x1 0905 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0906 0216 | | Execute Heap_Access,Convert 0907 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0908 00da | | Load_Top At_Offset_2 0909 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 090a 0000 0000 | | .BLANK 0000[0x6] 0910 ; -------------------------------------------------------------------------------------- 0910 ; SUBPROGRAM 0910 ; -------------------------------------------------------------------------------------- 0910 091e | | .CONST 0x091e ; Address of begin 0911 0004 | | .CONST 0x0004 ; Address of exception handler 0912 0006 | | .CONST 0x0006 ; Number of locals 0913 INIT_0910: 0913 e015 | | Load 0x0,0x15 0914 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0915 e00d | | Load 0x0,0xd 0916 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0917 e00d | | Load 0x0,0xd 0918 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 0919 e00d | | Load 0x0,0xd 091a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 091b e002 | | Load 0x0,0x2 091c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 091d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 091e BODY_0910: 091e 00d8 | | Load_Top At_Offset_0 091f e00d | | Load 0x0,0xd 0920 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0921 4800 |H | Short_Literal 0x0 0922 e5fe | | Load 0x2,-0x2 0923 e5ff | | Load 0x2,-0x1 0924 8277 | w | Call 0x1,0x77 0925 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0926 0059 | Y | Store_Top Discrete,At_Offset_1 0927 00d8 | | Load_Top At_Offset_0 0928 7034 |p4 | Jump_Nonzero 0x95d 0929 00d9 | | Load_Top At_Offset_1 092a 0217 | | Execute Heap_Access,All_Reference 092b 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 092c a403 | | Store_Unchecked 0x2,0x3 092d 00db | | Load_Top At_Offset_3 092e 7002 |p | Jump_Nonzero 0x931 092f e402 | | Load 0x2,0x2 0930 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0931 00db | | Load_Top At_Offset_3 0932 0217 | | Execute Heap_Access,All_Reference 0933 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0934 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0935 00cf | | Action Mark_Auxiliary 0936 e403 | | Load 0x2,0x3 0937 0217 | | Execute Heap_Access,All_Reference 0938 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0939 4801 |H | Short_Literal 0x1 093a 0263 | c | Execute Discrete,Above_Bound 093b 701f |p | Jump_Nonzero 0x95b 093c e404 | | Load 0x2,0x4 093d 0217 | | Execute Heap_Access,All_Reference 093e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 093f e00f | | Load 0x0,0xf 0940 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0941 e5ff | | Load 0x2,-0x1 0942 e006 | | Load 0x0,0x6 0943 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0944 e404 | | Load 0x2,0x4 0945 0217 | | Execute Heap_Access,All_Reference 0946 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0947 e005 | | Load 0x0,0x5 0948 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0949 e404 | | Load 0x2,0x4 094a 0217 | | Execute Heap_Access,All_Reference 094b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 094c e402 | | Load 0x2,0x2 094d e015 | | Load 0x0,0x15 094e 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 094f e402 | | Load 0x2,0x2 0950 e015 | | Load 0x0,0x15 0951 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0952 7002 |p | Jump_Nonzero 0x955 0953 00d2 | | Pop_Control Pop_Count_2 0954 7806 |x | Jump 0x95b 0955 e404 | | Load 0x2,0x4 0956 0217 | | Execute Heap_Access,All_Reference 0957 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0958 a404 | | Store_Unchecked 0x2,0x4 0959 00c8 | | Action Pop_Auxiliary_Range 095a 3fe1 |? | Loop_Increasing 0x93c 095b 00ce | | Action Pop_Auxiliary 095c 781d |x | Jump 0x97a 095d 00d8 | | Load_Top At_Offset_0 095e 6021 |`! | Indirect_Literal Discrete,0x980,{0x00000000, 0x00002009} 095f 027f | | Execute Discrete,Equal 0960 6802 |h | Jump_Zero 0x963 0961 e402 | | Load 0x2,0x2 0962 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0963 4801 |H | Short_Literal 0x1 0964 4802 |H | Short_Literal 0x2 0965 e005 | | Load 0x0,0x5 0966 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0967 035b | [ | Declare_Type Array,Constrained 0968 0337 | 7 | Declare_Variable Array 0969 e5ff | | Load 0x2,-0x1 096a 8210 | | Call 0x1,0x10 096b 4801 |H | Short_Literal 0x1 096c 00da | | Load_Top At_Offset_2 096d 01d6 | | Execute Vector,Field_Write 096e e5fe | | Load 0x2,-0x2 096f e014 | | Load 0x0,0x14 0970 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0971 4802 |H | Short_Literal 0x2 0972 00da | | Load_Top At_Offset_2 0973 01d6 | | Execute Vector,Field_Write 0974 6007 |` | Indirect_Literal Discrete,0x97c,{0x00000000, 0x0000200c} 0975 e002 | | Load 0x0,0x2 0976 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0977 e402 | | Load 0x2,0x2 0978 e015 | | Load 0x0,0x15 0979 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 097a e402 | | Load 0x2,0x2 097b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 097c 0000 0000 | | .LITERAL {0x00000000, 0x0000200c} 0980 0000 0000 | | .LITERAL {0x00000000, 0x00002009} 0984 0000 0000 | | .BLANK 0000[0x4] 0988 ; -------------------------------------------------------------------------------------- 0988 ; SUBPROGRAM 0988 ; -------------------------------------------------------------------------------------- 0988 099e | | .CONST 0x099e ; Address of begin 0989 0004 | | .CONST 0x0004 ; Address of exception handler 098a 0009 | | .CONST 0x0009 ; Number of locals 098b INIT_0988: 098b e015 | | Load 0x0,0x15 098c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 098d e00d | | Load 0x0,0xd 098e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 098f e00d | | Load 0x0,0xd 0990 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 0991 e00d | | Load 0x0,0xd 0992 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0993 e00d | | Load 0x0,0xd 0994 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 0995 e5ff | | Load 0x2,-0x1 0996 e001 | | Load 0x0,0x1 0997 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0998 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0999 e002 | | Load 0x0,0x2 099a 1b10 | | Execute Package,Field_Read,Field_Number 0x10 099b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 099c 029f 10e3 | | Declare_Subprogram INIT_10e0,For_Call 099e BODY_0988: 099e 00d9 | | Load_Top At_Offset_1 099f e00d | | Load 0x0,0xd 09a0 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 09a1 4801 |H | Short_Literal 0x1 09a2 e5fd | | Load 0x2,-0x3 09a3 e5ff | | Load 0x2,-0x1 09a4 8277 | w | Call 0x1,0x77 09a5 c405 | | Store 0x2,0x5 09a6 005a | Z | Store_Top Discrete,At_Offset_2 09a7 00d9 | | Load_Top At_Offset_1 09a8 7039 |p9 | Jump_Nonzero 0x9e2 09a9 e405 | | Load 0x2,0x5 09aa 0217 | | Execute Heap_Access,All_Reference 09ab 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 09ac a403 | | Store_Unchecked 0x2,0x3 09ad e403 | | Load 0x2,0x3 09ae 6824 |h$ | Jump_Zero 0x9d3 09af 0092 157f | | Action Push_String_Extended,0x157f ; "Releasing old special build instructions." 09b1 8011 | | Call 0x0,0x11 09b2 e403 | | Load 0x2,0x3 09b3 0217 | | Execute Heap_Access,All_Reference 09b4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 09b5 a404 | | Store_Unchecked 0x2,0x4 09b6 00cf | | Action Mark_Auxiliary 09b7 e403 | | Load 0x2,0x3 09b8 0217 | | Execute Heap_Access,All_Reference 09b9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 09ba 4801 |H | Short_Literal 0x1 09bb 0263 | c | Execute Discrete,Above_Bound 09bc 700c |p | Jump_Nonzero 0x9c9 09bd e404 | | Load 0x2,0x4 09be 0217 | | Execute Heap_Access,All_Reference 09bf 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 09c0 a406 | | Store_Unchecked 0x2,0x6 09c1 e404 | | Load 0x2,0x4 09c2 e00d | | Load 0x0,0xd 09c3 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 09c4 c404 | | Store 0x2,0x4 09c5 e406 | | Load 0x2,0x6 09c6 a404 | | Store_Unchecked 0x2,0x4 09c7 00c8 | | Action Pop_Auxiliary_Range 09c8 3ff4 |? | Loop_Increasing 0x9bd 09c9 00ce | | Action Pop_Auxiliary 09ca e403 | | Load 0x2,0x3 09cb e00d | | Load 0x0,0xd 09cc 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 09cd c403 | | Store 0x2,0x3 09ce e00d | | Load 0x0,0xd 09cf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 09d0 e405 | | Load 0x2,0x5 09d1 0217 | | Execute Heap_Access,All_Reference 09d2 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 09d3 e5fe | | Load 0x2,-0x2 09d4 e015 | | Load 0x0,0x15 09d5 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 09d6 6801 |h | Jump_Zero 0x9d8 09d7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 09d8 00da | | Load_Top At_Offset_2 09d9 e00d | | Load 0x0,0xd 09da 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 09db a403 | | Store_Unchecked 0x2,0x3 09dc 8409 | | Call 0x2,0x9 09dd e403 | | Load 0x2,0x3 09de e405 | | Load 0x2,0x5 09df 0217 | | Execute Heap_Access,All_Reference 09e0 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 09e1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 09e2 e002 | | Load 0x0,0x2 09e3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09e4 4801 |H | Short_Literal 0x1 09e5 4802 |H | Short_Literal 0x2 09e6 e005 | | Load 0x0,0x5 09e7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09e8 035b | [ | Declare_Type Array,Constrained 09e9 0337 | 7 | Declare_Variable Array 09ea e5ff | | Load 0x2,-0x1 09eb 8210 | | Call 0x1,0x10 09ec 4801 |H | Short_Literal 0x1 09ed 00da | | Load_Top At_Offset_2 09ee 01d6 | | Execute Vector,Field_Write 09ef e5fd | | Load 0x2,-0x3 09f0 e014 | | Load 0x0,0x14 09f1 181c | | Execute Package,Field_Execute,Field_Number 0x1c 09f2 4802 |H | Short_Literal 0x2 09f3 00da | | Load_Top At_Offset_2 09f4 01d6 | | Execute Vector,Field_Write 09f5 00db | | Load_Top At_Offset_3 09f6 e002 | | Load 0x0,0x2 09f7 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 09f8 c5fc | | Store 0x2,-0x4 09f9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 09fa 0000 0000 | | .BLANK 0000[0x6] 0a00 ; -------------------------------------------------------------------------------------- 0a00 ; SUBPROGRAM 0a00 ; -------------------------------------------------------------------------------------- 0a00 0a08 | | .CONST 0x0a08 ; Address of begin 0a01 0004 | | .CONST 0x0004 ; Address of exception handler 0a02 0003 | | .CONST 0x0003 ; Number of locals 0a03 INIT_0a00: 0a03 e00d | | Load 0x0,0xd 0a04 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0a05 e002 | | Load 0x0,0x2 0a06 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0a07 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0a08 BODY_0a00: 0a08 00d8 | | Load_Top At_Offset_0 0a09 e00d | | Load 0x0,0xd 0a0a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0a0b 4800 |H | Short_Literal 0x0 0a0c e5fe | | Load 0x2,-0x2 0a0d e5ff | | Load 0x2,-0x1 0a0e 8277 | w | Call 0x1,0x77 0a0f 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0a10 0059 | Y | Store_Top Discrete,At_Offset_1 0a11 00d8 | | Load_Top At_Offset_0 0a12 7006 |p | Jump_Nonzero 0xa19 0a13 00d9 | | Load_Top At_Offset_1 0a14 0217 | | Execute Heap_Access,All_Reference 0a15 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0a16 021d | | Execute Heap_Access,Is_Null 0a17 0f00 | | Execute_Immediate Equal,0x0 0a18 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a19 00d8 | | Load_Top At_Offset_0 0a1a 6019 |` | Indirect_Literal Discrete,0xa34,{0x00000000, 0x00002009} 0a1b 027f | | Execute Discrete,Equal 0a1c 6802 |h | Jump_Zero 0xa1f 0a1d 4800 |H | Short_Literal 0x0 0a1e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a1f 4801 |H | Short_Literal 0x1 0a20 4802 |H | Short_Literal 0x2 0a21 e005 | | Load 0x0,0x5 0a22 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0a23 035b | [ | Declare_Type Array,Constrained 0a24 0337 | 7 | Declare_Variable Array 0a25 e5ff | | Load 0x2,-0x1 0a26 8210 | | Call 0x1,0x10 0a27 4801 |H | Short_Literal 0x1 0a28 00da | | Load_Top At_Offset_2 0a29 01d6 | | Execute Vector,Field_Write 0a2a e5fe | | Load 0x2,-0x2 0a2b e014 | | Load 0x0,0x14 0a2c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0a2d 4802 |H | Short_Literal 0x2 0a2e 00da | | Load_Top At_Offset_2 0a2f 01d6 | | Execute Vector,Field_Write 0a30 00d9 | | Load_Top At_Offset_1 0a31 e002 | | Load 0x0,0x2 0a32 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0a33 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a34 0000 0000 | | .LITERAL {0x00000000, 0x00002009} 0a38 ; -------------------------------------------------------------------------------------- 0a38 ; SUBPROGRAM 0a38 ; -------------------------------------------------------------------------------------- 0a38 0a40 | @ | .CONST 0x0a40 ; Address of begin 0a39 0004 | | .CONST 0x0004 ; Address of exception handler 0a3a 0003 | | .CONST 0x0003 ; Number of locals 0a3b INIT_0a38: 0a3b e00d | | Load 0x0,0xd 0a3c 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0a3d e002 | | Load 0x0,0x2 0a3e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0a3f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0a40 BODY_0a38: 0a40 00d8 | | Load_Top At_Offset_0 0a41 e00d | | Load 0x0,0xd 0a42 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0a43 4800 |H | Short_Literal 0x0 0a44 e5fe | | Load 0x2,-0x2 0a45 e5ff | | Load 0x2,-0x1 0a46 8277 | w | Call 0x1,0x77 0a47 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0a48 0059 | Y | Store_Top Discrete,At_Offset_1 0a49 00d8 | | Load_Top At_Offset_0 0a4a 7013 |p | Jump_Nonzero 0xa5e 0a4b 00d9 | | Load_Top At_Offset_1 0a4c 0217 | | Execute Heap_Access,All_Reference 0a4d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0a4e 6806 |h | Jump_Zero 0xa55 0a4f 00d9 | | Load_Top At_Offset_1 0a50 0217 | | Execute Heap_Access,All_Reference 0a51 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0a52 e016 | | Load 0x0,0x16 0a53 180f | | Execute Package,Field_Execute,Field_Number 0xf 0a54 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a55 e5fe | | Load 0x2,-0x2 0a56 e5ff | | Load 0x2,-0x1 0a57 e001 | | Load 0x0,0x1 0a58 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0a59 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0a5a e001 | | Load 0x0,0x1 0a5b 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0a5c 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 0a5d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a5e 4801 |H | Short_Literal 0x1 0a5f 4802 |H | Short_Literal 0x2 0a60 e005 | | Load 0x0,0x5 0a61 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0a62 035b | [ | Declare_Type Array,Constrained 0a63 0337 | 7 | Declare_Variable Array 0a64 e5ff | | Load 0x2,-0x1 0a65 8210 | | Call 0x1,0x10 0a66 4801 |H | Short_Literal 0x1 0a67 00da | | Load_Top At_Offset_2 0a68 01d6 | | Execute Vector,Field_Write 0a69 e5fe | | Load 0x2,-0x2 0a6a e014 | | Load 0x0,0x14 0a6b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0a6c 4802 |H | Short_Literal 0x2 0a6d 00da | | Load_Top At_Offset_2 0a6e 01d6 | | Execute Vector,Field_Write 0a6f 00d9 | | Load_Top At_Offset_1 0a70 e002 | | Load 0x0,0x2 0a71 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0a72 00d8 | | Load_Top At_Offset_0 0a73 00e3 | | Load_Encached Natural_Cache 0a74 0260 | ` | Execute Discrete,In_Type 0a75 7001 |p | Jump_Nonzero 0xa77 0a76 0801 | | Execute_Immediate Raise,0x1 0a77 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a78 ; -------------------------------------------------------------------------------------- 0a78 ; SUBPROGRAM 0a78 ; -------------------------------------------------------------------------------------- 0a78 0a80 | | .CONST 0x0a80 ; Address of begin 0a79 0004 | | .CONST 0x0004 ; Address of exception handler 0a7a 0003 | | .CONST 0x0003 ; Number of locals 0a7b INIT_0a78: 0a7b e002 | | Load 0x0,0x2 0a7c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0a7d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0a7e e00d | | Load 0x0,0xd 0a7f 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0a80 BODY_0a78: 0a80 00d9 | | Load_Top At_Offset_1 0a81 e00d | | Load 0x0,0xd 0a82 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0a83 4801 |H | Short_Literal 0x1 0a84 e5fd | | Load 0x2,-0x3 0a85 e5ff | | Load 0x2,-0x1 0a86 8277 | w | Call 0x1,0x77 0a87 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0a88 005a | Z | Store_Top Discrete,At_Offset_2 0a89 00d9 | | Load_Top At_Offset_1 0a8a 700f |p | Jump_Nonzero 0xa9a 0a8b 00d8 | | Load_Top At_Offset_0 0a8c 0219 | | Execute Heap_Access,All_Read 0a8d 00da | | Load_Top At_Offset_2 0a8e 00d9 | | Load_Top At_Offset_1 0a8f 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0a90 e5fe | | Load 0x2,-0x2 0a91 e016 | | Load 0x0,0x16 0a92 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0a93 00da | | Load_Top At_Offset_2 0a94 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0a95 005b | [ | Store_Top Discrete,At_Offset_3 0a96 00d1 | | Pop_Control Pop_Count_1 0a97 00d9 | | Load_Top At_Offset_1 0a98 7001 |p | Jump_Nonzero 0xa9a 0a99 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0a9a e002 | | Load 0x0,0x2 0a9b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a9c 4801 |H | Short_Literal 0x1 0a9d 4802 |H | Short_Literal 0x2 0a9e e005 | | Load 0x0,0x5 0a9f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0aa0 035b | [ | Declare_Type Array,Constrained 0aa1 0337 | 7 | Declare_Variable Array 0aa2 e5ff | | Load 0x2,-0x1 0aa3 8210 | | Call 0x1,0x10 0aa4 4801 |H | Short_Literal 0x1 0aa5 00da | | Load_Top At_Offset_2 0aa6 01d6 | | Execute Vector,Field_Write 0aa7 e5fd | | Load 0x2,-0x3 0aa8 e014 | | Load 0x0,0x14 0aa9 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0aaa 4802 |H | Short_Literal 0x2 0aab 00da | | Load_Top At_Offset_2 0aac 01d6 | | Execute Vector,Field_Write 0aad 00db | | Load_Top At_Offset_3 0aae e002 | | Load 0x0,0x2 0aaf 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0ab0 c5fc | | Store 0x2,-0x4 0ab1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0ab2 0000 0000 | | .BLANK 0000[0x6] 0ab8 ; -------------------------------------------------------------------------------------- 0ab8 ; SUBPROGRAM 0ab8 ; -------------------------------------------------------------------------------------- 0ab8 0ac5 | | .CONST 0x0ac5 ; Address of begin 0ab9 0004 | | .CONST 0x0004 ; Address of exception handler 0aba 0004 | | .CONST 0x0004 ; Number of locals 0abb INIT_0ab8: 0abb e00d | | Load 0x0,0xd 0abc 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0abd e002 | | Load 0x0,0x2 0abe 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0abf 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0ac0 e00f | | Load 0x0,0xf 0ac1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ac2 02c7 | | Declare_Variable Any 0ac3 00d8 | | Load_Top At_Offset_0 0ac4 1c00 | | Execute_Immediate Run_Utility,0x0 0ac5 BODY_0ab8: 0ac5 00d9 | | Load_Top At_Offset_1 0ac6 e00d | | Load 0x0,0xd 0ac7 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0ac8 4800 |H | Short_Literal 0x0 0ac9 e5fd | | Load 0x2,-0x3 0aca e5ff | | Load 0x2,-0x1 0acb 8277 | w | Call 0x1,0x77 0acc c402 | | Store 0x2,0x2 0acd 005a | Z | Store_Top Discrete,At_Offset_2 0ace 00d9 | | Load_Top At_Offset_1 0acf 7029 |p) | Jump_Nonzero 0xaf9 0ad0 00da | | Load_Top At_Offset_2 0ad1 0217 | | Execute Heap_Access,All_Reference 0ad2 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0ad3 681b |h | Jump_Zero 0xaef 0ad4 00da | | Load_Top At_Offset_2 0ad5 0219 | | Execute Heap_Access,All_Read 0ad6 00da | | Load_Top At_Offset_2 0ad7 00da | | Load_Top At_Offset_2 0ad8 0120 | | Execute Any,Is_Value 0ad9 6803 |h | Jump_Zero 0xadd 0ada e00f | | Load 0x0,0xf 0adb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0adc 7801 |x | Jump 0xade 0add 00da | | Load_Top At_Offset_2 0ade 00da | | Load_Top At_Offset_2 0adf 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0ae0 e5fe | | Load 0x2,-0x2 0ae1 e016 | | Load 0x0,0x16 0ae2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0ae3 00db | | Load_Top At_Offset_3 0ae4 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0ae5 c404 | | Store 0x2,0x4 0ae6 005b | [ | Store_Top Discrete,At_Offset_3 0ae7 00d1 | | Pop_Control Pop_Count_1 0ae8 00d9 | | Load_Top At_Offset_1 0ae9 7002 |p | Jump_Nonzero 0xaec 0aea 00d8 | | Load_Top At_Offset_0 0aeb 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0aec e004 | | Load 0x0,0x4 0aed 180f | | Execute Package,Field_Execute,Field_Number 0xf 0aee 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0aef e5fd | | Load 0x2,-0x3 0af0 e5fe | | Load 0x2,-0x2 0af1 e5ff | | Load 0x2,-0x1 0af2 e001 | | Load 0x0,0x1 0af3 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0af4 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0af5 e001 | | Load 0x0,0x1 0af6 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0af7 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 0af8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0af9 4801 |H | Short_Literal 0x1 0afa 4802 |H | Short_Literal 0x2 0afb e005 | | Load 0x0,0x5 0afc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0afd 035b | [ | Declare_Type Array,Constrained 0afe 0337 | 7 | Declare_Variable Array 0aff e5ff | | Load 0x2,-0x1 0b00 8210 | | Call 0x1,0x10 0b01 4801 |H | Short_Literal 0x1 0b02 00da | | Load_Top At_Offset_2 0b03 01d6 | | Execute Vector,Field_Write 0b04 e5fd | | Load 0x2,-0x3 0b05 e014 | | Load 0x0,0x14 0b06 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0b07 4802 |H | Short_Literal 0x2 0b08 00da | | Load_Top At_Offset_2 0b09 01d6 | | Execute Vector,Field_Write 0b0a 00da | | Load_Top At_Offset_2 0b0b e002 | | Load 0x0,0x2 0b0c 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0b0d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0b0e 0000 0000 | | .XXX[0x2] 0b10 ; -------------------------------------------------------------------------------------- 0b10 ; SUBPROGRAM 0b10 ; -------------------------------------------------------------------------------------- 0b10 0b18 | | .CONST 0x0b18 ; Address of begin 0b11 0004 | | .CONST 0x0004 ; Address of exception handler 0b12 0003 | | .CONST 0x0003 ; Number of locals 0b13 INIT_0b10: 0b13 e00d | | Load 0x0,0xd 0b14 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0b15 e002 | | Load 0x0,0x2 0b16 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0b17 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0b18 BODY_0b10: 0b18 00d8 | | Load_Top At_Offset_0 0b19 e00d | | Load 0x0,0xd 0b1a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0b1b 4801 |H | Short_Literal 0x1 0b1c e5fc | | Load 0x2,-0x4 0b1d e5ff | | Load 0x2,-0x1 0b1e 8277 | w | Call 0x1,0x77 0b1f 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0b20 0059 | Y | Store_Top Discrete,At_Offset_1 0b21 00d8 | | Load_Top At_Offset_0 0b22 7010 |p | Jump_Nonzero 0xb33 0b23 00d9 | | Load_Top At_Offset_1 0b24 0219 | | Execute Heap_Access,All_Read 0b25 00d9 | | Load_Top At_Offset_1 0b26 00d9 | | Load_Top At_Offset_1 0b27 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0b28 e5fe | | Load 0x2,-0x2 0b29 e5fd | | Load 0x2,-0x3 0b2a e016 | | Load 0x0,0x16 0b2b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0b2c 00da | | Load_Top At_Offset_2 0b2d 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0b2e 005a | Z | Store_Top Discrete,At_Offset_2 0b2f 00d1 | | Pop_Control Pop_Count_1 0b30 00d8 | | Load_Top At_Offset_0 0b31 7001 |p | Jump_Nonzero 0xb33 0b32 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0b33 e002 | | Load 0x0,0x2 0b34 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b35 4801 |H | Short_Literal 0x1 0b36 4802 |H | Short_Literal 0x2 0b37 e005 | | Load 0x0,0x5 0b38 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b39 035b | [ | Declare_Type Array,Constrained 0b3a 0337 | 7 | Declare_Variable Array 0b3b e5ff | | Load 0x2,-0x1 0b3c 8210 | | Call 0x1,0x10 0b3d 4801 |H | Short_Literal 0x1 0b3e 00da | | Load_Top At_Offset_2 0b3f 01d6 | | Execute Vector,Field_Write 0b40 e5fc | | Load 0x2,-0x4 0b41 e014 | | Load 0x0,0x14 0b42 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0b43 4802 |H | Short_Literal 0x2 0b44 00da | | Load_Top At_Offset_2 0b45 01d6 | | Execute Vector,Field_Write 0b46 00da | | Load_Top At_Offset_2 0b47 e002 | | Load 0x0,0x2 0b48 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0b49 c5fb | | Store 0x2,-0x5 0b4a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0b4b 0000 0000 | | .BLANK 0000[0x5] 0b50 ; -------------------------------------------------------------------------------------- 0b50 ; SUBPROGRAM 0b50 ; -------------------------------------------------------------------------------------- 0b50 0b58 | X | .CONST 0x0b58 ; Address of begin 0b51 0004 | | .CONST 0x0004 ; Address of exception handler 0b52 0003 | | .CONST 0x0003 ; Number of locals 0b53 INIT_0b50: 0b53 e00d | | Load 0x0,0xd 0b54 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0b55 e002 | | Load 0x0,0x2 0b56 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0b57 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0b58 BODY_0b50: 0b58 00d8 | | Load_Top At_Offset_0 0b59 e00d | | Load 0x0,0xd 0b5a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0b5b 4801 |H | Short_Literal 0x1 0b5c e5fd | | Load 0x2,-0x3 0b5d e5ff | | Load 0x2,-0x1 0b5e 8277 | w | Call 0x1,0x77 0b5f 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0b60 0059 | Y | Store_Top Discrete,At_Offset_1 0b61 00d8 | | Load_Top At_Offset_0 0b62 700f |p | Jump_Nonzero 0xb72 0b63 00d9 | | Load_Top At_Offset_1 0b64 0219 | | Execute Heap_Access,All_Read 0b65 00d9 | | Load_Top At_Offset_1 0b66 00d9 | | Load_Top At_Offset_1 0b67 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0b68 e5fe | | Load 0x2,-0x2 0b69 e016 | | Load 0x0,0x16 0b6a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0b6b 00da | | Load_Top At_Offset_2 0b6c 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0b6d 005a | Z | Store_Top Discrete,At_Offset_2 0b6e 00d1 | | Pop_Control Pop_Count_1 0b6f 00d8 | | Load_Top At_Offset_0 0b70 7001 |p | Jump_Nonzero 0xb72 0b71 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0b72 e002 | | Load 0x0,0x2 0b73 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b74 4801 |H | Short_Literal 0x1 0b75 4802 |H | Short_Literal 0x2 0b76 e005 | | Load 0x0,0x5 0b77 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b78 035b | [ | Declare_Type Array,Constrained 0b79 0337 | 7 | Declare_Variable Array 0b7a e5ff | | Load 0x2,-0x1 0b7b 8210 | | Call 0x1,0x10 0b7c 4801 |H | Short_Literal 0x1 0b7d 00da | | Load_Top At_Offset_2 0b7e 01d6 | | Execute Vector,Field_Write 0b7f e5fd | | Load 0x2,-0x3 0b80 e014 | | Load 0x0,0x14 0b81 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0b82 4802 |H | Short_Literal 0x2 0b83 00da | | Load_Top At_Offset_2 0b84 01d6 | | Execute Vector,Field_Write 0b85 00da | | Load_Top At_Offset_2 0b86 e002 | | Load 0x0,0x2 0b87 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0b88 c5fc | | Store 0x2,-0x4 0b89 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0b8a 0000 0000 | | .BLANK 0000[0x6] 0b90 ; -------------------------------------------------------------------------------------- 0b90 ; SUBPROGRAM 0b90 ; -------------------------------------------------------------------------------------- 0b90 0b98 | | .CONST 0x0b98 ; Address of begin 0b91 0004 | | .CONST 0x0004 ; Address of exception handler 0b92 0003 | | .CONST 0x0003 ; Number of locals 0b93 INIT_0b90: 0b93 e00d | | Load 0x0,0xd 0b94 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0b95 e002 | | Load 0x0,0x2 0b96 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0b97 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0b98 BODY_0b90: 0b98 00d8 | | Load_Top At_Offset_0 0b99 e00d | | Load 0x0,0xd 0b9a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0b9b 4801 |H | Short_Literal 0x1 0b9c e5fd | | Load 0x2,-0x3 0b9d e5ff | | Load 0x2,-0x1 0b9e 8277 | w | Call 0x1,0x77 0b9f 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0ba0 0059 | Y | Store_Top Discrete,At_Offset_1 0ba1 00d8 | | Load_Top At_Offset_0 0ba2 700f |p | Jump_Nonzero 0xbb2 0ba3 00d9 | | Load_Top At_Offset_1 0ba4 0219 | | Execute Heap_Access,All_Read 0ba5 00d9 | | Load_Top At_Offset_1 0ba6 00d9 | | Load_Top At_Offset_1 0ba7 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0ba8 e5fe | | Load 0x2,-0x2 0ba9 e016 | | Load 0x0,0x16 0baa 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0bab 00da | | Load_Top At_Offset_2 0bac 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0bad 005a | Z | Store_Top Discrete,At_Offset_2 0bae 00d1 | | Pop_Control Pop_Count_1 0baf 00d8 | | Load_Top At_Offset_0 0bb0 7001 |p | Jump_Nonzero 0xbb2 0bb1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0bb2 e002 | | Load 0x0,0x2 0bb3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0bb4 4801 |H | Short_Literal 0x1 0bb5 4802 |H | Short_Literal 0x2 0bb6 e005 | | Load 0x0,0x5 0bb7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0bb8 035b | [ | Declare_Type Array,Constrained 0bb9 0337 | 7 | Declare_Variable Array 0bba e5ff | | Load 0x2,-0x1 0bbb 8210 | | Call 0x1,0x10 0bbc 4801 |H | Short_Literal 0x1 0bbd 00da | | Load_Top At_Offset_2 0bbe 01d6 | | Execute Vector,Field_Write 0bbf e5fd | | Load 0x2,-0x3 0bc0 e014 | | Load 0x0,0x14 0bc1 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0bc2 4802 |H | Short_Literal 0x2 0bc3 00da | | Load_Top At_Offset_2 0bc4 01d6 | | Execute Vector,Field_Write 0bc5 00da | | Load_Top At_Offset_2 0bc6 e002 | | Load 0x0,0x2 0bc7 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0bc8 c5fc | | Store 0x2,-0x4 0bc9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0bca 0000 0000 | | .BLANK 0000[0x6] 0bd0 ; -------------------------------------------------------------------------------------- 0bd0 ; SUBPROGRAM 0bd0 ; -------------------------------------------------------------------------------------- 0bd0 0bd3 | | .CONST 0x0bd3 ; Address of begin 0bd1 0004 | | .CONST 0x0004 ; Address of exception handler 0bd2 0001 | | .CONST 0x0001 ; Number of locals 0bd3 BODY_0bd0: 0bd3 INIT_0bd0: 0bd3 00da | | Load_Top At_Offset_2 0bd4 680b |h | Jump_Zero 0xbe0 0bd5 00da | | Load_Top At_Offset_2 0bd6 0217 | | Execute Heap_Access,All_Reference 0bd7 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0bd8 6807 |h | Jump_Zero 0xbe0 0bd9 00da | | Load_Top At_Offset_2 0bda 0217 | | Execute Heap_Access,All_Reference 0bdb 3c13 |< | Execute Record,Field_Read,Field_Number 0x13 0bdc e001 | | Load 0x0,0x1 0bdd 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0bde 0216 | | Execute Heap_Access,Convert 0bdf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0be0 00da | | Load_Top At_Offset_2 0be1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0be2 0000 0000 | | .BLANK 0000[0x6] 0be8 ; -------------------------------------------------------------------------------------- 0be8 ; SUBPROGRAM 0be8 ; -------------------------------------------------------------------------------------- 0be8 0beb | | .CONST 0x0beb ; Address of begin 0be9 0004 | | .CONST 0x0004 ; Address of exception handler 0bea 0001 | | .CONST 0x0001 ; Number of locals 0beb BODY_0be8: 0beb INIT_0be8: 0beb 00da | | Load_Top At_Offset_2 0bec 7002 |p | Jump_Nonzero 0xbef 0bed 00da | | Load_Top At_Offset_2 0bee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0bef 00da | | Load_Top At_Offset_2 0bf0 0217 | | Execute Heap_Access,All_Reference 0bf1 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0bf2 6802 |h | Jump_Zero 0xbf5 0bf3 00da | | Load_Top At_Offset_2 0bf4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0bf5 00da | | Load_Top At_Offset_2 0bf6 0217 | | Execute Heap_Access,All_Reference 0bf7 3c13 |< | Execute Record,Field_Read,Field_Number 0x13 0bf8 e001 | | Load 0x0,0x1 0bf9 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0bfa 0216 | | Execute Heap_Access,Convert 0bfb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0bfc 0000 0000 | | .BLANK 0000[0x4] 0c00 ; -------------------------------------------------------------------------------------- 0c00 ; SUBPROGRAM 0c00 ; -------------------------------------------------------------------------------------- 0c00 0c03 | | .CONST 0x0c03 ; Address of begin 0c01 0004 | | .CONST 0x0004 ; Address of exception handler 0c02 0001 | | .CONST 0x0001 ; Number of locals 0c03 BODY_0c00: 0c03 INIT_0c00: 0c03 00da | | Load_Top At_Offset_2 0c04 6805 |h | Jump_Zero 0xc0a 0c05 00da | | Load_Top At_Offset_2 0c06 0217 | | Execute Heap_Access,All_Reference 0c07 3c15 |< | Execute Record,Field_Read,Field_Number 0x15 0c08 8264 | d | Call 0x1,0x64 0c09 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c0a 8215 | | Call 0x1,0x15 0c0b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c0c 0000 0000 | | .BLANK 0000[0x4] 0c10 ; -------------------------------------------------------------------------------------- 0c10 ; SUBPROGRAM 0c10 ; -------------------------------------------------------------------------------------- 0c10 0c13 | | .CONST 0x0c13 ; Address of begin 0c11 0004 | | .CONST 0x0004 ; Address of exception handler 0c12 0001 | | .CONST 0x0001 ; Number of locals 0c13 BODY_0c10: 0c13 INIT_0c10: 0c13 00da | | Load_Top At_Offset_2 0c14 7002 |p | Jump_Nonzero 0xc17 0c15 00da | | Load_Top At_Offset_2 0c16 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c17 00da | | Load_Top At_Offset_2 0c18 0217 | | Execute Heap_Access,All_Reference 0c19 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 0c1a e001 | | Load 0x0,0x1 0c1b 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0c1c 0216 | | Execute Heap_Access,Convert 0c1d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c1e 0000 0000 | | .XXX[0x2] 0c20 ; -------------------------------------------------------------------------------------- 0c20 ; SUBPROGRAM 0c20 ; -------------------------------------------------------------------------------------- 0c20 0c23 | # | .CONST 0x0c23 ; Address of begin 0c21 0004 | | .CONST 0x0004 ; Address of exception handler 0c22 0001 | | .CONST 0x0001 ; Number of locals 0c23 BODY_0c20: 0c23 INIT_0c20: 0c23 00da | | Load_Top At_Offset_2 0c24 6804 |h | Jump_Zero 0xc29 0c25 00da | | Load_Top At_Offset_2 0c26 0217 | | Execute Heap_Access,All_Reference 0c27 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0c28 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c29 4800 |H | Short_Literal 0x0 0c2a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c2b 0000 0000 | | .BLANK 0000[0x5] 0c30 ; -------------------------------------------------------------------------------------- 0c30 ; SUBPROGRAM 0c30 ; -------------------------------------------------------------------------------------- 0c30 0c33 | 3 | .CONST 0x0c33 ; Address of begin 0c31 0004 | | .CONST 0x0004 ; Address of exception handler 0c32 0001 | | .CONST 0x0001 ; Number of locals 0c33 BODY_0c30: 0c33 INIT_0c30: 0c33 00db | | Load_Top At_Offset_3 0c34 00db | | Load_Top At_Offset_3 0c35 0217 | | Execute Heap_Access,All_Reference 0c36 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 0c37 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0c38 ; -------------------------------------------------------------------------------------- 0c38 ; SUBPROGRAM 0c38 ; -------------------------------------------------------------------------------------- 0c38 0c3b | ; | .CONST 0x0c3b ; Address of begin 0c39 0004 | | .CONST 0x0004 ; Address of exception handler 0c3a 0001 | | .CONST 0x0001 ; Number of locals 0c3b BODY_0c38: 0c3b INIT_0c38: 0c3b 00da | | Load_Top At_Offset_2 0c3c e017 | | Load 0x0,0x17 0c3d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c3e 011c | | Execute Any,Convert_Unchecked 0c3f 1c01 | | Execute_Immediate Run_Utility,0x1 0c40 e005 | | Load 0x0,0x5 0c41 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0c42 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c43 0000 0000 | | .BLANK 0000[0x5] 0c48 ; -------------------------------------------------------------------------------------- 0c48 ; SUBPROGRAM 0c48 ; -------------------------------------------------------------------------------------- 0c48 0c4b | K | .CONST 0x0c4b ; Address of begin 0c49 0004 | | .CONST 0x0004 ; Address of exception handler 0c4a 0001 | | .CONST 0x0001 ; Number of locals 0c4b BODY_0c48: 0c4b INIT_0c48: 0c4b 00da | | Load_Top At_Offset_2 0c4c e006 | | Load 0x0,0x6 0c4d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0c4e e00d | | Load 0x0,0xd 0c4f 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0c50 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c51 0000 0000 | | .BLANK 0000[0x7] 0c58 ; -------------------------------------------------------------------------------------- 0c58 ; SUBPROGRAM 0c58 ; -------------------------------------------------------------------------------------- 0c58 0c6c | l | .CONST 0x0c6c ; Address of begin 0c59 0d0e | | .CONST 0x0d0e ; Address of exception handler 0c5a 0005 | | .CONST 0x0005 ; Number of locals 0c5b INIT_0c58: 0c5b e003 | | Load 0x0,0x3 0c5c 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0c5d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0c5e 02c7 | | Declare_Variable Any 0c5f 00d8 | | Load_Top At_Offset_0 0c60 1c00 | | Execute_Immediate Run_Utility,0x0 0c61 e003 | | Load 0x0,0x3 0c62 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c63 e00e | | Load 0x0,0xe 0c64 0322 | " | Declare_Variable Record 0c65 00d8 | | Load_Top At_Offset_0 0c66 1c00 | | Execute_Immediate Run_Utility,0x0 0c67 e003 | | Load 0x0,0x3 0c68 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c69 02c7 | | Declare_Variable Any 0c6a 00d8 | | Load_Top At_Offset_0 0c6b 1c00 | | Execute_Immediate Run_Utility,0x0 0c6c BODY_0c58: 0c6c e5fd | | Load 0x2,-0x3 0c6d 00d9 | | Load_Top At_Offset_1 0c6e 0120 | | Execute Any,Is_Value 0c6f 6803 |h | Jump_Zero 0xc73 0c70 e003 | | Load 0x0,0x3 0c71 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c72 7801 |x | Jump 0xc74 0c73 00d9 | | Load_Top At_Offset_1 0c74 e5ff | | Load 0x2,-0x1 0c75 8224 | $ | Call 0x1,0x24 0c76 c405 | | Store 0x2,0x5 0c77 c5fd | | Store 0x2,-0x3 0c78 4800 |H | Short_Literal 0x0 0c79 e5fd | | Load 0x2,-0x3 0c7a e002 | | Load 0x0,0x2 0c7b 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0c7c 6890 |h | Jump_Zero 0xd0d 0c7d e003 | | Load 0x0,0x3 0c7e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c7f e402 | | Load 0x2,0x2 0c80 0120 | | Execute Any,Is_Value 0c81 6804 |h | Jump_Zero 0xc86 0c82 e003 | | Load 0x0,0x3 0c83 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0c84 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0c85 7801 |x | Jump 0xc87 0c86 e402 | | Load 0x2,0x2 0c87 6090 |` | Indirect_Literal Discrete,0xd18,{0x00000000, 0x00004000} 0c88 e013 | | Load 0x0,0x13 0c89 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c8a 4800 |H | Short_Literal 0x0 0c8b e405 | | Load 0x2,0x5 0c8c e003 | | Load 0x0,0x3 0c8d 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0c8e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0c8f c402 | | Store 0x2,0x2 0c90 005b | [ | Store_Top Discrete,At_Offset_3 0c91 00da | | Load_Top At_Offset_2 0c92 460e |F | Jump_Case 0xf 0c93 7839 |x9 | Jump 0xccd ; case 0x0 0c94 7838 |x8 | Jump 0xccd ; case 0x1 0c95 780c |x | Jump 0xca2 ; case 0x2 0c96 780b |x | Jump 0xca2 ; case 0x3 0c97 780a |x | Jump 0xca2 ; case 0x4 0c98 7809 |x | Jump 0xca2 ; case 0x5 0c99 7808 |x | Jump 0xca2 ; case 0x6 0c9a 7807 |x | Jump 0xca2 ; case 0x7 0c9b 7806 |x | Jump 0xca2 ; case 0x8 0c9c 7805 |x | Jump 0xca2 ; case 0x9 0c9d 782f |x/ | Jump 0xccd ; case 0xa 0c9e 7803 |x | Jump 0xca2 ; case 0xb 0c9f 7802 |x | Jump 0xca2 ; case 0xc 0ca0 7801 |x | Jump 0xca2 ; case 0xd 0ca1 7800 |x | Jump 0xca2 ; case 0xe 0ca2 e003 | | Load 0x0,0x3 0ca3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0ca4 e5ff | | Load 0x2,-0x1 0ca5 0217 | | Execute Heap_Access,All_Reference 0ca6 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 0ca7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0ca8 e5fd | | Load 0x2,-0x3 0ca9 00d9 | | Load_Top At_Offset_1 0caa 0120 | | Execute Any,Is_Value 0cab 6803 |h | Jump_Zero 0xcaf 0cac e003 | | Load 0x0,0x3 0cad 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0cae 7801 |x | Jump 0xcb0 0caf 00d9 | | Load_Top At_Offset_1 0cb0 e5ff | | Load 0x2,-0x1 0cb1 8224 | $ | Call 0x1,0x24 0cb2 c405 | | Store 0x2,0x5 0cb3 c5fd | | Store 0x2,-0x3 0cb4 4800 |H | Short_Literal 0x0 0cb5 e5fd | | Load 0x2,-0x3 0cb6 e002 | | Load 0x0,0x2 0cb7 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0cb8 6814 |h | Jump_Zero 0xccd 0cb9 e003 | | Load 0x0,0x3 0cba 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0cbb e402 | | Load 0x2,0x2 0cbc 0120 | | Execute Any,Is_Value 0cbd 6804 |h | Jump_Zero 0xcc2 0cbe e003 | | Load 0x0,0x3 0cbf 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0cc0 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0cc1 7801 |x | Jump 0xcc3 0cc2 e402 | | Load 0x2,0x2 0cc3 6054 |`T | Indirect_Literal Discrete,0xd18,{0x00000000, 0x00004000} 0cc4 e013 | | Load 0x0,0x13 0cc5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0cc6 4800 |H | Short_Literal 0x0 0cc7 e405 | | Load 0x2,0x5 0cc8 e003 | | Load 0x0,0x3 0cc9 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0cca 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0ccb c402 | | Store 0x2,0x2 0ccc 005b | [ | Store_Top Discrete,At_Offset_3 0ccd 00da | | Load_Top At_Offset_2 0cce 7027 |p' | Jump_Nonzero 0xcf6 0ccf 00d8 | | Load_Top At_Offset_0 0cd0 00da | | Load_Top At_Offset_2 0cd1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0cd2 00db | | Load_Top At_Offset_3 0cd3 e003 | | Load 0x0,0x3 0cd4 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0cd5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0cd6 00da | | Load_Top At_Offset_2 0cd7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0cd8 00db | | Load_Top At_Offset_3 0cd9 e003 | | Load 0x0,0x3 0cda 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0cdb 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0cdc 00da | | Load_Top At_Offset_2 0cdd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0cde 00db | | Load_Top At_Offset_3 0cdf e003 | | Load 0x0,0x3 0ce0 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0ce1 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0ce2 00da | | Load_Top At_Offset_2 0ce3 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0ce4 00db | | Load_Top At_Offset_3 0ce5 e003 | | Load 0x0,0x3 0ce6 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0ce7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0ce8 00da | | Load_Top At_Offset_2 0ce9 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0cea 00d9 | | Load_Top At_Offset_1 0ceb e5fe | | Load 0x2,-0x2 0cec 017d | } | Execute Record,Structure_Write 0ced 00d9 | | Load_Top At_Offset_1 0cee e5ff | | Load 0x2,-0x1 0cef 0217 | | Execute Heap_Access,All_Reference 0cf0 380d |8 | Execute Record,Field_Write,Field_Number 0xd 0cf1 4801 |H | Short_Literal 0x1 0cf2 e5ff | | Load 0x2,-0x1 0cf3 0217 | | Execute Heap_Access,All_Reference 0cf4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0cf5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0cf6 e002 | | Load 0x0,0x2 0cf7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0cf8 4801 |H | Short_Literal 0x1 0cf9 4802 |H | Short_Literal 0x2 0cfa e005 | | Load 0x0,0x5 0cfb 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0cfc 035b | [ | Declare_Type Array,Constrained 0cfd 0337 | 7 | Declare_Variable Array 0cfe e5ff | | Load 0x2,-0x1 0cff 8210 | | Call 0x1,0x10 0d00 4801 |H | Short_Literal 0x1 0d01 00da | | Load_Top At_Offset_2 0d02 01d6 | | Execute Vector,Field_Write 0d03 e403 | | Load 0x2,0x3 0d04 e005 | | Load 0x0,0x5 0d05 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0d06 4802 |H | Short_Literal 0x2 0d07 00da | | Load_Top At_Offset_2 0d08 01d6 | | Execute Vector,Field_Write 0d09 600a |` | Indirect_Literal Discrete,0xd14,{0x00000000, 0x00002006} 0d0a e002 | | Load 0x0,0x2 0d0b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0d0c c5fd | | Store 0x2,-0x3 0d0d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0d0e TRAP_0c58: 0d0e 4885 |H | Short_Literal 0x85 0d0f 010f | | Execute Exception,Equal 0d10 6801 |h | Jump_Zero 0xd12 0d11 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0d12 0100 | | Execute Exception,Raise 0d13 0000 | | .XXX[0x1] 0d14 0000 0000 | | .LITERAL {0x00000000, 0x00002006} 0d18 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0d1c 0000 0000 | | .BLANK 0000[0x4] 0d20 ; -------------------------------------------------------------------------------------- 0d20 ; SUBPROGRAM 0d20 ; -------------------------------------------------------------------------------------- 0d20 0d48 | H | .CONST 0x0d48 ; Address of begin 0d21 0e00 | | .CONST 0x0e00 ; Address of exception handler 0d22 0009 | | .CONST 0x0009 ; Number of locals 0d23 INIT_0d20: 0d23 e018 | | Load 0x0,0x18 0d24 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0d25 0322 | " | Declare_Variable Record 0d26 00d8 | | Load_Top At_Offset_0 0d27 1c00 | | Execute_Immediate Run_Utility,0x0 0d28 e017 | | Load 0x0,0x17 0d29 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d2a e003 | | Load 0x0,0x3 0d2b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0d2c 02ff | | Declare_Variable Variant_Record 0d2d 00d8 | | Load_Top At_Offset_0 0d2e 1c00 | | Execute_Immediate Run_Utility,0x0 0d2f e018 | | Load 0x0,0x18 0d30 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0d31 0322 | " | Declare_Variable Record 0d32 00d8 | | Load_Top At_Offset_0 0d33 1c00 | | Execute_Immediate Run_Utility,0x0 0d34 e00e | | Load 0x0,0xe 0d35 0322 | " | Declare_Variable Record 0d36 00d8 | | Load_Top At_Offset_0 0d37 1c00 | | Execute_Immediate Run_Utility,0x0 0d38 e013 | | Load 0x0,0x13 0d39 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d3a 02c7 | | Declare_Variable Any 0d3b e013 | | Load 0x0,0x13 0d3c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d3d a407 | | Store_Unchecked 0x2,0x7 0d3e e00f | | Load 0x0,0xf 0d3f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d40 02c7 | | Declare_Variable Any 0d41 00d8 | | Load_Top At_Offset_0 0d42 1c00 | | Execute_Immediate Run_Utility,0x0 0d43 e00f | | Load 0x0,0xf 0d44 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d45 02c7 | | Declare_Variable Any 0d46 00d8 | | Load_Top At_Offset_0 0d47 1c00 | | Execute_Immediate Run_Utility,0x0 0d48 BODY_0d20: 0d48 e004 | | Load 0x0,0x4 0d49 180f | | Execute Package,Field_Execute,Field_Number 0xf 0d4a c5fe | | Store 0x2,-0x2 0d4b e004 | | Load 0x0,0x4 0d4c 180f | | Execute Package,Field_Execute,Field_Number 0xf 0d4d c5fd | | Store 0x2,-0x3 0d4e e5fc | | Load 0x2,-0x4 0d4f e406 | | Load 0x2,0x6 0d50 e5ff | | Load 0x2,-0x1 0d51 8261 | a | Call 0x1,0x61 0d52 00d1 | | Pop_Control Pop_Count_1 0d53 c5fc | | Store 0x2,-0x4 0d54 4800 |H | Short_Literal 0x0 0d55 e5fc | | Load 0x2,-0x4 0d56 e002 | | Load 0x0,0x2 0d57 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0d58 68a6 |h | Jump_Zero 0xdff 0d59 e017 | | Load 0x0,0x17 0d5a 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0d5b e402 | | Load 0x2,0x2 0d5c e013 | | Load 0x0,0x13 0d5d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d5e 4800 |H | Short_Literal 0x0 0d5f 4800 |H | Short_Literal 0x0 0d60 e406 | | Load 0x2,0x6 0d61 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0d62 e018 | | Load 0x0,0x18 0d63 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0d64 00d1 | | Pop_Control Pop_Count_1 0d65 c403 | | Store 0x2,0x3 0d66 e403 | | Load 0x2,0x3 0d67 706b |pk | Jump_Nonzero 0xdd3 0d68 e402 | | Load 0x2,0x2 0d69 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0d6a 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0d6b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0d6c c409 | | Store 0x2,0x9 0d6d 00db | | Load_Top At_Offset_3 0d6e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0d6f e003 | | Load 0x0,0x3 0d70 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0d71 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0d72 012f | / | Execute Any,Equal 0d73 685c |h\ | Jump_Zero 0xdd0 0d74 e017 | | Load 0x0,0x17 0d75 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d76 e404 | | Load 0x2,0x4 0d77 4800 |H | Short_Literal 0x0 0d78 e407 | | Load 0x2,0x7 0d79 e406 | | Load 0x2,0x6 0d7a 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0d7b e019 | | Load 0x0,0x19 0d7c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d7d 0162 | b | Execute Variant_Record,Check_In_Type 0d7e e019 | | Load 0x0,0x19 0d7f 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 0d80 00d1 | | Pop_Control Pop_Count_1 0d81 c403 | | Store 0x2,0x3 0d82 e403 | | Load 0x2,0x3 0d83 7030 |p0 | Jump_Nonzero 0xdb4 0d84 e017 | | Load 0x0,0x17 0d85 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0d86 e405 | | Load 0x2,0x5 0d87 e013 | | Load 0x0,0x13 0d88 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d89 4800 |H | Short_Literal 0x0 0d8a 4800 |H | Short_Literal 0x0 0d8b e404 | | Load 0x2,0x4 0d8c e018 | | Load 0x0,0x18 0d8d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0d8e 00d1 | | Pop_Control Pop_Count_1 0d8f c403 | | Store 0x2,0x3 0d90 e403 | | Load 0x2,0x3 0d91 7006 |p | Jump_Nonzero 0xd98 0d92 e405 | | Load 0x2,0x5 0d93 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0d94 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0d95 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0d96 c408 | | Store 0x2,0x8 0d97 7856 |xV | Jump 0xdee 0d98 e002 | | Load 0x0,0x2 0d99 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d9a 4801 |H | Short_Literal 0x1 0d9b 4802 |H | Short_Literal 0x2 0d9c e005 | | Load 0x0,0x5 0d9d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d9e 035b | [ | Declare_Type Array,Constrained 0d9f 0337 | 7 | Declare_Variable Array 0da0 e5ff | | Load 0x2,-0x1 0da1 8210 | | Call 0x1,0x10 0da2 4801 |H | Short_Literal 0x1 0da3 00da | | Load_Top At_Offset_2 0da4 01d6 | | Execute Vector,Field_Write 0da5 e403 | | Load 0x2,0x3 0da6 e017 | | Load 0x0,0x17 0da7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0da8 011c | | Execute Any,Convert_Unchecked 0da9 1c01 | | Execute_Immediate Run_Utility,0x1 0daa e005 | | Load 0x0,0x5 0dab 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0dac 4802 |H | Short_Literal 0x2 0dad 00da | | Load_Top At_Offset_2 0dae 01d6 | | Execute Vector,Field_Write 0daf 6060 |`` | Indirect_Literal Discrete,0xe10,{0x00000000, 0x00002005} 0db0 e002 | | Load 0x0,0x2 0db1 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0db2 c5fc | | Store 0x2,-0x4 0db3 783a |x: | Jump 0xdee 0db4 e002 | | Load 0x0,0x2 0db5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0db6 4801 |H | Short_Literal 0x1 0db7 4802 |H | Short_Literal 0x2 0db8 e005 | | Load 0x0,0x5 0db9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0dba 035b | [ | Declare_Type Array,Constrained 0dbb 0337 | 7 | Declare_Variable Array 0dbc e5ff | | Load 0x2,-0x1 0dbd 8210 | | Call 0x1,0x10 0dbe 4801 |H | Short_Literal 0x1 0dbf 00da | | Load_Top At_Offset_2 0dc0 01d6 | | Execute Vector,Field_Write 0dc1 e403 | | Load 0x2,0x3 0dc2 e017 | | Load 0x0,0x17 0dc3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0dc4 011c | | Execute Any,Convert_Unchecked 0dc5 1c01 | | Execute_Immediate Run_Utility,0x1 0dc6 e005 | | Load 0x0,0x5 0dc7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0dc8 4802 |H | Short_Literal 0x2 0dc9 00da | | Load_Top At_Offset_2 0dca 01d6 | | Execute Vector,Field_Write 0dcb 6040 |`@ | Indirect_Literal Discrete,0xe0c,{0x00000000, 0x00002004} 0dcc e002 | | Load 0x0,0x2 0dcd 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0dce c5fc | | Store 0x2,-0x4 0dcf 781e |x | Jump 0xdee 0dd0 00d8 | | Load_Top At_Offset_0 0dd1 c408 | | Store 0x2,0x8 0dd2 781b |x | Jump 0xdee 0dd3 e002 | | Load 0x0,0x2 0dd4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0dd5 4801 |H | Short_Literal 0x1 0dd6 4802 |H | Short_Literal 0x2 0dd7 e005 | | Load 0x0,0x5 0dd8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0dd9 035b | [ | Declare_Type Array,Constrained 0dda 0337 | 7 | Declare_Variable Array 0ddb e5ff | | Load 0x2,-0x1 0ddc 8210 | | Call 0x1,0x10 0ddd 4801 |H | Short_Literal 0x1 0dde 00da | | Load_Top At_Offset_2 0ddf 01d6 | | Execute Vector,Field_Write 0de0 e403 | | Load 0x2,0x3 0de1 e017 | | Load 0x0,0x17 0de2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0de3 011c | | Execute Any,Convert_Unchecked 0de4 1c01 | | Execute_Immediate Run_Utility,0x1 0de5 e005 | | Load 0x0,0x5 0de6 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0de7 4802 |H | Short_Literal 0x2 0de8 00da | | Load_Top At_Offset_2 0de9 01d6 | | Execute Vector,Field_Write 0dea 601d |` | Indirect_Literal Discrete,0xe08,{0x00000000, 0x00002007} 0deb e002 | | Load 0x0,0x2 0dec 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0ded c5fc | | Store 0x2,-0x4 0dee 4800 |H | Short_Literal 0x0 0def e5fc | | Load 0x2,-0x4 0df0 e002 | | Load 0x0,0x2 0df1 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0df2 680c |h | Jump_Zero 0xdff 0df3 00d8 | | Load_Top At_Offset_0 0df4 c5fe | | Store 0x2,-0x2 0df5 00d9 | | Load_Top At_Offset_1 0df6 c5fd | | Store 0x2,-0x3 0df7 00d8 | | Load_Top At_Offset_0 0df8 e5ff | | Load 0x2,-0x1 0df9 0217 | | Execute Heap_Access,All_Reference 0dfa 380f |8 | Execute Record,Field_Write,Field_Number 0xf 0dfb 00d9 | | Load_Top At_Offset_1 0dfc e5ff | | Load 0x2,-0x1 0dfd 0217 | | Execute Heap_Access,All_Reference 0dfe 380e |8 | Execute Record,Field_Write,Field_Number 0xe 0dff 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0e00 TRAP_0d20: 0e00 4885 |H | Short_Literal 0x85 0e01 010f | | Execute Exception,Equal 0e02 6801 |h | Jump_Zero 0xe04 0e03 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0e04 0100 | | Execute Exception,Raise 0e05 0000 0000 | | .XXX[0x3] 0e07 0000 | | 0e08 0000 0000 | | .LITERAL {0x00000000, 0x00002007} 0e0c 0000 0000 | | .LITERAL {0x00000000, 0x00002004} 0e10 0000 0000 | | .LITERAL {0x00000000, 0x00002005} 0e14 0000 0000 | | .BLANK 0000[0x4] 0e18 ; -------------------------------------------------------------------------------------- 0e18 ; SUBPROGRAM 0e18 ; -------------------------------------------------------------------------------------- 0e18 0e1e | | .CONST 0x0e1e ; Address of begin 0e19 0004 | | .CONST 0x0004 ; Address of exception handler 0e1a 0003 | | .CONST 0x0003 ; Number of locals 0e1b INIT_0e18: 0e1b 00e2 | | Load_Encached Integer_Cache 0e1c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0e1d 00db | | Load_Top At_Offset_3 0e1e BODY_0e18: 0e1e 00cf | | Action Mark_Auxiliary 0e1f 7808 |x | Jump 0xe28 0e20 00da | | Load_Top At_Offset_2 0e21 0a01 | | Execute_Immediate Plus,0x1 0e22 005b | [ | Store_Top Discrete,At_Offset_3 0e23 00d9 | | Load_Top At_Offset_1 0e24 0217 | | Execute Heap_Access,All_Reference 0e25 3c14 |< | Execute Record,Field_Read,Field_Number 0x14 0e26 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0e27 00c9 | | Action Pop_Auxiliary_Loop 0e28 00d9 | | Load_Top At_Offset_1 0e29 77f6 |w | Jump_Nonzero 0xe20 0e2a 00ce | | Action Pop_Auxiliary 0e2b e5ff | | Load 0x2,-0x1 0e2c 680b |h | Jump_Zero 0xe38 0e2d 00d9 | | Load_Top At_Offset_1 0e2e 7009 |p | Jump_Nonzero 0xe38 0e2f 0092 1580 | | Action Push_String_Extended,0x1580 ; "No siblings for " 0e31 e5ff | | Load 0x2,-0x1 0e32 0217 | | Execute Heap_Access,All_Reference 0e33 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 0e34 e010 | | Load 0x0,0x10 0e35 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0e36 01cc | | Execute Vector,Catenate 0e37 8011 | | Call 0x0,0x11 0e38 00d9 | | Load_Top At_Offset_1 0e39 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e3a 0000 0000 | | .BLANK 0000[0x6] 0e40 ; -------------------------------------------------------------------------------------- 0e40 ; SUBPROGRAM 0e40 ; -------------------------------------------------------------------------------------- 0e40 0e49 | I | .CONST 0x0e49 ; Address of begin 0e41 0004 | | .CONST 0x0004 ; Address of exception handler 0e42 0003 | | .CONST 0x0003 ; Number of locals 0e43 INIT_0e40: 0e43 00da | | Load_Top At_Offset_2 0e44 8263 | c | Call 0x1,0x63 0e45 e214 | | Load 0x1,0x14 0e46 1c08 | | Execute_Immediate Run_Utility,0x8 0e47 00db | | Load_Top At_Offset_3 0e48 0007 | | Action Break_Optional 0e49 BODY_0e40: 0e49 4800 |H | Short_Literal 0x0 0e4a 00da | | Load_Top At_Offset_2 0e4b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0e4c 00cf | | Action Mark_Auxiliary 0e4d 00da | | Load_Top At_Offset_2 0e4e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0e4f 01d9 | | Execute Vector,Reverse_Bounds 0e50 0263 | c | Execute Discrete,Above_Bound 0e51 700e |p | Jump_Nonzero 0xe60 0e52 00db | | Load_Top At_Offset_3 0e53 e001 | | Load 0x0,0x1 0e54 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0e55 0216 | | Execute Heap_Access,Convert 0e56 00d9 | | Load_Top At_Offset_1 0e57 e402 | | Load 0x2,0x2 0e58 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0e59 01d6 | | Execute Vector,Field_Write 0e5a 00db | | Load_Top At_Offset_3 0e5b 0217 | | Execute Heap_Access,All_Reference 0e5c 3c14 |< | Execute Record,Field_Read,Field_Number 0x14 0e5d a403 | | Store_Unchecked 0x2,0x3 0e5e 00c8 | | Action Pop_Auxiliary_Range 0e5f 3ff2 |? | Loop_Increasing 0xe52 0e60 00ce | | Action Pop_Auxiliary 0e61 00d9 | | Load_Top At_Offset_1 0e62 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e63 0000 0000 | | .BLANK 0000[0x5] 0e68 ; -------------------------------------------------------------------------------------- 0e68 ; SUBPROGRAM 0e68 ; -------------------------------------------------------------------------------------- 0e68 0e6b | k | .CONST 0x0e6b ; Address of begin 0e69 0004 | | .CONST 0x0004 ; Address of exception handler 0e6a 0001 | | .CONST 0x0001 ; Number of locals 0e6b BODY_0e68: 0e6b INIT_0e68: 0e6b 00db | | Load_Top At_Offset_3 0e6c e01a | | Load 0x0,0x1a 0e6d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0e6e 00d9 | | Load_Top At_Offset_1 0e6f 00d0 | | Action Swap_Control 0e70 0260 | ` | Execute Discrete,In_Type 0e71 7001 |p | Jump_Nonzero 0xe73 0e72 0801 | | Execute_Immediate Raise,0x1 0e73 00db | | Load_Top At_Offset_3 0e74 e01b | | Load 0x0,0x1b 0e75 e01c | | Load 0x0,0x1c 0e76 a01d | | Store_Unchecked 0x0,0x1d 0e77 e01e | | Load 0x0,0x1e 0e78 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0e79 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0e7a 0000 0000 | | .BLANK 0000[0x6] 0e80 ; -------------------------------------------------------------------------------------- 0e80 ; SUBPROGRAM 0e80 ; -------------------------------------------------------------------------------------- 0e80 0e97 | | .CONST 0x0e97 ; Address of begin 0e81 0004 | | .CONST 0x0004 ; Address of exception handler 0e82 0006 | | .CONST 0x0006 ; Number of locals 0e83 INIT_0e80: 0e83 e003 | | Load 0x0,0x3 0e84 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e85 02c7 | | Declare_Variable Any 0e86 00d8 | | Load_Top At_Offset_0 0e87 1c00 | | Execute_Immediate Run_Utility,0x0 0e88 e003 | | Load 0x0,0x3 0e89 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0e8a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0e8b 02c7 | | Declare_Variable Any 0e8c 00d8 | | Load_Top At_Offset_0 0e8d 1c00 | | Execute_Immediate Run_Utility,0x0 0e8e e003 | | Load 0x0,0x3 0e8f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e90 02c7 | | Declare_Variable Any 0e91 00d8 | | Load_Top At_Offset_0 0e92 1c00 | | Execute_Immediate Run_Utility,0x0 0e93 e003 | | Load 0x0,0x3 0e94 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0e95 029f 118b | | Declare_Subprogram INIT_1188,For_Call 0e97 BODY_0e80: 0e97 e003 | | Load 0x0,0x3 0e98 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0e99 e403 | | Load 0x2,0x3 0e9a 0120 | | Execute Any,Is_Value 0e9b 6804 |h | Jump_Zero 0xea0 0e9c e003 | | Load 0x0,0x3 0e9d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0e9e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0e9f 7801 |x | Jump 0xea1 0ea0 e403 | | Load 0x2,0x3 0ea1 e5ff | | Load 0x2,-0x1 0ea2 e003 | | Load 0x0,0x3 0ea3 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0ea4 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0ea5 c403 | | Store 0x2,0x3 0ea6 005a | Z | Store_Top Discrete,At_Offset_2 0ea7 00db | | Load_Top At_Offset_3 0ea8 e003 | | Load 0x0,0x3 0ea9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0eaa 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0eab c402 | | Store 0x2,0x2 0eac e003 | | Load 0x0,0x3 0ead 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0eae 00db | | Load_Top At_Offset_3 0eaf 0120 | | Execute Any,Is_Value 0eb0 6803 |h | Jump_Zero 0xeb4 0eb1 e003 | | Load 0x0,0x3 0eb2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0eb3 7801 |x | Jump 0xeb5 0eb4 00db | | Load_Top At_Offset_3 0eb5 e402 | | Load 0x2,0x2 0eb6 e003 | | Load 0x0,0x3 0eb7 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 0eb8 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0eb9 c404 | | Store 0x2,0x4 0eba 005a | Z | Store_Top Discrete,At_Offset_2 0ebb 00d9 | | Load_Top At_Offset_1 0ebc 6825 |h% | Jump_Zero 0xee2 0ebd 4801 |H | Short_Literal 0x1 0ebe 4804 |H | Short_Literal 0x4 0ebf e005 | | Load 0x0,0x5 0ec0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ec1 035b | [ | Declare_Type Array,Constrained 0ec2 0337 | 7 | Declare_Variable Array 0ec3 e402 | | Load 0x2,0x2 0ec4 e005 | | Load 0x0,0x5 0ec5 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0ec6 4801 |H | Short_Literal 0x1 0ec7 00da | | Load_Top At_Offset_2 0ec8 01d6 | | Execute Vector,Field_Write 0ec9 00db | | Load_Top At_Offset_3 0eca e005 | | Load 0x0,0x5 0ecb 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0ecc 4802 |H | Short_Literal 0x2 0ecd 00da | | Load_Top At_Offset_2 0ece 01d6 | | Execute Vector,Field_Write 0ecf 00db | | Load_Top At_Offset_3 0ed0 e005 | | Load 0x0,0x5 0ed1 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0ed2 4803 |H | Short_Literal 0x3 0ed3 00da | | Load_Top At_Offset_2 0ed4 01d6 | | Execute Vector,Field_Write 0ed5 00da | | Load_Top At_Offset_2 0ed6 e003 | | Load 0x0,0x3 0ed7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ed8 011c | | Execute Any,Convert_Unchecked 0ed9 1c01 | | Execute_Immediate Run_Utility,0x1 0eda e005 | | Load 0x0,0x5 0edb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0edc 4804 |H | Short_Literal 0x4 0edd 00da | | Load_Top At_Offset_2 0ede 01d6 | | Execute Vector,Field_Write 0edf 601c |` | Indirect_Literal Discrete,0xefc,{0x00000000, 0x0000200a} 0ee0 e002 | | Load 0x0,0x2 0ee1 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0ee2 00da | | Load_Top At_Offset_2 0ee3 e003 | | Load 0x0,0x3 0ee4 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0ee5 e01f | | Load 0x0,0x1f 0ee6 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0ee7 027e | ~ | Execute Discrete,Not_Equal 0ee8 6807 |h | Jump_Zero 0xef0 0ee9 e013 | | Load 0x0,0x13 0eea 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0eeb 600c |` | Indirect_Literal Discrete,0xef8,{0x00007fff, 0xffffffff} 0eec e5ff | | Load 0x2,-0x1 0eed e020 | | Load 0x0,0x20 0eee 180e | | Execute Package,Field_Execute,Field_Number 0xe 0eef 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0ef0 e013 | | Load 0x0,0x13 0ef1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ef2 6005 |` | Indirect_Literal Discrete,0xef8,{0x00007fff, 0xffffffff} 0ef3 e5ff | | Load 0x2,-0x1 0ef4 8406 | | Call 0x2,0x6 0ef5 e020 | | Load 0x0,0x20 0ef6 180e | | Execute Package,Field_Execute,Field_Number 0xe 0ef7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0ef8 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff} 0efc 0000 0000 | | .LITERAL {0x00000000, 0x0000200a} 0f00 ; -------------------------------------------------------------------------------------- 0f00 ; SUBPROGRAM 0f00 ; -------------------------------------------------------------------------------------- 0f00 0f48 | H | .CONST 0x0f48 ; Address of begin 0f01 0ff8 | | .CONST 0x0ff8 ; Address of exception handler 0f02 0016 | | .CONST 0x0016 ; Number of locals 0f03 INIT_0f00: 0f03 00e2 | | Load_Encached Integer_Cache 0f04 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0f05 4801 |H | Short_Literal 0x1 0f06 4a00 |J | Short_Literal 0x200 0f07 e001 | | Load 0x0,0x1 0f08 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0f09 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0f0a 035b | [ | Declare_Type Array,Constrained 0f0b 0337 | 7 | Declare_Variable Array 0f0c 00d8 | | Load_Top At_Offset_0 0f0d 1c00 | | Execute_Immediate Run_Utility,0x0 0f0e e019 | | Load 0x0,0x19 0f0f 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0f10 02c7 | | Declare_Variable Any 0f11 00d8 | | Load_Top At_Offset_0 0f12 1c00 | | Execute_Immediate Run_Utility,0x0 0f13 e017 | | Load 0x0,0x17 0f14 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f15 e013 | | Load 0x0,0x13 0f16 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f17 02c7 | | Declare_Variable Any 0f18 e013 | | Load 0x0,0x13 0f19 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0f1a a406 | | Store_Unchecked 0x2,0x6 0f1b e20d | | Load 0x1,0xd 0f1c 0007 | | Action Break_Optional 0f1d 00e1 | | Load_Encached Boolean_Cache 0f1e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0f1f e004 | | Load 0x0,0x4 0f20 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0f21 0337 | 7 | Declare_Variable Array 0f22 e5ff | | Load 0x2,-0x1 0f23 e001 | | Load 0x0,0x1 0f24 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0f25 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0f26 e001 | | Load 0x0,0x1 0f27 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0f28 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0f29 e014 | | Load 0x0,0x14 0f2a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0f2b 00d9 | | Load_Top At_Offset_1 0f2c 01d4 | | Execute Vector,Structure_Write 0f2d 029f 1203 | | Declare_Subprogram INIT_1200,For_Call 0f2f 029f 12a3 | | Declare_Subprogram INIT_12a0,For_Call 0f31 a021 | ! | Store_Unchecked 0x0,0x21 0f32 00c6 | | Action Check_Subprogram_Elaborated 0f33 00e2 | | Load_Encached Integer_Cache 0f34 480b |H | Short_Literal 0xb 0f35 4802 |H | Short_Literal 0x2 0f36 0099 | | Action Reference_Dynamic 0f37 e022 | " | Load 0x0,0x22 0f38 e023 | # | Load 0x0,0x23 0f39 4810 |H | Short_Literal 0x10 0f3a 0007 | | Action Break_Optional 0f3b 029f 1353 | S| Declare_Subprogram INIT_1350,For_Call 0f3d e024 | $ | Load 0x0,0x24 0f3e 190d | | Execute Package,Field_Reference,Field_Number 0xd 0f3f 00c6 | | Action Check_Subprogram_Elaborated 0f40 00e1 | | Load_Encached Boolean_Cache 0f41 4811 |H | Short_Literal 0x11 0f42 4802 |H | Short_Literal 0x2 0f43 0099 | | Action Reference_Dynamic 0f44 e025 | % | Load 0x0,0x25 0f45 e026 | & | Load 0x0,0x26 0f46 4816 |H | Short_Literal 0x16 0f47 0007 | | Action Break_Optional 0f48 BODY_0f00: 0f48 4807 |H | Short_Literal 0x7 0f49 e409 | | Load 0x2,0x9 0f4a 01d7 | | Execute Vector,Field_Read 0f4b c027 | ' | Store 0x0,0x27 0f4c e017 | | Load 0x0,0x17 0f4d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0f4e e404 | | Load 0x2,0x4 0f4f 0120 | | Execute Any,Is_Value 0f50 6804 |h | Jump_Zero 0xf55 0f51 e019 | | Load 0x0,0x19 0f52 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0f53 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f54 7801 |x | Jump 0xf56 0f55 e404 | | Load 0x2,0x4 0f56 e406 | | Load 0x2,0x6 0f57 4800 |H | Short_Literal 0x0 0f58 4800 |H | Short_Literal 0x0 0f59 e5ff | | Load 0x2,-0x1 0f5a 0217 | | Execute Heap_Access,All_Reference 0f5b 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 0f5c 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0f5d e019 | | Load 0x0,0x19 0f5e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0f5f 0162 | b | Execute Variant_Record,Check_In_Type 0f60 e019 | | Load 0x0,0x19 0f61 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0f62 c404 | | Store 0x2,0x4 0f63 c405 | | Store 0x2,0x5 0f64 e405 | | Load 0x2,0x5 0f65 707b |p{ | Jump_Nonzero 0xfe1 0f66 e402 | | Load 0x2,0x2 0f67 e001 | | Load 0x0,0x1 0f68 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0f69 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0f6a 0337 | 7 | Declare_Variable Array 0f6b 4801 |H | Short_Literal 0x1 0f6c 4802 |H | Short_Literal 0x2 0f6d 00da | | Load_Top At_Offset_2 0f6e 01d6 | | Execute Vector,Field_Write 0f6f 4800 |H | Short_Literal 0x0 0f70 e409 | | Load 0x2,0x9 0f71 01d7 | | Execute Vector,Field_Read 0f72 0f00 | | Execute_Immediate Equal,0x0 0f73 4803 |H | Short_Literal 0x3 0f74 00da | | Load_Top At_Offset_2 0f75 01d6 | | Execute Vector,Field_Write 0f76 4803 |H | Short_Literal 0x3 0f77 e409 | | Load 0x2,0x9 0f78 01d7 | | Execute Vector,Field_Read 0f79 4804 |H | Short_Literal 0x4 0f7a 00da | | Load_Top At_Offset_2 0f7b 01d6 | | Execute Vector,Field_Write 0f7c 4800 |H | Short_Literal 0x0 0f7d 4800 |H | Short_Literal 0x0 0f7e 00da | | Load_Top At_Offset_2 0f7f 01d6 | | Execute Vector,Field_Write 0f80 4800 |H | Short_Literal 0x0 0f81 4801 |H | Short_Literal 0x1 0f82 00da | | Load_Top At_Offset_2 0f83 01d6 | | Execute Vector,Field_Write 0f84 4800 |H | Short_Literal 0x0 0f85 4805 |H | Short_Literal 0x5 0f86 00da | | Load_Top At_Offset_2 0f87 01d6 | | Execute Vector,Field_Write 0f88 e001 | | Load 0x0,0x1 0f89 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0f8a 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0f8b 01c3 | | Execute Vector,Check_In_Type 0f8c e404 | | Load 0x2,0x4 0f8d e019 | | Load 0x0,0x19 0f8e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0f8f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0f90 e40c | | Load 0x2,0xc 0f91 480d |H | Short_Literal 0xd 0f92 4802 |H | Short_Literal 0x2 0f93 0099 | | Action Reference_Dynamic 0f94 480e |H | Short_Literal 0xe 0f95 4802 |H | Short_Literal 0x2 0f96 0099 | | Action Reference_Dynamic 0f97 8021 | ! | Call 0x0,0x21 0f98 e5ff | | Load 0x2,-0x1 0f99 0217 | | Execute Heap_Access,All_Reference 0f9a 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0f9b 6813 |h | Jump_Zero 0xfaf 0f9c e408 | | Load 0x2,0x8 0f9d e404 | | Load 0x2,0x4 0f9e e019 | | Load 0x0,0x19 0f9f 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0fa0 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0fa1 e412 | | Load 0x2,0x12 0fa2 4813 |H | Short_Literal 0x13 0fa3 4802 |H | Short_Literal 0x2 0fa4 0099 | | Action Reference_Dynamic 0fa5 4814 |H | Short_Literal 0x14 0fa6 4802 |H | Short_Literal 0x2 0fa7 0099 | | Action Reference_Dynamic 0fa8 e024 | $ | Load 0x0,0x24 0fa9 180d | | Execute Package,Field_Execute,Field_Number 0xd 0faa c408 | | Store 0x2,0x8 0fab e408 | | Load 0x2,0x8 0fac e5ff | | Load 0x2,-0x1 0fad 0217 | | Execute Heap_Access,All_Reference 0fae 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 0faf e017 | | Load 0x0,0x17 0fb0 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0fb1 4800 |H | Short_Literal 0x0 0fb2 4801 |H | Short_Literal 0x1 0fb3 e406 | | Load 0x2,0x6 0fb4 e5ff | | Load 0x2,-0x1 0fb5 0217 | | Execute Heap_Access,All_Reference 0fb6 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 0fb7 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0fb8 e019 | | Load 0x0,0x19 0fb9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0fba 0162 | b | Execute Variant_Record,Check_In_Type 0fbb e019 | | Load 0x0,0x19 0fbc 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0fbd c405 | | Store 0x2,0x5 0fbe 840a | | Call 0x2,0xa 0fbf e5fd | | Load 0x2,-0x3 0fc0 e001 | | Load 0x0,0x1 0fc1 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0fc2 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0fc3 0337 | 7 | Declare_Variable Array 0fc4 4800 |H | Short_Literal 0x0 0fc5 4800 |H | Short_Literal 0x0 0fc6 00da | | Load_Top At_Offset_2 0fc7 01d6 | | Execute Vector,Field_Write 0fc8 4800 |H | Short_Literal 0x0 0fc9 4805 |H | Short_Literal 0x5 0fca 00da | | Load_Top At_Offset_2 0fcb 01d6 | | Execute Vector,Field_Write 0fcc 4804 |H | Short_Literal 0x4 0fcd 4801 |H | Short_Literal 0x1 0fce 4801 |H | Short_Literal 0x1 0fcf 00d9 | | Load_Top At_Offset_1 0fd0 e418 | | Load 0x2,0x18 0fd1 01d6 | | Execute Vector,Field_Write 0fd2 3ffb |? | Loop_Increasing 0xfce 0fd3 e001 | | Load 0x0,0x1 0fd4 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0fd5 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0fd6 01c3 | | Execute Vector,Check_In_Type 0fd7 e5ff | | Load 0x2,-0x1 0fd8 4801 |H | Short_Literal 0x1 0fd9 e402 | | Load 0x2,0x2 0fda e403 | | Load 0x2,0x3 0fdb 01cf | | Execute Vector,Slice_Read 0fdc e001 | | Load 0x0,0x1 0fdd 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0fde 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0fdf c5fd | | Store 0x2,-0x3 0fe0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0fe1 e002 | | Load 0x0,0x2 0fe2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0fe3 4801 |H | Short_Literal 0x1 0fe4 4802 |H | Short_Literal 0x2 0fe5 e005 | | Load 0x0,0x5 0fe6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0fe7 035b | [ | Declare_Type Array,Constrained 0fe8 0337 | 7 | Declare_Variable Array 0fe9 e5ff | | Load 0x2,-0x1 0fea 8210 | | Call 0x1,0x10 0feb 4801 |H | Short_Literal 0x1 0fec 00da | | Load_Top At_Offset_2 0fed 01d6 | | Execute Vector,Field_Write 0fee e405 | | Load 0x2,0x5 0fef 825f | _ | Call 0x1,0x5f 0ff0 4802 |H | Short_Literal 0x2 0ff1 00da | | Load_Top At_Offset_2 0ff2 01d6 | | Execute Vector,Field_Write 0ff3 6020 |` | Indirect_Literal Discrete,0x1014,{0x00000000, 0x00002008} 0ff4 e002 | | Load 0x0,0x2 0ff5 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0ff6 c5fd | | Store 0x2,-0x3 0ff7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0ff8 TRAP_0f00: 0ff8 4885 |H | Short_Literal 0x85 0ff9 010f | | Execute Exception,Equal 0ffa 6812 |h | Jump_Zero 0x100d 0ffb e002 | | Load 0x0,0x2 0ffc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ffd 4801 |H | Short_Literal 0x1 0ffe 4801 |H | Short_Literal 0x1 0fff e005 | | Load 0x0,0x5 1000 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1001 035b | [ | Declare_Type Array,Constrained 1002 0337 | 7 | Declare_Variable Array 1003 e5ff | | Load 0x2,-0x1 1004 8210 | | Call 0x1,0x10 1005 4801 |H | Short_Literal 0x1 1006 00da | | Load_Top At_Offset_2 1007 01d6 | | Execute Vector,Field_Write 1008 6007 |` | Indirect_Literal Discrete,0x1010,{0x00000000, 0x0000200e} 1009 e002 | | Load 0x0,0x2 100a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 100b c5fd | | Store 0x2,-0x3 100c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 100d 0100 | | Execute Exception,Raise 100e 0000 0000 | | .XXX[0x2] 1010 0000 0000 | | .LITERAL {0x00000000, 0x0000200e} 1014 0000 0000 | | .LITERAL {0x00000000, 0x00002008} 1018 ; -------------------------------------------------------------------------------------- 1018 ; SUBPROGRAM 1018 ; -------------------------------------------------------------------------------------- 1018 1020 | | .CONST 0x1020 ; Address of begin 1019 0004 | | .CONST 0x0004 ; Address of exception handler 101a 0003 | | .CONST 0x0003 ; Number of locals 101b INIT_1018: 101b e003 | | Load 0x0,0x3 101c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 101d e003 | | Load 0x0,0x3 101e 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 101f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1020 BODY_1018: 1020 e5ff | | Load 0x2,-0x1 1021 7002 |p | Jump_Nonzero 0x1024 1022 4800 |H | Short_Literal 0x0 1023 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1024 e003 | | Load 0x0,0x3 1025 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1026 e003 | | Load 0x0,0x3 1027 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 1028 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1029 6012 |` | Indirect_Literal Discrete,0x103c,{0x00000000, 0x00004000} 102a e013 | | Load 0x0,0x13 102b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 102c 4800 |H | Short_Literal 0x0 102d e5ff | | Load 0x2,-0x1 102e 0217 | | Execute Heap_Access,All_Reference 102f 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 1030 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 1031 e003 | | Load 0x0,0x3 1032 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 1033 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1034 e003 | | Load 0x0,0x3 1035 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 1036 180f | | Execute Package,Field_Execute,Field_Number 0xf 1037 005a | Z | Store_Top Discrete,At_Offset_2 1038 005a | Z | Store_Top Discrete,At_Offset_2 1039 00d8 | | Load_Top At_Offset_0 103a 0c03 | | Execute_Immediate Greater_Equal,0x3 103b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 103c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 1040 ; -------------------------------------------------------------------------------------- 1040 ; SUBPROGRAM 1040 ; -------------------------------------------------------------------------------------- 1040 1047 | G | .CONST 0x1047 ; Address of begin 1041 0004 | | .CONST 0x0004 ; Address of exception handler 1042 0003 | | .CONST 0x0003 ; Number of locals 1043 INIT_1040: 1043 e00d | | Load 0x0,0xd 1044 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 1045 029f 1363 | c| Declare_Subprogram INIT_1360,For_Call 1047 BODY_1040: 1047 e5ff | | Load 0x2,-0x1 1048 7003 |p | Jump_Nonzero 0x104c 1049 6022 |`" | Indirect_Literal Discrete,0x106c,{0x00000000, 0x00002009} 104a a5fb | | Store_Unchecked 0x2,-0x5 104b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 104c e5ff | | Load 0x2,-0x1 104d 0217 | | Execute Heap_Access,All_Reference 104e 3c1b |< | Execute Record,Field_Read,Field_Number 0x1b 104f 0032 | 2 | Store_Top Heap_Access,At_Offset_2 1050 00cf | | Action Mark_Auxiliary 1051 780e |x | Jump 0x1060 1052 00da | | Load_Top At_Offset_2 1053 0217 | | Execute Heap_Access,All_Reference 1054 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1055 e5fe | | Load 0x2,-0x2 1056 027f | | Execute Discrete,Equal 1057 6803 |h | Jump_Zero 0x105b 1058 00da | | Load_Top At_Offset_2 1059 a5fc | | Store_Unchecked 0x2,-0x4 105a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 105b 00da | | Load_Top At_Offset_2 105c 0217 | | Execute Heap_Access,All_Reference 105d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 105e 0033 | 3 | Store_Top Heap_Access,At_Offset_3 105f 00c9 | | Action Pop_Auxiliary_Loop 1060 00da | | Load_Top At_Offset_2 1061 77f0 |w | Jump_Nonzero 0x1052 1062 00ce | | Action Pop_Auxiliary 1063 e5fd | | Load 0x2,-0x3 1064 6802 |h | Jump_Zero 0x1067 1065 8403 | | Call 0x2,0x3 1066 7802 |x | Jump 0x1069 1067 6004 |` | Indirect_Literal Discrete,0x106c,{0x00000000, 0x00002009} 1068 a5fb | | Store_Unchecked 0x2,-0x5 1069 00d9 | | Load_Top At_Offset_1 106a a5fc | | Store_Unchecked 0x2,-0x4 106b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 106c 0000 0000 | | .LITERAL {0x00000000, 0x00002009} 1070 ; -------------------------------------------------------------------------------------- 1070 ; SUBPROGRAM 1070 ; -------------------------------------------------------------------------------------- 1070 1083 | | .CONST 0x1083 ; Address of begin 1071 0004 | | .CONST 0x0004 ; Address of exception handler 1072 0004 | | .CONST 0x0004 ; Number of locals 1073 INIT_1070: 1073 e5ff | | Load 0x2,-0x1 1074 8260 | ` | Call 0x1,0x60 1075 00d8 | | Load_Top At_Offset_0 1076 e001 | | Load 0x0,0x1 1077 1b16 | | Execute Package,Field_Read,Field_Number 0x16 1078 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 1079 e5ff | | Load 0x2,-0x1 107a 0217 | | Execute Heap_Access,All_Reference 107b 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 107c e010 | | Load 0x0,0x10 107d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 107e 01cc | | Execute Vector,Catenate 107f 0007 | | Action Break_Optional 1080 e003 | | Load 0x0,0x3 1081 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1082 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1083 BODY_1070: 1083 e003 | | Load 0x0,0x3 1084 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1085 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1086 e402 | | Load 0x2,0x2 1087 0120 | | Execute Any,Is_Value 1088 6803 |h | Jump_Zero 0x108c 1089 e003 | | Load 0x0,0x3 108a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 108b 7801 |x | Jump 0x108d 108c e402 | | Load 0x2,0x2 108d 604a |`J | Indirect_Literal Discrete,0x10d8,{0x00000000, 0x00004000} 108e e013 | | Load 0x0,0x13 108f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1090 e028 | ( | Load 0x0,0x28 1091 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1092 e003 | | Load 0x0,0x3 1093 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1094 1816 | | Execute Package,Field_Execute,Field_Number 0x16 1095 e603 | | Load 0x3,0x3 1096 e003 | | Load 0x0,0x3 1097 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1098 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 1099 c402 | | Store 0x2,0x2 109a 0059 | Y | Store_Top Discrete,At_Offset_1 109b 00d8 | | Load_Top At_Offset_0 109c 460e |F | Jump_Case 0xf 109d 7822 |x" | Jump 0x10c0 ; case 0x0 109e 780d |x | Jump 0x10ac ; case 0x1 109f 780c |x | Jump 0x10ac ; case 0x2 10a0 782c |x, | Jump 0x10cd ; case 0x3 10a1 780a |x | Jump 0x10ac ; case 0x4 10a2 7809 |x | Jump 0x10ac ; case 0x5 10a3 7808 |x | Jump 0x10ac ; case 0x6 10a4 7807 |x | Jump 0x10ac ; case 0x7 10a5 7806 |x | Jump 0x10ac ; case 0x8 10a6 7805 |x | Jump 0x10ac ; case 0x9 10a7 7804 |x | Jump 0x10ac ; case 0xa 10a8 7803 |x | Jump 0x10ac ; case 0xb 10a9 7802 |x | Jump 0x10ac ; case 0xc 10aa 7801 |x | Jump 0x10ac ; case 0xd 10ab 7800 |x | Jump 0x10ac ; case 0xe 10ac e002 | | Load 0x0,0x2 10ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd 10ae 4801 |H | Short_Literal 0x1 10af 4801 |H | Short_Literal 0x1 10b0 e005 | | Load 0x0,0x5 10b1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 10b2 035b | [ | Declare_Type Array,Constrained 10b3 0337 | 7 | Declare_Variable Array 10b4 00db | | Load_Top At_Offset_3 10b5 00db | | Load_Top At_Offset_3 10b6 e005 | | Load 0x0,0x5 10b7 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 10b8 4801 |H | Short_Literal 0x1 10b9 00da | | Load_Top At_Offset_2 10ba 01d6 | | Execute Vector,Field_Write 10bb 6018 |` | Indirect_Literal Discrete,0x10d4,{0x00000000, 0x00002002} 10bc e002 | | Load 0x0,0x2 10bd 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 10be c5fd | | Store 0x2,-0x3 10bf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 10c0 0092 1581 | | Action Push_String_Extended,0x1581 ; "Created directory object for \x22" 10c2 00da | | Load_Top At_Offset_2 10c3 01cc | | Execute Vector,Catenate 10c4 0092 1582 | | Action Push_String_Extended,0x1582 ; "\x22." 10c6 01cc | | Execute Vector,Catenate 10c7 8011 | | Call 0x0,0x11 10c8 4801 |H | Short_Literal 0x1 10c9 e5ff | | Load 0x2,-0x1 10ca 0217 | | Execute Heap_Access,All_Reference 10cb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 10cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 10cd 4800 |H | Short_Literal 0x0 10ce e5ff | | Load 0x2,-0x1 10cf 0217 | | Execute Heap_Access,All_Reference 10d0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 10d1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 10d2 0000 0000 | | .XXX[0x2] 10d4 0000 0000 | | .LITERAL {0x00000000, 0x00002002} 10d8 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 10dc 0000 0000 | | .BLANK 0000[0x4] 10e0 ; -------------------------------------------------------------------------------------- 10e0 ; SUBPROGRAM 10e0 ; -------------------------------------------------------------------------------------- 10e0 10e9 | | .CONST 0x10e9 ; Address of begin 10e1 0004 | | .CONST 0x0004 ; Address of exception handler 10e2 0004 | | .CONST 0x0004 ; Number of locals 10e3 INIT_10e0: 10e3 e5fe | | Load 0x2,-0x2 10e4 e015 | | Load 0x0,0x15 10e5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 10e6 e00d | | Load 0x0,0xd 10e7 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 10e8 00e1 | | Load_Encached Boolean_Cache 10e9 BODY_10e0: 10e9 00cf | | Action Mark_Auxiliary 10ea 00db | | Load_Top At_Offset_3 10eb 01d9 | | Execute Vector,Reverse_Bounds 10ec 0263 | c | Execute Discrete,Above_Bound 10ed 708f |p | Jump_Nonzero 0x117d 10ee e407 | | Load 0x2,0x7 10ef e00d | | Load 0x0,0xd 10f0 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 10f1 a404 | | Store_Unchecked 0x2,0x4 10f2 00d8 | | Load_Top At_Offset_0 10f3 e602 | | Load 0x3,0x2 10f4 01d7 | | Execute Vector,Field_Read 10f5 a402 | | Store_Unchecked 0x2,0x2 10f6 e402 | | Load 0x2,0x2 10f7 e015 | | Load 0x0,0x15 10f8 1820 | | Execute Package,Field_Execute,Field_Number 0x20 10f9 7025 |p% | Jump_Nonzero 0x111f 10fa e002 | | Load 0x0,0x2 10fb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 10fc 4801 |H | Short_Literal 0x1 10fd 4804 |H | Short_Literal 0x4 10fe e005 | | Load 0x0,0x5 10ff 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1100 035b | [ | Declare_Type Array,Constrained 1101 0337 | 7 | Declare_Variable Array 1102 00da | | Load_Top At_Offset_2 1103 e005 | | Load 0x0,0x5 1104 1812 | | Execute Package,Field_Execute,Field_Number 0x12 1105 4801 |H | Short_Literal 0x1 1106 00da | | Load_Top At_Offset_2 1107 01d6 | | Execute Vector,Field_Write 1108 e402 | | Load 0x2,0x2 1109 e015 | | Load 0x0,0x15 110a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 110b 4802 |H | Short_Literal 0x2 110c 00da | | Load_Top At_Offset_2 110d 01d6 | | Execute Vector,Field_Write 110e e5ff | | Load 0x2,-0x1 110f 8210 | | Call 0x1,0x10 1110 4803 |H | Short_Literal 0x3 1111 00da | | Load_Top At_Offset_2 1112 01d6 | | Execute Vector,Field_Write 1113 e5fd | | Load 0x2,-0x3 1114 e014 | | Load 0x0,0x14 1115 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1116 4804 |H | Short_Literal 0x4 1117 00da | | Load_Top At_Offset_2 1118 01d6 | | Execute Vector,Field_Write 1119 606a |`j | Indirect_Literal Discrete,0x1184,{0x00000000, 0x0000200b} 111a e002 | | Load 0x0,0x2 111b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 111c c5fc | | Store 0x2,-0x4 111d 00cc | | Action Pop_Block 111e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 111f e402 | | Load 0x2,0x2 1120 e015 | | Load 0x0,0x15 1121 1816 | | Execute Package,Field_Execute,Field_Number 0x16 1122 e404 | | Load 0x2,0x4 1123 0217 | | Execute Heap_Access,All_Reference 1124 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 1125 e402 | | Load 0x2,0x2 1126 e015 | | Load 0x0,0x15 1127 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1128 e404 | | Load 0x2,0x4 1129 0217 | | Execute Heap_Access,All_Reference 112a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 112b e404 | | Load 0x2,0x4 112c 0219 | | Execute Heap_Access,All_Read 112d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 112e 00e1 | | Load_Encached Boolean_Cache 112f 00d9 | | Load_Top At_Offset_1 1130 e5ff | | Load 0x2,-0x1 1131 e006 | | Load 0x0,0x6 1132 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1133 e402 | | Load 0x2,0x2 1134 e015 | | Load 0x0,0x15 1135 1819 | | Execute Package,Field_Execute,Field_Number 0x19 1136 e005 | | Load 0x0,0x5 1137 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 1138 00d1 | | Pop_Control Pop_Count_1 1139 c604 | | Store 0x3,0x4 113a 00d1 | | Pop_Control Pop_Count_1 113b 00db | | Load_Top At_Offset_3 113c 6819 |h | Jump_Zero 0x1156 113d e403 | | Load 0x2,0x3 113e 0217 | | Execute Heap_Access,All_Reference 113f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 1140 7009 |p | Jump_Nonzero 0x114a 1141 e404 | | Load 0x2,0x4 1142 e403 | | Load 0x2,0x3 1143 0217 | | Execute Heap_Access,All_Reference 1144 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 1145 4801 |H | Short_Literal 0x1 1146 e403 | | Load 0x2,0x3 1147 0217 | | Execute Heap_Access,All_Reference 1148 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 1149 782f |x/ | Jump 0x1179 114a e404 | | Load 0x2,0x4 114b e603 | | Load 0x3,0x3 114c 0217 | | Execute Heap_Access,All_Reference 114d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 114e e403 | | Load 0x2,0x3 114f 0217 | | Execute Heap_Access,All_Reference 1150 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 1151 0a01 | | Execute_Immediate Plus,0x1 1152 e403 | | Load 0x2,0x3 1153 0217 | | Execute Heap_Access,All_Reference 1154 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 1155 7823 |x# | Jump 0x1179 1156 e002 | | Load 0x0,0x2 1157 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1158 4801 |H | Short_Literal 0x1 1159 4804 |H | Short_Literal 0x4 115a e005 | | Load 0x0,0x5 115b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 115c 035b | [ | Declare_Type Array,Constrained 115d 0337 | 7 | Declare_Variable Array 115e 00da | | Load_Top At_Offset_2 115f e005 | | Load 0x0,0x5 1160 1812 | | Execute Package,Field_Execute,Field_Number 0x12 1161 4801 |H | Short_Literal 0x1 1162 00da | | Load_Top At_Offset_2 1163 01d6 | | Execute Vector,Field_Write 1164 e402 | | Load 0x2,0x2 1165 e015 | | Load 0x0,0x15 1166 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 1167 4802 |H | Short_Literal 0x2 1168 00da | | Load_Top At_Offset_2 1169 01d6 | | Execute Vector,Field_Write 116a e5ff | | Load 0x2,-0x1 116b 8210 | | Call 0x1,0x10 116c 4803 |H | Short_Literal 0x3 116d 00da | | Load_Top At_Offset_2 116e 01d6 | | Execute Vector,Field_Write 116f e5fd | | Load 0x2,-0x3 1170 e014 | | Load 0x0,0x14 1171 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1172 4804 |H | Short_Literal 0x4 1173 00da | | Load_Top At_Offset_2 1174 01d6 | | Execute Vector,Field_Write 1175 600a |` | Indirect_Literal Discrete,0x1180,{0x00000000, 0x0000200d} 1176 e002 | | Load 0x0,0x2 1177 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 1178 c5fc | | Store 0x2,-0x4 1179 e404 | | Load 0x2,0x4 117a a603 | | Store_Unchecked 0x3,0x3 117b 00c8 | | Action Pop_Auxiliary_Range 117c 3f71 |?q | Loop_Increasing 0x10ee 117d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 117e 0000 0000 | | .XXX[0x2] 1180 0000 0000 | | .LITERAL {0x00000000, 0x0000200d} 1184 0000 0000 | | .LITERAL {0x00000000, 0x0000200b} 1188 ; -------------------------------------------------------------------------------------- 1188 ; SUBPROGRAM 1188 ; -------------------------------------------------------------------------------------- 1188 11a4 | | .CONST 0x11a4 ; Address of begin 1189 0004 | | .CONST 0x0004 ; Address of exception handler 118a 0007 | | .CONST 0x0007 ; Number of locals 118b INIT_1188: 118b e003 | | Load 0x0,0x3 118c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 118d 02c7 | | Declare_Variable Any 118e 00d8 | | Load_Top At_Offset_0 118f 1c00 | | Execute_Immediate Run_Utility,0x0 1190 e003 | | Load 0x0,0x3 1191 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1192 02c7 | | Declare_Variable Any 1193 00d8 | | Load_Top At_Offset_0 1194 1c00 | | Execute_Immediate Run_Utility,0x0 1195 e003 | | Load 0x0,0x3 1196 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1197 02c7 | | Declare_Variable Any 1198 00d8 | | Load_Top At_Offset_0 1199 1c00 | | Execute_Immediate Run_Utility,0x0 119a e003 | | Load 0x0,0x3 119b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 119c 02c7 | | Declare_Variable Any 119d 00d8 | | Load_Top At_Offset_0 119e 1c00 | | Execute_Immediate Run_Utility,0x0 119f e003 | | Load 0x0,0x3 11a0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 11a1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 11a2 029f 13bb | | Declare_Subprogram INIT_13b8,For_Call 11a4 BODY_1188: 11a4 e003 | | Load 0x0,0x3 11a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 11a6 00db | | Load_Top At_Offset_3 11a7 0120 | | Execute Any,Is_Value 11a8 6803 |h | Jump_Zero 0x11ac 11a9 e003 | | Load 0x0,0x3 11aa 1b0f | | Execute Package,Field_Read,Field_Number 0xf 11ab 7801 |x | Jump 0x11ad 11ac 00db | | Load_Top At_Offset_3 11ad e404 | | Load 0x2,0x4 11ae e003 | | Load 0x0,0x3 11af 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 11b0 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 11b1 c605 | | Store 0x3,0x5 11b2 c405 | | Store 0x2,0x5 11b3 e405 | | Load 0x2,0x5 11b4 6825 |h% | Jump_Zero 0x11da 11b5 4801 |H | Short_Literal 0x1 11b6 4804 |H | Short_Literal 0x4 11b7 e005 | | Load 0x0,0x5 11b8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 11b9 035b | [ | Declare_Type Array,Constrained 11ba 0337 | 7 | Declare_Variable Array 11bb e402 | | Load 0x2,0x2 11bc e005 | | Load 0x0,0x5 11bd 181a | | Execute Package,Field_Execute,Field_Number 0x1a 11be 4801 |H | Short_Literal 0x1 11bf 00da | | Load_Top At_Offset_2 11c0 01d6 | | Execute Vector,Field_Write 11c1 e404 | | Load 0x2,0x4 11c2 e005 | | Load 0x0,0x5 11c3 181a | | Execute Package,Field_Execute,Field_Number 0x1a 11c4 4802 |H | Short_Literal 0x2 11c5 00da | | Load_Top At_Offset_2 11c6 01d6 | | Execute Vector,Field_Write 11c7 e602 | | Load 0x3,0x2 11c8 e005 | | Load 0x0,0x5 11c9 181a | | Execute Package,Field_Execute,Field_Number 0x1a 11ca 4803 |H | Short_Literal 0x3 11cb 00da | | Load_Top At_Offset_2 11cc 01d6 | | Execute Vector,Field_Write 11cd e405 | | Load 0x2,0x5 11ce e003 | | Load 0x0,0x3 11cf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 11d0 011c | | Execute Any,Convert_Unchecked 11d1 1c01 | | Execute_Immediate Run_Utility,0x1 11d2 e005 | | Load 0x0,0x5 11d3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 11d4 4804 |H | Short_Literal 0x4 11d5 00da | | Load_Top At_Offset_2 11d6 01d6 | | Execute Vector,Field_Write 11d7 6024 |`$ | Indirect_Literal Discrete,0x11fc,{0x00000000, 0x0000200a} 11d8 e002 | | Load 0x0,0x2 11d9 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 11da 00cf | | Action Mark_Auxiliary 11db e5fe | | Load 0x2,-0x2 11dc 01dc | | Execute Vector,Last 11dd e5fe | | Load 0x2,-0x2 11de 01dd | | Execute Vector,First 11df 0263 | c | Execute Discrete,Above_Bound 11e0 7010 |p | Jump_Nonzero 0x11f1 11e1 e605 | | Load 0x3,0x5 11e2 00d9 | | Load_Top At_Offset_1 11e3 e5fe | | Load 0x2,-0x2 11e4 01d5 | | Execute Vector,Field_Reference 11e5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 11e6 012f | / | Execute Any,Equal 11e7 6807 |h | Jump_Zero 0x11ef 11e8 00d8 | | Load_Top At_Offset_0 11e9 e5fe | | Load 0x2,-0x2 11ea 01d5 | | Execute Vector,Field_Reference 11eb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 11ec c602 | | Store 0x3,0x2 11ed 00d2 | | Pop_Control Pop_Count_2 11ee 7802 |x | Jump 0x11f1 11ef 00c8 | | Action Pop_Auxiliary_Range 11f0 3ff0 |? | Loop_Increasing 0x11e1 11f1 00ce | | Action Pop_Auxiliary 11f2 e602 | | Load 0x3,0x2 11f3 e003 | | Load 0x0,0x3 11f4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 11f5 7002 |p | Jump_Nonzero 0x11f8 11f6 8607 | | Call 0x3,0x7 11f7 7802 |x | Jump 0x11fa 11f8 00ec | | Load_Encached Diana_Tree_Cache 11f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 11fa 0831 | 1 | Execute_Immediate Raise,0x31 11fb 0000 | | .XXX[0x1] 11fc 0000 0000 | | .LITERAL {0x00000000, 0x0000200a} 1200 ; -------------------------------------------------------------------------------------- 1200 ; SUBPROGRAM 1200 ; -------------------------------------------------------------------------------------- 1200 1205 | | .CONST 0x1205 ; Address of begin 1201 0004 | | .CONST 0x0004 ; Address of exception handler 1202 0002 | | .CONST 0x0002 ; Number of locals 1203 INIT_1200: 1203 e20d | | Load 0x1,0xd 1204 0007 | | Action Break_Optional 1205 BODY_1200: 1205 e5ff | | Load 0x2,-0x1 1206 0217 | | Execute Heap_Access,All_Reference 1207 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 1208 7092 |p | Jump_Nonzero 0x129b 1209 e5ff | | Load 0x2,-0x1 120a 0217 | | Execute Heap_Access,All_Reference 120b 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 120c e001 | | Load 0x0,0x1 120d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 120e 0216 | | Execute Heap_Access,Convert 120f a407 | | Store_Unchecked 0x2,0x7 1210 e5ff | | Load 0x2,-0x1 1211 0031 | 1 | Store_Top Heap_Access,At_Offset_1 1212 00cf | | Action Mark_Auxiliary 1213 783c |x< | Jump 0x1250 1214 e027 | ' | Load 0x0,0x27 1215 680b |h | Jump_Zero 0x1221 1216 0092 1583 | | Action Push_String_Extended,0x1583 ; "Structural_Suppliers (Parent) " 1218 e407 | | Load 0x2,0x7 1219 0217 | | Execute Heap_Access,All_Reference 121a 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 121b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 121c e003 | | Load 0x0,0x3 121d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 121e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 121f 01cc | | Execute Vector,Catenate 1220 8011 | | Call 0x0,0x11 1221 e402 | | Load 0x2,0x2 1222 0a01 | | Execute_Immediate Plus,0x1 1223 c402 | | Store 0x2,0x2 1224 e407 | | Load 0x2,0x7 1225 0217 | | Execute Heap_Access,All_Reference 1226 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 1227 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 1228 e402 | | Load 0x2,0x2 1229 e403 | | Load 0x2,0x3 122a 01d5 | | Execute Vector,Field_Reference 122b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 122c e402 | | Load 0x2,0x2 122d e403 | | Load 0x2,0x3 122e 01d5 | | Execute Vector,Field_Reference 122f 00d8 | | Load_Top At_Offset_0 1230 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1231 00d8 | | Load_Top At_Offset_0 1232 0335 | 5 | Declare_Variable Array,Duplicate 1233 00cd | | Action Spare6_Action 1234 4805 |H | Short_Literal 0x5 1235 4800 |H | Short_Literal 0x0 1236 4800 |H | Short_Literal 0x0 1237 00d9 | | Load_Top At_Offset_1 1238 e606 | | Load 0x3,0x6 1239 01d6 | | Execute Vector,Field_Write 123a 3ffb |? | Loop_Increasing 0x1236 123b 00cd | | Action Spare6_Action 123c 00d9 | | Load_Top At_Offset_1 123d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 123e 00d1 | | Pop_Control Pop_Count_1 123f 4801 |H | Short_Literal 0x1 1240 4801 |H | Short_Literal 0x1 1241 e402 | | Load 0x2,0x2 1242 e403 | | Load 0x2,0x3 1243 01d5 | | Execute Vector,Field_Reference 1244 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 1245 01d6 | | Execute Vector,Field_Write 1246 e407 | | Load 0x2,0x7 1247 0032 | 2 | Store_Top Heap_Access,At_Offset_2 1248 e407 | | Load 0x2,0x7 1249 0217 | | Execute Heap_Access,All_Reference 124a 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 124b e001 | | Load 0x0,0x1 124c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 124d 0216 | | Execute Heap_Access,Convert 124e a407 | | Store_Unchecked 0x2,0x7 124f 00c9 | | Action Pop_Auxiliary_Loop 1250 e407 | | Load 0x2,0x7 1251 820f | | Call 0x1,0xf 1252 7004 |p | Jump_Nonzero 0x1257 1253 e407 | | Load 0x2,0x7 1254 0217 | | Execute Heap_Access,All_Reference 1255 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 1256 6fbd |o | Jump_Zero 0x1214 1257 00ce | | Action Pop_Auxiliary 1258 00d8 | | Load_Top At_Offset_0 1259 0217 | | Execute Heap_Access,All_Reference 125a 3c13 |< | Execute Record,Field_Read,Field_Number 0x13 125b 683f |h? | Jump_Zero 0x129b 125c 00d8 | | Load_Top At_Offset_0 125d 0217 | | Execute Heap_Access,All_Reference 125e 3c13 |< | Execute Record,Field_Read,Field_Number 0x13 125f e001 | | Load 0x0,0x1 1260 1b10 | | Execute Package,Field_Read,Field_Number 0x10 1261 0216 | | Execute Heap_Access,Convert 1262 e5ff | | Load 0x2,-0x1 1263 021e | | Execute Heap_Access,Maximum 1264 6836 |h6 | Jump_Zero 0x129b 1265 e027 | ' | Load 0x0,0x27 1266 680d |h | Jump_Zero 0x1274 1267 0092 1584 | | Action Push_String_Extended,0x1584 ; "Structural_Suppliers (Other) " 1269 00d9 | | Load_Top At_Offset_1 126a 0217 | | Execute Heap_Access,All_Reference 126b 3c13 |< | Execute Record,Field_Read,Field_Number 0x13 126c 0217 | | Execute Heap_Access,All_Reference 126d 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 126e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 126f e003 | | Load 0x0,0x3 1270 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1271 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 1272 01cc | | Execute Vector,Catenate 1273 8011 | | Call 0x0,0x11 1274 e402 | | Load 0x2,0x2 1275 0a01 | | Execute_Immediate Plus,0x1 1276 c402 | | Store 0x2,0x2 1277 00d8 | | Load_Top At_Offset_0 1278 0217 | | Execute Heap_Access,All_Reference 1279 3c13 |< | Execute Record,Field_Read,Field_Number 0x13 127a 0217 | | Execute Heap_Access,All_Reference 127b 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 127c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 127d e402 | | Load 0x2,0x2 127e e403 | | Load 0x2,0x3 127f 01d5 | | Execute Vector,Field_Reference 1280 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 1281 e402 | | Load 0x2,0x2 1282 e403 | | Load 0x2,0x3 1283 01d5 | | Execute Vector,Field_Reference 1284 00d8 | | Load_Top At_Offset_0 1285 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1286 00d8 | | Load_Top At_Offset_0 1287 0335 | 5 | Declare_Variable Array,Duplicate 1288 00cd | | Action Spare6_Action 1289 4805 |H | Short_Literal 0x5 128a 4800 |H | Short_Literal 0x0 128b 4800 |H | Short_Literal 0x0 128c 00d9 | | Load_Top At_Offset_1 128d e605 | | Load 0x3,0x5 128e 01d6 | | Execute Vector,Field_Write 128f 3ffb |? | Loop_Increasing 0x128b 1290 00cd | | Action Spare6_Action 1291 00d9 | | Load_Top At_Offset_1 1292 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 1293 00d1 | | Pop_Control Pop_Count_1 1294 4801 |H | Short_Literal 0x1 1295 4801 |H | Short_Literal 0x1 1296 e402 | | Load 0x2,0x2 1297 e403 | | Load 0x2,0x3 1298 01d5 | | Execute Vector,Field_Reference 1299 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 129a 01d6 | | Execute Vector,Field_Write 129b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 129c 0000 0000 | | .BLANK 0000[0x4] 12a0 ; -------------------------------------------------------------------------------------- 12a0 ; SUBPROGRAM 12a0 ; -------------------------------------------------------------------------------------- 12a0 12c2 | | .CONST 0x12c2 ; Address of begin 12a1 0004 | | .CONST 0x0004 ; Address of exception handler 12a2 0009 | | .CONST 0x0009 ; Number of locals 12a3 INIT_12a0: 12a3 00ec | | Load_Encached Diana_Tree_Cache 12a4 02c7 | | Declare_Variable Any 12a5 00d8 | | Load_Top At_Offset_0 12a6 1c00 | | Execute_Immediate Run_Utility,0x0 12a7 e003 | | Load 0x0,0x3 12a8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 12a9 02c7 | | Declare_Variable Any 12aa e003 | | Load 0x0,0x3 12ab 1810 | | Execute Package,Field_Execute,Field_Number 0x10 12ac a603 | | Store_Unchecked 0x3,0x3 12ad e003 | | Load 0x0,0x3 12ae 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 12af 1b0f | | Execute Package,Field_Read,Field_Number 0xf 12b0 e003 | | Load 0x0,0x3 12b1 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 12b2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 12b3 02c7 | | Declare_Variable Any 12b4 00d8 | | Load_Top At_Offset_0 12b5 1c00 | | Execute_Immediate Run_Utility,0x0 12b6 e003 | | Load 0x0,0x3 12b7 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 12b8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 12b9 02c7 | | Declare_Variable Any 12ba 00d8 | | Load_Top At_Offset_0 12bb 1c00 | | Execute_Immediate Run_Utility,0x0 12bc e003 | | Load 0x0,0x3 12bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 12be 029f 1463 | c| Declare_Subprogram INIT_1460,For_Call 12c0 029f 148b | | Declare_Subprogram INIT_1488,For_Call 12c2 BODY_12a0: 12c2 e7fe | | Load 0x3,-0x2 12c3 4605 |F | Jump_Case 0x6 12c4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x0 12c5 7804 |x | Jump 0x12ca ; case 0x1 12c6 7803 |x | Jump 0x12ca ; case 0x2 12c7 7805 |x | Jump 0x12cd ; case 0x3 12c8 7804 |x | Jump 0x12cd ; case 0x4 12c9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x5 12ca e7ff | | Load 0x3,-0x1 12cb c602 | | Store 0x3,0x2 12cc 7804 |x | Jump 0x12d1 12cd e5fe | | Load 0x2,-0x2 12ce e7ff | | Load 0x3,-0x1 12cf 8274 | t | Call 0x1,0x74 12d0 c602 | | Store 0x3,0x2 12d1 e602 | | Load 0x3,0x2 12d2 6816 |h | Jump_Zero 0x12e9 12d3 e003 | | Load 0x0,0x3 12d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 12d5 e605 | | Load 0x3,0x5 12d6 0120 | | Execute Any,Is_Value 12d7 6804 |h | Jump_Zero 0x12dc 12d8 e003 | | Load 0x0,0x3 12d9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 12da 1b0e | | Execute Package,Field_Read,Field_Number 0xe 12db 7801 |x | Jump 0x12dd 12dc e605 | | Load 0x3,0x5 12dd e602 | | Load 0x3,0x2 12de e003 | | Load 0x0,0x3 12df 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 12e0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 12e1 c605 | | Store 0x3,0x5 12e2 005b | [ | Store_Top Discrete,At_Offset_3 12e3 e605 | | Load 0x3,0x5 12e4 e003 | | Load 0x0,0x3 12e5 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 12e6 1812 | | Execute Package,Field_Execute,Field_Number 0x12 12e7 c603 | | Store 0x3,0x3 12e8 7830 |x0 | Jump 0x1319 12e9 e7fe | | Load 0x3,-0x2 12ea 0f03 | | Execute_Immediate Equal,0x3 12eb e7fe | | Load 0x3,-0x2 12ec 0f04 | | Execute_Immediate Equal,0x4 12ed 0278 | x | Execute Discrete,Or 12ee 682a |h* | Jump_Zero 0x1319 12ef e003 | | Load 0x0,0x3 12f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 12f1 e605 | | Load 0x3,0x5 12f2 0120 | | Execute Any,Is_Value 12f3 6804 |h | Jump_Zero 0x12f8 12f4 e003 | | Load 0x0,0x3 12f5 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 12f6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 12f7 7801 |x | Jump 0x12f9 12f8 e605 | | Load 0x3,0x5 12f9 e7ff | | Load 0x3,-0x1 12fa e003 | | Load 0x0,0x3 12fb 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 12fc 181c | | Execute Package,Field_Execute,Field_Number 0x1c 12fd c605 | | Store 0x3,0x5 12fe 005b | [ | Store_Top Discrete,At_Offset_3 12ff e003 | | Load 0x0,0x3 1300 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1301 e606 | | Load 0x3,0x6 1302 0120 | | Execute Any,Is_Value 1303 6804 |h | Jump_Zero 0x1308 1304 e003 | | Load 0x0,0x3 1305 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 1306 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1307 7801 |x | Jump 0x1309 1308 e606 | | Load 0x3,0x6 1309 6042 |`B | Indirect_Literal Discrete,0x134c,{0x00000000, 0x00004000} 130a e013 | | Load 0x0,0x13 130b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 130c e605 | | Load 0x3,0x5 130d e003 | | Load 0x0,0x3 130e 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 130f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 1310 c606 | | Store 0x3,0x6 1311 005b | [ | Store_Top Discrete,At_Offset_3 1312 00db | | Load_Top At_Offset_3 1313 e003 | | Load 0x0,0x3 1314 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 1315 1812 | | Execute Package,Field_Execute,Field_Number 0x12 1316 c603 | | Store 0x3,0x3 1317 00db | | Load_Top At_Offset_3 1318 8609 | | Call 0x3,0x9 1319 e603 | | Load 0x3,0x3 131a e003 | | Load 0x0,0x3 131b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 131c 702c |p, | Jump_Nonzero 0x1349 131d e027 | ' | Load 0x0,0x27 131e 6808 |h | Jump_Zero 0x1327 131f 0092 1585 | | Action Push_String_Extended,0x1585 ; "Add_Supplier " 1321 e603 | | Load 0x3,0x3 1322 e003 | | Load 0x0,0x3 1323 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1324 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 1325 01cc | | Execute Vector,Catenate 1326 8011 | | Call 0x0,0x11 1327 00cf | | Action Mark_Auxiliary 1328 e402 | | Load 0x2,0x2 1329 4801 |H | Short_Literal 0x1 132a 0263 | c | Execute Discrete,Above_Bound 132b 701a |p | Jump_Nonzero 0x1346 132c 00d8 | | Load_Top At_Offset_0 132d e403 | | Load 0x2,0x3 132e 01d5 | | Execute Vector,Field_Reference 132f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 1330 e603 | | Load 0x3,0x3 1331 012f | / | Execute Any,Equal 1332 6811 |h | Jump_Zero 0x1344 1333 e027 | ' | Load 0x0,0x27 1334 6807 |h | Jump_Zero 0x133c 1335 0092 1586 | | Action Push_String_Extended,0x1586 ; "Changing Kinds for object" 1337 00d9 | | Load_Top At_Offset_1 1338 00e0 | | Load_Encached Standard_Cache 1339 1818 | | Execute Package,Field_Execute,Field_Number 0x18 133a 01cc | | Execute Vector,Catenate 133b 8011 | | Call 0x0,0x11 133c 4801 |H | Short_Literal 0x1 133d e7fe | | Load 0x3,-0x2 133e 00da | | Load_Top At_Offset_2 133f e403 | | Load 0x2,0x3 1340 01d5 | | Execute Vector,Field_Reference 1341 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 1342 01d6 | | Execute Vector,Field_Write 1343 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1344 00c8 | | Action Pop_Auxiliary_Range 1345 3fe6 |? | Loop_Increasing 0x132c 1346 00ce | | Action Pop_Auxiliary 1347 e603 | | Load 0x3,0x3 1348 8608 | | Call 0x3,0x8 1349 4504 |E | Exit_Suprogram New_Top_Offset 0x4 134a 0000 0000 | | .XXX[0x2] 134c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 1350 ; -------------------------------------------------------------------------------------- 1350 ; SUBPROGRAM 1350 ; -------------------------------------------------------------------------------------- 1350 1353 | S | .CONST 0x1353 ; Address of begin 1351 0004 | | .CONST 0x0004 ; Address of exception handler 1352 0001 | | .CONST 0x0001 ; Number of locals 1353 BODY_1350: 1353 INIT_1350: 1353 00da | | Load_Top At_Offset_2 1354 0145 | E | Execute Heap_Access,Diana_Tree_Kind 1355 0f41 | A | Execute_Immediate Equal,0x41 1356 6802 |h | Jump_Zero 0x1359 1357 4801 |H | Short_Literal 0x1 1358 a7fe | | Store_Unchecked 0x3,-0x2 1359 4502 |E | Exit_Suprogram New_Top_Offset 0x2 135a 0000 0000 | | .BLANK 0000[0x6] 1360 ; -------------------------------------------------------------------------------------- 1360 ; SUBPROGRAM 1360 ; -------------------------------------------------------------------------------------- 1360 1367 | g | .CONST 0x1367 ; Address of begin 1361 0004 | | .CONST 0x0004 ; Address of exception handler 1362 0002 | | .CONST 0x0002 ; Number of locals 1363 INIT_1360: 1363 e5ff | | Load 0x2,-0x1 1364 e001 | | Load 0x0,0x1 1365 1b16 | | Execute Package,Field_Read,Field_Number 0x16 1366 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 1367 BODY_1360: 1367 0092 1587 | | Action Push_String_Extended,0x1587 ; "Creating Machine_Data record." 1369 8011 | | Call 0x0,0x11 136a e5ff | | Load 0x2,-0x1 136b e00d | | Load 0x0,0xd 136c 1820 | | Execute Package,Field_Execute,Field_Number 0x20 136d a402 | | Store_Unchecked 0x2,0x2 136e e5fe | | Load 0x2,-0x2 136f e402 | | Load 0x2,0x2 1370 0217 | | Execute Heap_Access,All_Reference 1371 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 1372 e5ff | | Load 0x2,-0x1 1373 0217 | | Execute Heap_Access,All_Reference 1374 3c1b |< | Execute Record,Field_Read,Field_Number 0x1b 1375 e402 | | Load 0x2,0x2 1376 0217 | | Execute Heap_Access,All_Reference 1377 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 1378 4800 |H | Short_Literal 0x0 1379 e402 | | Load 0x2,0x2 137a 0217 | | Execute Heap_Access,All_Reference 137b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 137c 4800 |H | Short_Literal 0x0 137d e402 | | Load 0x2,0x2 137e 0217 | | Execute Heap_Access,All_Reference 137f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 1380 4801 |H | Short_Literal 0x1 1381 e402 | | Load 0x2,0x2 1382 0217 | | Execute Heap_Access,All_Reference 1383 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 1384 00d8 | | Load_Top At_Offset_0 1385 e001 | | Load 0x0,0x1 1386 1b16 | | Execute Package,Field_Read,Field_Number 0x16 1387 1886 | | Execute Package,Field_Execute,Field_Number 0x86 1388 7016 |p | Jump_Nonzero 0x139f 1389 e5fe | | Load 0x2,-0x2 138a 00d9 | | Load_Top At_Offset_1 138b e001 | | Load 0x0,0x1 138c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 138d 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 138e 6810 |h | Jump_Zero 0x139f 138f e402 | | Load 0x2,0x2 1390 0219 | | Execute Heap_Access,All_Read 1391 00d8 | | Load_Top At_Offset_0 1392 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 1393 00da | | Load_Top At_Offset_2 1394 e5fe | | Load 0x2,-0x2 1395 e602 | | Load 0x3,0x2 1396 e001 | | Load 0x0,0x1 1397 1b16 | | Execute Package,Field_Read,Field_Number 0x16 1398 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 1399 e016 | | Load 0x0,0x16 139a 180e | | Execute Package,Field_Execute,Field_Number 0xe 139b 00d9 | | Load_Top At_Offset_1 139c 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 139d 00d1 | | Pop_Control Pop_Count_1 139e 7805 |x | Jump 0x13a4 139f e00d | | Load 0x0,0xd 13a0 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 13a1 e402 | | Load 0x2,0x2 13a2 0217 | | Execute Heap_Access,All_Reference 13a3 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 13a4 4800 |H | Short_Literal 0x0 13a5 e402 | | Load 0x2,0x2 13a6 0217 | | Execute Heap_Access,All_Reference 13a7 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 13a8 e004 | | Load 0x0,0x4 13a9 180f | | Execute Package,Field_Execute,Field_Number 0xf 13aa e402 | | Load 0x2,0x2 13ab 0217 | | Execute Heap_Access,All_Reference 13ac 380a |8 | Execute Record,Field_Write,Field_Number 0xa 13ad e004 | | Load 0x0,0x4 13ae 180f | | Execute Package,Field_Execute,Field_Number 0xf 13af e402 | | Load 0x2,0x2 13b0 0217 | | Execute Heap_Access,All_Reference 13b1 380b |8 | Execute Record,Field_Write,Field_Number 0xb 13b2 e402 | | Load 0x2,0x2 13b3 e5ff | | Load 0x2,-0x1 13b4 0217 | | Execute Heap_Access,All_Reference 13b5 381b |8 | Execute Record,Field_Write,Field_Number 0x1b 13b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 13b7 0000 | | .XXX[0x1] 13b8 ; -------------------------------------------------------------------------------------- 13b8 ; SUBPROGRAM 13b8 ; -------------------------------------------------------------------------------------- 13b8 13d8 | | .CONST 0x13d8 ; Address of begin 13b9 0004 | | .CONST 0x0004 ; Address of exception handler 13ba 0005 | | .CONST 0x0005 ; Number of locals 13bb INIT_13b8: 13bb e404 | | Load 0x2,0x4 13bc e003 | | Load 0x0,0x3 13bd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 13be 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 13bf e602 | | Load 0x3,0x2 13c0 e003 | | Load 0x0,0x3 13c1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 13c2 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 13c3 e402 | | Load 0x2,0x2 13c4 e003 | | Load 0x0,0x3 13c5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 13c6 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 13c7 00d9 | | Load_Top At_Offset_1 13c8 00d9 | | Load_Top At_Offset_1 13c9 01dd | | Execute Vector,First 13ca e802 | | Load 0x4,0x2 13cb 01db | | Execute Vector,Length 13cc 0273 | s | Execute Discrete,Plus 13cd 00d8 | | Load_Top At_Offset_0 13ce 00e2 | | Load_Encached Integer_Cache 13cf 0260 | ` | Execute Discrete,In_Type 13d0 7001 |p | Jump_Nonzero 0x13d2 13d1 0801 | | Execute_Immediate Raise,0x1 13d2 00da | | Load_Top At_Offset_2 13d3 01dc | | Execute Vector,Last 13d4 00db | | Load_Top At_Offset_3 13d5 01cf | | Execute Vector,Slice_Read 13d6 01cc | | Execute Vector,Catenate 13d7 0007 | | Action Break_Optional 13d8 BODY_13b8: 13d8 e003 | | Load 0x0,0x3 13d9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 13da 1b0f | | Execute Package,Field_Read,Field_Number 0xf 13db e603 | | Load 0x3,0x3 13dc 0120 | | Execute Any,Is_Value 13dd 6803 |h | Jump_Zero 0x13e1 13de e003 | | Load 0x0,0x3 13df 1b0f | | Execute Package,Field_Read,Field_Number 0xf 13e0 7801 |x | Jump 0x13e2 13e1 e603 | | Load 0x3,0x3 13e2 6075 |`u | Indirect_Literal Discrete,0x1458,{0x00000000, 0x00004000} 13e3 e013 | | Load 0x0,0x13 13e4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 13e5 e028 | ( | Load 0x0,0x28 13e6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 13e7 e003 | | Load 0x0,0x3 13e8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 13e9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 13ea e805 | | Load 0x4,0x5 13eb e003 | | Load 0x0,0x3 13ec 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 13ed 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 13ee c603 | | Store 0x3,0x3 13ef c606 | | Store 0x3,0x6 13f0 e606 | | Load 0x3,0x6 13f1 6825 |h% | Jump_Zero 0x1417 13f2 4801 |H | Short_Literal 0x1 13f3 4804 |H | Short_Literal 0x4 13f4 e005 | | Load 0x0,0x5 13f5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 13f6 035b | [ | Declare_Type Array,Constrained 13f7 0337 | 7 | Declare_Variable Array 13f8 00d9 | | Load_Top At_Offset_1 13f9 e005 | | Load 0x0,0x5 13fa 1810 | | Execute Package,Field_Execute,Field_Number 0x10 13fb 4801 |H | Short_Literal 0x1 13fc 00da | | Load_Top At_Offset_2 13fd 01d6 | | Execute Vector,Field_Write 13fe e404 | | Load 0x2,0x4 13ff e005 | | Load 0x0,0x5 1400 181a | | Execute Package,Field_Execute,Field_Number 0x1a 1401 4802 |H | Short_Literal 0x2 1402 00da | | Load_Top At_Offset_2 1403 01d6 | | Execute Vector,Field_Write 1404 e602 | | Load 0x3,0x2 1405 e005 | | Load 0x0,0x5 1406 181a | | Execute Package,Field_Execute,Field_Number 0x1a 1407 4803 |H | Short_Literal 0x3 1408 00da | | Load_Top At_Offset_2 1409 01d6 | | Execute Vector,Field_Write 140a e405 | | Load 0x2,0x5 140b e003 | | Load 0x0,0x3 140c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 140d 011c | | Execute Any,Convert_Unchecked 140e 1c01 | | Execute_Immediate Run_Utility,0x1 140f e005 | | Load 0x0,0x5 1410 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1411 4804 |H | Short_Literal 0x4 1412 00da | | Load_Top At_Offset_2 1413 01d6 | | Execute Vector,Field_Write 1414 603f |`? | Indirect_Literal Discrete,0x1454,{0x00000000, 0x0000200a} 1415 e002 | | Load 0x0,0x2 1416 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1417 e003 | | Load 0x0,0x3 1418 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1419 e604 | | Load 0x3,0x4 141a 0120 | | Execute Any,Is_Value 141b 6803 |h | Jump_Zero 0x141f 141c e003 | | Load 0x0,0x3 141d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 141e 7801 |x | Jump 0x1420 141f e604 | | Load 0x3,0x4 1420 6037 |`7 | Indirect_Literal Discrete,0x1458,{0x00000000, 0x00004000} 1421 e013 | | Load 0x0,0x13 1422 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1423 4800 |H | Short_Literal 0x0 1424 e603 | | Load 0x3,0x3 1425 e003 | | Load 0x0,0x3 1426 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 1427 1819 | | Execute Package,Field_Execute,Field_Number 0x19 1428 c604 | | Store 0x3,0x4 1429 c405 | | Store 0x2,0x5 142a e405 | | Load 0x2,0x5 142b 6825 |h% | Jump_Zero 0x1451 142c 4801 |H | Short_Literal 0x1 142d 4804 |H | Short_Literal 0x4 142e e005 | | Load 0x0,0x5 142f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1430 035b | [ | Declare_Type Array,Constrained 1431 0337 | 7 | Declare_Variable Array 1432 e603 | | Load 0x3,0x3 1433 e005 | | Load 0x0,0x5 1434 181a | | Execute Package,Field_Execute,Field_Number 0x1a 1435 4801 |H | Short_Literal 0x1 1436 00da | | Load_Top At_Offset_2 1437 01d6 | | Execute Vector,Field_Write 1438 e404 | | Load 0x2,0x4 1439 e005 | | Load 0x0,0x5 143a 181a | | Execute Package,Field_Execute,Field_Number 0x1a 143b 4802 |H | Short_Literal 0x2 143c 00da | | Load_Top At_Offset_2 143d 01d6 | | Execute Vector,Field_Write 143e e602 | | Load 0x3,0x2 143f e005 | | Load 0x0,0x5 1440 181a | | Execute Package,Field_Execute,Field_Number 0x1a 1441 4803 |H | Short_Literal 0x3 1442 00da | | Load_Top At_Offset_2 1443 01d6 | | Execute Vector,Field_Write 1444 e405 | | Load 0x2,0x5 1445 e003 | | Load 0x0,0x3 1446 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1447 011c | | Execute Any,Convert_Unchecked 1448 1c01 | | Execute_Immediate Run_Utility,0x1 1449 e005 | | Load 0x0,0x5 144a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 144b 4804 |H | Short_Literal 0x4 144c 00da | | Load_Top At_Offset_2 144d 01d6 | | Execute Vector,Field_Write 144e 6005 |` | Indirect_Literal Discrete,0x1454,{0x00000000, 0x0000200a} 144f e002 | | Load 0x0,0x2 1450 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1451 e604 | | Load 0x3,0x4 1452 00cb | | Action Pop_Block_With_Result 1453 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1454 0000 0000 | | .LITERAL {0x00000000, 0x0000200a} 1458 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 145c 0000 0000 | | .BLANK 0000[0x4] 1460 ; -------------------------------------------------------------------------------------- 1460 ; SUBPROGRAM 1460 ; -------------------------------------------------------------------------------------- 1460 1463 | c | .CONST 0x1463 ; Address of begin 1461 0004 | | .CONST 0x0004 ; Address of exception handler 1462 0001 | | .CONST 0x0001 ; Number of locals 1463 BODY_1460: 1463 INIT_1460: 1463 e402 | | Load 0x2,0x2 1464 0a01 | | Execute_Immediate Plus,0x1 1465 c402 | | Store 0x2,0x2 1466 00da | | Load_Top At_Offset_2 1467 e402 | | Load 0x2,0x2 1468 e403 | | Load 0x2,0x3 1469 01d5 | | Execute Vector,Field_Reference 146a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 146b e402 | | Load 0x2,0x2 146c e403 | | Load 0x2,0x3 146d 01d5 | | Execute Vector,Field_Reference 146e 00d8 | | Load_Top At_Offset_0 146f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1470 00d8 | | Load_Top At_Offset_0 1471 0335 | 5 | Declare_Variable Array,Duplicate 1472 00cd | | Action Spare6_Action 1473 4805 |H | Short_Literal 0x5 1474 4800 |H | Short_Literal 0x0 1475 4800 |H | Short_Literal 0x0 1476 00d9 | | Load_Top At_Offset_1 1477 e804 | | Load 0x4,0x4 1478 01d6 | | Execute Vector,Field_Write 1479 3ffb |? | Loop_Increasing 0x1475 147a 00cd | | Action Spare6_Action 147b 00d9 | | Load_Top At_Offset_1 147c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 147d 00d1 | | Pop_Control Pop_Count_1 147e 4801 |H | Short_Literal 0x1 147f e7fe | | Load 0x3,-0x2 1480 e402 | | Load 0x2,0x2 1481 e403 | | Load 0x2,0x3 1482 01d5 | | Execute Vector,Field_Reference 1483 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 1484 01d6 | | Execute Vector,Field_Write 1485 4502 |E | Exit_Suprogram New_Top_Offset 0x2 1486 0000 0000 | | .XXX[0x2] 1488 ; -------------------------------------------------------------------------------------- 1488 ; SUBPROGRAM 1488 ; -------------------------------------------------------------------------------------- 1488 1495 | | .CONST 0x1495 ; Address of begin 1489 0004 | | .CONST 0x0004 ; Address of exception handler 148a 0004 | | .CONST 0x0004 ; Number of locals 148b INIT_1488: 148b e003 | | Load 0x0,0x3 148c 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 148d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 148e 02c7 | | Declare_Variable Any 148f 00d8 | | Load_Top At_Offset_0 1490 1c00 | | Execute_Immediate Run_Utility,0x0 1491 e003 | | Load 0x0,0x3 1492 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1493 029f 14b3 | | Declare_Subprogram INIT_14b0,For_Call 1495 BODY_1488: 1495 e003 | | Load 0x0,0x3 1496 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1497 00db | | Load_Top At_Offset_3 1498 0120 | | Execute Any,Is_Value 1499 6804 |h | Jump_Zero 0x149e 149a e003 | | Load 0x0,0x3 149b 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 149c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 149d 7801 |x | Jump 0x149f 149e 00db | | Load_Top At_Offset_3 149f 600c |` | Indirect_Literal Discrete,0x14ac,{0x00000000, 0x00004000} 14a0 e013 | | Load 0x0,0x13 14a1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 14a2 e9ff | | Load 0x4,-0x1 14a3 e003 | | Load 0x0,0x3 14a4 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 14a5 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 14a6 c802 | | Store 0x4,0x2 14a7 005a | Z | Store_Top Discrete,At_Offset_2 14a8 00da | | Load_Top At_Offset_2 14a9 8804 | | Call 0x4,0x4 14aa c802 | | Store 0x4,0x2 14ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2 14ac 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 14b0 ; -------------------------------------------------------------------------------------- 14b0 ; SUBPROGRAM 14b0 ; -------------------------------------------------------------------------------------- 14b0 14bf | | .CONST 0x14bf ; Address of begin 14b1 0004 | | .CONST 0x0004 ; Address of exception handler 14b2 0003 | | .CONST 0x0003 ; Number of locals 14b3 INIT_14b0: 14b3 e003 | | Load 0x0,0x3 14b4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 14b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 14b6 02c7 | | Declare_Variable Any 14b7 00d8 | | Load_Top At_Offset_0 14b8 1c00 | | Execute_Immediate Run_Utility,0x0 14b9 e003 | | Load 0x0,0x3 14ba 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 14bb 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 14bc 02c7 | | Declare_Variable Any 14bd 00d8 | | Load_Top At_Offset_0 14be 1c00 | | Execute_Immediate Run_Utility,0x0 14bf BODY_14b0: 14bf 00cf | | Action Mark_Auxiliary 14c0 7826 |x& | Jump 0x14e7 14c1 ebff | | Load 0x5,-0x1 14c2 e003 | | Load 0x0,0x3 14c3 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 14c4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 14c5 ca02 | | Store 0x5,0x2 14c6 00da | | Load_Top At_Offset_2 14c7 e003 | | Load 0x0,0x3 14c8 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 14c9 1812 | | Execute Package,Field_Execute,Field_Number 0x12 14ca 8608 | | Call 0x3,0x8 14cb e003 | | Load 0x0,0x3 14cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 14cd 00da | | Load_Top At_Offset_2 14ce 0120 | | Execute Any,Is_Value 14cf 6804 |h | Jump_Zero 0x14d4 14d0 e003 | | Load 0x0,0x3 14d1 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 14d2 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 14d3 7801 |x | Jump 0x14d5 14d4 00da | | Load_Top At_Offset_2 14d5 67d6 |g | Indirect_Literal Discrete,0x14ac,{0x00000000, 0x00004000} 14d6 e013 | | Load 0x0,0x13 14d7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 14d8 ea02 | | Load 0x5,0x2 14d9 e003 | | Load 0x0,0x3 14da 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 14db 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 14dc ca03 | | Store 0x5,0x3 14dd c803 | | Store 0x4,0x3 14de 00d9 | | Load_Top At_Offset_1 14df 8804 | | Call 0x4,0x4 14e0 ca03 | | Store 0x5,0x3 14e1 ebff | | Load 0x5,-0x1 14e2 e003 | | Load 0x0,0x3 14e3 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 14e4 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 14e5 cbff | | Store 0x5,-0x1 14e6 00c9 | | Action Pop_Auxiliary_Loop 14e7 ebff | | Load 0x5,-0x1 14e8 e003 | | Load 0x0,0x3 14e9 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 14ea 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 14eb 6fd5 |o | Jump_Zero 0x14c1 14ec 4501 |E | Exit_Suprogram New_Top_Offset 0x1 14ed 0000 0000 | | .XXX[0x3] 14ef 0000 | | 14f0 ; -------------------------------------------------------------------------------------- 14f0 ; SUBPROGRAM 14f0 ; -------------------------------------------------------------------------------------- 14f0 14f3 | | .CONST 0x14f3 ; Address of begin 14f1 0004 | | .CONST 0x0004 ; Address of exception handler 14f2 0001 | | .CONST 0x0001 ; Number of locals 14f3 BODY_14f0: 14f3 INIT_14f0: 14f3 4608 |F | Jump_Case 0x9 14f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 14f5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 14f6 7819 |x | Jump 0x1510 ; case 0x2 14f7 7818 |x | Jump 0x1510 ; case 0x3 14f8 7817 |x | Jump 0x1510 ; case 0x4 14f9 7816 |x | Jump 0x1510 ; case 0x5 14fa 7815 |x | Jump 0x1510 ; case 0x6 14fb 7801 |x | Jump 0x14fd ; case 0x7 14fc 7809 |x | Jump 0x1506 ; case 0x8 14fd 00db | | Load_Top At_Offset_3 14fe 4801 |H | Short_Literal 0x1 14ff e5fe | | Load 0x2,-0x2 1500 e213 | | Load 0x1,0x13 1501 035b | [ | Declare_Type Array,Constrained 1502 4801 |H | Short_Literal 0x1 1503 e5ff | | Load 0x2,-0x1 1504 031b | | Declare_Type Variant_Record,Constrained 1505 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1506 00db | | Load_Top At_Offset_3 1507 00db | | Load_Top At_Offset_3 1508 02fc | | Declare_Variable Variant_Record,With_Constraint 1509 4801 |H | Short_Literal 0x1 150a e5fe | | Load 0x2,-0x2 150b e213 | | Load 0x1,0x13 150c 0334 | 4 | Declare_Variable Array,With_Constraint 150d 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3 150e 016a | j | QQ_execute Variant_Record,XXX 150f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 1510 0869 | i | Execute_Immediate Raise,0x69 1511 0000 0000 | | .BLANK 0000[0x7] 1518 ; -------------------------------------------------------------------------------------- 1518 ; SUBPROGRAM 1518 ; -------------------------------------------------------------------------------------- 1518 151b | | .CONST 0x151b ; Address of begin 1519 0004 | | .CONST 0x0004 ; Address of exception handler 151a 0001 | | .CONST 0x0001 ; Number of locals 151b BODY_1518: 151b INIT_1518: 151b 4608 |F | Jump_Case 0x9 151c 7808 |x | Jump 0x1525 ; case 0x0 151d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 151e 7813 |x | Jump 0x1532 ; case 0x2 151f 7812 |x | Jump 0x1532 ; case 0x3 1520 7811 |x | Jump 0x1532 ; case 0x4 1521 7810 |x | Jump 0x1532 ; case 0x5 1522 780f |x | Jump 0x1532 ; case 0x6 1523 780e |x | Jump 0x1532 ; case 0x7 1524 780d |x | Jump 0x1532 ; case 0x8 1525 00da | | Load_Top At_Offset_2 1526 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 1527 0125 | % | Execute Any,Set_Constraint 1528 00da | | Load_Top At_Offset_2 1529 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 152a 1c00 | | Execute_Immediate Run_Utility,0x0 152b 00da | | Load_Top At_Offset_2 152c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 152d 0125 | % | Execute Any,Set_Constraint 152e 00da | | Load_Top At_Offset_2 152f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 1530 1c00 | | Execute_Immediate Run_Utility,0x0 1531 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 1532 0869 | i | Execute_Immediate Raise,0x69 1533 0000 0000 | | .BLANK 0000[0x5] 1538 ; -------------------------------------------------------------------------------------- 1538 ; SUBPROGRAM 1538 ; -------------------------------------------------------------------------------------- 1538 154d | M | .CONST 0x154d ; Address of begin 1539 0004 | | .CONST 0x0004 ; Address of exception handler 153a 0017 | | .CONST 0x0017 ; Number of locals 153b INIT_1538: 153b 029a 1553 | S| Declare_Subprogram INIT_1550,For_Outer_Call,Visible,Unelaborated 153d 029a 156b | k| Declare_Subprogram INIT_1568,For_Outer_Call,Visible,Unelaborated 153f 00bf | | Action Accept_Activation 1540 e001 | | Load 0x0,0x1 1541 e002 | | Load 0x0,0x2 1542 e20f | | Load 0x1,0xf 1543 e210 | | Load 0x1,0x10 1544 e003 | | Load 0x0,0x3 1545 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 1546 0387 | | Declare_Variable Package 1547 00d8 | | Load_Top At_Offset_0 1548 020f | | Execute Module,Activate 1549 1d15 | | Execute_Immediate Reference_Lex_1,0x15 154a 00c7 | | Action Elaborate_Subprogram 154b 1d16 | | Execute_Immediate Reference_Lex_1,0x16 154c 00c7 | | Action Elaborate_Subprogram 154d BODY_1538: 154d 00bc | | Action Signal_Activated 154e 00bb | | Action Signal_Completion 154f 0000 | | .XXX[0x1] 1550 ; -------------------------------------------------------------------------------------- 1550 ; SUBPROGRAM 1550 ; -------------------------------------------------------------------------------------- 1550 1553 | S | .CONST 0x1553 ; Address of begin 1551 0004 | | .CONST 0x0004 ; Address of exception handler 1552 0001 | | .CONST 0x0001 ; Number of locals 1553 BODY_1550: 1553 INIT_1550: 1553 00da | | Load_Top At_Offset_2 1554 0219 | | Execute Heap_Access,All_Read 1555 00d8 | | Load_Top At_Offset_0 1556 3c1c |< | Execute Record,Field_Read,Field_Number 0x1c 1557 e5ff | | Load 0x2,-0x1 1558 8004 | | Call 0x0,0x4 1559 e5fe | | Load 0x2,-0x2 155a e20f | | Load 0x1,0xf 155b 0119 | | Execute Any,Check_In_Formal_Type 155c e217 | | Load 0x1,0x17 155d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 155e 00d9 | | Load_Top At_Offset_1 155f 381c |8 | Execute Record,Field_Write,Field_Number 0x1c 1560 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1561 0000 0000 | | .BLANK 0000[0x7] 1568 ; -------------------------------------------------------------------------------------- 1568 ; SUBPROGRAM 1568 ; -------------------------------------------------------------------------------------- 1568 156b | k | .CONST 0x156b ; Address of begin 1569 1575 | u | .CONST 0x1575 ; Address of exception handler 156a 0001 | | .CONST 0x0001 ; Number of locals 156b BODY_1568: 156b INIT_1568: 156b 00da | | Load_Top At_Offset_2 156c 0217 | | Execute Heap_Access,All_Reference 156d 3c1c |< | Execute Record,Field_Read,Field_Number 0x1c 156e 00db | | Load_Top At_Offset_3 156f 8004 | | Call 0x0,0x4 1570 e217 | | Load 0x1,0x17 1571 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1572 e210 | | Load 0x1,0x10 1573 0213 | | Execute Heap_Access,Check_In_Type 1574 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1575 TRAP_1568: 1575 486b |Hk | Short_Literal 0x6b 1576 010f | | Execute Exception,Equal 1577 6802 |h | Jump_Zero 0x157a 1578 e210 | | Load 0x1,0x10 1579 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 157a 0100 | | Execute Exception,Raise 157b ; -------------------------------------------------------------------------------------- 157b ; STRING TABLE 157b ; -------------------------------------------------------------------------------------- 157b 001c | | .STRTAB 0x001c->0x1589 ; "Refreshing unit " 157c 002a | * | .STRTAB 0x002a->0x1591 ; "Target name for " 157d 0038 | 8 | .STRTAB 0x0038->0x1599 ; " has been set to " 157e 0047 | G | .STRTAB 0x0047->0x15a1 ; "." 157f 0046 | F | .STRTAB 0x0046->0x15a2 ; "Releasing old special build instructions." 1580 006d | m | .STRTAB 0x006d->0x15b6 ; "No siblings for " 1581 007b | { | .STRTAB 0x007b->0x15be ; "Created directory object for \x22" 1582 0097 | | .STRTAB 0x0097->0x15cd ; "\x22." 1583 0097 | | .STRTAB 0x0097->0x15ce ; "Structural_Suppliers (Parent) " 1584 00b3 | | .STRTAB 0x00b3->0x15dd ; "Structural_Suppliers (Other) " 1585 00ce | | .STRTAB 0x00ce->0x15ec ; "Add_Supplier " 1586 00d9 | | .STRTAB 0x00d9->0x15f2 ; "Changing Kinds for object" 1587 00f0 | | .STRTAB 0x00f0->0x15ff ; "Creating Machine_Data record." 1588 010b | | .STREND 0x010b->0x160d 1589 5265 6672 |Refr| .STRTAB_STRINGS 160e 0000 0000 | | .XXX[0x2] 1610 ; -------------------------------------------------------------------------------------- 1610 ; Debug Table 1610 ; -------------------------------------------------------------------------------------- 1610 0004 000d | | .DEBUG4 0x0004,0x000d,0xd930,0x0000,0x0001,0x0000 1616 0000 0000 | | .BLANK 0000[0xcf] 16e5 0276 2e00 | v. | .XXX[0x30] 16e7 678e 8000 |g | 16e9 0000 1f40 | @| 16eb 2006 7a84 | z | 16ed 0000 0000 | | 16ef 3395 8000 |3 | 16f1 0004 2614 | & | 16f3 00cf d000 | | 16f5 33e3 400c |3 @ | 16f7 ecd0 0014 | | 16f9 1d81 6800 | h | 16fb 0000 fffe | | 16fd 84c2 0015 | | 16ff a240 0000 | @ | 1701 0001 9e04 | | 1703 0002 821f | | 1705 0015 a240 | @| 1707 0000 0001 | | 1709 a194 0069 | i| 170b 2f80 1c23 |/ #| 170d 0520 0682 | | 170f 0001 a418 | | 1711 0178 0000 | x | 1713 692f 8000 |i/ | 1715 0000 0000 | | .BLANK 0000[0x4] 1719 0034 3280 | 42 | .XXX[0xe7] 171b 0041 8c18 | A | 171d 8000 0000 | | 171f 0000 0028 | (| 1721 3182 3801 |1 8 | 1723 a372 0000 | r | 1725 0003 047c | || 1727 0034 1000 | 4 | 1729 2d7f d00a |- | 172b 1030 02d7 | 0 | 172d 6d00 3680 |m 6 | 172f 0d7b 9831 | { 1| 1731 c005 0818 | | 1733 0000 0000 | | 1735 1aa8 0006 | | 1737 acf8 01ad | | 1739 f000 0189 | | 173b 8e80 1aa8 | | 173d 0006 a5c0 | | 173f 06e0 0356 | V| 1741 7c00 d6f8 || | 1743 0000 1a75 | u| 1745 0000 6020 | ` | 1747 0380 0000 | | 1749 0000 00d0 | | 174b ca83 1823 | #| 174d 801a 8c40 | @| 174f 0000 0050 | P| 1751 0000 0000 | | 1753 d3a8 8448 | H| 1755 001a 6080 | ` | 1757 0000 0001 | | 1759 aa17 1666 | f| 175b 0034 c100 | 4 | 175d 0000 0003 | | 175f 5a04 0000 |Z | 1761 0001 004a | J| 1763 72e0 2009 |r | 1765 4e5c 0401 |N\ | 1767 271a cec5 |' | 1769 c00d 59f0 | Y | 176b 0000 0003 | | 176d 8808 024c | L| 176f cb97 0400 | | 1771 1a60 8006 | ` | 1773 bbb8 07c0 | | 1775 1004 a72f | /| 1777 fb0a 900d | | 1779 0000 0000 | | 177b 3600 0dc8 |6 | 177d 9831 c005 | 1 | 177f 0818 0000 | | 1781 0000 1b42 | B| 1783 0006 d378 | x| 1785 01b7 9000 | | 1787 0189 8e80 | | 1789 1b42 0006 | B | 178b cc40 0160 | @ `| 178d 0369 bc00 | i | 178f dbc8 0000 | | 1791 1b0f 0000 | | 1793 a020 0380 | | 1795 0000 0000 | | 1797 00d0 ca83 | | 1799 1823 801b | # | 179b 2640 0000 |&@ | 179d 0070 0000 | p | 179f 0000 d878 | x| 17a1 8448 001a | H | 17a3 fa80 0000 | | 17a5 0001 b3b7 | | 17a7 1666 0035 | f 5| 17a9 f500 0000 | | 17ab 0003 6d44 | mD| 17ad 0000 0001 | | 17af 004a 72e0 | Jr | 17b1 2009 4e5c | N\| 17b3 0401 271a | ' | 17b5 cec5 c00d | | 17b7 a6f0 0000 | | 17b9 0003 8808 | | 17bb 024c cb97 | L | 17bd 0400 1afa | | 17bf 8006 e238 | 8| 17c1 02a0 1004 | | 17c3 a72f fb0a | / | 17c5 900d 0000 | | 17c7 0000 2600 | & | 17c9 0e15 9831 | 1| 17cb c005 0818 | | 17cd 0000 0000 | | 17cf 1bdc 0006 | | 17d1 f9f8 01c1 | | 17d3 3000 0189 |0 | 17d5 8e80 1bdc | | 17d7 0006 f2c0 | | 17d9 00d0 037c | || 17db fc00 e098 | | 17dd 0000 1ba9 | | 17df 0000 e020 | | 17e1 0380 0000 | | 17e3 0000 00d0 | | 17e5 ca83 1823 | #| 17e7 801b c040 | @| 17e9 0000 0090 | | 17eb 0000 0000 | | 17ed dd48 8448 | H H| 17ef 001b 9480 | | 17f1 0000 0001 | | 17f3 bd57 1666 | W f| 17f5 0037 2900 | 7) | 17f7 0000 0003 | | 17f9 8084 0000 | | 17fb 0001 004a | J| 17fd 72e0 2009 |r | 17ff 4e5c |N\ |