|
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: 11264 (0x2c00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 15e0 | | .CONST 0x15e0 ; 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 0222 | " | .CONST 0x0222 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0076 | v | .CONST 0x0076 ; 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 14c3 | | Declare_Subprogram INIT_14c0,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 e003 | | Load 0x0,0x3 0079 1b0f | | Execute Package,Field_Read,Field_Number 0xf 007a e003 | | Load 0x0,0x3 007b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 007c 029f 14eb | | Declare_Subprogram INIT_14e8,For_Call 007e 4802 |H | Short_Literal 0x2 007f 032e | . | Declare_Type Record,Defined,Visible 0080 c257 | W | Store 0x1,0x57 0081 00e3 | | Load_Encached Natural_Cache 0082 0266 | f | Execute Discrete,Bounds 0083 e257 | W | Load 0x1,0x57 0084 029f 028b | | Declare_Subprogram INIT_0288,For_Call 0086 4801 |H | Short_Literal 0x1 0087 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0088 c258 | X | Store 0x1,0x58 0089 4801 |H | Short_Literal 0x1 008a 4801 |H | Short_Literal 0x1 008b e258 | X | Load 0x1,0x58 008c 035b | [ | Declare_Type Array,Constrained 008d 0336 | 6 | Declare_Variable Array,Visible 008e 00d8 | | Load_Top At_Offset_0 008f 0335 | 5 | Declare_Variable Array,Duplicate 0090 00cd | | Action Spare6_Action 0091 e257 | W | Load 0x1,0x57 0092 0322 | " | Declare_Variable Record 0093 e003 | | Load 0x0,0x3 0094 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0095 e257 | W | Load 0x1,0x57 0096 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 0097 0119 | | Execute Any,Check_In_Formal_Type 0098 00d9 | | Load_Top At_Offset_1 0099 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 009a e003 | | Load 0x0,0x3 009b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 009c e257 | W | Load 0x1,0x57 009d 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 009e 0119 | | Execute Any,Check_In_Formal_Type 009f 00d9 | | Load_Top At_Offset_1 00a0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00a1 4801 |H | Short_Literal 0x1 00a2 00da | | Load_Top At_Offset_2 00a3 01d6 | | Execute Vector,Field_Write 00a4 00d9 | | Load_Top At_Offset_1 00a5 01d4 | | Execute Vector,Structure_Write 00a6 c259 | Y | Store 0x1,0x59 00a7 e004 | | Load 0x0,0x4 00a8 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00a9 0129 | ) | Execute Any,Make_Visible 00aa c24b | K | Store 0x1,0x4b 00ab 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated 00ad c25a | Z | Store 0x1,0x5a 00ae 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated 00b0 c25b | [ | Store 0x1,0x5b 00b1 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated 00b3 c218 | | Store 0x1,0x18 00b4 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated 00b6 c219 | | Store 0x1,0x19 00b7 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated 00b9 c24e | N | Store 0x1,0x4e 00ba 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated 00bc c24f | O | Store 0x1,0x4f 00bd 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated 00bf c21c | | Store 0x1,0x1c 00c0 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated 00c2 c21d | | Store 0x1,0x1d 00c3 029a 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call,Visible,Unelaborated 00c5 c21e | | Store 0x1,0x1e 00c6 029a 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call,Visible,Unelaborated 00c8 c21f | | Store 0x1,0x1f 00c9 029a 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call,Visible,Unelaborated 00cb c220 | | Store 0x1,0x20 00cc 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated 00ce c221 | ! | Store 0x1,0x21 00cf 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated 00d1 c222 | " | Store 0x1,0x22 00d2 029a 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call,Visible,Unelaborated 00d4 c223 | # | Store 0x1,0x23 00d5 029a 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call,Visible,Unelaborated 00d7 c224 | $ | Store 0x1,0x24 00d8 029a 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call,Visible,Unelaborated 00da c225 | % | Store 0x1,0x25 00db 029a 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call,Visible,Unelaborated 00dd c226 | & | Store 0x1,0x26 00de 029a 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call,Visible,Unelaborated 00e0 c227 | ' | Store 0x1,0x27 00e1 029a 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call,Visible,Unelaborated 00e3 c228 | ( | Store 0x1,0x28 00e4 029a 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call,Visible,Unelaborated 00e6 c250 | P | Store 0x1,0x50 00e7 029a 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call,Visible,Unelaborated 00e9 c251 | Q | Store 0x1,0x51 00ea 029a 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated 00ec c252 | R | Store 0x1,0x52 00ed 029a 051b | | Declare_Subprogram INIT_0518,For_Outer_Call,Visible,Unelaborated 00ef c253 | S | Store 0x1,0x53 00f0 029a 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call,Visible,Unelaborated 00f2 c254 | T | Store 0x1,0x54 00f3 029a 0563 | c| Declare_Subprogram INIT_0560,For_Outer_Call,Visible,Unelaborated 00f5 c255 | U | Store 0x1,0x55 00f6 029a 059b | | Declare_Subprogram INIT_0598,For_Outer_Call,Visible,Unelaborated 00f8 c229 | ) | Store 0x1,0x29 00f9 029a 05d3 | | Declare_Subprogram INIT_05d0,For_Outer_Call,Visible,Unelaborated 00fb c22a | * | Store 0x1,0x2a 00fc 029a 0603 | | Declare_Subprogram INIT_0600,For_Outer_Call,Visible,Unelaborated 00fe c22b | + | Store 0x1,0x2b 00ff 029a 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call,Visible,Unelaborated 0101 c22c | , | Store 0x1,0x2c 0102 029a 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call,Visible,Unelaborated 0104 c22d | - | Store 0x1,0x2d 0105 029a 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call,Visible,Unelaborated 0107 c22e | . | Store 0x1,0x2e 0108 029a 06eb | | Declare_Subprogram INIT_06e8,For_Outer_Call,Visible,Unelaborated 010a c22f | / | Store 0x1,0x2f 010b 029a 0723 | #| Declare_Subprogram INIT_0720,For_Outer_Call,Visible,Unelaborated 010d c230 | 0 | Store 0x1,0x30 010e 029a 0753 | S| Declare_Subprogram INIT_0750,For_Outer_Call,Visible,Unelaborated 0110 c231 | 1 | Store 0x1,0x31 0111 029a 0793 | | Declare_Subprogram INIT_0790,For_Outer_Call,Visible,Unelaborated 0113 c256 | V | Store 0x1,0x56 0114 029a 07cb | | Declare_Subprogram INIT_07c8,For_Outer_Call,Visible,Unelaborated 0116 c233 | 3 | Store 0x1,0x33 0117 029a 080b | | Declare_Subprogram INIT_0808,For_Outer_Call,Visible,Unelaborated 0119 c234 | 4 | Store 0x1,0x34 011a 029a 083b | ;| Declare_Subprogram INIT_0838,For_Outer_Call,Visible,Unelaborated 011c c235 | 5 | Store 0x1,0x35 011d 029a 0853 | S| Declare_Subprogram INIT_0850,For_Outer_Call,Visible,Unelaborated 011f c236 | 6 | Store 0x1,0x36 0120 029a 085b | [| Declare_Subprogram INIT_0858,For_Outer_Call,Visible,Unelaborated 0122 c237 | 7 | Store 0x1,0x37 0123 029a 086b | k| Declare_Subprogram INIT_0868,For_Outer_Call,Visible,Unelaborated 0125 c238 | 8 | Store 0x1,0x38 0126 029a 088b | | Declare_Subprogram INIT_0888,For_Outer_Call,Visible,Unelaborated 0128 c239 | 9 | Store 0x1,0x39 0129 029a 08ab | | Declare_Subprogram INIT_08a8,For_Outer_Call,Visible,Unelaborated 012b c23a | : | Store 0x1,0x3a 012c 029a 08cb | | Declare_Subprogram INIT_08c8,For_Outer_Call,Visible,Unelaborated 012e c23b | ; | Store 0x1,0x3b 012f 029a 08e3 | | Declare_Subprogram INIT_08e0,For_Outer_Call,Visible,Unelaborated 0131 c23c | < | Store 0x1,0x3c 0132 029a 08fb | | Declare_Subprogram INIT_08f8,For_Outer_Call,Visible,Unelaborated 0134 c23d | = | Store 0x1,0x3d 0135 029a 0973 | s| Declare_Subprogram INIT_0970,For_Outer_Call,Visible,Unelaborated 0137 c23e | > | Store 0x1,0x3e 0138 029a 09eb | | Declare_Subprogram INIT_09e8,For_Outer_Call,Visible,Unelaborated 013a c23f | ? | Store 0x1,0x3f 013b 029a 0a23 | #| Declare_Subprogram INIT_0a20,For_Outer_Call,Visible,Unelaborated 013d c240 | @ | Store 0x1,0x40 013e 029a 0a63 | c| Declare_Subprogram INIT_0a60,For_Outer_Call,Visible,Unelaborated 0140 c241 | A | Store 0x1,0x41 0141 029a 0aa3 | | Declare_Subprogram INIT_0aa0,For_Outer_Call,Visible,Unelaborated 0143 c242 | B | Store 0x1,0x42 0144 029a 0afb | | Declare_Subprogram INIT_0af8,For_Outer_Call,Visible,Unelaborated 0146 c243 | C | Store 0x1,0x43 0147 029a 0b3b | ;| Declare_Subprogram INIT_0b38,For_Outer_Call,Visible,Unelaborated 0149 c244 | D | Store 0x1,0x44 014a 029a 0b7b | {| Declare_Subprogram INIT_0b78,For_Outer_Call,Visible,Unelaborated 014c c245 | E | Store 0x1,0x45 014d 029a 0bbb | | Declare_Subprogram INIT_0bb8,For_Outer_Call,Visible,Unelaborated 014f c246 | F | Store 0x1,0x46 0150 029a 0bd3 | | Declare_Subprogram INIT_0bd0,For_Outer_Call,Visible,Unelaborated 0152 c247 | G | Store 0x1,0x47 0153 029a 0beb | | Declare_Subprogram INIT_0be8,For_Outer_Call,Visible,Unelaborated 0155 c248 | H | Store 0x1,0x48 0156 029a 0bfb | | Declare_Subprogram INIT_0bf8,For_Outer_Call,Visible,Unelaborated 0158 c249 | I | Store 0x1,0x49 0159 4808 |H | Short_Literal 0x8 015a 0093 150b | | push_full_address INIT_1508 015c 02a0 | | Declare_Subprogram Null_Subprogram 015d 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 015e c24a | J | Store 0x1,0x4a 015f 029a 0c0b | | Declare_Subprogram INIT_0c08,For_Outer_Call,Visible,Unelaborated 0161 c25c | \ | Store 0x1,0x5c 0162 029a 0c1b | | Declare_Subprogram INIT_0c18,For_Outer_Call,Visible,Unelaborated 0164 c25d | ] | Store 0x1,0x5d 0165 00bf | | Action Accept_Activation 0166 029d 0c23 | #| Declare_Subprogram INIT_0c20,For_Outer_Call 0168 029d 0c33 | 3| Declare_Subprogram INIT_0c30,For_Outer_Call 016a 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 016b 00c7 | | Action Elaborate_Subprogram 016c 029d 0c43 | C| Declare_Subprogram INIT_0c40,For_Outer_Call 016e 029d 0d03 | | Declare_Subprogram INIT_0d00,For_Outer_Call 0170 029d 0deb | | Declare_Subprogram INIT_0de8,For_Outer_Call 0172 029d 0e13 | | Declare_Subprogram INIT_0e10,For_Outer_Call 0174 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0175 00c7 | | Action Elaborate_Subprogram 0176 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0177 00c7 | | Action Elaborate_Subprogram 0178 e005 | | Load 0x0,0x5 0179 193c | < | Execute Package,Field_Reference,Field_Number 0x3c 017a 00c6 | | Action Check_Subprogram_Elaborated 017b e20d | | Load 0x1,0xd 017c 480f |H | Short_Literal 0xf 017d e006 | | Load 0x0,0x6 017e 1911 | | Execute Package,Field_Reference,Field_Number 0x11 017f e006 | | Load 0x0,0x6 0180 1912 | | Execute Package,Field_Reference,Field_Number 0x12 0181 e007 | | Load 0x0,0x7 0182 e008 | | Load 0x0,0x8 0183 4800 |H | Short_Literal 0x0 0184 0007 | | Action Break_Optional 0185 029d 0e3b | ;| Declare_Subprogram INIT_0e38,For_Outer_Call 0187 e005 | | Load 0x0,0x5 0188 193d | = | Execute Package,Field_Reference,Field_Number 0x3d 0189 00c6 | | Action Check_Subprogram_Elaborated 018a e20d | | Load 0x1,0xd 018b 480f |H | Short_Literal 0xf 018c 1d6b | k | Execute_Immediate Reference_Lex_1,0x6b 018d e001 | | Load 0x0,0x1 018e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 018f e009 | | Load 0x0,0x9 0190 e00a | | Load 0x0,0xa 0191 4800 |H | Short_Literal 0x0 0192 0007 | | Action Break_Optional 0193 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0194 00c7 | | Action Elaborate_Subprogram 0195 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0196 00c7 | | Action Elaborate_Subprogram 0197 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0198 00c7 | | Action Elaborate_Subprogram 0199 1d15 | | Execute_Immediate Reference_Lex_1,0x15 019a 00c7 | | Action Elaborate_Subprogram 019b 029d 0e53 | S| Declare_Subprogram INIT_0e50,For_Outer_Call 019d 029d 0ed3 | | Declare_Subprogram INIT_0ed0,For_Outer_Call 019f 029d 0feb | | Declare_Subprogram INIT_0fe8,For_Outer_Call 01a1 1d5a | Z | Execute_Immediate Reference_Lex_1,0x5a 01a2 00c7 | | Action Elaborate_Subprogram 01a3 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b 01a4 00c7 | | Action Elaborate_Subprogram 01a5 1d18 | | Execute_Immediate Reference_Lex_1,0x18 01a6 00c7 | | Action Elaborate_Subprogram 01a7 1d19 | | Execute_Immediate Reference_Lex_1,0x19 01a8 00c7 | | Action Elaborate_Subprogram 01a9 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e 01aa 00c7 | | Action Elaborate_Subprogram 01ab 1d4f | O | Execute_Immediate Reference_Lex_1,0x4f 01ac 00c7 | | Action Elaborate_Subprogram 01ad 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 01ae 00c7 | | Action Elaborate_Subprogram 01af 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 01b0 00c7 | | Action Elaborate_Subprogram 01b1 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 01b2 00c7 | | Action Elaborate_Subprogram 01b3 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 01b4 00c7 | | Action Elaborate_Subprogram 01b5 1d20 | | Execute_Immediate Reference_Lex_1,0x20 01b6 00c7 | | Action Elaborate_Subprogram 01b7 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 01b8 00c7 | | Action Elaborate_Subprogram 01b9 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 01ba 00c7 | | Action Elaborate_Subprogram 01bb 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 01bc 00c7 | | Action Elaborate_Subprogram 01bd 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 01be 00c7 | | Action Elaborate_Subprogram 01bf 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 01c0 00c7 | | Action Elaborate_Subprogram 01c1 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 01c2 00c7 | | Action Elaborate_Subprogram 01c3 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 01c4 00c7 | | Action Elaborate_Subprogram 01c5 1d50 | P | Execute_Immediate Reference_Lex_1,0x50 01c6 00c7 | | Action Elaborate_Subprogram 01c7 1d51 | Q | Execute_Immediate Reference_Lex_1,0x51 01c8 00c7 | | Action Elaborate_Subprogram 01c9 1d52 | R | Execute_Immediate Reference_Lex_1,0x52 01ca 00c7 | | Action Elaborate_Subprogram 01cb 1d53 | S | Execute_Immediate Reference_Lex_1,0x53 01cc 00c7 | | Action Elaborate_Subprogram 01cd 029d 1013 | | Declare_Subprogram INIT_1010,For_Outer_Call 01cf 1d54 | T | Execute_Immediate Reference_Lex_1,0x54 01d0 00c7 | | Action Elaborate_Subprogram 01d1 1d55 | U | Execute_Immediate Reference_Lex_1,0x55 01d2 00c7 | | Action Elaborate_Subprogram 01d3 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 01d4 00c7 | | Action Elaborate_Subprogram 01d5 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 01d6 00c7 | | Action Elaborate_Subprogram 01d7 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 01d8 00c7 | | Action Elaborate_Subprogram 01d9 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 01da 00c7 | | Action Elaborate_Subprogram 01db 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 01dc 00c7 | | Action Elaborate_Subprogram 01dd 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 01de 00c7 | | Action Elaborate_Subprogram 01df 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 01e0 00c7 | | Action Elaborate_Subprogram 01e1 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 01e2 00c7 | | Action Elaborate_Subprogram 01e3 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 01e4 00c7 | | Action Elaborate_Subprogram 01e5 1d56 | V | Execute_Immediate Reference_Lex_1,0x56 01e6 00c7 | | Action Elaborate_Subprogram 01e7 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 01e8 00c7 | | Action Elaborate_Subprogram 01e9 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 01ea 00c7 | | Action Elaborate_Subprogram 01eb 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 01ec 00c7 | | Action Elaborate_Subprogram 01ed 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 01ee 00c7 | | Action Elaborate_Subprogram 01ef 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 01f0 00c7 | | Action Elaborate_Subprogram 01f1 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 01f2 00c7 | | Action Elaborate_Subprogram 01f3 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 01f4 00c7 | | Action Elaborate_Subprogram 01f5 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a 01f6 00c7 | | Action Elaborate_Subprogram 01f7 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b 01f8 00c7 | | Action Elaborate_Subprogram 01f9 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c 01fa 00c7 | | Action Elaborate_Subprogram 01fb 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d 01fc 00c7 | | Action Elaborate_Subprogram 01fd 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e 01fe 00c7 | | Action Elaborate_Subprogram 01ff 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 0200 00c7 | | Action Elaborate_Subprogram 0201 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40 0202 00c7 | | Action Elaborate_Subprogram 0203 1d41 | A | Execute_Immediate Reference_Lex_1,0x41 0204 00c7 | | Action Elaborate_Subprogram 0205 1d42 | B | Execute_Immediate Reference_Lex_1,0x42 0206 00c7 | | Action Elaborate_Subprogram 0207 1d43 | C | Execute_Immediate Reference_Lex_1,0x43 0208 00c7 | | Action Elaborate_Subprogram 0209 1d44 | D | Execute_Immediate Reference_Lex_1,0x44 020a 00c7 | | Action Elaborate_Subprogram 020b 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 020c 00c7 | | Action Elaborate_Subprogram 020d 1d46 | F | Execute_Immediate Reference_Lex_1,0x46 020e 00c7 | | Action Elaborate_Subprogram 020f 1d47 | G | Execute_Immediate Reference_Lex_1,0x47 0210 00c7 | | Action Elaborate_Subprogram 0211 1d48 | H | Execute_Immediate Reference_Lex_1,0x48 0212 00c7 | | Action Elaborate_Subprogram 0213 1d49 | I | Execute_Immediate Reference_Lex_1,0x49 0214 00c7 | | Action Elaborate_Subprogram 0215 1d5c | \ | Execute_Immediate Reference_Lex_1,0x5c 0216 00c7 | | Action Elaborate_Subprogram 0217 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d 0218 00c7 | | Action Elaborate_Subprogram 0219 e00b | | Load 0x0,0xb 021a e00c | | Load 0x0,0xc 021b e00d | | Load 0x0,0xd 021c 1d5f | _ | Execute_Immediate Reference_Lex_1,0x5f 021d 4804 |H | Short_Literal 0x4 021e e24a | J | Load 0x1,0x4a 021f 020e | | Execute Module,Augment_Imports 0220 e24a | J | Load 0x1,0x4a 0221 020d | | Execute Module,Elaborate 0222 BODY_0008: 0222 00bc | | Action Signal_Activated 0223 00bb | | Action Signal_Completion 0224 0000 0000 | | .BLANK 0000[0x4] 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 e264 | d | Load 0x1,0x64 0245 e265 | e | Load 0x1,0x65 0246 1d66 | f | Execute_Immediate Reference_Lex_1,0x66 0247 1d67 | g | Execute_Immediate Reference_Lex_1,0x67 0248 1d68 | h | Execute_Immediate Reference_Lex_1,0x68 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 e26c | l | Load 0x1,0x6c 0255 e26d | m | Load 0x1,0x6d 0256 1d6e | n | Execute_Immediate Reference_Lex_1,0x6e 0257 e26f | o | Load 0x1,0x6f 0258 1d70 | p | Execute_Immediate Reference_Lex_1,0x70 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 0334 | 4 | Declare_Variable Array,With_Constraint 0275 00d9 | | Load_Top At_Offset_1 0276 00d8 | | Load_Top At_Offset_0 0277 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0278 00da | | Load_Top At_Offset_2 0279 01da | | Execute Vector,Bounds 027a 00da | | Load_Top At_Offset_2 027b 01da | | Execute Vector,Bounds 027c 00da | | Load_Top At_Offset_2 027d 027f | | Execute Discrete,Equal 027e 7001 |p | Jump_Nonzero 0x280 027f 08e0 | | Execute_Immediate Raise,0xe0 0280 00cd | | Action Spare6_Action 0281 027f | | Execute Discrete,Equal 0282 7001 |p | Jump_Nonzero 0x284 0283 08e0 | | Execute_Immediate Raise,0xe0 0284 00d2 | | Pop_Control Pop_Count_2 0285 00d9 | | Load_Top At_Offset_1 0286 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0287 00ca | | Action Exit_Nullary_Function 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028b | | .CONST 0x028b ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0001 | | .CONST 0x0001 ; Number of locals 028b BODY_0288: 028b INIT_0288: 028b 00d1 | | Pop_Control Pop_Count_1 028c 00da | | Load_Top At_Offset_2 028d 01dc | | Execute Vector,Last 028e 00db | | Load_Top At_Offset_3 028f 01dd | | Execute Vector,First 0290 0263 | c | Execute Discrete,Above_Bound 0291 7006 |p | Jump_Nonzero 0x298 0292 00d8 | | Load_Top At_Offset_0 0293 e5ff | | Load 0x2,-0x1 0294 01d5 | | Execute Vector,Field_Reference 0295 1c00 | | Execute_Immediate Run_Utility,0x0 0296 0a01 | | Execute_Immediate Plus,0x1 0297 7ff8 | | Jump 0x290 0298 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0299 0000 0000 | | .BLANK 0000[0x7] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02b1 | | .CONST 0x02b1 ; Address of begin 02a1 0319 | | .CONST 0x0319 ; Address of exception handler 02a2 0004 | | .CONST 0x0004 ; Number of locals 02a3 INIT_02a0: 02a3 e00e | | Load 0x0,0xe 02a4 0322 | " | Declare_Variable Record 02a5 00d8 | | Load_Top At_Offset_0 02a6 1c00 | | Execute_Immediate Run_Utility,0x0 02a7 e00f | | Load 0x0,0xf 02a8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02a9 02c7 | | Declare_Variable Any 02aa 00d8 | | Load_Top At_Offset_0 02ab 1c00 | | Execute_Immediate Run_Utility,0x0 02ac e00f | | Load 0x0,0xf 02ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ae 02c7 | | Declare_Variable Any 02af 00d8 | | Load_Top At_Offset_0 02b0 1c00 | | Execute_Immediate Run_Utility,0x0 02b1 BODY_02a0: 02b1 e5fd | | Load 0x2,-0x3 02b2 6865 |he | Jump_Zero 0x318 02b3 0092 154b | K| Action Push_String_Extended,0x154b ; "Refreshing unit " 02b5 e5ff | | Load 0x2,-0x1 02b6 0217 | | Execute Heap_Access,All_Reference 02b7 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 02b8 e010 | | Load 0x0,0x10 02b9 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02ba 01cc | | Execute Vector,Catenate 02bb 8011 | | Call 0x0,0x11 02bc e5fc | | Load 0x2,-0x4 02bd 00db | | Load_Top At_Offset_3 02be e5ff | | Load 0x2,-0x1 02bf 8260 | ` | Call 0x1,0x60 02c0 00d1 | | Pop_Control Pop_Count_1 02c1 c5fc | | Store 0x2,-0x4 02c2 e5fc | | Load 0x2,-0x4 02c3 7054 |pT | Jump_Nonzero 0x318 02c4 e5fc | | Load 0x2,-0x4 02c5 00d9 | | Load_Top At_Offset_1 02c6 0120 | | Execute Any,Is_Value 02c7 6803 |h | Jump_Zero 0x2cb 02c8 e00f | | Load 0x0,0xf 02c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ca 7801 |x | Jump 0x2cc 02cb 00d9 | | Load_Top At_Offset_1 02cc 00db | | Load_Top At_Offset_3 02cd 0120 | | Execute Any,Is_Value 02ce 6803 |h | Jump_Zero 0x2d2 02cf e00f | | Load 0x0,0xf 02d0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02d1 7801 |x | Jump 0x2d3 02d2 00db | | Load_Top At_Offset_3 02d3 e5ff | | Load 0x2,-0x1 02d4 8261 | a | Call 0x1,0x61 02d5 c403 | | Store 0x2,0x3 02d6 c404 | | Store 0x2,0x4 02d7 c5fc | | Store 0x2,-0x4 02d8 e5fc | | Load 0x2,-0x4 02d9 703e |p> | Jump_Nonzero 0x318 02da 4801 |H | Short_Literal 0x1 02db e5ff | | Load 0x2,-0x1 02dc 0217 | | Execute Heap_Access,All_Reference 02dd 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 02de e00f | | Load 0x0,0xf 02df 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02e0 e5ff | | Load 0x2,-0x1 02e1 0217 | | Execute Heap_Access,All_Reference 02e2 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 02e3 e5fd | | Load 0x2,-0x3 02e4 0f02 | | Execute_Immediate Equal,0x2 02e5 6832 |h2 | Jump_Zero 0x318 02e6 00da | | Load_Top At_Offset_2 02e7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02e8 e003 | | Load 0x0,0x3 02e9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 02ea 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02eb 012f | / | Execute Any,Equal 02ec 6822 |h" | Jump_Zero 0x30f 02ed e5ff | | Load 0x2,-0x1 02ee 0217 | | Execute Heap_Access,All_Reference 02ef 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 02f0 681e |h | Jump_Zero 0x30f 02f1 e5ff | | Load 0x2,-0x1 02f2 0217 | | Execute Heap_Access,All_Reference 02f3 3c11 |< | Execute Record,Field_Read,Field_Number 0x11 02f4 0e02 | | Execute_Immediate Not_Equal,0x2 02f5 7007 |p | Jump_Nonzero 0x2fd 02f6 e5ff | | Load 0x2,-0x1 02f7 0217 | | Execute Heap_Access,All_Reference 02f8 3c10 |< | Execute Record,Field_Read,Field_Number 0x10 02f9 00da | | Load_Top At_Offset_2 02fa e00f | | Load 0x0,0xf 02fb 181f | | Execute Package,Field_Execute,Field_Number 0x1f 02fc 6808 |h | Jump_Zero 0x305 02fd e5ff | | Load 0x2,-0x1 02fe 8275 | u | Call 0x1,0x75 02ff 6805 |h | Jump_Zero 0x305 0300 e5fc | | Load 0x2,-0x4 0301 e5fe | | Load 0x2,-0x2 0302 e5ff | | Load 0x2,-0x1 0303 8274 | t | Call 0x1,0x74 0304 c5fc | | Store 0x2,-0x4 0305 4802 |H | Short_Literal 0x2 0306 e5ff | | Load 0x2,-0x1 0307 0217 | | Execute Heap_Access,All_Reference 0308 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 0309 e00f | | Load 0x0,0xf 030a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 030b e5ff | | Load 0x2,-0x1 030c 0217 | | Execute Heap_Access,All_Reference 030d 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 030e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 030f 4802 |H | Short_Literal 0x2 0310 e5ff | | Load 0x2,-0x1 0311 0217 | | Execute Heap_Access,All_Reference 0312 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 0313 e00f | | Load 0x0,0xf 0314 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0315 e5ff | | Load 0x2,-0x1 0316 0217 | | Execute Heap_Access,All_Reference 0317 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 0318 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0319 TRAP_02a0: 0319 4885 |H | Short_Literal 0x85 031a 010f | | Execute Exception,Equal 031b 6811 |h | Jump_Zero 0x32d 031c e002 | | Load 0x0,0x2 031d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 031e 4801 |H | Short_Literal 0x1 031f 4801 |H | Short_Literal 0x1 0320 e005 | | Load 0x0,0x5 0321 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0322 0334 | 4 | Declare_Variable Array,With_Constraint 0323 e5ff | | Load 0x2,-0x1 0324 8210 | | Call 0x1,0x10 0325 4801 |H | Short_Literal 0x1 0326 00da | | Load_Top At_Offset_2 0327 01d6 | | Execute Vector,Field_Write 0328 6007 |` | Indirect_Literal Discrete,0x330,{0x00000000, 0x0000200e} 0329 e002 | | Load 0x0,0x2 032a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 032b c5fc | | Store 0x2,-0x4 032c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 032d 0100 | | Execute Exception,Raise 032e 0000 0000 | | .XXX[0x2] 0330 0000 0000 | | .LITERAL {0x00000000, 0x0000200e} 0334 0000 0000 | | .BLANK 0000[0x4] 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 033b | ; | .CONST 0x033b ; Address of begin 0339 0004 | | .CONST 0x0004 ; Address of exception handler 033a 0001 | | .CONST 0x0001 ; Number of locals 033b BODY_0338: 033b INIT_0338: 033b 00cf | | Action Mark_Auxiliary 033c 00db | | Load_Top At_Offset_3 033d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 033e 4801 |H | Short_Literal 0x1 033f 0263 | c | Execute Discrete,Above_Bound 0340 700b |p | Jump_Nonzero 0x34c 0341 e5fc | | Load 0x2,-0x4 0342 e5fd | | Load 0x2,-0x3 0343 e5fe | | Load 0x2,-0x2 0344 00db | | Load_Top At_Offset_3 0345 e5ff | | Load 0x2,-0x1 0346 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0347 01d7 | | Execute Vector,Field_Read 0348 825a | Z | Call 0x1,0x5a 0349 c5fc | | Store 0x2,-0x4 034a 00c8 | | Action Pop_Auxiliary_Range 034b 3ff5 |? | Loop_Increasing 0x341 034c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 034d 0000 0000 | | .XXX[0x3] 034f 0000 | | 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0353 | S | .CONST 0x0353 ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0001 | | .CONST 0x0001 ; Number of locals 0353 BODY_0350: 0353 INIT_0350: 0353 00da | | Load_Top At_Offset_2 0354 6804 |h | Jump_Zero 0x359 0355 00da | | Load_Top At_Offset_2 0356 0217 | | Execute Heap_Access,All_Reference 0357 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0358 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0359 4800 |H | Short_Literal 0x0 035a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 035b 0000 0000 | | .BLANK 0000[0x5] 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 00db | | Load_Top At_Offset_3 0364 00db | | Load_Top At_Offset_3 0365 0217 | | Execute Heap_Access,All_Reference 0366 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0367 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 036b | k | .CONST 0x036b ; Address of begin 0369 0004 | | .CONST 0x0004 ; Address of exception handler 036a 0001 | | .CONST 0x0001 ; Number of locals 036b BODY_0368: 036b INIT_0368: 036b 00da | | Load_Top At_Offset_2 036c 6806 |h | Jump_Zero 0x373 036d 00da | | Load_Top At_Offset_2 036e 0217 | | Execute Heap_Access,All_Reference 036f 3c11 |< | Execute Record,Field_Read,Field_Number 0x11 0370 e5fe | | Load 0x2,-0x2 0371 027b | { | Execute Discrete,Greater_Equal 0372 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0373 4800 |H | Short_Literal 0x0 0374 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0375 0000 0000 | | .XXX[0x3] 0377 0000 | | 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 00db | | Load_Top At_Offset_3 037c 00db | | Load_Top At_Offset_3 037d 824e | N | Call 0x1,0x4e 037e 6809 |h | Jump_Zero 0x388 037f 00da | | Load_Top At_Offset_2 0380 0217 | | Execute Heap_Access,All_Reference 0381 3c10 |< | Execute Record,Field_Read,Field_Number 0x10 0382 00d8 | | Load_Top At_Offset_0 0383 0120 | | Execute Any,Is_Value 0384 7002 |p | Jump_Nonzero 0x387 0385 00d8 | | Load_Top At_Offset_0 0386 011e | | Execute Any,Convert 0387 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0388 e004 | | Load 0x0,0x4 0389 180f | | Execute Package,Field_Execute,Field_Number 0xf 038a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 038b 0000 0000 | | .BLANK 0000[0x5] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0393 | | .CONST 0x0393 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0001 | | .CONST 0x0001 ; Number of locals 0393 BODY_0390: 0393 INIT_0390: 0393 00da | | Load_Top At_Offset_2 0394 6806 |h | Jump_Zero 0x39b 0395 00da | | Load_Top At_Offset_2 0396 0217 | | Execute Heap_Access,All_Reference 0397 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 0398 e010 | | Load 0x0,0x10 0399 1812 | | Execute Package,Field_Execute,Field_Number 0x12 039a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 039b 00ea | | Load_Encached Null_String_Cache 039c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 039d 0000 0000 | | .XXX[0x3] 039f 0000 | | 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03af | | .CONST 0x03af ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0003 | | .CONST 0x0003 ; Number of locals 03a3 INIT_03a0: 03a3 00da | | Load_Top At_Offset_2 03a4 0217 | | Execute Heap_Access,All_Reference 03a5 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 03a6 e010 | | Load 0x0,0x10 03a7 1812 | | Execute Package,Field_Execute,Field_Number 0x12 03a8 4800 |H | Short_Literal 0x0 03a9 00d9 | | Load_Top At_Offset_1 03aa 4827 |H' | Short_Literal 0x27 03ab e012 | | Load 0x0,0x12 03ac 1820 | | Execute Package,Field_Execute,Field_Number 0x20 03ad 00e2 | | Load_Encached Integer_Cache 03ae 03f1 | | Declare_Variable Discrete,With_Value 03af BODY_03a0: 03af 00d8 | | Load_Top At_Offset_0 03b0 680e |h | Jump_Zero 0x3bf 03b1 e5ff | | Load 0x2,-0x1 03b2 0217 | | Execute Heap_Access,All_Reference 03b3 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 03b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03b5 e003 | | Load 0x0,0x3 03b6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03b7 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 03b8 00d9 | | Load_Top At_Offset_1 03b9 00db | | Load_Top At_Offset_3 03ba 01dc | | Execute Vector,Last 03bb e402 | | Load 0x2,0x2 03bc 01cf | | Execute Vector,Slice_Read 03bd 01cc | | Execute Vector,Catenate 03be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03bf e5ff | | Load 0x2,-0x1 03c0 0217 | | Execute Heap_Access,All_Reference 03c1 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 03c2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03c3 e003 | | Load 0x0,0x3 03c4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 03c5 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 03c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03c7 0000 | | .XXX[0x1] 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; -------------------------------------------------------------------------------------- 03c8 03cf | | .CONST 0x03cf ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0003 | | .CONST 0x0003 ; Number of locals 03cb INIT_03c8: 03cb 00da | | Load_Top At_Offset_2 03cc 821c | | Call 0x1,0x1c 03cd 00db | | Load_Top At_Offset_3 03ce 821d | | Call 0x1,0x1d 03cf BODY_03c8: 03cf 00d9 | | Load_Top At_Offset_1 03d0 01dd | | Execute Vector,First 03d1 00da | | Load_Top At_Offset_2 03d2 01dc | | Execute Vector,Last 03d3 00da | | Load_Top At_Offset_2 03d4 01db | | Execute Vector,Length 03d5 0272 | r | Execute Discrete,Minus 03d6 0aff | | Execute_Immediate Plus,-0x1 03d7 00d8 | | Load_Top At_Offset_0 03d8 00e2 | | Load_Encached Integer_Cache 03d9 0260 | ` | Execute Discrete,In_Type 03da 7001 |p | Jump_Nonzero 0x3dc 03db 0801 | | Execute_Immediate Raise,0x1 03dc 00db | | Load_Top At_Offset_3 03dd 01cf | | Execute Vector,Slice_Read 03de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03df 0000 | | .XXX[0x1] 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03e3 | | .CONST 0x03e3 ; Address of begin 03e1 0004 | | .CONST 0x0004 ; Address of exception handler 03e2 0001 | | .CONST 0x0001 ; Number of locals 03e3 BODY_03e0: 03e3 INIT_03e0: 03e3 00da | | Load_Top At_Offset_2 03e4 680b |h | Jump_Zero 0x3f0 03e5 00da | | Load_Top At_Offset_2 03e6 0217 | | Execute Heap_Access,All_Reference 03e7 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 03e8 e001 | | Load 0x0,0x1 03e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03ea 00d9 | | Load_Top At_Offset_1 03eb 00d0 | | Action Swap_Control 03ec 0260 | ` | Execute Discrete,In_Type 03ed 7001 |p | Jump_Nonzero 0x3ef 03ee 0801 | | Execute_Immediate Raise,0x1 03ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03f0 4800 |H | Short_Literal 0x0 03f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03f2 0000 0000 | | .BLANK 0000[0x6] 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 03fb | | .CONST 0x03fb ; Address of begin 03f9 0004 | | .CONST 0x0004 ; Address of exception handler 03fa 0001 | | .CONST 0x0001 ; Number of locals 03fb BODY_03f8: 03fb INIT_03f8: 03fb 00db | | Load_Top At_Offset_3 03fc 00db | | Load_Top At_Offset_3 03fd 0217 | | Execute Heap_Access,All_Reference 03fe 380a |8 | Execute Record,Field_Write,Field_Number 0xa 03ff 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0400 ; -------------------------------------------------------------------------------------- 0400 ; SUBPROGRAM 0400 ; -------------------------------------------------------------------------------------- 0400 0403 | | .CONST 0x0403 ; Address of begin 0401 0004 | | .CONST 0x0004 ; Address of exception handler 0402 0001 | | .CONST 0x0001 ; Number of locals 0403 BODY_0400: 0403 INIT_0400: 0403 00da | | Load_Top At_Offset_2 0404 6804 |h | Jump_Zero 0x409 0405 00da | | Load_Top At_Offset_2 0406 0217 | | Execute Heap_Access,All_Reference 0407 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0408 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0409 4800 |H | Short_Literal 0x0 040a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 040b 0000 0000 | | .BLANK 0000[0x5] 0410 ; -------------------------------------------------------------------------------------- 0410 ; SUBPROGRAM 0410 ; -------------------------------------------------------------------------------------- 0410 0417 | | .CONST 0x0417 ; Address of begin 0411 0004 | | .CONST 0x0004 ; Address of exception handler 0412 0002 | | .CONST 0x0002 ; Number of locals 0413 INIT_0410: 0413 e00e | | Load 0x0,0xe 0414 0322 | " | Declare_Variable Record 0415 00d8 | | Load_Top At_Offset_0 0416 1c00 | | Execute_Immediate Run_Utility,0x0 0417 BODY_0410: 0417 00db | | Load_Top At_Offset_3 0418 0217 | | Execute Heap_Access,All_Reference 0419 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 041a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 041b e003 | | Load 0x0,0x3 041c 181f | | Execute Package,Field_Execute,Field_Number 0x1f 041d 680a |h | Jump_Zero 0x428 041e e5fd | | Load 0x2,-0x3 041f 00d9 | | Load_Top At_Offset_1 0420 e5ff | | Load 0x2,-0x1 0421 8260 | ` | Call 0x1,0x60 0422 00d1 | | Pop_Control Pop_Count_1 0423 c5fd | | Store 0x2,-0x3 0424 00d8 | | Load_Top At_Offset_0 0425 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0426 c5fe | | Store 0x2,-0x2 0427 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0428 00db | | Load_Top At_Offset_3 0429 0217 | | Execute Heap_Access,All_Reference 042a 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 042b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 042c c5fe | | Store 0x2,-0x2 042d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 042e 0000 0000 | | .XXX[0x2] 0430 ; -------------------------------------------------------------------------------------- 0430 ; SUBPROGRAM 0430 ; -------------------------------------------------------------------------------------- 0430 0437 | 7 | .CONST 0x0437 ; Address of begin 0431 0004 | | .CONST 0x0004 ; Address of exception handler 0432 0002 | | .CONST 0x0002 ; Number of locals 0433 INIT_0430: 0433 e00e | | Load 0x0,0xe 0434 0322 | " | Declare_Variable Record 0435 00d8 | | Load_Top At_Offset_0 0436 1c00 | | Execute_Immediate Run_Utility,0x0 0437 BODY_0430: 0437 00db | | Load_Top At_Offset_3 0438 0217 | | Execute Heap_Access,All_Reference 0439 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 043a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 043b e003 | | Load 0x0,0x3 043c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 043d 680a |h | Jump_Zero 0x448 043e e5fd | | Load 0x2,-0x3 043f 00d9 | | Load_Top At_Offset_1 0440 e5ff | | Load 0x2,-0x1 0441 8260 | ` | Call 0x1,0x60 0442 00d1 | | Pop_Control Pop_Count_1 0443 c5fd | | Store 0x2,-0x3 0444 00d8 | | Load_Top At_Offset_0 0445 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0446 a5fe | | Store_Unchecked 0x2,-0x2 0447 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0448 00db | | Load_Top At_Offset_3 0449 0217 | | Execute Heap_Access,All_Reference 044a 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 044b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 044c a5fe | | Store_Unchecked 0x2,-0x2 044d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 044e 0000 0000 | | .XXX[0x2] 0450 ; -------------------------------------------------------------------------------------- 0450 ; SUBPROGRAM 0450 ; -------------------------------------------------------------------------------------- 0450 045a | Z | .CONST 0x045a ; Address of begin 0451 046d | m | .CONST 0x046d ; Address of exception handler 0452 0003 | | .CONST 0x0003 ; Number of locals 0453 INIT_0450: 0453 e003 | | Load 0x0,0x3 0454 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0455 02c7 | | Declare_Variable Any 0456 00d8 | | Load_Top At_Offset_0 0457 1c00 | | Execute_Immediate Run_Utility,0x0 0458 029f 1043 | C| Declare_Subprogram INIT_1040,For_Call 045a BODY_0450: 045a e5ff | | Load 0x2,-0x1 045b 0217 | | Execute Heap_Access,All_Reference 045c 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 045d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 045e e003 | | Load 0x0,0x3 045f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0460 6806 |h | Jump_Zero 0x467 0461 8403 | | Call 0x2,0x3 0462 00d9 | | Load_Top At_Offset_1 0463 e5ff | | Load 0x2,-0x1 0464 0217 | | Execute Heap_Access,All_Reference 0465 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 0466 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0467 e5ff | | Load 0x2,-0x1 0468 0217 | | Execute Heap_Access,All_Reference 0469 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 046a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 046b c5fe | | Store 0x2,-0x2 046c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 046d TRAP_0450: 046d 4885 |H | Short_Literal 0x85 046e 010f | | Execute Exception,Equal 046f 6806 |h | Jump_Zero 0x476 0470 e5ff | | Load 0x2,-0x1 0471 0217 | | Execute Heap_Access,All_Reference 0472 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 0473 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0474 c5fe | | Store 0x2,-0x2 0475 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0476 0100 | | Execute Exception,Raise 0477 0000 | | .XXX[0x1] 0478 ; -------------------------------------------------------------------------------------- 0478 ; SUBPROGRAM 0478 ; -------------------------------------------------------------------------------------- 0478 047f | | .CONST 0x047f ; Address of begin 0479 0004 | | .CONST 0x0004 ; Address of exception handler 047a 0002 | | .CONST 0x0002 ; Number of locals 047b INIT_0478: 047b e00e | | Load 0x0,0xe 047c 0322 | " | Declare_Variable Record 047d 00d8 | | Load_Top At_Offset_0 047e 1c00 | | Execute_Immediate Run_Utility,0x0 047f BODY_0478: 047f e5fd | | Load 0x2,-0x3 0480 00d9 | | Load_Top At_Offset_1 0481 e5ff | | Load 0x2,-0x1 0482 8260 | ` | Call 0x1,0x60 0483 00d1 | | Pop_Control Pop_Count_1 0484 c5fd | | Store 0x2,-0x3 0485 00d8 | | Load_Top At_Offset_0 0486 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0487 e5fe | | Load 0x2,-0x2 0488 016d | m | Execute Variant_Record,Structure_Write 0489 4502 |E | Exit_Suprogram New_Top_Offset 0x2 048a 0000 0000 | | .BLANK 0000[0x6] 0490 ; -------------------------------------------------------------------------------------- 0490 ; SUBPROGRAM 0490 ; -------------------------------------------------------------------------------------- 0490 049a | | .CONST 0x049a ; Address of begin 0491 0004 | | .CONST 0x0004 ; Address of exception handler 0492 0003 | | .CONST 0x0003 ; Number of locals 0493 INIT_0490: 0493 e003 | | Load 0x0,0x3 0494 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0495 e003 | | Load 0x0,0x3 0496 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0497 02c7 | | Declare_Variable Any 0498 00d8 | | Load_Top At_Offset_0 0499 1c00 | | Execute_Immediate Run_Utility,0x0 049a BODY_0490: 049a e5fd | | Load 0x2,-0x3 049b 00d9 | | Load_Top At_Offset_1 049c 0120 | | Execute Any,Is_Value 049d 6803 |h | Jump_Zero 0x4a1 049e e003 | | Load 0x0,0x3 049f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04a0 7801 |x | Jump 0x4a2 04a1 00d9 | | Load_Top At_Offset_1 04a2 e5ff | | Load 0x2,-0x1 04a3 8224 | $ | Call 0x1,0x24 04a4 c403 | | Store 0x2,0x3 04a5 c5fd | | Store 0x2,-0x3 04a6 e5fd | | Load 0x2,-0x3 04a7 7026 |p& | Jump_Nonzero 0x4ce 04a8 e003 | | Load 0x0,0x3 04a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04aa e5fe | | Load 0x2,-0x2 04ab 0120 | | Execute Any,Is_Value 04ac 6803 |h | Jump_Zero 0x4b0 04ad e003 | | Load 0x0,0x3 04ae 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04af 7801 |x | Jump 0x4b1 04b0 e5fe | | Load 0x2,-0x2 04b1 6022 |`" | Indirect_Literal Discrete,0x4d4,{0x00000000, 0x00004000} 04b2 e013 | | Load 0x0,0x13 04b3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04b4 4800 |H | Short_Literal 0x0 04b5 e403 | | Load 0x2,0x3 04b6 e003 | | Load 0x0,0x3 04b7 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 04b8 1819 | | Execute Package,Field_Execute,Field_Number 0x19 04b9 c5fe | | Store 0x2,-0x2 04ba 005a | Z | Store_Top Discrete,At_Offset_2 04bb 00d9 | | Load_Top At_Offset_1 04bc 6811 |h | Jump_Zero 0x4ce 04bd e002 | | Load 0x0,0x2 04be 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04bf 4801 |H | Short_Literal 0x1 04c0 4801 |H | Short_Literal 0x1 04c1 e005 | | Load 0x0,0x5 04c2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04c3 0334 | 4 | Declare_Variable Array,With_Constraint 04c4 00da | | Load_Top At_Offset_2 04c5 e005 | | Load 0x0,0x5 04c6 181a | | Execute Package,Field_Execute,Field_Number 0x1a 04c7 4801 |H | Short_Literal 0x1 04c8 00da | | Load_Top At_Offset_2 04c9 01d6 | | Execute Vector,Field_Write 04ca 6005 |` | Indirect_Literal Discrete,0x4d0,{0x00000000, 0x00002001} 04cb e002 | | Load 0x0,0x2 04cc 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 04cd c5fd | | Store 0x2,-0x3 04ce 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04cf 0000 | | .XXX[0x1] 04d0 0000 0000 | | .LITERAL {0x00000000, 0x00002001} 04d4 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; SUBPROGRAM 04d8 ; -------------------------------------------------------------------------------------- 04d8 04db | | .CONST 0x04db ; Address of begin 04d9 0004 | | .CONST 0x0004 ; Address of exception handler 04da 0001 | | .CONST 0x0001 ; Number of locals 04db BODY_04d8: 04db INIT_04d8: 04db 00da | | Load_Top At_Offset_2 04dc 6804 |h | Jump_Zero 0x4e1 04dd 00da | | Load_Top At_Offset_2 04de 0217 | | Execute Heap_Access,All_Reference 04df 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 04e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04e1 4800 |H | Short_Literal 0x0 04e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04e3 0000 0000 | | .BLANK 0000[0x5] 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; SUBPROGRAM 04e8 ; -------------------------------------------------------------------------------------- 04e8 04eb | | .CONST 0x04eb ; Address of begin 04e9 0004 | | .CONST 0x0004 ; Address of exception handler 04ea 0001 | | .CONST 0x0001 ; Number of locals 04eb BODY_04e8: 04eb INIT_04e8: 04eb 00db | | Load_Top At_Offset_3 04ec 00db | | Load_Top At_Offset_3 04ed 0217 | | Execute Heap_Access,All_Reference 04ee 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 04ef 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 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 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 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 6806 |h | Jump_Zero 0x513 050d 00da | | Load_Top At_Offset_2 050e 0217 | | Execute Heap_Access,All_Reference 050f 3c0c |< | Execute Record,Field_Read,Field_Number 0xc 0510 e010 | | Load 0x0,0x10 0511 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0512 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0513 00ea | | Load_Encached Null_String_Cache 0514 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0515 0000 0000 | | .XXX[0x3] 0517 0000 | | 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 00da | | Load_Top At_Offset_2 051c 825f | _ | Call 0x1,0x5f 051d e5fe | | Load 0x2,-0x2 051e e010 | | Load 0x0,0x10 051f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0520 00db | | Load_Top At_Offset_3 0521 0217 | | Execute Heap_Access,All_Reference 0522 380c |8 | Execute Record,Field_Write,Field_Number 0xc 0523 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0524 0000 0000 | | .BLANK 0000[0x4] 0528 ; -------------------------------------------------------------------------------------- 0528 ; SUBPROGRAM 0528 ; -------------------------------------------------------------------------------------- 0528 0530 | 0 | .CONST 0x0530 ; Address of begin 0529 0004 | | .CONST 0x0004 ; Address of exception handler 052a 0003 | | .CONST 0x0003 ; Number of locals 052b INIT_0528: 052b e00d | | Load 0x0,0xd 052c 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 052d e002 | | Load 0x0,0x2 052e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 052f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0530 BODY_0528: 0530 00d8 | | Load_Top At_Offset_0 0531 e00d | | Load 0x0,0xd 0532 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0533 4800 |H | Short_Literal 0x0 0534 e5fe | | Load 0x2,-0x2 0535 e5ff | | Load 0x2,-0x1 0536 8276 | v | Call 0x1,0x76 0537 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0538 0059 | Y | Store_Top Discrete,At_Offset_1 0539 00d8 | | Load_Top At_Offset_0 053a 7006 |p | Jump_Nonzero 0x541 053b 00d9 | | Load_Top At_Offset_1 053c 0217 | | Execute Heap_Access,All_Reference 053d 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 053e e010 | | Load 0x0,0x10 053f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0540 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0541 00d8 | | Load_Top At_Offset_0 0542 6019 |` | Indirect_Literal Discrete,0x55c,{0x00000000, 0x00002009} 0543 027f | | Execute Discrete,Equal 0544 6802 |h | Jump_Zero 0x547 0545 00ea | | Load_Encached Null_String_Cache 0546 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0547 4801 |H | Short_Literal 0x1 0548 4802 |H | Short_Literal 0x2 0549 e005 | | Load 0x0,0x5 054a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 054b 0334 | 4 | Declare_Variable Array,With_Constraint 054c e5ff | | Load 0x2,-0x1 054d 8210 | | Call 0x1,0x10 054e 4801 |H | Short_Literal 0x1 054f 00da | | Load_Top At_Offset_2 0550 01d6 | | Execute Vector,Field_Write 0551 e5fe | | Load 0x2,-0x2 0552 e014 | | Load 0x0,0x14 0553 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0554 4802 |H | Short_Literal 0x2 0555 00da | | Load_Top At_Offset_2 0556 01d6 | | Execute Vector,Field_Write 0557 00d9 | | Load_Top At_Offset_1 0558 e002 | | Load 0x0,0x2 0559 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 055a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 055b 0000 | | .XXX[0x1] 055c 0000 0000 | | .LITERAL {0x00000000, 0x00002009} 0560 ; -------------------------------------------------------------------------------------- 0560 ; SUBPROGRAM 0560 ; -------------------------------------------------------------------------------------- 0560 0568 | h | .CONST 0x0568 ; Address of begin 0561 0004 | | .CONST 0x0004 ; Address of exception handler 0562 0003 | | .CONST 0x0003 ; Number of locals 0563 INIT_0560: 0563 e00d | | Load 0x0,0xd 0564 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0565 e002 | | Load 0x0,0x2 0566 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0567 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0568 BODY_0560: 0568 00d8 | | Load_Top At_Offset_0 0569 e00d | | Load 0x0,0xd 056a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 056b 4801 |H | Short_Literal 0x1 056c e5fd | | Load 0x2,-0x3 056d e5ff | | Load 0x2,-0x1 056e 8276 | v | Call 0x1,0x76 056f 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0570 0059 | Y | Store_Top Discrete,At_Offset_1 0571 00d8 | | Load_Top At_Offset_0 0572 7009 |p | Jump_Nonzero 0x57c 0573 e5ff | | Load 0x2,-0x1 0574 825f | _ | Call 0x1,0x5f 0575 e5fe | | Load 0x2,-0x2 0576 e010 | | Load 0x0,0x10 0577 180f | | Execute Package,Field_Execute,Field_Number 0xf 0578 00da | | Load_Top At_Offset_2 0579 0217 | | Execute Heap_Access,All_Reference 057a 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 057b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 057c e002 | | Load 0x0,0x2 057d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 057e 4801 |H | Short_Literal 0x1 057f 4802 |H | Short_Literal 0x2 0580 e005 | | Load 0x0,0x5 0581 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0582 0334 | 4 | Declare_Variable Array,With_Constraint 0583 e5ff | | Load 0x2,-0x1 0584 8210 | | Call 0x1,0x10 0585 4801 |H | Short_Literal 0x1 0586 00da | | Load_Top At_Offset_2 0587 01d6 | | Execute Vector,Field_Write 0588 e5fd | | Load 0x2,-0x3 0589 e014 | | Load 0x0,0x14 058a 181c | | Execute Package,Field_Execute,Field_Number 0x1c 058b 4802 |H | Short_Literal 0x2 058c 00da | | Load_Top At_Offset_2 058d 01d6 | | Execute Vector,Field_Write 058e 00da | | Load_Top At_Offset_2 058f e002 | | Load 0x0,0x2 0590 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0591 c5fc | | Store 0x2,-0x4 0592 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0593 0000 0000 | | .BLANK 0000[0x5] 0598 ; -------------------------------------------------------------------------------------- 0598 ; SUBPROGRAM 0598 ; -------------------------------------------------------------------------------------- 0598 05a0 | | .CONST 0x05a0 ; Address of begin 0599 0004 | | .CONST 0x0004 ; Address of exception handler 059a 0003 | | .CONST 0x0003 ; Number of locals 059b INIT_0598: 059b e00d | | Load 0x0,0xd 059c 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 059d e002 | | Load 0x0,0x2 059e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 059f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 05a0 BODY_0598: 05a0 00d8 | | Load_Top At_Offset_0 05a1 e00d | | Load 0x0,0xd 05a2 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 05a3 4800 |H | Short_Literal 0x0 05a4 e5fe | | Load 0x2,-0x2 05a5 e5ff | | Load 0x2,-0x1 05a6 8276 | v | Call 0x1,0x76 05a7 0033 | 3 | Store_Top Heap_Access,At_Offset_3 05a8 0059 | Y | Store_Top Discrete,At_Offset_1 05a9 00d8 | | Load_Top At_Offset_0 05aa 7004 |p | Jump_Nonzero 0x5af 05ab 00d9 | | Load_Top At_Offset_1 05ac 0217 | | Execute Heap_Access,All_Reference 05ad 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 05ae 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05af 00d8 | | Load_Top At_Offset_0 05b0 601b |` | Indirect_Literal Discrete,0x5cc,{0x00000000, 0x00002009} 05b1 027f | | Execute Discrete,Equal 05b2 6802 |h | Jump_Zero 0x5b5 05b3 4800 |H | Short_Literal 0x0 05b4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05b5 4801 |H | Short_Literal 0x1 05b6 4802 |H | Short_Literal 0x2 05b7 e005 | | Load 0x0,0x5 05b8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05b9 0334 | 4 | Declare_Variable Array,With_Constraint 05ba e5ff | | Load 0x2,-0x1 05bb 8210 | | Call 0x1,0x10 05bc 4801 |H | Short_Literal 0x1 05bd 00da | | Load_Top At_Offset_2 05be 01d6 | | Execute Vector,Field_Write 05bf e5fe | | Load 0x2,-0x2 05c0 e014 | | Load 0x0,0x14 05c1 181c | | Execute Package,Field_Execute,Field_Number 0x1c 05c2 4802 |H | Short_Literal 0x2 05c3 00da | | Load_Top At_Offset_2 05c4 01d6 | | Execute Vector,Field_Write 05c5 00d9 | | Load_Top At_Offset_1 05c6 e002 | | Load 0x0,0x2 05c7 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 05c8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05c9 0000 0000 | | .XXX[0x3] 05cb 0000 | | 05cc 0000 0000 | | .LITERAL {0x00000000, 0x00002009} 05d0 ; -------------------------------------------------------------------------------------- 05d0 ; SUBPROGRAM 05d0 ; -------------------------------------------------------------------------------------- 05d0 05d8 | | .CONST 0x05d8 ; Address of begin 05d1 0004 | | .CONST 0x0004 ; Address of exception handler 05d2 0003 | | .CONST 0x0003 ; Number of locals 05d3 INIT_05d0: 05d3 e002 | | Load 0x0,0x2 05d4 1b10 | | Execute Package,Field_Read,Field_Number 0x10 05d5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 05d6 e00d | | Load 0x0,0xd 05d7 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 05d8 BODY_05d0: 05d8 00d9 | | Load_Top At_Offset_1 05d9 e00d | | Load 0x0,0xd 05da 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 05db 4801 |H | Short_Literal 0x1 05dc e5fd | | Load 0x2,-0x3 05dd e5ff | | Load 0x2,-0x1 05de 8276 | v | Call 0x1,0x76 05df 0032 | 2 | Store_Top Heap_Access,At_Offset_2 05e0 005a | Z | Store_Top Discrete,At_Offset_2 05e1 00d9 | | Load_Top At_Offset_1 05e2 7005 |p | Jump_Nonzero 0x5e8 05e3 e5fe | | Load 0x2,-0x2 05e4 00d9 | | Load_Top At_Offset_1 05e5 0217 | | Execute Heap_Access,All_Reference 05e6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 05e7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 05e8 e002 | | Load 0x0,0x2 05e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05ea 4801 |H | Short_Literal 0x1 05eb 4802 |H | Short_Literal 0x2 05ec e005 | | Load 0x0,0x5 05ed 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05ee 0334 | 4 | Declare_Variable Array,With_Constraint 05ef e5ff | | Load 0x2,-0x1 05f0 8210 | | Call 0x1,0x10 05f1 4801 |H | Short_Literal 0x1 05f2 00da | | Load_Top At_Offset_2 05f3 01d6 | | Execute Vector,Field_Write 05f4 e5fd | | Load 0x2,-0x3 05f5 e014 | | Load 0x0,0x14 05f6 181c | | Execute Package,Field_Execute,Field_Number 0x1c 05f7 4802 |H | Short_Literal 0x2 05f8 00da | | Load_Top At_Offset_2 05f9 01d6 | | Execute Vector,Field_Write 05fa 00db | | Load_Top At_Offset_3 05fb e002 | | Load 0x0,0x2 05fc 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 05fd c5fc | | Store 0x2,-0x4 05fe 4504 |E | Exit_Suprogram New_Top_Offset 0x4 05ff 0000 | | .XXX[0x1] 0600 ; -------------------------------------------------------------------------------------- 0600 ; SUBPROGRAM 0600 ; -------------------------------------------------------------------------------------- 0600 0608 | | .CONST 0x0608 ; Address of begin 0601 0004 | | .CONST 0x0004 ; Address of exception handler 0602 0003 | | .CONST 0x0003 ; Number of locals 0603 INIT_0600: 0603 e00d | | Load 0x0,0xd 0604 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0605 e002 | | Load 0x0,0x2 0606 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0607 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0608 BODY_0600: 0608 00d8 | | Load_Top At_Offset_0 0609 e00d | | Load 0x0,0xd 060a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 060b 4800 |H | Short_Literal 0x0 060c e5fe | | Load 0x2,-0x2 060d e5ff | | Load 0x2,-0x1 060e 8276 | v | Call 0x1,0x76 060f 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0610 0059 | Y | Store_Top Discrete,At_Offset_1 0611 00d8 | | Load_Top At_Offset_0 0612 7004 |p | Jump_Nonzero 0x617 0613 00d9 | | Load_Top At_Offset_1 0614 0217 | | Execute Heap_Access,All_Reference 0615 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0616 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0617 00d8 | | Load_Top At_Offset_0 0618 601b |` | Indirect_Literal Discrete,0x634,{0x00000000, 0x00002009} 0619 027f | | Execute Discrete,Equal 061a 6802 |h | Jump_Zero 0x61d 061b 4800 |H | Short_Literal 0x0 061c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 061d 4801 |H | Short_Literal 0x1 061e 4802 |H | Short_Literal 0x2 061f e005 | | Load 0x0,0x5 0620 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0621 0334 | 4 | Declare_Variable Array,With_Constraint 0622 e5ff | | Load 0x2,-0x1 0623 8210 | | Call 0x1,0x10 0624 4801 |H | Short_Literal 0x1 0625 00da | | Load_Top At_Offset_2 0626 01d6 | | Execute Vector,Field_Write 0627 e5fe | | Load 0x2,-0x2 0628 e014 | | Load 0x0,0x14 0629 181c | | Execute Package,Field_Execute,Field_Number 0x1c 062a 4802 |H | Short_Literal 0x2 062b 00da | | Load_Top At_Offset_2 062c 01d6 | | Execute Vector,Field_Write 062d 00d9 | | Load_Top At_Offset_1 062e e002 | | Load 0x0,0x2 062f 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0630 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0631 0000 0000 | | .XXX[0x3] 0633 0000 | | 0634 0000 0000 | | .LITERAL {0x00000000, 0x00002009} 0638 ; -------------------------------------------------------------------------------------- 0638 ; SUBPROGRAM 0638 ; -------------------------------------------------------------------------------------- 0638 0640 | @ | .CONST 0x0640 ; Address of begin 0639 0004 | | .CONST 0x0004 ; Address of exception handler 063a 0003 | | .CONST 0x0003 ; Number of locals 063b INIT_0638: 063b e002 | | Load 0x0,0x2 063c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 063d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 063e e00d | | Load 0x0,0xd 063f 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0640 BODY_0638: 0640 00d9 | | Load_Top At_Offset_1 0641 e00d | | Load 0x0,0xd 0642 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0643 4801 |H | Short_Literal 0x1 0644 e5fd | | Load 0x2,-0x3 0645 e5ff | | Load 0x2,-0x1 0646 8276 | v | Call 0x1,0x76 0647 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0648 005a | Z | Store_Top Discrete,At_Offset_2 0649 00d9 | | Load_Top At_Offset_1 064a 7005 |p | Jump_Nonzero 0x650 064b e5fe | | Load 0x2,-0x2 064c 00d9 | | Load_Top At_Offset_1 064d 0217 | | Execute Heap_Access,All_Reference 064e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 064f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0650 e002 | | Load 0x0,0x2 0651 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0652 4801 |H | Short_Literal 0x1 0653 4802 |H | Short_Literal 0x2 0654 e005 | | Load 0x0,0x5 0655 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0656 0334 | 4 | Declare_Variable Array,With_Constraint 0657 e5ff | | Load 0x2,-0x1 0658 8210 | | Call 0x1,0x10 0659 4801 |H | Short_Literal 0x1 065a 00da | | Load_Top At_Offset_2 065b 01d6 | | Execute Vector,Field_Write 065c e5fd | | Load 0x2,-0x3 065d e014 | | Load 0x0,0x14 065e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 065f 4802 |H | Short_Literal 0x2 0660 00da | | Load_Top At_Offset_2 0661 01d6 | | Execute Vector,Field_Write 0662 00db | | Load_Top At_Offset_3 0663 e002 | | Load 0x0,0x2 0664 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0665 c5fc | | Store 0x2,-0x4 0666 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0667 0000 | | .XXX[0x1] 0668 ; -------------------------------------------------------------------------------------- 0668 ; SUBPROGRAM 0668 ; -------------------------------------------------------------------------------------- 0668 0670 | p | .CONST 0x0670 ; Address of begin 0669 0004 | | .CONST 0x0004 ; Address of exception handler 066a 0003 | | .CONST 0x0003 ; Number of locals 066b INIT_0668: 066b e00d | | Load 0x0,0xd 066c 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 066d e002 | | Load 0x0,0x2 066e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 066f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0670 BODY_0668: 0670 00d8 | | Load_Top At_Offset_0 0671 e00d | | Load 0x0,0xd 0672 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0673 4800 |H | Short_Literal 0x0 0674 e5fe | | Load 0x2,-0x2 0675 e5ff | | Load 0x2,-0x1 0676 8276 | v | Call 0x1,0x76 0677 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0678 0059 | Y | Store_Top Discrete,At_Offset_1 0679 00d8 | | Load_Top At_Offset_0 067a 7006 |p | Jump_Nonzero 0x681 067b 00d9 | | Load_Top At_Offset_1 067c 0217 | | Execute Heap_Access,All_Reference 067d 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 067e e010 | | Load 0x0,0x10 067f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0680 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0681 00d8 | | Load_Top At_Offset_0 0682 6019 |` | Indirect_Literal Discrete,0x69c,{0x00000000, 0x00002009} 0683 027f | | Execute Discrete,Equal 0684 6802 |h | Jump_Zero 0x687 0685 00ea | | Load_Encached Null_String_Cache 0686 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0687 4801 |H | Short_Literal 0x1 0688 4802 |H | Short_Literal 0x2 0689 e005 | | Load 0x0,0x5 068a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 068b 0334 | 4 | Declare_Variable Array,With_Constraint 068c e5ff | | Load 0x2,-0x1 068d 8210 | | Call 0x1,0x10 068e 4801 |H | Short_Literal 0x1 068f 00da | | Load_Top At_Offset_2 0690 01d6 | | Execute Vector,Field_Write 0691 e5fe | | Load 0x2,-0x2 0692 e014 | | Load 0x0,0x14 0693 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0694 4802 |H | Short_Literal 0x2 0695 00da | | Load_Top At_Offset_2 0696 01d6 | | Execute Vector,Field_Write 0697 00d9 | | Load_Top At_Offset_1 0698 e002 | | Load 0x0,0x2 0699 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 069a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 069b 0000 | | .XXX[0x1] 069c 0000 0000 | | .LITERAL {0x00000000, 0x00002009} 06a0 ; -------------------------------------------------------------------------------------- 06a0 ; SUBPROGRAM 06a0 ; -------------------------------------------------------------------------------------- 06a0 06a8 | | .CONST 0x06a8 ; Address of begin 06a1 0004 | | .CONST 0x0004 ; Address of exception handler 06a2 0003 | | .CONST 0x0003 ; Number of locals 06a3 INIT_06a0: 06a3 e002 | | Load 0x0,0x2 06a4 1b10 | | Execute Package,Field_Read,Field_Number 0x10 06a5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 06a6 e00d | | Load 0x0,0xd 06a7 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 06a8 BODY_06a0: 06a8 00d9 | | Load_Top At_Offset_1 06a9 e00d | | Load 0x0,0xd 06aa 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 06ab 4801 |H | Short_Literal 0x1 06ac e5fd | | Load 0x2,-0x3 06ad e5ff | | Load 0x2,-0x1 06ae 8276 | v | Call 0x1,0x76 06af 0032 | 2 | Store_Top Heap_Access,At_Offset_2 06b0 005a | Z | Store_Top Discrete,At_Offset_2 06b1 00d9 | | Load_Top At_Offset_1 06b2 701d |p | Jump_Nonzero 0x6d0 06b3 e5ff | | Load 0x2,-0x1 06b4 825f | _ | Call 0x1,0x5f 06b5 e5fe | | Load 0x2,-0x2 06b6 e010 | | Load 0x0,0x10 06b7 180f | | Execute Package,Field_Execute,Field_Number 0xf 06b8 00d9 | | Load_Top At_Offset_1 06b9 0217 | | Execute Heap_Access,All_Reference 06ba 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 06bb e5fe | | Load 0x2,-0x2 06bc 01db | | Execute Vector,Length 06bd 0e00 | | Execute_Immediate Not_Equal,0x0 06be 00d9 | | Load_Top At_Offset_1 06bf 0217 | | Execute Heap_Access,All_Reference 06c0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 06c1 0092 154c | L| Action Push_String_Extended,0x154c ; "Target name for " 06c3 e5ff | | Load 0x2,-0x1 06c4 821d | | Call 0x1,0x1d 06c5 01cc | | Execute Vector,Catenate 06c6 0092 154d | M| Action Push_String_Extended,0x154d ; " has been set to " 06c8 01cc | | Execute Vector,Catenate 06c9 e5fe | | Load 0x2,-0x2 06ca 01cc | | Execute Vector,Catenate 06cb 0092 154e | N| Action Push_String_Extended,0x154e ; "." 06cd 01cc | | Execute Vector,Catenate 06ce 8011 | | Call 0x0,0x11 06cf 4504 |E | Exit_Suprogram New_Top_Offset 0x4 06d0 e002 | | Load 0x0,0x2 06d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06d2 4801 |H | Short_Literal 0x1 06d3 4802 |H | Short_Literal 0x2 06d4 e005 | | Load 0x0,0x5 06d5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 06d6 0334 | 4 | Declare_Variable Array,With_Constraint 06d7 e5ff | | Load 0x2,-0x1 06d8 8210 | | Call 0x1,0x10 06d9 4801 |H | Short_Literal 0x1 06da 00da | | Load_Top At_Offset_2 06db 01d6 | | Execute Vector,Field_Write 06dc e5fd | | Load 0x2,-0x3 06dd e014 | | Load 0x0,0x14 06de 181c | | Execute Package,Field_Execute,Field_Number 0x1c 06df 4802 |H | Short_Literal 0x2 06e0 00da | | Load_Top At_Offset_2 06e1 01d6 | | Execute Vector,Field_Write 06e2 00db | | Load_Top At_Offset_3 06e3 e002 | | Load 0x0,0x2 06e4 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 06e5 c5fc | | Store 0x2,-0x4 06e6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 06e7 0000 | | .XXX[0x1] 06e8 ; -------------------------------------------------------------------------------------- 06e8 ; SUBPROGRAM 06e8 ; -------------------------------------------------------------------------------------- 06e8 06f0 | | .CONST 0x06f0 ; Address of begin 06e9 0004 | | .CONST 0x0004 ; Address of exception handler 06ea 0003 | | .CONST 0x0003 ; Number of locals 06eb INIT_06e8: 06eb e00d | | Load 0x0,0xd 06ec 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 06ed e002 | | Load 0x0,0x2 06ee 1b10 | | Execute Package,Field_Read,Field_Number 0x10 06ef 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 06f0 BODY_06e8: 06f0 00d8 | | Load_Top At_Offset_0 06f1 e00d | | Load 0x0,0xd 06f2 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 06f3 4800 |H | Short_Literal 0x0 06f4 e5fe | | Load 0x2,-0x2 06f5 e5ff | | Load 0x2,-0x1 06f6 8276 | v | Call 0x1,0x76 06f7 0033 | 3 | Store_Top Heap_Access,At_Offset_3 06f8 0059 | Y | Store_Top Discrete,At_Offset_1 06f9 00d8 | | Load_Top At_Offset_0 06fa 7004 |p | Jump_Nonzero 0x6ff 06fb 00d9 | | Load_Top At_Offset_1 06fc 0217 | | Execute Heap_Access,All_Reference 06fd 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 06fe 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06ff 00d8 | | Load_Top At_Offset_0 0700 601b |` | Indirect_Literal Discrete,0x71c,{0x00000000, 0x00002009} 0701 027f | | Execute Discrete,Equal 0702 6802 |h | Jump_Zero 0x705 0703 4800 |H | Short_Literal 0x0 0704 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0705 4801 |H | Short_Literal 0x1 0706 4802 |H | Short_Literal 0x2 0707 e005 | | Load 0x0,0x5 0708 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0709 0334 | 4 | Declare_Variable Array,With_Constraint 070a e5ff | | Load 0x2,-0x1 070b 8210 | | Call 0x1,0x10 070c 4801 |H | Short_Literal 0x1 070d 00da | | Load_Top At_Offset_2 070e 01d6 | | Execute Vector,Field_Write 070f e5fe | | Load 0x2,-0x2 0710 e014 | | Load 0x0,0x14 0711 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0712 4802 |H | Short_Literal 0x2 0713 00da | | Load_Top At_Offset_2 0714 01d6 | | Execute Vector,Field_Write 0715 00d9 | | Load_Top At_Offset_1 0716 e002 | | Load 0x0,0x2 0717 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0718 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0719 0000 0000 | | .XXX[0x3] 071b 0000 | | 071c 0000 0000 | | .LITERAL {0x00000000, 0x00002009} 0720 ; -------------------------------------------------------------------------------------- 0720 ; SUBPROGRAM 0720 ; -------------------------------------------------------------------------------------- 0720 0728 | ( | .CONST 0x0728 ; Address of begin 0721 0004 | | .CONST 0x0004 ; Address of exception handler 0722 0003 | | .CONST 0x0003 ; Number of locals 0723 INIT_0720: 0723 e002 | | Load 0x0,0x2 0724 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0725 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0726 e00d | | Load 0x0,0xd 0727 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0728 BODY_0720: 0728 00d9 | | Load_Top At_Offset_1 0729 e00d | | Load 0x0,0xd 072a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 072b 4801 |H | Short_Literal 0x1 072c e5fd | | Load 0x2,-0x3 072d e5ff | | Load 0x2,-0x1 072e 8276 | v | Call 0x1,0x76 072f 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0730 005a | Z | Store_Top Discrete,At_Offset_2 0731 00d9 | | Load_Top At_Offset_1 0732 7005 |p | Jump_Nonzero 0x738 0733 e5fe | | Load 0x2,-0x2 0734 00d9 | | Load_Top At_Offset_1 0735 0217 | | Execute Heap_Access,All_Reference 0736 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0737 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0738 e002 | | Load 0x0,0x2 0739 1b0d | | Execute Package,Field_Read,Field_Number 0xd 073a 4801 |H | Short_Literal 0x1 073b 4802 |H | Short_Literal 0x2 073c e005 | | Load 0x0,0x5 073d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 073e 0334 | 4 | Declare_Variable Array,With_Constraint 073f e5ff | | Load 0x2,-0x1 0740 8210 | | Call 0x1,0x10 0741 4801 |H | Short_Literal 0x1 0742 00da | | Load_Top At_Offset_2 0743 01d6 | | Execute Vector,Field_Write 0744 e5fd | | Load 0x2,-0x3 0745 e014 | | Load 0x0,0x14 0746 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0747 4802 |H | Short_Literal 0x2 0748 00da | | Load_Top At_Offset_2 0749 01d6 | | Execute Vector,Field_Write 074a 00db | | Load_Top At_Offset_3 074b e002 | | Load 0x0,0x2 074c 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 074d c5fc | | Store 0x2,-0x4 074e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 074f 0000 | | .XXX[0x1] 0750 ; -------------------------------------------------------------------------------------- 0750 ; SUBPROGRAM 0750 ; -------------------------------------------------------------------------------------- 0750 0758 | X | .CONST 0x0758 ; Address of begin 0751 0004 | | .CONST 0x0004 ; Address of exception handler 0752 0003 | | .CONST 0x0003 ; Number of locals 0753 INIT_0750: 0753 e00d | | Load 0x0,0xd 0754 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0755 e002 | | Load 0x0,0x2 0756 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0757 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0758 BODY_0750: 0758 00d8 | | Load_Top At_Offset_0 0759 e00d | | Load 0x0,0xd 075a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 075b 4800 |H | Short_Literal 0x0 075c e5fe | | Load 0x2,-0x2 075d e5ff | | Load 0x2,-0x1 075e 8276 | v | Call 0x1,0x76 075f 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0760 0059 | Y | Store_Top Discrete,At_Offset_1 0761 00d8 | | Load_Top At_Offset_0 0762 7009 |p | Jump_Nonzero 0x76c 0763 00d9 | | Load_Top At_Offset_1 0764 0217 | | Execute Heap_Access,All_Reference 0765 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 0766 00d8 | | Load_Top At_Offset_0 0767 0120 | | Execute Any,Is_Value 0768 7002 |p | Jump_Nonzero 0x76b 0769 00d8 | | Load_Top At_Offset_0 076a 011e | | Execute Any,Convert 076b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 076c 00d8 | | Load_Top At_Offset_0 076d 601a |` | Indirect_Literal Discrete,0x788,{0x00000000, 0x00002009} 076e 027f | | Execute Discrete,Equal 076f 6803 |h | Jump_Zero 0x773 0770 e004 | | Load 0x0,0x4 0771 180f | | Execute Package,Field_Execute,Field_Number 0xf 0772 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0773 4801 |H | Short_Literal 0x1 0774 4802 |H | Short_Literal 0x2 0775 e005 | | Load 0x0,0x5 0776 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0777 0334 | 4 | Declare_Variable Array,With_Constraint 0778 e5ff | | Load 0x2,-0x1 0779 8210 | | Call 0x1,0x10 077a 4801 |H | Short_Literal 0x1 077b 00da | | Load_Top At_Offset_2 077c 01d6 | | Execute Vector,Field_Write 077d e5fe | | Load 0x2,-0x2 077e e014 | | Load 0x0,0x14 077f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0780 4802 |H | Short_Literal 0x2 0781 00da | | Load_Top At_Offset_2 0782 01d6 | | Execute Vector,Field_Write 0783 00d9 | | Load_Top At_Offset_1 0784 e002 | | Load 0x0,0x2 0785 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0786 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0787 0000 | | .XXX[0x1] 0788 0000 0000 | | .LITERAL {0x00000000, 0x00002009} 078c 0000 0000 | | .BLANK 0000[0x4] 0790 ; -------------------------------------------------------------------------------------- 0790 ; SUBPROGRAM 0790 ; -------------------------------------------------------------------------------------- 0790 0798 | | .CONST 0x0798 ; Address of begin 0791 0004 | | .CONST 0x0004 ; Address of exception handler 0792 0003 | | .CONST 0x0003 ; Number of locals 0793 INIT_0790: 0793 e002 | | Load 0x0,0x2 0794 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0795 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0796 e00d | | Load 0x0,0xd 0797 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0798 BODY_0790: 0798 00d9 | | Load_Top At_Offset_1 0799 e00d | | Load 0x0,0xd 079a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 079b 4801 |H | Short_Literal 0x1 079c e5fc | | Load 0x2,-0x4 079d e5ff | | Load 0x2,-0x1 079e 8276 | v | Call 0x1,0x76 079f 0032 | 2 | Store_Top Heap_Access,At_Offset_2 07a0 005a | Z | Store_Top Discrete,At_Offset_2 07a1 00d9 | | Load_Top At_Offset_1 07a2 7005 |p | Jump_Nonzero 0x7a8 07a3 e5fe | | Load 0x2,-0x2 07a4 00d9 | | Load_Top At_Offset_1 07a5 0217 | | Execute Heap_Access,All_Reference 07a6 380a |8 | Execute Record,Field_Write,Field_Number 0xa 07a7 7816 |x | Jump 0x7be 07a8 e002 | | Load 0x0,0x2 07a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07aa 4801 |H | Short_Literal 0x1 07ab 4802 |H | Short_Literal 0x2 07ac e005 | | Load 0x0,0x5 07ad 1b0f | | Execute Package,Field_Read,Field_Number 0xf 07ae 0334 | 4 | Declare_Variable Array,With_Constraint 07af e5ff | | Load 0x2,-0x1 07b0 8210 | | Call 0x1,0x10 07b1 4801 |H | Short_Literal 0x1 07b2 00da | | Load_Top At_Offset_2 07b3 01d6 | | Execute Vector,Field_Write 07b4 e5fc | | Load 0x2,-0x4 07b5 e014 | | Load 0x0,0x14 07b6 181c | | Execute Package,Field_Execute,Field_Number 0x1c 07b7 4802 |H | Short_Literal 0x2 07b8 00da | | Load_Top At_Offset_2 07b9 01d6 | | Execute Vector,Field_Write 07ba 00db | | Load_Top At_Offset_3 07bb e002 | | Load 0x0,0x2 07bc 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 07bd c5fb | | Store 0x2,-0x5 07be e5fd | | Load 0x2,-0x3 07bf 6806 |h | Jump_Zero 0x7c6 07c0 e5ff | | Load 0x2,-0x1 07c1 0217 | | Execute Heap_Access,All_Reference 07c2 3c0e |< | Execute Record,Field_Read,Field_Number 0xe 07c3 00d9 | | Load_Top At_Offset_1 07c4 0217 | | Execute Heap_Access,All_Reference 07c5 380b |8 | Execute Record,Field_Write,Field_Number 0xb 07c6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 07c7 0000 | | .XXX[0x1] 07c8 ; -------------------------------------------------------------------------------------- 07c8 ; SUBPROGRAM 07c8 ; -------------------------------------------------------------------------------------- 07c8 07d0 | | .CONST 0x07d0 ; Address of begin 07c9 0004 | | .CONST 0x0004 ; Address of exception handler 07ca 0003 | | .CONST 0x0003 ; Number of locals 07cb INIT_07c8: 07cb e00d | | Load 0x0,0xd 07cc 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 07cd e002 | | Load 0x0,0x2 07ce 1b10 | | Execute Package,Field_Read,Field_Number 0x10 07cf 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 07d0 BODY_07c8: 07d0 00d8 | | Load_Top At_Offset_0 07d1 e00d | | Load 0x0,0xd 07d2 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 07d3 4800 |H | Short_Literal 0x0 07d4 e5fe | | Load 0x2,-0x2 07d5 e5ff | | Load 0x2,-0x1 07d6 8276 | v | Call 0x1,0x76 07d7 0033 | 3 | Store_Top Heap_Access,At_Offset_3 07d8 0059 | Y | Store_Top Discrete,At_Offset_1 07d9 00d8 | | Load_Top At_Offset_0 07da 7009 |p | Jump_Nonzero 0x7e4 07db 00d9 | | Load_Top At_Offset_1 07dc 0217 | | Execute Heap_Access,All_Reference 07dd 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 07de 00d8 | | Load_Top At_Offset_0 07df 0120 | | Execute Any,Is_Value 07e0 7002 |p | Jump_Nonzero 0x7e3 07e1 00d8 | | Load_Top At_Offset_0 07e2 011e | | Execute Any,Convert 07e3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07e4 00d8 | | Load_Top At_Offset_0 07e5 601a |` | Indirect_Literal Discrete,0x800,{0x00000000, 0x00002009} 07e6 027f | | Execute Discrete,Equal 07e7 6803 |h | Jump_Zero 0x7eb 07e8 e004 | | Load 0x0,0x4 07e9 180f | | Execute Package,Field_Execute,Field_Number 0xf 07ea 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07eb 4801 |H | Short_Literal 0x1 07ec 4802 |H | Short_Literal 0x2 07ed e005 | | Load 0x0,0x5 07ee 1b0f | | Execute Package,Field_Read,Field_Number 0xf 07ef 0334 | 4 | Declare_Variable Array,With_Constraint 07f0 e5ff | | Load 0x2,-0x1 07f1 8210 | | Call 0x1,0x10 07f2 4801 |H | Short_Literal 0x1 07f3 00da | | Load_Top At_Offset_2 07f4 01d6 | | Execute Vector,Field_Write 07f5 e5fe | | Load 0x2,-0x2 07f6 e014 | | Load 0x0,0x14 07f7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 07f8 4802 |H | Short_Literal 0x2 07f9 00da | | Load_Top At_Offset_2 07fa 01d6 | | Execute Vector,Field_Write 07fb 00d9 | | Load_Top At_Offset_1 07fc e002 | | Load 0x0,0x2 07fd 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 07fe 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07ff 0000 | | .XXX[0x1] 0800 0000 0000 | | .LITERAL {0x00000000, 0x00002009} 0804 0000 0000 | | .BLANK 0000[0x4] 0808 ; -------------------------------------------------------------------------------------- 0808 ; SUBPROGRAM 0808 ; -------------------------------------------------------------------------------------- 0808 0810 | | .CONST 0x0810 ; Address of begin 0809 0004 | | .CONST 0x0004 ; Address of exception handler 080a 0003 | | .CONST 0x0003 ; Number of locals 080b INIT_0808: 080b e002 | | Load 0x0,0x2 080c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 080d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 080e e00d | | Load 0x0,0xd 080f 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0810 BODY_0808: 0810 00d9 | | Load_Top At_Offset_1 0811 e00d | | Load 0x0,0xd 0812 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0813 4801 |H | Short_Literal 0x1 0814 e5fd | | Load 0x2,-0x3 0815 e5ff | | Load 0x2,-0x1 0816 8276 | v | Call 0x1,0x76 0817 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0818 005a | Z | Store_Top Discrete,At_Offset_2 0819 00d9 | | Load_Top At_Offset_1 081a 7005 |p | Jump_Nonzero 0x820 081b e5fe | | Load 0x2,-0x2 081c 00d9 | | Load_Top At_Offset_1 081d 0217 | | Execute Heap_Access,All_Reference 081e 380b |8 | Execute Record,Field_Write,Field_Number 0xb 081f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0820 e002 | | Load 0x0,0x2 0821 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0822 4801 |H | Short_Literal 0x1 0823 4802 |H | Short_Literal 0x2 0824 e005 | | Load 0x0,0x5 0825 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0826 0334 | 4 | Declare_Variable Array,With_Constraint 0827 e5ff | | Load 0x2,-0x1 0828 8210 | | Call 0x1,0x10 0829 4801 |H | Short_Literal 0x1 082a 00da | | Load_Top At_Offset_2 082b 01d6 | | Execute Vector,Field_Write 082c e5fd | | Load 0x2,-0x3 082d e014 | | Load 0x0,0x14 082e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 082f 4802 |H | Short_Literal 0x2 0830 00da | | Load_Top At_Offset_2 0831 01d6 | | Execute Vector,Field_Write 0832 00db | | Load_Top At_Offset_3 0833 e002 | | Load 0x0,0x2 0834 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0835 c5fc | | Store 0x2,-0x4 0836 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0837 0000 | | .XXX[0x1] 0838 ; -------------------------------------------------------------------------------------- 0838 ; SUBPROGRAM 0838 ; -------------------------------------------------------------------------------------- 0838 083b | ; | .CONST 0x083b ; Address of begin 0839 0004 | | .CONST 0x0004 ; Address of exception handler 083a 0001 | | .CONST 0x0001 ; Number of locals 083b BODY_0838: 083b INIT_0838: 083b 00da | | Load_Top At_Offset_2 083c 6809 |h | Jump_Zero 0x846 083d 00da | | Load_Top At_Offset_2 083e 0217 | | Execute Heap_Access,All_Reference 083f 3c0e |< | Execute Record,Field_Read,Field_Number 0xe 0840 00d8 | | Load_Top At_Offset_0 0841 0120 | | Execute Any,Is_Value 0842 7002 |p | Jump_Nonzero 0x845 0843 00d8 | | Load_Top At_Offset_0 0844 011e | | Execute Any,Convert 0845 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0846 e004 | | Load 0x0,0x4 0847 180f | | Execute Package,Field_Execute,Field_Number 0xf 0848 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0849 0000 0000 | | .BLANK 0000[0x7] 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 00db | | Load_Top At_Offset_3 0854 00db | | Load_Top At_Offset_3 0855 0217 | | Execute Heap_Access,All_Reference 0856 380e |8 | Execute Record,Field_Write,Field_Number 0xe 0857 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0858 ; -------------------------------------------------------------------------------------- 0858 ; SUBPROGRAM 0858 ; -------------------------------------------------------------------------------------- 0858 085b | [ | .CONST 0x085b ; Address of begin 0859 0004 | | .CONST 0x0004 ; Address of exception handler 085a 0001 | | .CONST 0x0001 ; Number of locals 085b BODY_0858: 085b INIT_0858: 085b 00da | | Load_Top At_Offset_2 085c 6804 |h | Jump_Zero 0x861 085d 00da | | Load_Top At_Offset_2 085e 0217 | | Execute Heap_Access,All_Reference 085f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0860 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0861 4800 |H | Short_Literal 0x0 0862 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0863 0000 0000 | | .BLANK 0000[0x5] 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 00da | | Load_Top At_Offset_2 086c 6814 |h | Jump_Zero 0x881 086d 00da | | Load_Top At_Offset_2 086e 0217 | | Execute Heap_Access,All_Reference 086f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0870 700e |p | Jump_Nonzero 0x87f 0871 00da | | Load_Top At_Offset_2 0872 0217 | | Execute Heap_Access,All_Reference 0873 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0874 6808 |h | Jump_Zero 0x87d 0875 00da | | Load_Top At_Offset_2 0876 0217 | | Execute Heap_Access,All_Reference 0877 3c14 |< | Execute Record,Field_Read,Field_Number 0x14 0878 e001 | | Load 0x0,0x1 0879 1b10 | | Execute Package,Field_Read,Field_Number 0x10 087a 0216 | | Execute Heap_Access,Convert 087b 021c | | Execute Heap_Access,Not_Null 087c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 087d 4800 |H | Short_Literal 0x0 087e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 087f 4801 |H | Short_Literal 0x1 0880 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0881 4800 |H | Short_Literal 0x0 0882 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0883 0000 0000 | | .BLANK 0000[0x5] 0888 ; -------------------------------------------------------------------------------------- 0888 ; SUBPROGRAM 0888 ; -------------------------------------------------------------------------------------- 0888 088b | | .CONST 0x088b ; Address of begin 0889 0004 | | .CONST 0x0004 ; Address of exception handler 088a 0001 | | .CONST 0x0001 ; Number of locals 088b BODY_0888: 088b INIT_0888: 088b 00da | | Load_Top At_Offset_2 088c 7002 |p | Jump_Nonzero 0x88f 088d 00da | | Load_Top At_Offset_2 088e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 088f 00da | | Load_Top At_Offset_2 0890 0217 | | Execute Heap_Access,All_Reference 0891 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0892 6807 |h | Jump_Zero 0x89a 0893 00da | | Load_Top At_Offset_2 0894 0217 | | Execute Heap_Access,All_Reference 0895 3c14 |< | Execute Record,Field_Read,Field_Number 0x14 0896 e001 | | Load 0x0,0x1 0897 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0898 0216 | | Execute Heap_Access,Convert 0899 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 089a 00da | | Load_Top At_Offset_2 089b 0217 | | Execute Heap_Access,All_Reference 089c 3c16 |< | Execute Record,Field_Read,Field_Number 0x16 089d e001 | | Load 0x0,0x1 089e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 089f 0216 | | Execute Heap_Access,Convert 08a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08a1 0000 0000 | | .BLANK 0000[0x7] 08a8 ; -------------------------------------------------------------------------------------- 08a8 ; SUBPROGRAM 08a8 ; -------------------------------------------------------------------------------------- 08a8 08af | | .CONST 0x08af ; Address of begin 08a9 0004 | | .CONST 0x0004 ; Address of exception handler 08aa 0002 | | .CONST 0x0002 ; Number of locals 08ab INIT_08a8: 08ab 00da | | Load_Top At_Offset_2 08ac e001 | | Load 0x0,0x1 08ad 1b16 | | Execute Package,Field_Read,Field_Number 0x16 08ae 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 08af BODY_08a8: 08af 00d8 | | Load_Top At_Offset_0 08b0 e5fe | | Load 0x2,-0x2 08b1 e001 | | Load 0x0,0x1 08b2 1b16 | | Execute Package,Field_Read,Field_Number 0x16 08b3 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 08b4 00db | | Load_Top At_Offset_3 08b5 e00d | | Load 0x0,0xd 08b6 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 08b7 0216 | | Execute Heap_Access,Convert 08b8 e5fe | | Load 0x2,-0x2 08b9 0217 | | Execute Heap_Access,All_Reference 08ba 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 08bb 4801 |H | Short_Literal 0x1 08bc e5fe | | Load 0x2,-0x2 08bd 0217 | | Execute Heap_Access,All_Reference 08be 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 08bf 00d8 | | Load_Top At_Offset_0 08c0 e5fe | | Load 0x2,-0x2 08c1 e001 | | Load 0x0,0x1 08c2 1b16 | | Execute Package,Field_Read,Field_Number 0x16 08c3 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 08c4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 08c5 0000 0000 | | .XXX[0x3] 08c7 0000 | | 08c8 ; -------------------------------------------------------------------------------------- 08c8 ; SUBPROGRAM 08c8 ; -------------------------------------------------------------------------------------- 08c8 08cf | | .CONST 0x08cf ; Address of begin 08c9 0004 | | .CONST 0x0004 ; Address of exception handler 08ca 0002 | | .CONST 0x0002 ; Number of locals 08cb INIT_08c8: 08cb 00da | | Load_Top At_Offset_2 08cc e001 | | Load 0x0,0x1 08cd 1b16 | | Execute Package,Field_Read,Field_Number 0x16 08ce 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 08cf BODY_08c8: 08cf 00d8 | | Load_Top At_Offset_0 08d0 e5fe | | Load 0x2,-0x2 08d1 e001 | | Load 0x0,0x1 08d2 1b16 | | Execute Package,Field_Read,Field_Number 0x16 08d3 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 08d4 00d8 | | Load_Top At_Offset_0 08d5 e5fe | | Load 0x2,-0x2 08d6 e001 | | Load 0x0,0x1 08d7 1b16 | | Execute Package,Field_Read,Field_Number 0x16 08d8 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 08d9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 08da 0000 0000 | | .BLANK 0000[0x6] 08e0 ; -------------------------------------------------------------------------------------- 08e0 ; SUBPROGRAM 08e0 ; -------------------------------------------------------------------------------------- 08e0 08e3 | | .CONST 0x08e3 ; Address of begin 08e1 0004 | | .CONST 0x0004 ; Address of exception handler 08e2 0001 | | .CONST 0x0001 ; Number of locals 08e3 BODY_08e0: 08e3 INIT_08e0: 08e3 00da | | Load_Top At_Offset_2 08e4 680b |h | Jump_Zero 0x8f0 08e5 00da | | Load_Top At_Offset_2 08e6 0217 | | Execute Heap_Access,All_Reference 08e7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 08e8 6807 |h | Jump_Zero 0x8f0 08e9 00da | | Load_Top At_Offset_2 08ea 0217 | | Execute Heap_Access,All_Reference 08eb 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 08ec e001 | | Load 0x0,0x1 08ed 1b10 | | Execute Package,Field_Read,Field_Number 0x10 08ee 0216 | | Execute Heap_Access,Convert 08ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08f0 00da | | Load_Top At_Offset_2 08f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08f2 0000 0000 | | .BLANK 0000[0x6] 08f8 ; -------------------------------------------------------------------------------------- 08f8 ; SUBPROGRAM 08f8 ; -------------------------------------------------------------------------------------- 08f8 0906 | | .CONST 0x0906 ; Address of begin 08f9 0004 | | .CONST 0x0004 ; Address of exception handler 08fa 0006 | | .CONST 0x0006 ; Number of locals 08fb INIT_08f8: 08fb e015 | | Load 0x0,0x15 08fc 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 08fd e00d | | Load 0x0,0xd 08fe 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 08ff e00d | | Load 0x0,0xd 0900 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 0901 e00d | | Load 0x0,0xd 0902 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0903 e002 | | Load 0x0,0x2 0904 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0905 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0906 BODY_08f8: 0906 00d8 | | Load_Top At_Offset_0 0907 e00d | | Load 0x0,0xd 0908 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0909 4800 |H | Short_Literal 0x0 090a e5fe | | Load 0x2,-0x2 090b e5ff | | Load 0x2,-0x1 090c 8276 | v | Call 0x1,0x76 090d 0033 | 3 | Store_Top Heap_Access,At_Offset_3 090e 0059 | Y | Store_Top Discrete,At_Offset_1 090f 00d8 | | Load_Top At_Offset_0 0910 7034 |p4 | Jump_Nonzero 0x945 0911 00d9 | | Load_Top At_Offset_1 0912 0217 | | Execute Heap_Access,All_Reference 0913 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0914 a403 | | Store_Unchecked 0x2,0x3 0915 00db | | Load_Top At_Offset_3 0916 7002 |p | Jump_Nonzero 0x919 0917 e402 | | Load 0x2,0x2 0918 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0919 00db | | Load_Top At_Offset_3 091a 0217 | | Execute Heap_Access,All_Reference 091b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 091c 0033 | 3 | Store_Top Heap_Access,At_Offset_3 091d 00cf | | Action Mark_Auxiliary 091e e403 | | Load 0x2,0x3 091f 0217 | | Execute Heap_Access,All_Reference 0920 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0921 4801 |H | Short_Literal 0x1 0922 0263 | c | Execute Discrete,Above_Bound 0923 701f |p | Jump_Nonzero 0x943 0924 e404 | | Load 0x2,0x4 0925 0217 | | Execute Heap_Access,All_Reference 0926 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0927 e00f | | Load 0x0,0xf 0928 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0929 e5ff | | Load 0x2,-0x1 092a e006 | | Load 0x0,0x6 092b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 092c e404 | | Load 0x2,0x4 092d 0217 | | Execute Heap_Access,All_Reference 092e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 092f e005 | | Load 0x0,0x5 0930 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0931 e404 | | Load 0x2,0x4 0932 0217 | | Execute Heap_Access,All_Reference 0933 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0934 e402 | | Load 0x2,0x2 0935 e015 | | Load 0x0,0x15 0936 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0937 e402 | | Load 0x2,0x2 0938 e015 | | Load 0x0,0x15 0939 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 093a 7002 |p | Jump_Nonzero 0x93d 093b 00d2 | | Pop_Control Pop_Count_2 093c 7806 |x | Jump 0x943 093d e404 | | Load 0x2,0x4 093e 0217 | | Execute Heap_Access,All_Reference 093f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0940 a404 | | Store_Unchecked 0x2,0x4 0941 00c8 | | Action Pop_Auxiliary_Range 0942 3fe1 |? | Loop_Increasing 0x924 0943 00ce | | Action Pop_Auxiliary 0944 781c |x | Jump 0x961 0945 00d8 | | Load_Top At_Offset_0 0946 6021 |`! | Indirect_Literal Discrete,0x968,{0x00000000, 0x00002009} 0947 027f | | Execute Discrete,Equal 0948 6802 |h | Jump_Zero 0x94b 0949 e402 | | Load 0x2,0x2 094a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 094b 4801 |H | Short_Literal 0x1 094c 4802 |H | Short_Literal 0x2 094d e005 | | Load 0x0,0x5 094e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 094f 0334 | 4 | Declare_Variable Array,With_Constraint 0950 e5ff | | Load 0x2,-0x1 0951 8210 | | Call 0x1,0x10 0952 4801 |H | Short_Literal 0x1 0953 00da | | Load_Top At_Offset_2 0954 01d6 | | Execute Vector,Field_Write 0955 e5fe | | Load 0x2,-0x2 0956 e014 | | Load 0x0,0x14 0957 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0958 4802 |H | Short_Literal 0x2 0959 00da | | Load_Top At_Offset_2 095a 01d6 | | Execute Vector,Field_Write 095b 6008 |` | Indirect_Literal Discrete,0x964,{0x00000000, 0x0000200c} 095c e002 | | Load 0x0,0x2 095d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 095e e402 | | Load 0x2,0x2 095f e015 | | Load 0x0,0x15 0960 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0961 e402 | | Load 0x2,0x2 0962 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0963 0000 | | .XXX[0x1] 0964 0000 0000 | | .LITERAL {0x00000000, 0x0000200c} 0968 0000 0000 | | .LITERAL {0x00000000, 0x00002009} 096c 0000 0000 | | .BLANK 0000[0x4] 0970 ; -------------------------------------------------------------------------------------- 0970 ; SUBPROGRAM 0970 ; -------------------------------------------------------------------------------------- 0970 0986 | | .CONST 0x0986 ; Address of begin 0971 0004 | | .CONST 0x0004 ; Address of exception handler 0972 0009 | | .CONST 0x0009 ; Number of locals 0973 INIT_0970: 0973 e015 | | Load 0x0,0x15 0974 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0975 e00d | | Load 0x0,0xd 0976 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0977 e00d | | Load 0x0,0xd 0978 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 0979 e00d | | Load 0x0,0xd 097a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 097b e00d | | Load 0x0,0xd 097c 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 097d e5ff | | Load 0x2,-0x1 097e e001 | | Load 0x0,0x1 097f 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0980 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0981 e002 | | Load 0x0,0x2 0982 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0983 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0984 029f 10b3 | | Declare_Subprogram INIT_10b0,For_Call 0986 BODY_0970: 0986 00d9 | | Load_Top At_Offset_1 0987 e00d | | Load 0x0,0xd 0988 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0989 4801 |H | Short_Literal 0x1 098a e5fd | | Load 0x2,-0x3 098b e5ff | | Load 0x2,-0x1 098c 8276 | v | Call 0x1,0x76 098d c405 | | Store 0x2,0x5 098e 005a | Z | Store_Top Discrete,At_Offset_2 098f 00d9 | | Load_Top At_Offset_1 0990 7039 |p9 | Jump_Nonzero 0x9ca 0991 e405 | | Load 0x2,0x5 0992 0217 | | Execute Heap_Access,All_Reference 0993 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0994 a403 | | Store_Unchecked 0x2,0x3 0995 e403 | | Load 0x2,0x3 0996 6824 |h$ | Jump_Zero 0x9bb 0997 0092 154f | O| Action Push_String_Extended,0x154f ; "Releasing old special build instructions." 0999 8011 | | Call 0x0,0x11 099a e403 | | Load 0x2,0x3 099b 0217 | | Execute Heap_Access,All_Reference 099c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 099d a404 | | Store_Unchecked 0x2,0x4 099e 00cf | | Action Mark_Auxiliary 099f e403 | | Load 0x2,0x3 09a0 0217 | | Execute Heap_Access,All_Reference 09a1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 09a2 4801 |H | Short_Literal 0x1 09a3 0263 | c | Execute Discrete,Above_Bound 09a4 700c |p | Jump_Nonzero 0x9b1 09a5 e404 | | Load 0x2,0x4 09a6 0217 | | Execute Heap_Access,All_Reference 09a7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 09a8 a406 | | Store_Unchecked 0x2,0x6 09a9 e404 | | Load 0x2,0x4 09aa e00d | | Load 0x0,0xd 09ab 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 09ac c404 | | Store 0x2,0x4 09ad e406 | | Load 0x2,0x6 09ae a404 | | Store_Unchecked 0x2,0x4 09af 00c8 | | Action Pop_Auxiliary_Range 09b0 3ff4 |? | Loop_Increasing 0x9a5 09b1 00ce | | Action Pop_Auxiliary 09b2 e403 | | Load 0x2,0x3 09b3 e00d | | Load 0x0,0xd 09b4 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 09b5 c403 | | Store 0x2,0x3 09b6 e00d | | Load 0x0,0xd 09b7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 09b8 e405 | | Load 0x2,0x5 09b9 0217 | | Execute Heap_Access,All_Reference 09ba 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 09bb e5fe | | Load 0x2,-0x2 09bc e015 | | Load 0x0,0x15 09bd 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 09be 6801 |h | Jump_Zero 0x9c0 09bf 4504 |E | Exit_Suprogram New_Top_Offset 0x4 09c0 00da | | Load_Top At_Offset_2 09c1 e00d | | Load 0x0,0xd 09c2 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 09c3 a403 | | Store_Unchecked 0x2,0x3 09c4 8409 | | Call 0x2,0x9 09c5 e403 | | Load 0x2,0x3 09c6 e405 | | Load 0x2,0x5 09c7 0217 | | Execute Heap_Access,All_Reference 09c8 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 09c9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 09ca e002 | | Load 0x0,0x2 09cb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09cc 4801 |H | Short_Literal 0x1 09cd 4802 |H | Short_Literal 0x2 09ce e005 | | Load 0x0,0x5 09cf 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09d0 0334 | 4 | Declare_Variable Array,With_Constraint 09d1 e5ff | | Load 0x2,-0x1 09d2 8210 | | Call 0x1,0x10 09d3 4801 |H | Short_Literal 0x1 09d4 00da | | Load_Top At_Offset_2 09d5 01d6 | | Execute Vector,Field_Write 09d6 e5fd | | Load 0x2,-0x3 09d7 e014 | | Load 0x0,0x14 09d8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 09d9 4802 |H | Short_Literal 0x2 09da 00da | | Load_Top At_Offset_2 09db 01d6 | | Execute Vector,Field_Write 09dc 00db | | Load_Top At_Offset_3 09dd e002 | | Load 0x0,0x2 09de 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 09df c5fc | | Store 0x2,-0x4 09e0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 09e1 0000 0000 | | .BLANK 0000[0x7] 09e8 ; -------------------------------------------------------------------------------------- 09e8 ; SUBPROGRAM 09e8 ; -------------------------------------------------------------------------------------- 09e8 09f0 | | .CONST 0x09f0 ; Address of begin 09e9 0004 | | .CONST 0x0004 ; Address of exception handler 09ea 0003 | | .CONST 0x0003 ; Number of locals 09eb INIT_09e8: 09eb e00d | | Load 0x0,0xd 09ec 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 09ed e002 | | Load 0x0,0x2 09ee 1b10 | | Execute Package,Field_Read,Field_Number 0x10 09ef 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 09f0 BODY_09e8: 09f0 00d8 | | Load_Top At_Offset_0 09f1 e00d | | Load 0x0,0xd 09f2 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 09f3 4800 |H | Short_Literal 0x0 09f4 e5fe | | Load 0x2,-0x2 09f5 e5ff | | Load 0x2,-0x1 09f6 8276 | v | Call 0x1,0x76 09f7 0033 | 3 | Store_Top Heap_Access,At_Offset_3 09f8 0059 | Y | Store_Top Discrete,At_Offset_1 09f9 00d8 | | Load_Top At_Offset_0 09fa 7006 |p | Jump_Nonzero 0xa01 09fb 00d9 | | Load_Top At_Offset_1 09fc 0217 | | Execute Heap_Access,All_Reference 09fd 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 09fe 021d | | Execute Heap_Access,Is_Null 09ff 0f00 | | Execute_Immediate Equal,0x0 0a00 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a01 00d8 | | Load_Top At_Offset_0 0a02 6019 |` | Indirect_Literal Discrete,0xa1c,{0x00000000, 0x00002009} 0a03 027f | | Execute Discrete,Equal 0a04 6802 |h | Jump_Zero 0xa07 0a05 4800 |H | Short_Literal 0x0 0a06 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a07 4801 |H | Short_Literal 0x1 0a08 4802 |H | Short_Literal 0x2 0a09 e005 | | Load 0x0,0x5 0a0a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0a0b 0334 | 4 | Declare_Variable Array,With_Constraint 0a0c e5ff | | Load 0x2,-0x1 0a0d 8210 | | Call 0x1,0x10 0a0e 4801 |H | Short_Literal 0x1 0a0f 00da | | Load_Top At_Offset_2 0a10 01d6 | | Execute Vector,Field_Write 0a11 e5fe | | Load 0x2,-0x2 0a12 e014 | | Load 0x0,0x14 0a13 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0a14 4802 |H | Short_Literal 0x2 0a15 00da | | Load_Top At_Offset_2 0a16 01d6 | | Execute Vector,Field_Write 0a17 00d9 | | Load_Top At_Offset_1 0a18 e002 | | Load 0x0,0x2 0a19 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0a1a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a1b 0000 | | .XXX[0x1] 0a1c 0000 0000 | | .LITERAL {0x00000000, 0x00002009} 0a20 ; -------------------------------------------------------------------------------------- 0a20 ; SUBPROGRAM 0a20 ; -------------------------------------------------------------------------------------- 0a20 0a28 | ( | .CONST 0x0a28 ; Address of begin 0a21 0004 | | .CONST 0x0004 ; Address of exception handler 0a22 0003 | | .CONST 0x0003 ; Number of locals 0a23 INIT_0a20: 0a23 e00d | | Load 0x0,0xd 0a24 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0a25 e002 | | Load 0x0,0x2 0a26 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0a27 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0a28 BODY_0a20: 0a28 00d8 | | Load_Top At_Offset_0 0a29 e00d | | Load 0x0,0xd 0a2a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0a2b 4800 |H | Short_Literal 0x0 0a2c e5fe | | Load 0x2,-0x2 0a2d e5ff | | Load 0x2,-0x1 0a2e 8276 | v | Call 0x1,0x76 0a2f 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0a30 0059 | Y | Store_Top Discrete,At_Offset_1 0a31 00d8 | | Load_Top At_Offset_0 0a32 7013 |p | Jump_Nonzero 0xa46 0a33 00d9 | | Load_Top At_Offset_1 0a34 0217 | | Execute Heap_Access,All_Reference 0a35 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0a36 6806 |h | Jump_Zero 0xa3d 0a37 00d9 | | Load_Top At_Offset_1 0a38 0217 | | Execute Heap_Access,All_Reference 0a39 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0a3a e016 | | Load 0x0,0x16 0a3b 180f | | Execute Package,Field_Execute,Field_Number 0xf 0a3c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a3d e5fe | | Load 0x2,-0x2 0a3e e5ff | | Load 0x2,-0x1 0a3f e001 | | Load 0x0,0x1 0a40 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0a41 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0a42 e001 | | Load 0x0,0x1 0a43 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0a44 1854 | T | Execute Package,Field_Execute,Field_Number 0x54 0a45 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a46 4801 |H | Short_Literal 0x1 0a47 4802 |H | Short_Literal 0x2 0a48 e005 | | Load 0x0,0x5 0a49 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0a4a 0334 | 4 | Declare_Variable Array,With_Constraint 0a4b e5ff | | Load 0x2,-0x1 0a4c 8210 | | Call 0x1,0x10 0a4d 4801 |H | Short_Literal 0x1 0a4e 00da | | Load_Top At_Offset_2 0a4f 01d6 | | Execute Vector,Field_Write 0a50 e5fe | | Load 0x2,-0x2 0a51 e014 | | Load 0x0,0x14 0a52 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0a53 4802 |H | Short_Literal 0x2 0a54 00da | | Load_Top At_Offset_2 0a55 01d6 | | Execute Vector,Field_Write 0a56 00d9 | | Load_Top At_Offset_1 0a57 e002 | | Load 0x0,0x2 0a58 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0a59 00d8 | | Load_Top At_Offset_0 0a5a 00e3 | | Load_Encached Natural_Cache 0a5b 0260 | ` | Execute Discrete,In_Type 0a5c 7001 |p | Jump_Nonzero 0xa5e 0a5d 0801 | | Execute_Immediate Raise,0x1 0a5e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0a5f 0000 | | .XXX[0x1] 0a60 ; -------------------------------------------------------------------------------------- 0a60 ; SUBPROGRAM 0a60 ; -------------------------------------------------------------------------------------- 0a60 0a68 | h | .CONST 0x0a68 ; Address of begin 0a61 0004 | | .CONST 0x0004 ; Address of exception handler 0a62 0003 | | .CONST 0x0003 ; Number of locals 0a63 INIT_0a60: 0a63 e002 | | Load 0x0,0x2 0a64 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0a65 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0a66 e00d | | Load 0x0,0xd 0a67 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0a68 BODY_0a60: 0a68 00d9 | | Load_Top At_Offset_1 0a69 e00d | | Load 0x0,0xd 0a6a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0a6b 4801 |H | Short_Literal 0x1 0a6c e5fd | | Load 0x2,-0x3 0a6d e5ff | | Load 0x2,-0x1 0a6e 8276 | v | Call 0x1,0x76 0a6f 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0a70 005a | Z | Store_Top Discrete,At_Offset_2 0a71 00d9 | | Load_Top At_Offset_1 0a72 700f |p | Jump_Nonzero 0xa82 0a73 00d8 | | Load_Top At_Offset_0 0a74 0219 | | Execute Heap_Access,All_Read 0a75 00da | | Load_Top At_Offset_2 0a76 00d9 | | Load_Top At_Offset_1 0a77 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0a78 e5fe | | Load 0x2,-0x2 0a79 e016 | | Load 0x0,0x16 0a7a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0a7b 00da | | Load_Top At_Offset_2 0a7c 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0a7d 005b | [ | Store_Top Discrete,At_Offset_3 0a7e 00d1 | | Pop_Control Pop_Count_1 0a7f 00d9 | | Load_Top At_Offset_1 0a80 7001 |p | Jump_Nonzero 0xa82 0a81 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0a82 e002 | | Load 0x0,0x2 0a83 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a84 4801 |H | Short_Literal 0x1 0a85 4802 |H | Short_Literal 0x2 0a86 e005 | | Load 0x0,0x5 0a87 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0a88 0334 | 4 | Declare_Variable Array,With_Constraint 0a89 e5ff | | Load 0x2,-0x1 0a8a 8210 | | Call 0x1,0x10 0a8b 4801 |H | Short_Literal 0x1 0a8c 00da | | Load_Top At_Offset_2 0a8d 01d6 | | Execute Vector,Field_Write 0a8e e5fd | | Load 0x2,-0x3 0a8f e014 | | Load 0x0,0x14 0a90 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0a91 4802 |H | Short_Literal 0x2 0a92 00da | | Load_Top At_Offset_2 0a93 01d6 | | Execute Vector,Field_Write 0a94 00db | | Load_Top At_Offset_3 0a95 e002 | | Load 0x0,0x2 0a96 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0a97 c5fc | | Store 0x2,-0x4 0a98 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0a99 0000 0000 | | .BLANK 0000[0x7] 0aa0 ; -------------------------------------------------------------------------------------- 0aa0 ; SUBPROGRAM 0aa0 ; -------------------------------------------------------------------------------------- 0aa0 0aad | | .CONST 0x0aad ; Address of begin 0aa1 0004 | | .CONST 0x0004 ; Address of exception handler 0aa2 0004 | | .CONST 0x0004 ; Number of locals 0aa3 INIT_0aa0: 0aa3 e00d | | Load 0x0,0xd 0aa4 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0aa5 e002 | | Load 0x0,0x2 0aa6 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0aa7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0aa8 e00f | | Load 0x0,0xf 0aa9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0aaa 02c7 | | Declare_Variable Any 0aab 00d8 | | Load_Top At_Offset_0 0aac 1c00 | | Execute_Immediate Run_Utility,0x0 0aad BODY_0aa0: 0aad 00d9 | | Load_Top At_Offset_1 0aae e00d | | Load 0x0,0xd 0aaf 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0ab0 4800 |H | Short_Literal 0x0 0ab1 e5fd | | Load 0x2,-0x3 0ab2 e5ff | | Load 0x2,-0x1 0ab3 8276 | v | Call 0x1,0x76 0ab4 c402 | | Store 0x2,0x2 0ab5 005a | Z | Store_Top Discrete,At_Offset_2 0ab6 00d9 | | Load_Top At_Offset_1 0ab7 7029 |p) | Jump_Nonzero 0xae1 0ab8 00da | | Load_Top At_Offset_2 0ab9 0217 | | Execute Heap_Access,All_Reference 0aba 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0abb 681b |h | Jump_Zero 0xad7 0abc 00da | | Load_Top At_Offset_2 0abd 0219 | | Execute Heap_Access,All_Read 0abe 00da | | Load_Top At_Offset_2 0abf 00da | | Load_Top At_Offset_2 0ac0 0120 | | Execute Any,Is_Value 0ac1 6803 |h | Jump_Zero 0xac5 0ac2 e00f | | Load 0x0,0xf 0ac3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ac4 7801 |x | Jump 0xac6 0ac5 00da | | Load_Top At_Offset_2 0ac6 00da | | Load_Top At_Offset_2 0ac7 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0ac8 e5fe | | Load 0x2,-0x2 0ac9 e016 | | Load 0x0,0x16 0aca 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0acb 00db | | Load_Top At_Offset_3 0acc 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0acd c404 | | Store 0x2,0x4 0ace 005b | [ | Store_Top Discrete,At_Offset_3 0acf 00d1 | | Pop_Control Pop_Count_1 0ad0 00d9 | | Load_Top At_Offset_1 0ad1 7002 |p | Jump_Nonzero 0xad4 0ad2 00d8 | | Load_Top At_Offset_0 0ad3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0ad4 e004 | | Load 0x0,0x4 0ad5 180f | | Execute Package,Field_Execute,Field_Number 0xf 0ad6 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0ad7 e5fd | | Load 0x2,-0x3 0ad8 e5fe | | Load 0x2,-0x2 0ad9 e5ff | | Load 0x2,-0x1 0ada e001 | | Load 0x0,0x1 0adb 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0adc 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0add e001 | | Load 0x0,0x1 0ade 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0adf 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 0ae0 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0ae1 4801 |H | Short_Literal 0x1 0ae2 4802 |H | Short_Literal 0x2 0ae3 e005 | | Load 0x0,0x5 0ae4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ae5 0334 | 4 | Declare_Variable Array,With_Constraint 0ae6 e5ff | | Load 0x2,-0x1 0ae7 8210 | | Call 0x1,0x10 0ae8 4801 |H | Short_Literal 0x1 0ae9 00da | | Load_Top At_Offset_2 0aea 01d6 | | Execute Vector,Field_Write 0aeb e5fd | | Load 0x2,-0x3 0aec e014 | | Load 0x0,0x14 0aed 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0aee 4802 |H | Short_Literal 0x2 0aef 00da | | Load_Top At_Offset_2 0af0 01d6 | | Execute Vector,Field_Write 0af1 00da | | Load_Top At_Offset_2 0af2 e002 | | Load 0x0,0x2 0af3 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0af4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0af5 0000 0000 | | .XXX[0x3] 0af7 0000 | | 0af8 ; -------------------------------------------------------------------------------------- 0af8 ; SUBPROGRAM 0af8 ; -------------------------------------------------------------------------------------- 0af8 0b00 | | .CONST 0x0b00 ; Address of begin 0af9 0004 | | .CONST 0x0004 ; Address of exception handler 0afa 0003 | | .CONST 0x0003 ; Number of locals 0afb INIT_0af8: 0afb e00d | | Load 0x0,0xd 0afc 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0afd e002 | | Load 0x0,0x2 0afe 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0aff 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0b00 BODY_0af8: 0b00 00d8 | | Load_Top At_Offset_0 0b01 e00d | | Load 0x0,0xd 0b02 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0b03 4801 |H | Short_Literal 0x1 0b04 e5fc | | Load 0x2,-0x4 0b05 e5ff | | Load 0x2,-0x1 0b06 8276 | v | Call 0x1,0x76 0b07 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0b08 0059 | Y | Store_Top Discrete,At_Offset_1 0b09 00d8 | | Load_Top At_Offset_0 0b0a 7010 |p | Jump_Nonzero 0xb1b 0b0b 00d9 | | Load_Top At_Offset_1 0b0c 0219 | | Execute Heap_Access,All_Read 0b0d 00d9 | | Load_Top At_Offset_1 0b0e 00d9 | | Load_Top At_Offset_1 0b0f 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0b10 e5fe | | Load 0x2,-0x2 0b11 e5fd | | Load 0x2,-0x3 0b12 e016 | | Load 0x0,0x16 0b13 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0b14 00da | | Load_Top At_Offset_2 0b15 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0b16 005a | Z | Store_Top Discrete,At_Offset_2 0b17 00d1 | | Pop_Control Pop_Count_1 0b18 00d8 | | Load_Top At_Offset_0 0b19 7001 |p | Jump_Nonzero 0xb1b 0b1a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0b1b e002 | | Load 0x0,0x2 0b1c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b1d 4801 |H | Short_Literal 0x1 0b1e 4802 |H | Short_Literal 0x2 0b1f e005 | | Load 0x0,0x5 0b20 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b21 0334 | 4 | Declare_Variable Array,With_Constraint 0b22 e5ff | | Load 0x2,-0x1 0b23 8210 | | Call 0x1,0x10 0b24 4801 |H | Short_Literal 0x1 0b25 00da | | Load_Top At_Offset_2 0b26 01d6 | | Execute Vector,Field_Write 0b27 e5fc | | Load 0x2,-0x4 0b28 e014 | | Load 0x0,0x14 0b29 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0b2a 4802 |H | Short_Literal 0x2 0b2b 00da | | Load_Top At_Offset_2 0b2c 01d6 | | Execute Vector,Field_Write 0b2d 00da | | Load_Top At_Offset_2 0b2e e002 | | Load 0x0,0x2 0b2f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0b30 c5fb | | Store 0x2,-0x5 0b31 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0b32 0000 0000 | | .BLANK 0000[0x6] 0b38 ; -------------------------------------------------------------------------------------- 0b38 ; SUBPROGRAM 0b38 ; -------------------------------------------------------------------------------------- 0b38 0b40 | @ | .CONST 0x0b40 ; Address of begin 0b39 0004 | | .CONST 0x0004 ; Address of exception handler 0b3a 0003 | | .CONST 0x0003 ; Number of locals 0b3b INIT_0b38: 0b3b e00d | | Load 0x0,0xd 0b3c 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0b3d e002 | | Load 0x0,0x2 0b3e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0b3f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0b40 BODY_0b38: 0b40 00d8 | | Load_Top At_Offset_0 0b41 e00d | | Load 0x0,0xd 0b42 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0b43 4801 |H | Short_Literal 0x1 0b44 e5fd | | Load 0x2,-0x3 0b45 e5ff | | Load 0x2,-0x1 0b46 8276 | v | Call 0x1,0x76 0b47 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0b48 0059 | Y | Store_Top Discrete,At_Offset_1 0b49 00d8 | | Load_Top At_Offset_0 0b4a 700f |p | Jump_Nonzero 0xb5a 0b4b 00d9 | | Load_Top At_Offset_1 0b4c 0219 | | Execute Heap_Access,All_Read 0b4d 00d9 | | Load_Top At_Offset_1 0b4e 00d9 | | Load_Top At_Offset_1 0b4f 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0b50 e5fe | | Load 0x2,-0x2 0b51 e016 | | Load 0x0,0x16 0b52 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0b53 00da | | Load_Top At_Offset_2 0b54 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0b55 005a | Z | Store_Top Discrete,At_Offset_2 0b56 00d1 | | Pop_Control Pop_Count_1 0b57 00d8 | | Load_Top At_Offset_0 0b58 7001 |p | Jump_Nonzero 0xb5a 0b59 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0b5a e002 | | Load 0x0,0x2 0b5b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b5c 4801 |H | Short_Literal 0x1 0b5d 4802 |H | Short_Literal 0x2 0b5e e005 | | Load 0x0,0x5 0b5f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b60 0334 | 4 | Declare_Variable Array,With_Constraint 0b61 e5ff | | Load 0x2,-0x1 0b62 8210 | | Call 0x1,0x10 0b63 4801 |H | Short_Literal 0x1 0b64 00da | | Load_Top At_Offset_2 0b65 01d6 | | Execute Vector,Field_Write 0b66 e5fd | | Load 0x2,-0x3 0b67 e014 | | Load 0x0,0x14 0b68 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0b69 4802 |H | Short_Literal 0x2 0b6a 00da | | Load_Top At_Offset_2 0b6b 01d6 | | Execute Vector,Field_Write 0b6c 00da | | Load_Top At_Offset_2 0b6d e002 | | Load 0x0,0x2 0b6e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0b6f c5fc | | Store 0x2,-0x4 0b70 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0b71 0000 0000 | | .BLANK 0000[0x7] 0b78 ; -------------------------------------------------------------------------------------- 0b78 ; SUBPROGRAM 0b78 ; -------------------------------------------------------------------------------------- 0b78 0b80 | | .CONST 0x0b80 ; Address of begin 0b79 0004 | | .CONST 0x0004 ; Address of exception handler 0b7a 0003 | | .CONST 0x0003 ; Number of locals 0b7b INIT_0b78: 0b7b e00d | | Load 0x0,0xd 0b7c 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0b7d e002 | | Load 0x0,0x2 0b7e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0b7f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0b80 BODY_0b78: 0b80 00d8 | | Load_Top At_Offset_0 0b81 e00d | | Load 0x0,0xd 0b82 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0b83 4801 |H | Short_Literal 0x1 0b84 e5fd | | Load 0x2,-0x3 0b85 e5ff | | Load 0x2,-0x1 0b86 8276 | v | Call 0x1,0x76 0b87 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0b88 0059 | Y | Store_Top Discrete,At_Offset_1 0b89 00d8 | | Load_Top At_Offset_0 0b8a 700f |p | Jump_Nonzero 0xb9a 0b8b 00d9 | | Load_Top At_Offset_1 0b8c 0219 | | Execute Heap_Access,All_Read 0b8d 00d9 | | Load_Top At_Offset_1 0b8e 00d9 | | Load_Top At_Offset_1 0b8f 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0b90 e5fe | | Load 0x2,-0x2 0b91 e016 | | Load 0x0,0x16 0b92 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0b93 00da | | Load_Top At_Offset_2 0b94 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0b95 005a | Z | Store_Top Discrete,At_Offset_2 0b96 00d1 | | Pop_Control Pop_Count_1 0b97 00d8 | | Load_Top At_Offset_0 0b98 7001 |p | Jump_Nonzero 0xb9a 0b99 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0b9a e002 | | Load 0x0,0x2 0b9b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b9c 4801 |H | Short_Literal 0x1 0b9d 4802 |H | Short_Literal 0x2 0b9e e005 | | Load 0x0,0x5 0b9f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ba0 0334 | 4 | Declare_Variable Array,With_Constraint 0ba1 e5ff | | Load 0x2,-0x1 0ba2 8210 | | Call 0x1,0x10 0ba3 4801 |H | Short_Literal 0x1 0ba4 00da | | Load_Top At_Offset_2 0ba5 01d6 | | Execute Vector,Field_Write 0ba6 e5fd | | Load 0x2,-0x3 0ba7 e014 | | Load 0x0,0x14 0ba8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0ba9 4802 |H | Short_Literal 0x2 0baa 00da | | Load_Top At_Offset_2 0bab 01d6 | | Execute Vector,Field_Write 0bac 00da | | Load_Top At_Offset_2 0bad e002 | | Load 0x0,0x2 0bae 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0baf c5fc | | Store 0x2,-0x4 0bb0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0bb1 0000 0000 | | .BLANK 0000[0x7] 0bb8 ; -------------------------------------------------------------------------------------- 0bb8 ; SUBPROGRAM 0bb8 ; -------------------------------------------------------------------------------------- 0bb8 0bbb | | .CONST 0x0bbb ; Address of begin 0bb9 0004 | | .CONST 0x0004 ; Address of exception handler 0bba 0001 | | .CONST 0x0001 ; Number of locals 0bbb BODY_0bb8: 0bbb INIT_0bb8: 0bbb 00da | | Load_Top At_Offset_2 0bbc 680b |h | Jump_Zero 0xbc8 0bbd 00da | | Load_Top At_Offset_2 0bbe 0217 | | Execute Heap_Access,All_Reference 0bbf 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0bc0 6807 |h | Jump_Zero 0xbc8 0bc1 00da | | Load_Top At_Offset_2 0bc2 0217 | | Execute Heap_Access,All_Reference 0bc3 3c13 |< | Execute Record,Field_Read,Field_Number 0x13 0bc4 e001 | | Load 0x0,0x1 0bc5 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0bc6 0216 | | Execute Heap_Access,Convert 0bc7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0bc8 00da | | Load_Top At_Offset_2 0bc9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 7002 |p | Jump_Nonzero 0xbd7 0bd5 00da | | Load_Top At_Offset_2 0bd6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0bd7 00da | | Load_Top At_Offset_2 0bd8 0217 | | Execute Heap_Access,All_Reference 0bd9 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0bda 6802 |h | Jump_Zero 0xbdd 0bdb 00da | | Load_Top At_Offset_2 0bdc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0bdd 00da | | Load_Top At_Offset_2 0bde 0217 | | Execute Heap_Access,All_Reference 0bdf 3c13 |< | Execute Record,Field_Read,Field_Number 0x13 0be0 e001 | | Load 0x0,0x1 0be1 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0be2 0216 | | Execute Heap_Access,Convert 0be3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0be4 0000 0000 | | .BLANK 0000[0x4] 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 6805 |h | Jump_Zero 0xbf2 0bed 00da | | Load_Top At_Offset_2 0bee 0217 | | Execute Heap_Access,All_Reference 0bef 3c15 |< | Execute Record,Field_Read,Field_Number 0x15 0bf0 8263 | c | Call 0x1,0x63 0bf1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0bf2 8215 | | Call 0x1,0x15 0bf3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0bf4 0000 0000 | | .BLANK 0000[0x4] 0bf8 ; -------------------------------------------------------------------------------------- 0bf8 ; SUBPROGRAM 0bf8 ; -------------------------------------------------------------------------------------- 0bf8 0bfb | | .CONST 0x0bfb ; Address of begin 0bf9 0004 | | .CONST 0x0004 ; Address of exception handler 0bfa 0001 | | .CONST 0x0001 ; Number of locals 0bfb BODY_0bf8: 0bfb INIT_0bf8: 0bfb 00da | | Load_Top At_Offset_2 0bfc 7002 |p | Jump_Nonzero 0xbff 0bfd 00da | | Load_Top At_Offset_2 0bfe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0bff 00da | | Load_Top At_Offset_2 0c00 0217 | | Execute Heap_Access,All_Reference 0c01 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 0c02 e001 | | Load 0x0,0x1 0c03 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0c04 0216 | | Execute Heap_Access,Convert 0c05 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c06 0000 0000 | | .XXX[0x2] 0c08 ; -------------------------------------------------------------------------------------- 0c08 ; SUBPROGRAM 0c08 ; -------------------------------------------------------------------------------------- 0c08 0c0b | | .CONST 0x0c0b ; Address of begin 0c09 0004 | | .CONST 0x0004 ; Address of exception handler 0c0a 0001 | | .CONST 0x0001 ; Number of locals 0c0b BODY_0c08: 0c0b INIT_0c08: 0c0b 00da | | Load_Top At_Offset_2 0c0c 6804 |h | Jump_Zero 0xc11 0c0d 00da | | Load_Top At_Offset_2 0c0e 0217 | | Execute Heap_Access,All_Reference 0c0f 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0c10 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c11 4800 |H | Short_Literal 0x0 0c12 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c13 0000 0000 | | .BLANK 0000[0x5] 0c18 ; -------------------------------------------------------------------------------------- 0c18 ; SUBPROGRAM 0c18 ; -------------------------------------------------------------------------------------- 0c18 0c1b | | .CONST 0x0c1b ; Address of begin 0c19 0004 | | .CONST 0x0004 ; Address of exception handler 0c1a 0001 | | .CONST 0x0001 ; Number of locals 0c1b BODY_0c18: 0c1b INIT_0c18: 0c1b 00db | | Load_Top At_Offset_3 0c1c 00db | | Load_Top At_Offset_3 0c1d 0217 | | Execute Heap_Access,All_Reference 0c1e 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 0c1f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 e017 | | Load 0x0,0x17 0c25 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c26 011c | | Execute Any,Convert_Unchecked 0c27 1c01 | | Execute_Immediate Run_Utility,0x1 0c28 e005 | | Load 0x0,0x5 0c29 1810 | | Execute Package,Field_Execute,Field_Number 0x10 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 00da | | Load_Top At_Offset_2 0c34 e006 | | Load 0x0,0x6 0c35 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0c36 e00d | | Load 0x0,0xd 0c37 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0c38 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c39 0000 0000 | | .BLANK 0000[0x7] 0c40 ; -------------------------------------------------------------------------------------- 0c40 ; SUBPROGRAM 0c40 ; -------------------------------------------------------------------------------------- 0c40 0c54 | T | .CONST 0x0c54 ; Address of begin 0c41 0cef | | .CONST 0x0cef ; Address of exception handler 0c42 0005 | | .CONST 0x0005 ; Number of locals 0c43 INIT_0c40: 0c43 e003 | | Load 0x0,0x3 0c44 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0c45 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0c46 02c7 | | Declare_Variable Any 0c47 00d8 | | Load_Top At_Offset_0 0c48 1c00 | | Execute_Immediate Run_Utility,0x0 0c49 e003 | | Load 0x0,0x3 0c4a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c4b e00e | | Load 0x0,0xe 0c4c 0322 | " | Declare_Variable Record 0c4d 00d8 | | Load_Top At_Offset_0 0c4e 1c00 | | Execute_Immediate Run_Utility,0x0 0c4f e003 | | Load 0x0,0x3 0c50 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c51 02c7 | | Declare_Variable Any 0c52 00d8 | | Load_Top At_Offset_0 0c53 1c00 | | Execute_Immediate Run_Utility,0x0 0c54 BODY_0c40: 0c54 e5fd | | Load 0x2,-0x3 0c55 00d9 | | Load_Top At_Offset_1 0c56 0120 | | Execute Any,Is_Value 0c57 6803 |h | Jump_Zero 0xc5b 0c58 e003 | | Load 0x0,0x3 0c59 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c5a 7801 |x | Jump 0xc5c 0c5b 00d9 | | Load_Top At_Offset_1 0c5c e5ff | | Load 0x2,-0x1 0c5d 8224 | $ | Call 0x1,0x24 0c5e c405 | | Store 0x2,0x5 0c5f c5fd | | Store 0x2,-0x3 0c60 e5fd | | Load 0x2,-0x3 0c61 708c |p | Jump_Nonzero 0xcee 0c62 e003 | | Load 0x0,0x3 0c63 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c64 e402 | | Load 0x2,0x2 0c65 0120 | | Execute Any,Is_Value 0c66 6804 |h | Jump_Zero 0xc6b 0c67 e003 | | Load 0x0,0x3 0c68 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0c69 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0c6a 7801 |x | Jump 0xc6c 0c6b e402 | | Load 0x2,0x2 0c6c 608b |` | Indirect_Literal Discrete,0xcf8,{0x00000000, 0x00004000} 0c6d e013 | | Load 0x0,0x13 0c6e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0c6f 4800 |H | Short_Literal 0x0 0c70 e405 | | Load 0x2,0x5 0c71 e003 | | Load 0x0,0x3 0c72 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0c73 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0c74 c402 | | Store 0x2,0x2 0c75 005b | [ | Store_Top Discrete,At_Offset_3 0c76 00da | | Load_Top At_Offset_2 0c77 460e |F | Jump_Case 0xf 0c78 7836 |x6 | Jump 0xcaf ; case 0x0 0c79 7835 |x5 | Jump 0xcaf ; case 0x1 0c7a 780c |x | Jump 0xc87 ; case 0x2 0c7b 780b |x | Jump 0xc87 ; case 0x3 0c7c 780a |x | Jump 0xc87 ; case 0x4 0c7d 7809 |x | Jump 0xc87 ; case 0x5 0c7e 7808 |x | Jump 0xc87 ; case 0x6 0c7f 7807 |x | Jump 0xc87 ; case 0x7 0c80 7806 |x | Jump 0xc87 ; case 0x8 0c81 7805 |x | Jump 0xc87 ; case 0x9 0c82 782c |x, | Jump 0xcaf ; case 0xa 0c83 7803 |x | Jump 0xc87 ; case 0xb 0c84 7802 |x | Jump 0xc87 ; case 0xc 0c85 7801 |x | Jump 0xc87 ; case 0xd 0c86 7800 |x | Jump 0xc87 ; case 0xe 0c87 e003 | | Load 0x0,0x3 0c88 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0c89 e5ff | | Load 0x2,-0x1 0c8a 0217 | | Execute Heap_Access,All_Reference 0c8b 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 0c8c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0c8d e5fd | | Load 0x2,-0x3 0c8e 00d9 | | Load_Top At_Offset_1 0c8f 0120 | | Execute Any,Is_Value 0c90 6803 |h | Jump_Zero 0xc94 0c91 e003 | | Load 0x0,0x3 0c92 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c93 7801 |x | Jump 0xc95 0c94 00d9 | | Load_Top At_Offset_1 0c95 e5ff | | Load 0x2,-0x1 0c96 8224 | $ | Call 0x1,0x24 0c97 c405 | | Store 0x2,0x5 0c98 c5fd | | Store 0x2,-0x3 0c99 e5fd | | Load 0x2,-0x3 0c9a 7014 |p | Jump_Nonzero 0xcaf 0c9b e003 | | Load 0x0,0x3 0c9c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c9d e402 | | Load 0x2,0x2 0c9e 0120 | | Execute Any,Is_Value 0c9f 6804 |h | Jump_Zero 0xca4 0ca0 e003 | | Load 0x0,0x3 0ca1 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0ca2 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0ca3 7801 |x | Jump 0xca5 0ca4 e402 | | Load 0x2,0x2 0ca5 6052 |`R | Indirect_Literal Discrete,0xcf8,{0x00000000, 0x00004000} 0ca6 e013 | | Load 0x0,0x13 0ca7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ca8 4800 |H | Short_Literal 0x0 0ca9 e405 | | Load 0x2,0x5 0caa e003 | | Load 0x0,0x3 0cab 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0cac 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0cad c402 | | Store 0x2,0x2 0cae 005b | [ | Store_Top Discrete,At_Offset_3 0caf 00da | | Load_Top At_Offset_2 0cb0 7027 |p' | Jump_Nonzero 0xcd8 0cb1 00d8 | | Load_Top At_Offset_0 0cb2 00da | | Load_Top At_Offset_2 0cb3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0cb4 00db | | Load_Top At_Offset_3 0cb5 e003 | | Load 0x0,0x3 0cb6 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0cb7 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0cb8 00da | | Load_Top At_Offset_2 0cb9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0cba 00db | | Load_Top At_Offset_3 0cbb e003 | | Load 0x0,0x3 0cbc 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0cbd 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0cbe 00da | | Load_Top At_Offset_2 0cbf 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0cc0 00db | | Load_Top At_Offset_3 0cc1 e003 | | Load 0x0,0x3 0cc2 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0cc3 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0cc4 00da | | Load_Top At_Offset_2 0cc5 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0cc6 00db | | Load_Top At_Offset_3 0cc7 e003 | | Load 0x0,0x3 0cc8 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f 0cc9 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0cca 00da | | Load_Top At_Offset_2 0ccb 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0ccc 00d9 | | Load_Top At_Offset_1 0ccd e5fe | | Load 0x2,-0x2 0cce 017d | } | Execute Record,Structure_Write 0ccf 00d9 | | Load_Top At_Offset_1 0cd0 e5ff | | Load 0x2,-0x1 0cd1 0217 | | Execute Heap_Access,All_Reference 0cd2 380d |8 | Execute Record,Field_Write,Field_Number 0xd 0cd3 4801 |H | Short_Literal 0x1 0cd4 e5ff | | Load 0x2,-0x1 0cd5 0217 | | Execute Heap_Access,All_Reference 0cd6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0cd7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0cd8 e002 | | Load 0x0,0x2 0cd9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0cda 4801 |H | Short_Literal 0x1 0cdb 4802 |H | Short_Literal 0x2 0cdc e005 | | Load 0x0,0x5 0cdd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0cde 0334 | 4 | Declare_Variable Array,With_Constraint 0cdf e5ff | | Load 0x2,-0x1 0ce0 8210 | | Call 0x1,0x10 0ce1 4801 |H | Short_Literal 0x1 0ce2 00da | | Load_Top At_Offset_2 0ce3 01d6 | | Execute Vector,Field_Write 0ce4 e403 | | Load 0x2,0x3 0ce5 e005 | | Load 0x0,0x5 0ce6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0ce7 4802 |H | Short_Literal 0x2 0ce8 00da | | Load_Top At_Offset_2 0ce9 01d6 | | Execute Vector,Field_Write 0cea 6009 |` | Indirect_Literal Discrete,0xcf4,{0x00000000, 0x00002006} 0ceb e002 | | Load 0x0,0x2 0cec 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0ced c5fd | | Store 0x2,-0x3 0cee 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0cef TRAP_0c40: 0cef 4885 |H | Short_Literal 0x85 0cf0 010f | | Execute Exception,Equal 0cf1 6801 |h | Jump_Zero 0xcf3 0cf2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0cf3 0100 | | Execute Exception,Raise 0cf4 0000 0000 | | .LITERAL {0x00000000, 0x00002006} 0cf8 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0cfc 0000 0000 | | .BLANK 0000[0x4] 0d00 ; -------------------------------------------------------------------------------------- 0d00 ; SUBPROGRAM 0d00 ; -------------------------------------------------------------------------------------- 0d00 0d28 | ( | .CONST 0x0d28 ; Address of begin 0d01 0dd7 | | .CONST 0x0dd7 ; Address of exception handler 0d02 0009 | | .CONST 0x0009 ; Number of locals 0d03 INIT_0d00: 0d03 e018 | | Load 0x0,0x18 0d04 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0d05 0322 | " | Declare_Variable Record 0d06 00d8 | | Load_Top At_Offset_0 0d07 1c00 | | Execute_Immediate Run_Utility,0x0 0d08 e017 | | Load 0x0,0x17 0d09 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d0a e003 | | Load 0x0,0x3 0d0b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0d0c 02ff | | Declare_Variable Variant_Record 0d0d 00d8 | | Load_Top At_Offset_0 0d0e 1c00 | | Execute_Immediate Run_Utility,0x0 0d0f e018 | | Load 0x0,0x18 0d10 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0d11 0322 | " | Declare_Variable Record 0d12 00d8 | | Load_Top At_Offset_0 0d13 1c00 | | Execute_Immediate Run_Utility,0x0 0d14 e00e | | Load 0x0,0xe 0d15 0322 | " | Declare_Variable Record 0d16 00d8 | | Load_Top At_Offset_0 0d17 1c00 | | Execute_Immediate Run_Utility,0x0 0d18 e013 | | Load 0x0,0x13 0d19 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d1a 02c7 | | Declare_Variable Any 0d1b e013 | | Load 0x0,0x13 0d1c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d1d a407 | | Store_Unchecked 0x2,0x7 0d1e e00f | | Load 0x0,0xf 0d1f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d20 02c7 | | Declare_Variable Any 0d21 00d8 | | Load_Top At_Offset_0 0d22 1c00 | | Execute_Immediate Run_Utility,0x0 0d23 e00f | | Load 0x0,0xf 0d24 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d25 02c7 | | Declare_Variable Any 0d26 00d8 | | Load_Top At_Offset_0 0d27 1c00 | | Execute_Immediate Run_Utility,0x0 0d28 BODY_0d00: 0d28 e004 | | Load 0x0,0x4 0d29 180f | | Execute Package,Field_Execute,Field_Number 0xf 0d2a c5fe | | Store 0x2,-0x2 0d2b e004 | | Load 0x0,0x4 0d2c 180f | | Execute Package,Field_Execute,Field_Number 0xf 0d2d c5fd | | Store 0x2,-0x3 0d2e e5fc | | Load 0x2,-0x4 0d2f e406 | | Load 0x2,0x6 0d30 e5ff | | Load 0x2,-0x1 0d31 8260 | ` | Call 0x1,0x60 0d32 00d1 | | Pop_Control Pop_Count_1 0d33 c5fc | | Store 0x2,-0x4 0d34 e5fc | | Load 0x2,-0x4 0d35 70a0 |p | Jump_Nonzero 0xdd6 0d36 e017 | | Load 0x0,0x17 0d37 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0d38 e402 | | Load 0x2,0x2 0d39 e013 | | Load 0x0,0x13 0d3a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d3b 4800 |H | Short_Literal 0x0 0d3c 4800 |H | Short_Literal 0x0 0d3d e406 | | Load 0x2,0x6 0d3e 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0d3f e018 | | Load 0x0,0x18 0d40 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0d41 00d1 | | Pop_Control Pop_Count_1 0d42 c403 | | Store 0x2,0x3 0d43 e403 | | Load 0x2,0x3 0d44 7069 |pi | Jump_Nonzero 0xdae 0d45 e402 | | Load 0x2,0x2 0d46 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0d47 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0d48 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0d49 c409 | | Store 0x2,0x9 0d4a 00db | | Load_Top At_Offset_3 0d4b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0d4c e003 | | Load 0x0,0x3 0d4d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0d4e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0d4f 012f | / | Execute Any,Equal 0d50 685a |hZ | Jump_Zero 0xdab 0d51 e017 | | Load 0x0,0x17 0d52 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d53 e404 | | Load 0x2,0x4 0d54 4800 |H | Short_Literal 0x0 0d55 e407 | | Load 0x2,0x7 0d56 e406 | | Load 0x2,0x6 0d57 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0d58 e019 | | Load 0x0,0x19 0d59 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d5a 0162 | b | Execute Variant_Record,Check_In_Type 0d5b e019 | | Load 0x0,0x19 0d5c 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 0d5d 00d1 | | Pop_Control Pop_Count_1 0d5e c403 | | Store 0x2,0x3 0d5f e403 | | Load 0x2,0x3 0d60 702f |p/ | Jump_Nonzero 0xd90 0d61 e017 | | Load 0x0,0x17 0d62 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0d63 e405 | | Load 0x2,0x5 0d64 e013 | | Load 0x0,0x13 0d65 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d66 4800 |H | Short_Literal 0x0 0d67 4800 |H | Short_Literal 0x0 0d68 e404 | | Load 0x2,0x4 0d69 e018 | | Load 0x0,0x18 0d6a 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0d6b 00d1 | | Pop_Control Pop_Count_1 0d6c c403 | | Store 0x2,0x3 0d6d e403 | | Load 0x2,0x3 0d6e 7006 |p | Jump_Nonzero 0xd75 0d6f e405 | | Load 0x2,0x5 0d70 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0d71 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0d72 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0d73 c408 | | Store 0x2,0x8 0d74 7853 |xS | Jump 0xdc8 0d75 e002 | | Load 0x0,0x2 0d76 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d77 4801 |H | Short_Literal 0x1 0d78 4802 |H | Short_Literal 0x2 0d79 e005 | | Load 0x0,0x5 0d7a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d7b 0334 | 4 | Declare_Variable Array,With_Constraint 0d7c e5ff | | Load 0x2,-0x1 0d7d 8210 | | Call 0x1,0x10 0d7e 4801 |H | Short_Literal 0x1 0d7f 00da | | Load_Top At_Offset_2 0d80 01d6 | | Execute Vector,Field_Write 0d81 e403 | | Load 0x2,0x3 0d82 e017 | | Load 0x0,0x17 0d83 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d84 011c | | Execute Any,Convert_Unchecked 0d85 1c01 | | Execute_Immediate Run_Utility,0x1 0d86 e005 | | Load 0x0,0x5 0d87 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0d88 4802 |H | Short_Literal 0x2 0d89 00da | | Load_Top At_Offset_2 0d8a 01d6 | | Execute Vector,Field_Write 0d8b 6058 |`X | Indirect_Literal Discrete,0xde4,{0x00000000, 0x00002005} 0d8c e002 | | Load 0x0,0x2 0d8d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0d8e c5fc | | Store 0x2,-0x4 0d8f 7838 |x8 | Jump 0xdc8 0d90 e002 | | Load 0x0,0x2 0d91 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d92 4801 |H | Short_Literal 0x1 0d93 4802 |H | Short_Literal 0x2 0d94 e005 | | Load 0x0,0x5 0d95 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d96 0334 | 4 | Declare_Variable Array,With_Constraint 0d97 e5ff | | Load 0x2,-0x1 0d98 8210 | | Call 0x1,0x10 0d99 4801 |H | Short_Literal 0x1 0d9a 00da | | Load_Top At_Offset_2 0d9b 01d6 | | Execute Vector,Field_Write 0d9c e403 | | Load 0x2,0x3 0d9d e017 | | Load 0x0,0x17 0d9e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d9f 011c | | Execute Any,Convert_Unchecked 0da0 1c01 | | Execute_Immediate Run_Utility,0x1 0da1 e005 | | Load 0x0,0x5 0da2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0da3 4802 |H | Short_Literal 0x2 0da4 00da | | Load_Top At_Offset_2 0da5 01d6 | | Execute Vector,Field_Write 0da6 6039 |`9 | Indirect_Literal Discrete,0xde0,{0x00000000, 0x00002004} 0da7 e002 | | Load 0x0,0x2 0da8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0da9 c5fc | | Store 0x2,-0x4 0daa 781d |x | Jump 0xdc8 0dab 00d8 | | Load_Top At_Offset_0 0dac c408 | | Store 0x2,0x8 0dad 781a |x | Jump 0xdc8 0dae e002 | | Load 0x0,0x2 0daf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0db0 4801 |H | Short_Literal 0x1 0db1 4802 |H | Short_Literal 0x2 0db2 e005 | | Load 0x0,0x5 0db3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0db4 0334 | 4 | Declare_Variable Array,With_Constraint 0db5 e5ff | | Load 0x2,-0x1 0db6 8210 | | Call 0x1,0x10 0db7 4801 |H | Short_Literal 0x1 0db8 00da | | Load_Top At_Offset_2 0db9 01d6 | | Execute Vector,Field_Write 0dba e403 | | Load 0x2,0x3 0dbb e017 | | Load 0x0,0x17 0dbc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0dbd 011c | | Execute Any,Convert_Unchecked 0dbe 1c01 | | Execute_Immediate Run_Utility,0x1 0dbf e005 | | Load 0x0,0x5 0dc0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0dc1 4802 |H | Short_Literal 0x2 0dc2 00da | | Load_Top At_Offset_2 0dc3 01d6 | | Execute Vector,Field_Write 0dc4 6017 |` | Indirect_Literal Discrete,0xddc,{0x00000000, 0x00002007} 0dc5 e002 | | Load 0x0,0x2 0dc6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0dc7 c5fc | | Store 0x2,-0x4 0dc8 e5fc | | Load 0x2,-0x4 0dc9 700c |p | Jump_Nonzero 0xdd6 0dca 00d8 | | Load_Top At_Offset_0 0dcb c5fe | | Store 0x2,-0x2 0dcc 00d9 | | Load_Top At_Offset_1 0dcd c5fd | | Store 0x2,-0x3 0dce 00d8 | | Load_Top At_Offset_0 0dcf e5ff | | Load 0x2,-0x1 0dd0 0217 | | Execute Heap_Access,All_Reference 0dd1 380f |8 | Execute Record,Field_Write,Field_Number 0xf 0dd2 00d9 | | Load_Top At_Offset_1 0dd3 e5ff | | Load 0x2,-0x1 0dd4 0217 | | Execute Heap_Access,All_Reference 0dd5 380e |8 | Execute Record,Field_Write,Field_Number 0xe 0dd6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0dd7 TRAP_0d00: 0dd7 4885 |H | Short_Literal 0x85 0dd8 010f | | Execute Exception,Equal 0dd9 6801 |h | Jump_Zero 0xddb 0dda 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0ddb 0100 | | Execute Exception,Raise 0ddc 0000 0000 | | .LITERAL {0x00000000, 0x00002007} 0de0 0000 0000 | | .LITERAL {0x00000000, 0x00002004} 0de4 0000 0000 | | .LITERAL {0x00000000, 0x00002005} 0de8 ; -------------------------------------------------------------------------------------- 0de8 ; SUBPROGRAM 0de8 ; -------------------------------------------------------------------------------------- 0de8 0dee | | .CONST 0x0dee ; Address of begin 0de9 0004 | | .CONST 0x0004 ; Address of exception handler 0dea 0003 | | .CONST 0x0003 ; Number of locals 0deb INIT_0de8: 0deb 00e2 | | Load_Encached Integer_Cache 0dec 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0ded 00db | | Load_Top At_Offset_3 0dee BODY_0de8: 0dee 00cf | | Action Mark_Auxiliary 0def 7808 |x | Jump 0xdf8 0df0 00da | | Load_Top At_Offset_2 0df1 0a01 | | Execute_Immediate Plus,0x1 0df2 005b | [ | Store_Top Discrete,At_Offset_3 0df3 00d9 | | Load_Top At_Offset_1 0df4 0217 | | Execute Heap_Access,All_Reference 0df5 3c14 |< | Execute Record,Field_Read,Field_Number 0x14 0df6 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0df7 00c9 | | Action Pop_Auxiliary_Loop 0df8 00d9 | | Load_Top At_Offset_1 0df9 77f6 |w | Jump_Nonzero 0xdf0 0dfa 00ce | | Action Pop_Auxiliary 0dfb e5ff | | Load 0x2,-0x1 0dfc 680b |h | Jump_Zero 0xe08 0dfd 00d9 | | Load_Top At_Offset_1 0dfe 7009 |p | Jump_Nonzero 0xe08 0dff 0092 1550 | P| Action Push_String_Extended,0x1550 ; "No siblings for " 0e01 e5ff | | Load 0x2,-0x1 0e02 0217 | | Execute Heap_Access,All_Reference 0e03 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 0e04 e010 | | Load 0x0,0x10 0e05 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0e06 01cc | | Execute Vector,Catenate 0e07 8011 | | Call 0x0,0x11 0e08 00d9 | | Load_Top At_Offset_1 0e09 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e0a 0000 0000 | | .BLANK 0000[0x6] 0e10 ; -------------------------------------------------------------------------------------- 0e10 ; SUBPROGRAM 0e10 ; -------------------------------------------------------------------------------------- 0e10 0e19 | | .CONST 0x0e19 ; Address of begin 0e11 0004 | | .CONST 0x0004 ; Address of exception handler 0e12 0003 | | .CONST 0x0003 ; Number of locals 0e13 INIT_0e10: 0e13 00da | | Load_Top At_Offset_2 0e14 8262 | b | Call 0x1,0x62 0e15 e214 | | Load 0x1,0x14 0e16 1c08 | | Execute_Immediate Run_Utility,0x8 0e17 00db | | Load_Top At_Offset_3 0e18 0007 | | Action Break_Optional 0e19 BODY_0e10: 0e19 4800 |H | Short_Literal 0x0 0e1a 00da | | Load_Top At_Offset_2 0e1b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0e1c 00cf | | Action Mark_Auxiliary 0e1d 00da | | Load_Top At_Offset_2 0e1e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0e1f 01d9 | | Execute Vector,Reverse_Bounds 0e20 0263 | c | Execute Discrete,Above_Bound 0e21 700e |p | Jump_Nonzero 0xe30 0e22 00db | | Load_Top At_Offset_3 0e23 e001 | | Load 0x0,0x1 0e24 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0e25 0216 | | Execute Heap_Access,Convert 0e26 00d9 | | Load_Top At_Offset_1 0e27 e402 | | Load 0x2,0x2 0e28 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0e29 01d6 | | Execute Vector,Field_Write 0e2a 00db | | Load_Top At_Offset_3 0e2b 0217 | | Execute Heap_Access,All_Reference 0e2c 3c14 |< | Execute Record,Field_Read,Field_Number 0x14 0e2d a403 | | Store_Unchecked 0x2,0x3 0e2e 00c8 | | Action Pop_Auxiliary_Range 0e2f 3ff2 |? | Loop_Increasing 0xe22 0e30 00ce | | Action Pop_Auxiliary 0e31 00d9 | | Load_Top At_Offset_1 0e32 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e33 0000 0000 | | .BLANK 0000[0x5] 0e38 ; -------------------------------------------------------------------------------------- 0e38 ; SUBPROGRAM 0e38 ; -------------------------------------------------------------------------------------- 0e38 0e3b | ; | .CONST 0x0e3b ; Address of begin 0e39 0004 | | .CONST 0x0004 ; Address of exception handler 0e3a 0001 | | .CONST 0x0001 ; Number of locals 0e3b BODY_0e38: 0e3b INIT_0e38: 0e3b 00db | | Load_Top At_Offset_3 0e3c e01a | | Load 0x0,0x1a 0e3d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0e3e 00d9 | | Load_Top At_Offset_1 0e3f 00d0 | | Action Swap_Control 0e40 0260 | ` | Execute Discrete,In_Type 0e41 7001 |p | Jump_Nonzero 0xe43 0e42 0801 | | Execute_Immediate Raise,0x1 0e43 00db | | Load_Top At_Offset_3 0e44 e01b | | Load 0x0,0x1b 0e45 e01c | | Load 0x0,0x1c 0e46 a01d | | Store_Unchecked 0x0,0x1d 0e47 e01e | | Load 0x0,0x1e 0e48 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0e49 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0e4a 0000 0000 | | .BLANK 0000[0x6] 0e50 ; -------------------------------------------------------------------------------------- 0e50 ; SUBPROGRAM 0e50 ; -------------------------------------------------------------------------------------- 0e50 0e67 | g | .CONST 0x0e67 ; Address of begin 0e51 0004 | | .CONST 0x0004 ; Address of exception handler 0e52 0006 | | .CONST 0x0006 ; Number of locals 0e53 INIT_0e50: 0e53 e003 | | Load 0x0,0x3 0e54 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e55 02c7 | | Declare_Variable Any 0e56 00d8 | | Load_Top At_Offset_0 0e57 1c00 | | Execute_Immediate Run_Utility,0x0 0e58 e003 | | Load 0x0,0x3 0e59 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0e5a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0e5b 02c7 | | Declare_Variable Any 0e5c 00d8 | | Load_Top At_Offset_0 0e5d 1c00 | | Execute_Immediate Run_Utility,0x0 0e5e e003 | | Load 0x0,0x3 0e5f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e60 02c7 | | Declare_Variable Any 0e61 00d8 | | Load_Top At_Offset_0 0e62 1c00 | | Execute_Immediate Run_Utility,0x0 0e63 e003 | | Load 0x0,0x3 0e64 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0e65 029f 115b | [| Declare_Subprogram INIT_1158,For_Call 0e67 BODY_0e50: 0e67 e003 | | Load 0x0,0x3 0e68 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0e69 e403 | | Load 0x2,0x3 0e6a 0120 | | Execute Any,Is_Value 0e6b 6804 |h | Jump_Zero 0xe70 0e6c e003 | | Load 0x0,0x3 0e6d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0e6e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0e6f 7801 |x | Jump 0xe71 0e70 e403 | | Load 0x2,0x3 0e71 e5ff | | Load 0x2,-0x1 0e72 e003 | | Load 0x0,0x3 0e73 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0e74 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0e75 c403 | | Store 0x2,0x3 0e76 005a | Z | Store_Top Discrete,At_Offset_2 0e77 00db | | Load_Top At_Offset_3 0e78 e003 | | Load 0x0,0x3 0e79 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0e7a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0e7b c402 | | Store 0x2,0x2 0e7c e003 | | Load 0x0,0x3 0e7d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0e7e 00db | | Load_Top At_Offset_3 0e7f 0120 | | Execute Any,Is_Value 0e80 6803 |h | Jump_Zero 0xe84 0e81 e003 | | Load 0x0,0x3 0e82 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e83 7801 |x | Jump 0xe85 0e84 00db | | Load_Top At_Offset_3 0e85 e402 | | Load 0x2,0x2 0e86 e003 | | Load 0x0,0x3 0e87 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 0e88 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0e89 c404 | | Store 0x2,0x4 0e8a 005a | Z | Store_Top Discrete,At_Offset_2 0e8b 00d9 | | Load_Top At_Offset_1 0e8c 6824 |h$ | Jump_Zero 0xeb1 0e8d 4801 |H | Short_Literal 0x1 0e8e 4804 |H | Short_Literal 0x4 0e8f e005 | | Load 0x0,0x5 0e90 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e91 0334 | 4 | Declare_Variable Array,With_Constraint 0e92 e402 | | Load 0x2,0x2 0e93 e005 | | Load 0x0,0x5 0e94 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0e95 4801 |H | Short_Literal 0x1 0e96 00da | | Load_Top At_Offset_2 0e97 01d6 | | Execute Vector,Field_Write 0e98 00db | | Load_Top At_Offset_3 0e99 e005 | | Load 0x0,0x5 0e9a 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0e9b 4802 |H | Short_Literal 0x2 0e9c 00da | | Load_Top At_Offset_2 0e9d 01d6 | | Execute Vector,Field_Write 0e9e 00db | | Load_Top At_Offset_3 0e9f e005 | | Load 0x0,0x5 0ea0 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0ea1 4803 |H | Short_Literal 0x3 0ea2 00da | | Load_Top At_Offset_2 0ea3 01d6 | | Execute Vector,Field_Write 0ea4 00da | | Load_Top At_Offset_2 0ea5 e003 | | Load 0x0,0x3 0ea6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ea7 011c | | Execute Any,Convert_Unchecked 0ea8 1c01 | | Execute_Immediate Run_Utility,0x1 0ea9 e005 | | Load 0x0,0x5 0eaa 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0eab 4804 |H | Short_Literal 0x4 0eac 00da | | Load_Top At_Offset_2 0ead 01d6 | | Execute Vector,Field_Write 0eae 601d |` | Indirect_Literal Discrete,0xecc,{0x00000000, 0x0000200a} 0eaf e002 | | Load 0x0,0x2 0eb0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0eb1 00da | | Load_Top At_Offset_2 0eb2 e003 | | Load 0x0,0x3 0eb3 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0eb4 e01f | | Load 0x0,0x1f 0eb5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0eb6 027e | ~ | Execute Discrete,Not_Equal 0eb7 6807 |h | Jump_Zero 0xebf 0eb8 e013 | | Load 0x0,0x13 0eb9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0eba 600d |` | Indirect_Literal Discrete,0xec8,{0x00007fff, 0xffffffff} 0ebb e5ff | | Load 0x2,-0x1 0ebc e020 | | Load 0x0,0x20 0ebd 180e | | Execute Package,Field_Execute,Field_Number 0xe 0ebe 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0ebf e013 | | Load 0x0,0x13 0ec0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ec1 6006 |` | Indirect_Literal Discrete,0xec8,{0x00007fff, 0xffffffff} 0ec2 e5ff | | Load 0x2,-0x1 0ec3 8406 | | Call 0x2,0x6 0ec4 e020 | | Load 0x0,0x20 0ec5 180e | | Execute Package,Field_Execute,Field_Number 0xe 0ec6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0ec7 0000 | | .XXX[0x1] 0ec8 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff} 0ecc 0000 0000 | | .LITERAL {0x00000000, 0x0000200a} 0ed0 ; -------------------------------------------------------------------------------------- 0ed0 ; SUBPROGRAM 0ed0 ; -------------------------------------------------------------------------------------- 0ed0 0f18 | | .CONST 0x0f18 ; Address of begin 0ed1 0fc7 | | .CONST 0x0fc7 ; Address of exception handler 0ed2 0016 | | .CONST 0x0016 ; Number of locals 0ed3 INIT_0ed0: 0ed3 00e2 | | Load_Encached Integer_Cache 0ed4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0ed5 4801 |H | Short_Literal 0x1 0ed6 4a00 |J | Short_Literal 0x200 0ed7 e001 | | Load 0x0,0x1 0ed8 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0ed9 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0eda 035b | [ | Declare_Type Array,Constrained 0edb 0337 | 7 | Declare_Variable Array 0edc 00d8 | | Load_Top At_Offset_0 0edd 1c00 | | Execute_Immediate Run_Utility,0x0 0ede e019 | | Load 0x0,0x19 0edf 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0ee0 02c7 | | Declare_Variable Any 0ee1 00d8 | | Load_Top At_Offset_0 0ee2 1c00 | | Execute_Immediate Run_Utility,0x0 0ee3 e017 | | Load 0x0,0x17 0ee4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ee5 e013 | | Load 0x0,0x13 0ee6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ee7 02c7 | | Declare_Variable Any 0ee8 e013 | | Load 0x0,0x13 0ee9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0eea a406 | | Store_Unchecked 0x2,0x6 0eeb e20d | | Load 0x1,0xd 0eec 0007 | | Action Break_Optional 0eed 00e1 | | Load_Encached Boolean_Cache 0eee 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0eef e004 | | Load 0x0,0x4 0ef0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ef1 0337 | 7 | Declare_Variable Array 0ef2 e5ff | | Load 0x2,-0x1 0ef3 e001 | | Load 0x0,0x1 0ef4 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0ef5 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0ef6 e001 | | Load 0x0,0x1 0ef7 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0ef8 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0ef9 e014 | | Load 0x0,0x14 0efa 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0efb 00d9 | | Load_Top At_Offset_1 0efc 01d4 | | Execute Vector,Structure_Write 0efd 029f 11d3 | | Declare_Subprogram INIT_11d0,For_Call 0eff 029f 1273 | s| Declare_Subprogram INIT_1270,For_Call 0f01 a021 | ! | Store_Unchecked 0x0,0x21 0f02 00c6 | | Action Check_Subprogram_Elaborated 0f03 00e2 | | Load_Encached Integer_Cache 0f04 480b |H | Short_Literal 0xb 0f05 4802 |H | Short_Literal 0x2 0f06 0099 | | Action Reference_Dynamic 0f07 e022 | " | Load 0x0,0x22 0f08 e023 | # | Load 0x0,0x23 0f09 4810 |H | Short_Literal 0x10 0f0a 0007 | | Action Break_Optional 0f0b 029f 1323 | #| Declare_Subprogram INIT_1320,For_Call 0f0d e024 | $ | Load 0x0,0x24 0f0e 190d | | Execute Package,Field_Reference,Field_Number 0xd 0f0f 00c6 | | Action Check_Subprogram_Elaborated 0f10 00e1 | | Load_Encached Boolean_Cache 0f11 4811 |H | Short_Literal 0x11 0f12 4802 |H | Short_Literal 0x2 0f13 0099 | | Action Reference_Dynamic 0f14 e025 | % | Load 0x0,0x25 0f15 e026 | & | Load 0x0,0x26 0f16 4816 |H | Short_Literal 0x16 0f17 0007 | | Action Break_Optional 0f18 BODY_0ed0: 0f18 4807 |H | Short_Literal 0x7 0f19 e409 | | Load 0x2,0x9 0f1a 01d7 | | Execute Vector,Field_Read 0f1b c027 | ' | Store 0x0,0x27 0f1c e017 | | Load 0x0,0x17 0f1d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0f1e e404 | | Load 0x2,0x4 0f1f 0120 | | Execute Any,Is_Value 0f20 6804 |h | Jump_Zero 0xf25 0f21 e019 | | Load 0x0,0x19 0f22 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0f23 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f24 7801 |x | Jump 0xf26 0f25 e404 | | Load 0x2,0x4 0f26 e406 | | Load 0x2,0x6 0f27 4800 |H | Short_Literal 0x0 0f28 4800 |H | Short_Literal 0x0 0f29 e5ff | | Load 0x2,-0x1 0f2a 0217 | | Execute Heap_Access,All_Reference 0f2b 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 0f2c 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0f2d e019 | | Load 0x0,0x19 0f2e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0f2f 0162 | b | Execute Variant_Record,Check_In_Type 0f30 e019 | | Load 0x0,0x19 0f31 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0f32 c404 | | Store 0x2,0x4 0f33 c405 | | Store 0x2,0x5 0f34 e405 | | Load 0x2,0x5 0f35 707b |p{ | Jump_Nonzero 0xfb1 0f36 e402 | | Load 0x2,0x2 0f37 e001 | | Load 0x0,0x1 0f38 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0f39 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0f3a 0337 | 7 | Declare_Variable Array 0f3b 4801 |H | Short_Literal 0x1 0f3c 4802 |H | Short_Literal 0x2 0f3d 00da | | Load_Top At_Offset_2 0f3e 01d6 | | Execute Vector,Field_Write 0f3f 4800 |H | Short_Literal 0x0 0f40 e409 | | Load 0x2,0x9 0f41 01d7 | | Execute Vector,Field_Read 0f42 0f00 | | Execute_Immediate Equal,0x0 0f43 4803 |H | Short_Literal 0x3 0f44 00da | | Load_Top At_Offset_2 0f45 01d6 | | Execute Vector,Field_Write 0f46 4803 |H | Short_Literal 0x3 0f47 e409 | | Load 0x2,0x9 0f48 01d7 | | Execute Vector,Field_Read 0f49 4804 |H | Short_Literal 0x4 0f4a 00da | | Load_Top At_Offset_2 0f4b 01d6 | | Execute Vector,Field_Write 0f4c 4800 |H | Short_Literal 0x0 0f4d 4800 |H | Short_Literal 0x0 0f4e 00da | | Load_Top At_Offset_2 0f4f 01d6 | | Execute Vector,Field_Write 0f50 4800 |H | Short_Literal 0x0 0f51 4801 |H | Short_Literal 0x1 0f52 00da | | Load_Top At_Offset_2 0f53 01d6 | | Execute Vector,Field_Write 0f54 4800 |H | Short_Literal 0x0 0f55 4805 |H | Short_Literal 0x5 0f56 00da | | Load_Top At_Offset_2 0f57 01d6 | | Execute Vector,Field_Write 0f58 e001 | | Load 0x0,0x1 0f59 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0f5a 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0f5b 01c3 | | Execute Vector,Check_In_Type 0f5c e404 | | Load 0x2,0x4 0f5d e019 | | Load 0x0,0x19 0f5e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0f5f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0f60 e40c | | Load 0x2,0xc 0f61 480d |H | Short_Literal 0xd 0f62 4802 |H | Short_Literal 0x2 0f63 0099 | | Action Reference_Dynamic 0f64 480e |H | Short_Literal 0xe 0f65 4802 |H | Short_Literal 0x2 0f66 0099 | | Action Reference_Dynamic 0f67 8021 | ! | Call 0x0,0x21 0f68 e5ff | | Load 0x2,-0x1 0f69 0217 | | Execute Heap_Access,All_Reference 0f6a 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0f6b 6813 |h | Jump_Zero 0xf7f 0f6c e408 | | Load 0x2,0x8 0f6d e404 | | Load 0x2,0x4 0f6e e019 | | Load 0x0,0x19 0f6f 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0f70 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0f71 e412 | | Load 0x2,0x12 0f72 4813 |H | Short_Literal 0x13 0f73 4802 |H | Short_Literal 0x2 0f74 0099 | | Action Reference_Dynamic 0f75 4814 |H | Short_Literal 0x14 0f76 4802 |H | Short_Literal 0x2 0f77 0099 | | Action Reference_Dynamic 0f78 e024 | $ | Load 0x0,0x24 0f79 180d | | Execute Package,Field_Execute,Field_Number 0xd 0f7a c408 | | Store 0x2,0x8 0f7b e408 | | Load 0x2,0x8 0f7c e5ff | | Load 0x2,-0x1 0f7d 0217 | | Execute Heap_Access,All_Reference 0f7e 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 0f7f e017 | | Load 0x0,0x17 0f80 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0f81 4800 |H | Short_Literal 0x0 0f82 4801 |H | Short_Literal 0x1 0f83 e406 | | Load 0x2,0x6 0f84 e5ff | | Load 0x2,-0x1 0f85 0217 | | Execute Heap_Access,All_Reference 0f86 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 0f87 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0f88 e019 | | Load 0x0,0x19 0f89 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0f8a 0162 | b | Execute Variant_Record,Check_In_Type 0f8b e019 | | Load 0x0,0x19 0f8c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0f8d c405 | | Store 0x2,0x5 0f8e 840a | | Call 0x2,0xa 0f8f e5fd | | Load 0x2,-0x3 0f90 e001 | | Load 0x0,0x1 0f91 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0f92 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0f93 0337 | 7 | Declare_Variable Array 0f94 4800 |H | Short_Literal 0x0 0f95 4800 |H | Short_Literal 0x0 0f96 00da | | Load_Top At_Offset_2 0f97 01d6 | | Execute Vector,Field_Write 0f98 4800 |H | Short_Literal 0x0 0f99 4805 |H | Short_Literal 0x5 0f9a 00da | | Load_Top At_Offset_2 0f9b 01d6 | | Execute Vector,Field_Write 0f9c 4804 |H | Short_Literal 0x4 0f9d 4801 |H | Short_Literal 0x1 0f9e 4801 |H | Short_Literal 0x1 0f9f 00d9 | | Load_Top At_Offset_1 0fa0 e418 | | Load 0x2,0x18 0fa1 01d6 | | Execute Vector,Field_Write 0fa2 3ffb |? | Loop_Increasing 0xf9e 0fa3 e001 | | Load 0x0,0x1 0fa4 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0fa5 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0fa6 01c3 | | Execute Vector,Check_In_Type 0fa7 e5ff | | Load 0x2,-0x1 0fa8 4801 |H | Short_Literal 0x1 0fa9 e402 | | Load 0x2,0x2 0faa e403 | | Load 0x2,0x3 0fab 01cf | | Execute Vector,Slice_Read 0fac e001 | | Load 0x0,0x1 0fad 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0fae 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0faf c5fd | | Store 0x2,-0x3 0fb0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0fb1 e002 | | Load 0x0,0x2 0fb2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0fb3 4801 |H | Short_Literal 0x1 0fb4 4802 |H | Short_Literal 0x2 0fb5 e005 | | Load 0x0,0x5 0fb6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0fb7 0334 | 4 | Declare_Variable Array,With_Constraint 0fb8 e5ff | | Load 0x2,-0x1 0fb9 8210 | | Call 0x1,0x10 0fba 4801 |H | Short_Literal 0x1 0fbb 00da | | Load_Top At_Offset_2 0fbc 01d6 | | Execute Vector,Field_Write 0fbd e405 | | Load 0x2,0x5 0fbe 825e | ^ | Call 0x1,0x5e 0fbf 4802 |H | Short_Literal 0x2 0fc0 00da | | Load_Top At_Offset_2 0fc1 01d6 | | Execute Vector,Field_Write 0fc2 601d |` | Indirect_Literal Discrete,0xfe0,{0x00000000, 0x00002008} 0fc3 e002 | | Load 0x0,0x2 0fc4 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0fc5 c5fd | | Store 0x2,-0x3 0fc6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0fc7 TRAP_0ed0: 0fc7 4885 |H | Short_Literal 0x85 0fc8 010f | | Execute Exception,Equal 0fc9 6811 |h | Jump_Zero 0xfdb 0fca e002 | | Load 0x0,0x2 0fcb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0fcc 4801 |H | Short_Literal 0x1 0fcd 4801 |H | Short_Literal 0x1 0fce e005 | | Load 0x0,0x5 0fcf 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0fd0 0334 | 4 | Declare_Variable Array,With_Constraint 0fd1 e5ff | | Load 0x2,-0x1 0fd2 8210 | | Call 0x1,0x10 0fd3 4801 |H | Short_Literal 0x1 0fd4 00da | | Load_Top At_Offset_2 0fd5 01d6 | | Execute Vector,Field_Write 0fd6 6005 |` | Indirect_Literal Discrete,0xfdc,{0x00000000, 0x0000200e} 0fd7 e002 | | Load 0x0,0x2 0fd8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0fd9 c5fd | | Store 0x2,-0x3 0fda 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0fdb 0100 | | Execute Exception,Raise 0fdc 0000 0000 | | .LITERAL {0x00000000, 0x0000200e} 0fe0 0000 0000 | | .LITERAL {0x00000000, 0x00002008} 0fe4 0000 0000 | | .BLANK 0000[0x4] 0fe8 ; -------------------------------------------------------------------------------------- 0fe8 ; SUBPROGRAM 0fe8 ; -------------------------------------------------------------------------------------- 0fe8 0ff0 | | .CONST 0x0ff0 ; Address of begin 0fe9 0004 | | .CONST 0x0004 ; Address of exception handler 0fea 0003 | | .CONST 0x0003 ; Number of locals 0feb INIT_0fe8: 0feb e003 | | Load 0x0,0x3 0fec 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0fed e003 | | Load 0x0,0x3 0fee 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0fef 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ff0 BODY_0fe8: 0ff0 e5ff | | Load 0x2,-0x1 0ff1 7002 |p | Jump_Nonzero 0xff4 0ff2 4800 |H | Short_Literal 0x0 0ff3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ff4 e003 | | Load 0x0,0x3 0ff5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ff6 e003 | | Load 0x0,0x3 0ff7 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0ff8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ff9 6012 |` | Indirect_Literal Discrete,0x100c,{0x00000000, 0x00004000} 0ffa e013 | | Load 0x0,0x13 0ffb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ffc 4800 |H | Short_Literal 0x0 0ffd e5ff | | Load 0x2,-0x1 0ffe 0217 | | Execute Heap_Access,All_Reference 0fff 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 1000 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 1001 e003 | | Load 0x0,0x3 1002 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 1003 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1004 e003 | | Load 0x0,0x3 1005 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 1006 180f | | Execute Package,Field_Execute,Field_Number 0xf 1007 005a | Z | Store_Top Discrete,At_Offset_2 1008 005a | Z | Store_Top Discrete,At_Offset_2 1009 00d8 | | Load_Top At_Offset_0 100a 0c03 | | Execute_Immediate Greater_Equal,0x3 100b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 100c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 1010 ; -------------------------------------------------------------------------------------- 1010 ; SUBPROGRAM 1010 ; -------------------------------------------------------------------------------------- 1010 1017 | | .CONST 0x1017 ; Address of begin 1011 0004 | | .CONST 0x0004 ; Address of exception handler 1012 0003 | | .CONST 0x0003 ; Number of locals 1013 INIT_1010: 1013 e00d | | Load 0x0,0xd 1014 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 1015 029f 1333 | 3| Declare_Subprogram INIT_1330,For_Call 1017 BODY_1010: 1017 e5ff | | Load 0x2,-0x1 1018 7003 |p | Jump_Nonzero 0x101c 1019 6022 |`" | Indirect_Literal Discrete,0x103c,{0x00000000, 0x00002009} 101a a5fb | | Store_Unchecked 0x2,-0x5 101b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 101c e5ff | | Load 0x2,-0x1 101d 0217 | | Execute Heap_Access,All_Reference 101e 3c1b |< | Execute Record,Field_Read,Field_Number 0x1b 101f 0032 | 2 | Store_Top Heap_Access,At_Offset_2 1020 00cf | | Action Mark_Auxiliary 1021 780e |x | Jump 0x1030 1022 00da | | Load_Top At_Offset_2 1023 0217 | | Execute Heap_Access,All_Reference 1024 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1025 e5fe | | Load 0x2,-0x2 1026 027f | | Execute Discrete,Equal 1027 6803 |h | Jump_Zero 0x102b 1028 00da | | Load_Top At_Offset_2 1029 a5fc | | Store_Unchecked 0x2,-0x4 102a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 102b 00da | | Load_Top At_Offset_2 102c 0217 | | Execute Heap_Access,All_Reference 102d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 102e 0033 | 3 | Store_Top Heap_Access,At_Offset_3 102f 00c9 | | Action Pop_Auxiliary_Loop 1030 00da | | Load_Top At_Offset_2 1031 77f0 |w | Jump_Nonzero 0x1022 1032 00ce | | Action Pop_Auxiliary 1033 e5fd | | Load 0x2,-0x3 1034 6802 |h | Jump_Zero 0x1037 1035 8403 | | Call 0x2,0x3 1036 7802 |x | Jump 0x1039 1037 6004 |` | Indirect_Literal Discrete,0x103c,{0x00000000, 0x00002009} 1038 a5fb | | Store_Unchecked 0x2,-0x5 1039 00d9 | | Load_Top At_Offset_1 103a a5fc | | Store_Unchecked 0x2,-0x4 103b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 103c 0000 0000 | | .LITERAL {0x00000000, 0x00002009} 1040 ; -------------------------------------------------------------------------------------- 1040 ; SUBPROGRAM 1040 ; -------------------------------------------------------------------------------------- 1040 1053 | S | .CONST 0x1053 ; Address of begin 1041 0004 | | .CONST 0x0004 ; Address of exception handler 1042 0004 | | .CONST 0x0004 ; Number of locals 1043 INIT_1040: 1043 e5ff | | Load 0x2,-0x1 1044 825f | _ | Call 0x1,0x5f 1045 00d8 | | Load_Top At_Offset_0 1046 e001 | | Load 0x0,0x1 1047 1b16 | | Execute Package,Field_Read,Field_Number 0x16 1048 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 1049 e5ff | | Load 0x2,-0x1 104a 0217 | | Execute Heap_Access,All_Reference 104b 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 104c e010 | | Load 0x0,0x10 104d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 104e 01cc | | Execute Vector,Catenate 104f 0007 | | Action Break_Optional 1050 e003 | | Load 0x0,0x3 1051 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1052 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1053 BODY_1040: 1053 e003 | | Load 0x0,0x3 1054 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1055 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1056 e402 | | Load 0x2,0x2 1057 0120 | | Execute Any,Is_Value 1058 6803 |h | Jump_Zero 0x105c 1059 e003 | | Load 0x0,0x3 105a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 105b 7801 |x | Jump 0x105d 105c e402 | | Load 0x2,0x2 105d 604a |`J | Indirect_Literal Discrete,0x10a8,{0x00000000, 0x00004000} 105e e013 | | Load 0x0,0x13 105f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1060 e028 | ( | Load 0x0,0x28 1061 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1062 e003 | | Load 0x0,0x3 1063 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1064 1816 | | Execute Package,Field_Execute,Field_Number 0x16 1065 e603 | | Load 0x3,0x3 1066 e003 | | Load 0x0,0x3 1067 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1068 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 1069 c402 | | Store 0x2,0x2 106a 0059 | Y | Store_Top Discrete,At_Offset_1 106b 00d8 | | Load_Top At_Offset_0 106c 460e |F | Jump_Case 0xf 106d 7821 |x! | Jump 0x108f ; case 0x0 106e 780d |x | Jump 0x107c ; case 0x1 106f 780c |x | Jump 0x107c ; case 0x2 1070 782b |x+ | Jump 0x109c ; case 0x3 1071 780a |x | Jump 0x107c ; case 0x4 1072 7809 |x | Jump 0x107c ; case 0x5 1073 7808 |x | Jump 0x107c ; case 0x6 1074 7807 |x | Jump 0x107c ; case 0x7 1075 7806 |x | Jump 0x107c ; case 0x8 1076 7805 |x | Jump 0x107c ; case 0x9 1077 7804 |x | Jump 0x107c ; case 0xa 1078 7803 |x | Jump 0x107c ; case 0xb 1079 7802 |x | Jump 0x107c ; case 0xc 107a 7801 |x | Jump 0x107c ; case 0xd 107b 7800 |x | Jump 0x107c ; case 0xe 107c e002 | | Load 0x0,0x2 107d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 107e 4801 |H | Short_Literal 0x1 107f 4801 |H | Short_Literal 0x1 1080 e005 | | Load 0x0,0x5 1081 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1082 0334 | 4 | Declare_Variable Array,With_Constraint 1083 00db | | Load_Top At_Offset_3 1084 00db | | Load_Top At_Offset_3 1085 e005 | | Load 0x0,0x5 1086 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 1087 4801 |H | Short_Literal 0x1 1088 00da | | Load_Top At_Offset_2 1089 01d6 | | Execute Vector,Field_Write 108a 6019 |` | Indirect_Literal Discrete,0x10a4,{0x00000000, 0x00002002} 108b e002 | | Load 0x0,0x2 108c 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 108d c5fd | | Store 0x2,-0x3 108e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 108f 0092 1551 | Q| Action Push_String_Extended,0x1551 ; "Created directory object for \x22" 1091 00da | | Load_Top At_Offset_2 1092 01cc | | Execute Vector,Catenate 1093 0092 1552 | R| Action Push_String_Extended,0x1552 ; "\x22." 1095 01cc | | Execute Vector,Catenate 1096 8011 | | Call 0x0,0x11 1097 4801 |H | Short_Literal 0x1 1098 e5ff | | Load 0x2,-0x1 1099 0217 | | Execute Heap_Access,All_Reference 109a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 109b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 109c 4800 |H | Short_Literal 0x0 109d e5ff | | Load 0x2,-0x1 109e 0217 | | Execute Heap_Access,All_Reference 109f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 10a0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 10a1 0000 0000 | | .XXX[0x3] 10a3 0000 | | 10a4 0000 0000 | | .LITERAL {0x00000000, 0x00002002} 10a8 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 10ac 0000 0000 | | .BLANK 0000[0x4] 10b0 ; -------------------------------------------------------------------------------------- 10b0 ; SUBPROGRAM 10b0 ; -------------------------------------------------------------------------------------- 10b0 10b9 | | .CONST 0x10b9 ; Address of begin 10b1 0004 | | .CONST 0x0004 ; Address of exception handler 10b2 0004 | | .CONST 0x0004 ; Number of locals 10b3 INIT_10b0: 10b3 e5fe | | Load 0x2,-0x2 10b4 e015 | | Load 0x0,0x15 10b5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 10b6 e00d | | Load 0x0,0xd 10b7 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 10b8 00e1 | | Load_Encached Boolean_Cache 10b9 BODY_10b0: 10b9 00cf | | Action Mark_Auxiliary 10ba 00db | | Load_Top At_Offset_3 10bb 01d9 | | Execute Vector,Reverse_Bounds 10bc 0263 | c | Execute Discrete,Above_Bound 10bd 708d |p | Jump_Nonzero 0x114b 10be e407 | | Load 0x2,0x7 10bf e00d | | Load 0x0,0xd 10c0 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 10c1 a404 | | Store_Unchecked 0x2,0x4 10c2 00d8 | | Load_Top At_Offset_0 10c3 e602 | | Load 0x3,0x2 10c4 01d7 | | Execute Vector,Field_Read 10c5 a402 | | Store_Unchecked 0x2,0x2 10c6 e402 | | Load 0x2,0x2 10c7 e015 | | Load 0x0,0x15 10c8 1820 | | Execute Package,Field_Execute,Field_Number 0x20 10c9 7024 |p$ | Jump_Nonzero 0x10ee 10ca e002 | | Load 0x0,0x2 10cb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 10cc 4801 |H | Short_Literal 0x1 10cd 4804 |H | Short_Literal 0x4 10ce e005 | | Load 0x0,0x5 10cf 1b0f | | Execute Package,Field_Read,Field_Number 0xf 10d0 0334 | 4 | Declare_Variable Array,With_Constraint 10d1 00da | | Load_Top At_Offset_2 10d2 e005 | | Load 0x0,0x5 10d3 1812 | | Execute Package,Field_Execute,Field_Number 0x12 10d4 4801 |H | Short_Literal 0x1 10d5 00da | | Load_Top At_Offset_2 10d6 01d6 | | Execute Vector,Field_Write 10d7 e402 | | Load 0x2,0x2 10d8 e015 | | Load 0x0,0x15 10d9 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 10da 4802 |H | Short_Literal 0x2 10db 00da | | Load_Top At_Offset_2 10dc 01d6 | | Execute Vector,Field_Write 10dd e5ff | | Load 0x2,-0x1 10de 8210 | | Call 0x1,0x10 10df 4803 |H | Short_Literal 0x3 10e0 00da | | Load_Top At_Offset_2 10e1 01d6 | | Execute Vector,Field_Write 10e2 e5fd | | Load 0x2,-0x3 10e3 e014 | | Load 0x0,0x14 10e4 181c | | Execute Package,Field_Execute,Field_Number 0x1c 10e5 4804 |H | Short_Literal 0x4 10e6 00da | | Load_Top At_Offset_2 10e7 01d6 | | Execute Vector,Field_Write 10e8 6067 |`g | Indirect_Literal Discrete,0x1150,{0x00000000, 0x0000200b} 10e9 e002 | | Load 0x0,0x2 10ea 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 10eb c5fc | | Store 0x2,-0x4 10ec 00cc | | Action Pop_Block 10ed 4504 |E | Exit_Suprogram New_Top_Offset 0x4 10ee e402 | | Load 0x2,0x2 10ef e015 | | Load 0x0,0x15 10f0 1816 | | Execute Package,Field_Execute,Field_Number 0x16 10f1 e404 | | Load 0x2,0x4 10f2 0217 | | Execute Heap_Access,All_Reference 10f3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 10f4 e402 | | Load 0x2,0x2 10f5 e015 | | Load 0x0,0x15 10f6 181c | | Execute Package,Field_Execute,Field_Number 0x1c 10f7 e404 | | Load 0x2,0x4 10f8 0217 | | Execute Heap_Access,All_Reference 10f9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 10fa e404 | | Load 0x2,0x4 10fb 0219 | | Execute Heap_Access,All_Read 10fc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 10fd 00e1 | | Load_Encached Boolean_Cache 10fe 00d9 | | Load_Top At_Offset_1 10ff e5ff | | Load 0x2,-0x1 1100 e006 | | Load 0x0,0x6 1101 1811 | | Execute Package,Field_Execute,Field_Number 0x11 1102 e402 | | Load 0x2,0x2 1103 e015 | | Load 0x0,0x15 1104 1819 | | Execute Package,Field_Execute,Field_Number 0x19 1105 e005 | | Load 0x0,0x5 1106 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 1107 00d1 | | Pop_Control Pop_Count_1 1108 c604 | | Store 0x3,0x4 1109 00d1 | | Pop_Control Pop_Count_1 110a 00db | | Load_Top At_Offset_3 110b 6819 |h | Jump_Zero 0x1125 110c e403 | | Load 0x2,0x3 110d 0217 | | Execute Heap_Access,All_Reference 110e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 110f 7009 |p | Jump_Nonzero 0x1119 1110 e404 | | Load 0x2,0x4 1111 e403 | | Load 0x2,0x3 1112 0217 | | Execute Heap_Access,All_Reference 1113 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 1114 4801 |H | Short_Literal 0x1 1115 e403 | | Load 0x2,0x3 1116 0217 | | Execute Heap_Access,All_Reference 1117 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 1118 782e |x. | Jump 0x1147 1119 e404 | | Load 0x2,0x4 111a e603 | | Load 0x3,0x3 111b 0217 | | Execute Heap_Access,All_Reference 111c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 111d e403 | | Load 0x2,0x3 111e 0217 | | Execute Heap_Access,All_Reference 111f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 1120 0a01 | | Execute_Immediate Plus,0x1 1121 e403 | | Load 0x2,0x3 1122 0217 | | Execute Heap_Access,All_Reference 1123 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 1124 7822 |x" | Jump 0x1147 1125 e002 | | Load 0x0,0x2 1126 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1127 4801 |H | Short_Literal 0x1 1128 4804 |H | Short_Literal 0x4 1129 e005 | | Load 0x0,0x5 112a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 112b 0334 | 4 | Declare_Variable Array,With_Constraint 112c 00da | | Load_Top At_Offset_2 112d e005 | | Load 0x0,0x5 112e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 112f 4801 |H | Short_Literal 0x1 1130 00da | | Load_Top At_Offset_2 1131 01d6 | | Execute Vector,Field_Write 1132 e402 | | Load 0x2,0x2 1133 e015 | | Load 0x0,0x15 1134 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 1135 4802 |H | Short_Literal 0x2 1136 00da | | Load_Top At_Offset_2 1137 01d6 | | Execute Vector,Field_Write 1138 e5ff | | Load 0x2,-0x1 1139 8210 | | Call 0x1,0x10 113a 4803 |H | Short_Literal 0x3 113b 00da | | Load_Top At_Offset_2 113c 01d6 | | Execute Vector,Field_Write 113d e5fd | | Load 0x2,-0x3 113e e014 | | Load 0x0,0x14 113f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1140 4804 |H | Short_Literal 0x4 1141 00da | | Load_Top At_Offset_2 1142 01d6 | | Execute Vector,Field_Write 1143 6008 |` | Indirect_Literal Discrete,0x114c,{0x00000000, 0x0000200d} 1144 e002 | | Load 0x0,0x2 1145 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 1146 c5fc | | Store 0x2,-0x4 1147 e404 | | Load 0x2,0x4 1148 a603 | | Store_Unchecked 0x3,0x3 1149 00c8 | | Action Pop_Auxiliary_Range 114a 3f73 |?s | Loop_Increasing 0x10be 114b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 114c 0000 0000 | | .LITERAL {0x00000000, 0x0000200d} 1150 0000 0000 | | .LITERAL {0x00000000, 0x0000200b} 1154 0000 0000 | | .BLANK 0000[0x4] 1158 ; -------------------------------------------------------------------------------------- 1158 ; SUBPROGRAM 1158 ; -------------------------------------------------------------------------------------- 1158 1174 | t | .CONST 0x1174 ; Address of begin 1159 0004 | | .CONST 0x0004 ; Address of exception handler 115a 0007 | | .CONST 0x0007 ; Number of locals 115b INIT_1158: 115b e003 | | Load 0x0,0x3 115c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 115d 02c7 | | Declare_Variable Any 115e 00d8 | | Load_Top At_Offset_0 115f 1c00 | | Execute_Immediate Run_Utility,0x0 1160 e003 | | Load 0x0,0x3 1161 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1162 02c7 | | Declare_Variable Any 1163 00d8 | | Load_Top At_Offset_0 1164 1c00 | | Execute_Immediate Run_Utility,0x0 1165 e003 | | Load 0x0,0x3 1166 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1167 02c7 | | Declare_Variable Any 1168 00d8 | | Load_Top At_Offset_0 1169 1c00 | | Execute_Immediate Run_Utility,0x0 116a e003 | | Load 0x0,0x3 116b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 116c 02c7 | | Declare_Variable Any 116d 00d8 | | Load_Top At_Offset_0 116e 1c00 | | Execute_Immediate Run_Utility,0x0 116f e003 | | Load 0x0,0x3 1170 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1171 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1172 029f 138b | | Declare_Subprogram INIT_1388,For_Call 1174 BODY_1158: 1174 e003 | | Load 0x0,0x3 1175 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1176 00db | | Load_Top At_Offset_3 1177 0120 | | Execute Any,Is_Value 1178 6803 |h | Jump_Zero 0x117c 1179 e003 | | Load 0x0,0x3 117a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 117b 7801 |x | Jump 0x117d 117c 00db | | Load_Top At_Offset_3 117d e404 | | Load 0x2,0x4 117e e003 | | Load 0x0,0x3 117f 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 1180 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 1181 c605 | | Store 0x3,0x5 1182 c405 | | Store 0x2,0x5 1183 e405 | | Load 0x2,0x5 1184 6824 |h$ | Jump_Zero 0x11a9 1185 4801 |H | Short_Literal 0x1 1186 4804 |H | Short_Literal 0x4 1187 e005 | | Load 0x0,0x5 1188 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1189 0334 | 4 | Declare_Variable Array,With_Constraint 118a e402 | | Load 0x2,0x2 118b e005 | | Load 0x0,0x5 118c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 118d 4801 |H | Short_Literal 0x1 118e 00da | | Load_Top At_Offset_2 118f 01d6 | | Execute Vector,Field_Write 1190 e404 | | Load 0x2,0x4 1191 e005 | | Load 0x0,0x5 1192 181a | | Execute Package,Field_Execute,Field_Number 0x1a 1193 4802 |H | Short_Literal 0x2 1194 00da | | Load_Top At_Offset_2 1195 01d6 | | Execute Vector,Field_Write 1196 e602 | | Load 0x3,0x2 1197 e005 | | Load 0x0,0x5 1198 181a | | Execute Package,Field_Execute,Field_Number 0x1a 1199 4803 |H | Short_Literal 0x3 119a 00da | | Load_Top At_Offset_2 119b 01d6 | | Execute Vector,Field_Write 119c e405 | | Load 0x2,0x5 119d e003 | | Load 0x0,0x3 119e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 119f 011c | | Execute Any,Convert_Unchecked 11a0 1c01 | | Execute_Immediate Run_Utility,0x1 11a1 e005 | | Load 0x0,0x5 11a2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 11a3 4804 |H | Short_Literal 0x4 11a4 00da | | Load_Top At_Offset_2 11a5 01d6 | | Execute Vector,Field_Write 11a6 6025 |`% | Indirect_Literal Discrete,0x11cc,{0x00000000, 0x0000200a} 11a7 e002 | | Load 0x0,0x2 11a8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 11a9 00cf | | Action Mark_Auxiliary 11aa e5fe | | Load 0x2,-0x2 11ab 01dc | | Execute Vector,Last 11ac e5fe | | Load 0x2,-0x2 11ad 01dd | | Execute Vector,First 11ae 0263 | c | Execute Discrete,Above_Bound 11af 7010 |p | Jump_Nonzero 0x11c0 11b0 e605 | | Load 0x3,0x5 11b1 00d9 | | Load_Top At_Offset_1 11b2 e5fe | | Load 0x2,-0x2 11b3 01d5 | | Execute Vector,Field_Reference 11b4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 11b5 012f | / | Execute Any,Equal 11b6 6807 |h | Jump_Zero 0x11be 11b7 00d8 | | Load_Top At_Offset_0 11b8 e5fe | | Load 0x2,-0x2 11b9 01d5 | | Execute Vector,Field_Reference 11ba 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 11bb c602 | | Store 0x3,0x2 11bc 00d2 | | Pop_Control Pop_Count_2 11bd 7802 |x | Jump 0x11c0 11be 00c8 | | Action Pop_Auxiliary_Range 11bf 3ff0 |? | Loop_Increasing 0x11b0 11c0 00ce | | Action Pop_Auxiliary 11c1 e602 | | Load 0x3,0x2 11c2 e003 | | Load 0x0,0x3 11c3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 11c4 7002 |p | Jump_Nonzero 0x11c7 11c5 8607 | | Call 0x3,0x7 11c6 7802 |x | Jump 0x11c9 11c7 00ec | | Load_Encached Diana_Tree_Cache 11c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 11c9 0831 | 1 | Execute_Immediate Raise,0x31 11ca 0000 0000 | | .XXX[0x2] 11cc 0000 0000 | | .LITERAL {0x00000000, 0x0000200a} 11d0 ; -------------------------------------------------------------------------------------- 11d0 ; SUBPROGRAM 11d0 ; -------------------------------------------------------------------------------------- 11d0 11d5 | | .CONST 0x11d5 ; Address of begin 11d1 0004 | | .CONST 0x0004 ; Address of exception handler 11d2 0002 | | .CONST 0x0002 ; Number of locals 11d3 INIT_11d0: 11d3 e20d | | Load 0x1,0xd 11d4 0007 | | Action Break_Optional 11d5 BODY_11d0: 11d5 e5ff | | Load 0x2,-0x1 11d6 0217 | | Execute Heap_Access,All_Reference 11d7 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 11d8 7092 |p | Jump_Nonzero 0x126b 11d9 e5ff | | Load 0x2,-0x1 11da 0217 | | Execute Heap_Access,All_Reference 11db 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 11dc e001 | | Load 0x0,0x1 11dd 1b10 | | Execute Package,Field_Read,Field_Number 0x10 11de 0216 | | Execute Heap_Access,Convert 11df a407 | | Store_Unchecked 0x2,0x7 11e0 e5ff | | Load 0x2,-0x1 11e1 0031 | 1 | Store_Top Heap_Access,At_Offset_1 11e2 00cf | | Action Mark_Auxiliary 11e3 783c |x< | Jump 0x1220 11e4 e027 | ' | Load 0x0,0x27 11e5 680b |h | Jump_Zero 0x11f1 11e6 0092 1553 | S| Action Push_String_Extended,0x1553 ; "Structural_Suppliers (Parent) " 11e8 e407 | | Load 0x2,0x7 11e9 0217 | | Execute Heap_Access,All_Reference 11ea 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 11eb 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 11ec e003 | | Load 0x0,0x3 11ed 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 11ee 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 11ef 01cc | | Execute Vector,Catenate 11f0 8011 | | Call 0x0,0x11 11f1 e402 | | Load 0x2,0x2 11f2 0a01 | | Execute_Immediate Plus,0x1 11f3 c402 | | Store 0x2,0x2 11f4 e407 | | Load 0x2,0x7 11f5 0217 | | Execute Heap_Access,All_Reference 11f6 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 11f7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 11f8 e402 | | Load 0x2,0x2 11f9 e403 | | Load 0x2,0x3 11fa 01d5 | | Execute Vector,Field_Reference 11fb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 11fc e402 | | Load 0x2,0x2 11fd e403 | | Load 0x2,0x3 11fe 01d5 | | Execute Vector,Field_Reference 11ff 00d8 | | Load_Top At_Offset_0 1200 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1201 00d8 | | Load_Top At_Offset_0 1202 0335 | 5 | Declare_Variable Array,Duplicate 1203 00cd | | Action Spare6_Action 1204 4805 |H | Short_Literal 0x5 1205 4800 |H | Short_Literal 0x0 1206 4800 |H | Short_Literal 0x0 1207 00d9 | | Load_Top At_Offset_1 1208 e606 | | Load 0x3,0x6 1209 01d6 | | Execute Vector,Field_Write 120a 3ffb |? | Loop_Increasing 0x1206 120b 00cd | | Action Spare6_Action 120c 00d9 | | Load_Top At_Offset_1 120d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 120e 00d1 | | Pop_Control Pop_Count_1 120f 4801 |H | Short_Literal 0x1 1210 4801 |H | Short_Literal 0x1 1211 e402 | | Load 0x2,0x2 1212 e403 | | Load 0x2,0x3 1213 01d5 | | Execute Vector,Field_Reference 1214 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 1215 01d6 | | Execute Vector,Field_Write 1216 e407 | | Load 0x2,0x7 1217 0032 | 2 | Store_Top Heap_Access,At_Offset_2 1218 e407 | | Load 0x2,0x7 1219 0217 | | Execute Heap_Access,All_Reference 121a 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 121b e001 | | Load 0x0,0x1 121c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 121d 0216 | | Execute Heap_Access,Convert 121e a407 | | Store_Unchecked 0x2,0x7 121f 00c9 | | Action Pop_Auxiliary_Loop 1220 e407 | | Load 0x2,0x7 1221 820f | | Call 0x1,0xf 1222 7004 |p | Jump_Nonzero 0x1227 1223 e407 | | Load 0x2,0x7 1224 0217 | | Execute Heap_Access,All_Reference 1225 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 1226 6fbd |o | Jump_Zero 0x11e4 1227 00ce | | Action Pop_Auxiliary 1228 00d8 | | Load_Top At_Offset_0 1229 0217 | | Execute Heap_Access,All_Reference 122a 3c13 |< | Execute Record,Field_Read,Field_Number 0x13 122b 683f |h? | Jump_Zero 0x126b 122c 00d8 | | Load_Top At_Offset_0 122d 0217 | | Execute Heap_Access,All_Reference 122e 3c13 |< | Execute Record,Field_Read,Field_Number 0x13 122f e001 | | Load 0x0,0x1 1230 1b10 | | Execute Package,Field_Read,Field_Number 0x10 1231 0216 | | Execute Heap_Access,Convert 1232 e5ff | | Load 0x2,-0x1 1233 021e | | Execute Heap_Access,Maximum 1234 6836 |h6 | Jump_Zero 0x126b 1235 e027 | ' | Load 0x0,0x27 1236 680d |h | Jump_Zero 0x1244 1237 0092 1554 | T| Action Push_String_Extended,0x1554 ; "Structural_Suppliers (Other) " 1239 00d9 | | Load_Top At_Offset_1 123a 0217 | | Execute Heap_Access,All_Reference 123b 3c13 |< | Execute Record,Field_Read,Field_Number 0x13 123c 0217 | | Execute Heap_Access,All_Reference 123d 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 123e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 123f e003 | | Load 0x0,0x3 1240 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1241 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 1242 01cc | | Execute Vector,Catenate 1243 8011 | | Call 0x0,0x11 1244 e402 | | Load 0x2,0x2 1245 0a01 | | Execute_Immediate Plus,0x1 1246 c402 | | Store 0x2,0x2 1247 00d8 | | Load_Top At_Offset_0 1248 0217 | | Execute Heap_Access,All_Reference 1249 3c13 |< | Execute Record,Field_Read,Field_Number 0x13 124a 0217 | | Execute Heap_Access,All_Reference 124b 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 124c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 124d e402 | | Load 0x2,0x2 124e e403 | | Load 0x2,0x3 124f 01d5 | | Execute Vector,Field_Reference 1250 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 1251 e402 | | Load 0x2,0x2 1252 e403 | | Load 0x2,0x3 1253 01d5 | | Execute Vector,Field_Reference 1254 00d8 | | Load_Top At_Offset_0 1255 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1256 00d8 | | Load_Top At_Offset_0 1257 0335 | 5 | Declare_Variable Array,Duplicate 1258 00cd | | Action Spare6_Action 1259 4805 |H | Short_Literal 0x5 125a 4800 |H | Short_Literal 0x0 125b 4800 |H | Short_Literal 0x0 125c 00d9 | | Load_Top At_Offset_1 125d e605 | | Load 0x3,0x5 125e 01d6 | | Execute Vector,Field_Write 125f 3ffb |? | Loop_Increasing 0x125b 1260 00cd | | Action Spare6_Action 1261 00d9 | | Load_Top At_Offset_1 1262 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 1263 00d1 | | Pop_Control Pop_Count_1 1264 4801 |H | Short_Literal 0x1 1265 4801 |H | Short_Literal 0x1 1266 e402 | | Load 0x2,0x2 1267 e403 | | Load 0x2,0x3 1268 01d5 | | Execute Vector,Field_Reference 1269 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 126a 01d6 | | Execute Vector,Field_Write 126b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 126c 0000 0000 | | .BLANK 0000[0x4] 1270 ; -------------------------------------------------------------------------------------- 1270 ; SUBPROGRAM 1270 ; -------------------------------------------------------------------------------------- 1270 1292 | | .CONST 0x1292 ; Address of begin 1271 0004 | | .CONST 0x0004 ; Address of exception handler 1272 0009 | | .CONST 0x0009 ; Number of locals 1273 INIT_1270: 1273 00ec | | Load_Encached Diana_Tree_Cache 1274 02c7 | | Declare_Variable Any 1275 00d8 | | Load_Top At_Offset_0 1276 1c00 | | Execute_Immediate Run_Utility,0x0 1277 e003 | | Load 0x0,0x3 1278 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1279 02c7 | | Declare_Variable Any 127a e003 | | Load 0x0,0x3 127b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 127c a603 | | Store_Unchecked 0x3,0x3 127d e003 | | Load 0x0,0x3 127e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 127f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 1280 e003 | | Load 0x0,0x3 1281 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 1282 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1283 02c7 | | Declare_Variable Any 1284 00d8 | | Load_Top At_Offset_0 1285 1c00 | | Execute_Immediate Run_Utility,0x0 1286 e003 | | Load 0x0,0x3 1287 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 1288 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1289 02c7 | | Declare_Variable Any 128a 00d8 | | Load_Top At_Offset_0 128b 1c00 | | Execute_Immediate Run_Utility,0x0 128c e003 | | Load 0x0,0x3 128d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 128e 029f 1433 | 3| Declare_Subprogram INIT_1430,For_Call 1290 029f 145b | [| Declare_Subprogram INIT_1458,For_Call 1292 BODY_1270: 1292 e7fe | | Load 0x3,-0x2 1293 4605 |F | Jump_Case 0x6 1294 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x0 1295 7804 |x | Jump 0x129a ; case 0x1 1296 7803 |x | Jump 0x129a ; case 0x2 1297 7805 |x | Jump 0x129d ; case 0x3 1298 7804 |x | Jump 0x129d ; case 0x4 1299 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x5 129a e7ff | | Load 0x3,-0x1 129b c602 | | Store 0x3,0x2 129c 7804 |x | Jump 0x12a1 129d e5fe | | Load 0x2,-0x2 129e e7ff | | Load 0x3,-0x1 129f 8273 | s | Call 0x1,0x73 12a0 c602 | | Store 0x3,0x2 12a1 e602 | | Load 0x3,0x2 12a2 6816 |h | Jump_Zero 0x12b9 12a3 e003 | | Load 0x0,0x3 12a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 12a5 e605 | | Load 0x3,0x5 12a6 0120 | | Execute Any,Is_Value 12a7 6804 |h | Jump_Zero 0x12ac 12a8 e003 | | Load 0x0,0x3 12a9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 12aa 1b0e | | Execute Package,Field_Read,Field_Number 0xe 12ab 7801 |x | Jump 0x12ad 12ac e605 | | Load 0x3,0x5 12ad e602 | | Load 0x3,0x2 12ae e003 | | Load 0x0,0x3 12af 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 12b0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 12b1 c605 | | Store 0x3,0x5 12b2 005b | [ | Store_Top Discrete,At_Offset_3 12b3 e605 | | Load 0x3,0x5 12b4 e003 | | Load 0x0,0x3 12b5 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 12b6 1812 | | Execute Package,Field_Execute,Field_Number 0x12 12b7 c603 | | Store 0x3,0x3 12b8 7830 |x0 | Jump 0x12e9 12b9 e7fe | | Load 0x3,-0x2 12ba 0f03 | | Execute_Immediate Equal,0x3 12bb e7fe | | Load 0x3,-0x2 12bc 0f04 | | Execute_Immediate Equal,0x4 12bd 0278 | x | Execute Discrete,Or 12be 682a |h* | Jump_Zero 0x12e9 12bf e003 | | Load 0x0,0x3 12c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 12c1 e605 | | Load 0x3,0x5 12c2 0120 | | Execute Any,Is_Value 12c3 6804 |h | Jump_Zero 0x12c8 12c4 e003 | | Load 0x0,0x3 12c5 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 12c6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 12c7 7801 |x | Jump 0x12c9 12c8 e605 | | Load 0x3,0x5 12c9 e7ff | | Load 0x3,-0x1 12ca e003 | | Load 0x0,0x3 12cb 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 12cc 181c | | Execute Package,Field_Execute,Field_Number 0x1c 12cd c605 | | Store 0x3,0x5 12ce 005b | [ | Store_Top Discrete,At_Offset_3 12cf e003 | | Load 0x0,0x3 12d0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 12d1 e606 | | Load 0x3,0x6 12d2 0120 | | Execute Any,Is_Value 12d3 6804 |h | Jump_Zero 0x12d8 12d4 e003 | | Load 0x0,0x3 12d5 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 12d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 12d7 7801 |x | Jump 0x12d9 12d8 e606 | | Load 0x3,0x6 12d9 6042 |`B | Indirect_Literal Discrete,0x131c,{0x00000000, 0x00004000} 12da e013 | | Load 0x0,0x13 12db 1b0e | | Execute Package,Field_Read,Field_Number 0xe 12dc e605 | | Load 0x3,0x5 12dd e003 | | Load 0x0,0x3 12de 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 12df 1814 | | Execute Package,Field_Execute,Field_Number 0x14 12e0 c606 | | Store 0x3,0x6 12e1 005b | [ | Store_Top Discrete,At_Offset_3 12e2 00db | | Load_Top At_Offset_3 12e3 e003 | | Load 0x0,0x3 12e4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 12e5 1812 | | Execute Package,Field_Execute,Field_Number 0x12 12e6 c603 | | Store 0x3,0x3 12e7 00db | | Load_Top At_Offset_3 12e8 8609 | | Call 0x3,0x9 12e9 e603 | | Load 0x3,0x3 12ea e003 | | Load 0x0,0x3 12eb 1811 | | Execute Package,Field_Execute,Field_Number 0x11 12ec 702c |p, | Jump_Nonzero 0x1319 12ed e027 | ' | Load 0x0,0x27 12ee 6808 |h | Jump_Zero 0x12f7 12ef 0092 1555 | U| Action Push_String_Extended,0x1555 ; "Add_Supplier " 12f1 e603 | | Load 0x3,0x3 12f2 e003 | | Load 0x0,0x3 12f3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 12f4 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 12f5 01cc | | Execute Vector,Catenate 12f6 8011 | | Call 0x0,0x11 12f7 00cf | | Action Mark_Auxiliary 12f8 e402 | | Load 0x2,0x2 12f9 4801 |H | Short_Literal 0x1 12fa 0263 | c | Execute Discrete,Above_Bound 12fb 701a |p | Jump_Nonzero 0x1316 12fc 00d8 | | Load_Top At_Offset_0 12fd e403 | | Load 0x2,0x3 12fe 01d5 | | Execute Vector,Field_Reference 12ff 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 1300 e603 | | Load 0x3,0x3 1301 012f | / | Execute Any,Equal 1302 6811 |h | Jump_Zero 0x1314 1303 e027 | ' | Load 0x0,0x27 1304 6807 |h | Jump_Zero 0x130c 1305 0092 1556 | V| Action Push_String_Extended,0x1556 ; "Changing Kinds for object" 1307 00d9 | | Load_Top At_Offset_1 1308 00e0 | | Load_Encached Standard_Cache 1309 1818 | | Execute Package,Field_Execute,Field_Number 0x18 130a 01cc | | Execute Vector,Catenate 130b 8011 | | Call 0x0,0x11 130c 4801 |H | Short_Literal 0x1 130d e7fe | | Load 0x3,-0x2 130e 00da | | Load_Top At_Offset_2 130f e403 | | Load 0x2,0x3 1310 01d5 | | Execute Vector,Field_Reference 1311 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 1312 01d6 | | Execute Vector,Field_Write 1313 4504 |E | Exit_Suprogram New_Top_Offset 0x4 1314 00c8 | | Action Pop_Auxiliary_Range 1315 3fe6 |? | Loop_Increasing 0x12fc 1316 00ce | | Action Pop_Auxiliary 1317 e603 | | Load 0x3,0x3 1318 8608 | | Call 0x3,0x8 1319 4504 |E | Exit_Suprogram New_Top_Offset 0x4 131a 0000 0000 | | .XXX[0x2] 131c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 1320 ; -------------------------------------------------------------------------------------- 1320 ; SUBPROGRAM 1320 ; -------------------------------------------------------------------------------------- 1320 1323 | # | .CONST 0x1323 ; Address of begin 1321 0004 | | .CONST 0x0004 ; Address of exception handler 1322 0001 | | .CONST 0x0001 ; Number of locals 1323 BODY_1320: 1323 INIT_1320: 1323 00da | | Load_Top At_Offset_2 1324 0145 | E | Execute Heap_Access,Diana_Tree_Kind 1325 0f41 | A | Execute_Immediate Equal,0x41 1326 6802 |h | Jump_Zero 0x1329 1327 4801 |H | Short_Literal 0x1 1328 a7fe | | Store_Unchecked 0x3,-0x2 1329 4502 |E | Exit_Suprogram New_Top_Offset 0x2 132a 0000 0000 | | .BLANK 0000[0x6] 1330 ; -------------------------------------------------------------------------------------- 1330 ; SUBPROGRAM 1330 ; -------------------------------------------------------------------------------------- 1330 1337 | 7 | .CONST 0x1337 ; Address of begin 1331 0004 | | .CONST 0x0004 ; Address of exception handler 1332 0002 | | .CONST 0x0002 ; Number of locals 1333 INIT_1330: 1333 e5ff | | Load 0x2,-0x1 1334 e001 | | Load 0x0,0x1 1335 1b16 | | Execute Package,Field_Read,Field_Number 0x16 1336 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 1337 BODY_1330: 1337 0092 1557 | W| Action Push_String_Extended,0x1557 ; "Creating Machine_Data record." 1339 8011 | | Call 0x0,0x11 133a e5ff | | Load 0x2,-0x1 133b e00d | | Load 0x0,0xd 133c 1820 | | Execute Package,Field_Execute,Field_Number 0x20 133d a402 | | Store_Unchecked 0x2,0x2 133e e5fe | | Load 0x2,-0x2 133f e402 | | Load 0x2,0x2 1340 0217 | | Execute Heap_Access,All_Reference 1341 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 1342 e5ff | | Load 0x2,-0x1 1343 0217 | | Execute Heap_Access,All_Reference 1344 3c1b |< | Execute Record,Field_Read,Field_Number 0x1b 1345 e402 | | Load 0x2,0x2 1346 0217 | | Execute Heap_Access,All_Reference 1347 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 1348 4800 |H | Short_Literal 0x0 1349 e402 | | Load 0x2,0x2 134a 0217 | | Execute Heap_Access,All_Reference 134b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 134c 4800 |H | Short_Literal 0x0 134d e402 | | Load 0x2,0x2 134e 0217 | | Execute Heap_Access,All_Reference 134f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 1350 4801 |H | Short_Literal 0x1 1351 e402 | | Load 0x2,0x2 1352 0217 | | Execute Heap_Access,All_Reference 1353 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 1354 00d8 | | Load_Top At_Offset_0 1355 e001 | | Load 0x0,0x1 1356 1b16 | | Execute Package,Field_Read,Field_Number 0x16 1357 1886 | | Execute Package,Field_Execute,Field_Number 0x86 1358 7016 |p | Jump_Nonzero 0x136f 1359 e5fe | | Load 0x2,-0x2 135a 00d9 | | Load_Top At_Offset_1 135b e001 | | Load 0x0,0x1 135c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 135d 1850 | P | Execute Package,Field_Execute,Field_Number 0x50 135e 6810 |h | Jump_Zero 0x136f 135f e402 | | Load 0x2,0x2 1360 0219 | | Execute Heap_Access,All_Read 1361 00d8 | | Load_Top At_Offset_0 1362 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 1363 00da | | Load_Top At_Offset_2 1364 e5fe | | Load 0x2,-0x2 1365 e602 | | Load 0x3,0x2 1366 e001 | | Load 0x0,0x1 1367 1b16 | | Execute Package,Field_Read,Field_Number 0x16 1368 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 1369 e016 | | Load 0x0,0x16 136a 180e | | Execute Package,Field_Execute,Field_Number 0xe 136b 00d9 | | Load_Top At_Offset_1 136c 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 136d 00d1 | | Pop_Control Pop_Count_1 136e 7805 |x | Jump 0x1374 136f e00d | | Load 0x0,0xd 1370 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 1371 e402 | | Load 0x2,0x2 1372 0217 | | Execute Heap_Access,All_Reference 1373 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 1374 4800 |H | Short_Literal 0x0 1375 e402 | | Load 0x2,0x2 1376 0217 | | Execute Heap_Access,All_Reference 1377 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 1378 e004 | | Load 0x0,0x4 1379 180f | | Execute Package,Field_Execute,Field_Number 0xf 137a e402 | | Load 0x2,0x2 137b 0217 | | Execute Heap_Access,All_Reference 137c 380a |8 | Execute Record,Field_Write,Field_Number 0xa 137d e004 | | Load 0x0,0x4 137e 180f | | Execute Package,Field_Execute,Field_Number 0xf 137f e402 | | Load 0x2,0x2 1380 0217 | | Execute Heap_Access,All_Reference 1381 380b |8 | Execute Record,Field_Write,Field_Number 0xb 1382 e402 | | Load 0x2,0x2 1383 e5ff | | Load 0x2,-0x1 1384 0217 | | Execute Heap_Access,All_Reference 1385 381b |8 | Execute Record,Field_Write,Field_Number 0x1b 1386 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1387 0000 | | .XXX[0x1] 1388 ; -------------------------------------------------------------------------------------- 1388 ; SUBPROGRAM 1388 ; -------------------------------------------------------------------------------------- 1388 13a8 | | .CONST 0x13a8 ; Address of begin 1389 0004 | | .CONST 0x0004 ; Address of exception handler 138a 0005 | | .CONST 0x0005 ; Number of locals 138b INIT_1388: 138b e404 | | Load 0x2,0x4 138c e003 | | Load 0x0,0x3 138d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 138e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 138f e602 | | Load 0x3,0x2 1390 e003 | | Load 0x0,0x3 1391 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1392 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 1393 e402 | | Load 0x2,0x2 1394 e003 | | Load 0x0,0x3 1395 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 1396 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 1397 00d9 | | Load_Top At_Offset_1 1398 00d9 | | Load_Top At_Offset_1 1399 01dd | | Execute Vector,First 139a e802 | | Load 0x4,0x2 139b 01db | | Execute Vector,Length 139c 0273 | s | Execute Discrete,Plus 139d 00d8 | | Load_Top At_Offset_0 139e 00e2 | | Load_Encached Integer_Cache 139f 0260 | ` | Execute Discrete,In_Type 13a0 7001 |p | Jump_Nonzero 0x13a2 13a1 0801 | | Execute_Immediate Raise,0x1 13a2 00da | | Load_Top At_Offset_2 13a3 01dc | | Execute Vector,Last 13a4 00db | | Load_Top At_Offset_3 13a5 01cf | | Execute Vector,Slice_Read 13a6 01cc | | Execute Vector,Catenate 13a7 0007 | | Action Break_Optional 13a8 BODY_1388: 13a8 e003 | | Load 0x0,0x3 13a9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 13aa 1b0f | | Execute Package,Field_Read,Field_Number 0xf 13ab e603 | | Load 0x3,0x3 13ac 0120 | | Execute Any,Is_Value 13ad 6803 |h | Jump_Zero 0x13b1 13ae e003 | | Load 0x0,0x3 13af 1b0f | | Execute Package,Field_Read,Field_Number 0xf 13b0 7801 |x | Jump 0x13b2 13b1 e603 | | Load 0x3,0x3 13b2 6075 |`u | Indirect_Literal Discrete,0x1428,{0x00000000, 0x00004000} 13b3 e013 | | Load 0x0,0x13 13b4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 13b5 e028 | ( | Load 0x0,0x28 13b6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 13b7 e003 | | Load 0x0,0x3 13b8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 13b9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 13ba e805 | | Load 0x4,0x5 13bb e003 | | Load 0x0,0x3 13bc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 13bd 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 13be c603 | | Store 0x3,0x3 13bf c606 | | Store 0x3,0x6 13c0 e606 | | Load 0x3,0x6 13c1 6824 |h$ | Jump_Zero 0x13e6 13c2 4801 |H | Short_Literal 0x1 13c3 4804 |H | Short_Literal 0x4 13c4 e005 | | Load 0x0,0x5 13c5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 13c6 0334 | 4 | Declare_Variable Array,With_Constraint 13c7 00d9 | | Load_Top At_Offset_1 13c8 e005 | | Load 0x0,0x5 13c9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 13ca 4801 |H | Short_Literal 0x1 13cb 00da | | Load_Top At_Offset_2 13cc 01d6 | | Execute Vector,Field_Write 13cd e404 | | Load 0x2,0x4 13ce e005 | | Load 0x0,0x5 13cf 181a | | Execute Package,Field_Execute,Field_Number 0x1a 13d0 4802 |H | Short_Literal 0x2 13d1 00da | | Load_Top At_Offset_2 13d2 01d6 | | Execute Vector,Field_Write 13d3 e602 | | Load 0x3,0x2 13d4 e005 | | Load 0x0,0x5 13d5 181a | | Execute Package,Field_Execute,Field_Number 0x1a 13d6 4803 |H | Short_Literal 0x3 13d7 00da | | Load_Top At_Offset_2 13d8 01d6 | | Execute Vector,Field_Write 13d9 e405 | | Load 0x2,0x5 13da e003 | | Load 0x0,0x3 13db 1b0d | | Execute Package,Field_Read,Field_Number 0xd 13dc 011c | | Execute Any,Convert_Unchecked 13dd 1c01 | | Execute_Immediate Run_Utility,0x1 13de e005 | | Load 0x0,0x5 13df 1810 | | Execute Package,Field_Execute,Field_Number 0x10 13e0 4804 |H | Short_Literal 0x4 13e1 00da | | Load_Top At_Offset_2 13e2 01d6 | | Execute Vector,Field_Write 13e3 6040 |`@ | Indirect_Literal Discrete,0x1424,{0x00000000, 0x0000200a} 13e4 e002 | | Load 0x0,0x2 13e5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 13e6 e003 | | Load 0x0,0x3 13e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 13e8 e604 | | Load 0x3,0x4 13e9 0120 | | Execute Any,Is_Value 13ea 6803 |h | Jump_Zero 0x13ee 13eb e003 | | Load 0x0,0x3 13ec 1b0e | | Execute Package,Field_Read,Field_Number 0xe 13ed 7801 |x | Jump 0x13ef 13ee e604 | | Load 0x3,0x4 13ef 6038 |`8 | Indirect_Literal Discrete,0x1428,{0x00000000, 0x00004000} 13f0 e013 | | Load 0x0,0x13 13f1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 13f2 4800 |H | Short_Literal 0x0 13f3 e603 | | Load 0x3,0x3 13f4 e003 | | Load 0x0,0x3 13f5 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 13f6 1819 | | Execute Package,Field_Execute,Field_Number 0x19 13f7 c604 | | Store 0x3,0x4 13f8 c405 | | Store 0x2,0x5 13f9 e405 | | Load 0x2,0x5 13fa 6824 |h$ | Jump_Zero 0x141f 13fb 4801 |H | Short_Literal 0x1 13fc 4804 |H | Short_Literal 0x4 13fd e005 | | Load 0x0,0x5 13fe 1b0f | | Execute Package,Field_Read,Field_Number 0xf 13ff 0334 | 4 | Declare_Variable Array,With_Constraint 1400 e603 | | Load 0x3,0x3 1401 e005 | | Load 0x0,0x5 1402 181a | | Execute Package,Field_Execute,Field_Number 0x1a 1403 4801 |H | Short_Literal 0x1 1404 00da | | Load_Top At_Offset_2 1405 01d6 | | Execute Vector,Field_Write 1406 e404 | | Load 0x2,0x4 1407 e005 | | Load 0x0,0x5 1408 181a | | Execute Package,Field_Execute,Field_Number 0x1a 1409 4802 |H | Short_Literal 0x2 140a 00da | | Load_Top At_Offset_2 140b 01d6 | | Execute Vector,Field_Write 140c e602 | | Load 0x3,0x2 140d e005 | | Load 0x0,0x5 140e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 140f 4803 |H | Short_Literal 0x3 1410 00da | | Load_Top At_Offset_2 1411 01d6 | | Execute Vector,Field_Write 1412 e405 | | Load 0x2,0x5 1413 e003 | | Load 0x0,0x3 1414 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1415 011c | | Execute Any,Convert_Unchecked 1416 1c01 | | Execute_Immediate Run_Utility,0x1 1417 e005 | | Load 0x0,0x5 1418 1810 | | Execute Package,Field_Execute,Field_Number 0x10 1419 4804 |H | Short_Literal 0x4 141a 00da | | Load_Top At_Offset_2 141b 01d6 | | Execute Vector,Field_Write 141c 6007 |` | Indirect_Literal Discrete,0x1424,{0x00000000, 0x0000200a} 141d e002 | | Load 0x0,0x2 141e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 141f e604 | | Load 0x3,0x4 1420 00cb | | Action Pop_Block_With_Result 1421 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1422 0000 0000 | | .XXX[0x2] 1424 0000 0000 | | .LITERAL {0x00000000, 0x0000200a} 1428 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 142c 0000 0000 | | .BLANK 0000[0x4] 1430 ; -------------------------------------------------------------------------------------- 1430 ; SUBPROGRAM 1430 ; -------------------------------------------------------------------------------------- 1430 1433 | 3 | .CONST 0x1433 ; Address of begin 1431 0004 | | .CONST 0x0004 ; Address of exception handler 1432 0001 | | .CONST 0x0001 ; Number of locals 1433 BODY_1430: 1433 INIT_1430: 1433 e402 | | Load 0x2,0x2 1434 0a01 | | Execute_Immediate Plus,0x1 1435 c402 | | Store 0x2,0x2 1436 00da | | Load_Top At_Offset_2 1437 e402 | | Load 0x2,0x2 1438 e403 | | Load 0x2,0x3 1439 01d5 | | Execute Vector,Field_Reference 143a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 143b e402 | | Load 0x2,0x2 143c e403 | | Load 0x2,0x3 143d 01d5 | | Execute Vector,Field_Reference 143e 00d8 | | Load_Top At_Offset_0 143f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1440 00d8 | | Load_Top At_Offset_0 1441 0335 | 5 | Declare_Variable Array,Duplicate 1442 00cd | | Action Spare6_Action 1443 4805 |H | Short_Literal 0x5 1444 4800 |H | Short_Literal 0x0 1445 4800 |H | Short_Literal 0x0 1446 00d9 | | Load_Top At_Offset_1 1447 e804 | | Load 0x4,0x4 1448 01d6 | | Execute Vector,Field_Write 1449 3ffb |? | Loop_Increasing 0x1445 144a 00cd | | Action Spare6_Action 144b 00d9 | | Load_Top At_Offset_1 144c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 144d 00d1 | | Pop_Control Pop_Count_1 144e 4801 |H | Short_Literal 0x1 144f e7fe | | Load 0x3,-0x2 1450 e402 | | Load 0x2,0x2 1451 e403 | | Load 0x2,0x3 1452 01d5 | | Execute Vector,Field_Reference 1453 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 1454 01d6 | | Execute Vector,Field_Write 1455 4502 |E | Exit_Suprogram New_Top_Offset 0x2 1456 0000 0000 | | .XXX[0x2] 1458 ; -------------------------------------------------------------------------------------- 1458 ; SUBPROGRAM 1458 ; -------------------------------------------------------------------------------------- 1458 1465 | e | .CONST 0x1465 ; Address of begin 1459 0004 | | .CONST 0x0004 ; Address of exception handler 145a 0004 | | .CONST 0x0004 ; Number of locals 145b INIT_1458: 145b e003 | | Load 0x0,0x3 145c 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 145d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 145e 02c7 | | Declare_Variable Any 145f 00d8 | | Load_Top At_Offset_0 1460 1c00 | | Execute_Immediate Run_Utility,0x0 1461 e003 | | Load 0x0,0x3 1462 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1463 029f 1483 | | Declare_Subprogram INIT_1480,For_Call 1465 BODY_1458: 1465 e003 | | Load 0x0,0x3 1466 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1467 00db | | Load_Top At_Offset_3 1468 0120 | | Execute Any,Is_Value 1469 6804 |h | Jump_Zero 0x146e 146a e003 | | Load 0x0,0x3 146b 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 146c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 146d 7801 |x | Jump 0x146f 146e 00db | | Load_Top At_Offset_3 146f 600c |` | Indirect_Literal Discrete,0x147c,{0x00000000, 0x00004000} 1470 e013 | | Load 0x0,0x13 1471 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1472 e9ff | | Load 0x4,-0x1 1473 e003 | | Load 0x0,0x3 1474 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 1475 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 1476 c802 | | Store 0x4,0x2 1477 005a | Z | Store_Top Discrete,At_Offset_2 1478 00da | | Load_Top At_Offset_2 1479 8804 | | Call 0x4,0x4 147a c802 | | Store 0x4,0x2 147b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 147c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 1480 ; -------------------------------------------------------------------------------------- 1480 ; SUBPROGRAM 1480 ; -------------------------------------------------------------------------------------- 1480 148f | | .CONST 0x148f ; Address of begin 1481 0004 | | .CONST 0x0004 ; Address of exception handler 1482 0003 | | .CONST 0x0003 ; Number of locals 1483 INIT_1480: 1483 e003 | | Load 0x0,0x3 1484 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 1485 1b0e | | Execute Package,Field_Read,Field_Number 0xe 1486 02c7 | | Declare_Variable Any 1487 00d8 | | Load_Top At_Offset_0 1488 1c00 | | Execute_Immediate Run_Utility,0x0 1489 e003 | | Load 0x0,0x3 148a 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 148b 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 148c 02c7 | | Declare_Variable Any 148d 00d8 | | Load_Top At_Offset_0 148e 1c00 | | Execute_Immediate Run_Utility,0x0 148f BODY_1480: 148f 00cf | | Action Mark_Auxiliary 1490 7826 |x& | Jump 0x14b7 1491 ebff | | Load 0x5,-0x1 1492 e003 | | Load 0x0,0x3 1493 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 1494 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1495 ca02 | | Store 0x5,0x2 1496 00da | | Load_Top At_Offset_2 1497 e003 | | Load 0x0,0x3 1498 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 1499 1812 | | Execute Package,Field_Execute,Field_Number 0x12 149a 8608 | | Call 0x3,0x8 149b e003 | | Load 0x0,0x3 149c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 149d 00da | | Load_Top At_Offset_2 149e 0120 | | Execute Any,Is_Value 149f 6804 |h | Jump_Zero 0x14a4 14a0 e003 | | Load 0x0,0x3 14a1 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 14a2 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 14a3 7801 |x | Jump 0x14a5 14a4 00da | | Load_Top At_Offset_2 14a5 67d6 |g | Indirect_Literal Discrete,0x147c,{0x00000000, 0x00004000} 14a6 e013 | | Load 0x0,0x13 14a7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 14a8 ea02 | | Load 0x5,0x2 14a9 e003 | | Load 0x0,0x3 14aa 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 14ab 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 14ac ca03 | | Store 0x5,0x3 14ad c803 | | Store 0x4,0x3 14ae 00d9 | | Load_Top At_Offset_1 14af 8804 | | Call 0x4,0x4 14b0 ca03 | | Store 0x5,0x3 14b1 ebff | | Load 0x5,-0x1 14b2 e003 | | Load 0x0,0x3 14b3 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 14b4 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 14b5 cbff | | Store 0x5,-0x1 14b6 00c9 | | Action Pop_Auxiliary_Loop 14b7 ebff | | Load 0x5,-0x1 14b8 e003 | | Load 0x0,0x3 14b9 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 14ba 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 14bb 6fd5 |o | Jump_Zero 0x1491 14bc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 14bd 0000 0000 | | .XXX[0x3] 14bf 0000 | | 14c0 ; -------------------------------------------------------------------------------------- 14c0 ; SUBPROGRAM 14c0 ; -------------------------------------------------------------------------------------- 14c0 14c3 | | .CONST 0x14c3 ; Address of begin 14c1 0004 | | .CONST 0x0004 ; Address of exception handler 14c2 0001 | | .CONST 0x0001 ; Number of locals 14c3 BODY_14c0: 14c3 INIT_14c0: 14c3 4608 |F | Jump_Case 0x9 14c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 14c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 14c6 7819 |x | Jump 0x14e0 ; case 0x2 14c7 7818 |x | Jump 0x14e0 ; case 0x3 14c8 7817 |x | Jump 0x14e0 ; case 0x4 14c9 7816 |x | Jump 0x14e0 ; case 0x5 14ca 7815 |x | Jump 0x14e0 ; case 0x6 14cb 7801 |x | Jump 0x14cd ; case 0x7 14cc 7809 |x | Jump 0x14d6 ; case 0x8 14cd 00db | | Load_Top At_Offset_3 14ce 4801 |H | Short_Literal 0x1 14cf e5fe | | Load 0x2,-0x2 14d0 e213 | | Load 0x1,0x13 14d1 035b | [ | Declare_Type Array,Constrained 14d2 4801 |H | Short_Literal 0x1 14d3 e5ff | | Load 0x2,-0x1 14d4 031b | | Declare_Type Variant_Record,Constrained 14d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 14d6 00db | | Load_Top At_Offset_3 14d7 00db | | Load_Top At_Offset_3 14d8 02fc | | Declare_Variable Variant_Record,With_Constraint 14d9 4801 |H | Short_Literal 0x1 14da e5fe | | Load 0x2,-0x2 14db e213 | | Load 0x1,0x13 14dc 0334 | 4 | Declare_Variable Array,With_Constraint 14dd 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3 14de 016a | j | QQ_execute Variant_Record,XXX 14df 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 14e0 0869 | i | Execute_Immediate Raise,0x69 14e1 0000 0000 | | .BLANK 0000[0x7] 14e8 ; -------------------------------------------------------------------------------------- 14e8 ; SUBPROGRAM 14e8 ; -------------------------------------------------------------------------------------- 14e8 14eb | | .CONST 0x14eb ; Address of begin 14e9 0004 | | .CONST 0x0004 ; Address of exception handler 14ea 0001 | | .CONST 0x0001 ; Number of locals 14eb BODY_14e8: 14eb INIT_14e8: 14eb 4608 |F | Jump_Case 0x9 14ec 7808 |x | Jump 0x14f5 ; case 0x0 14ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 14ee 7813 |x | Jump 0x1502 ; case 0x2 14ef 7812 |x | Jump 0x1502 ; case 0x3 14f0 7811 |x | Jump 0x1502 ; case 0x4 14f1 7810 |x | Jump 0x1502 ; case 0x5 14f2 780f |x | Jump 0x1502 ; case 0x6 14f3 780e |x | Jump 0x1502 ; case 0x7 14f4 780d |x | Jump 0x1502 ; case 0x8 14f5 00da | | Load_Top At_Offset_2 14f6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 14f7 0125 | % | Execute Any,Set_Constraint 14f8 00da | | Load_Top At_Offset_2 14f9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 14fa 1c00 | | Execute_Immediate Run_Utility,0x0 14fb 00da | | Load_Top At_Offset_2 14fc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 14fd 0125 | % | Execute Any,Set_Constraint 14fe 00da | | Load_Top At_Offset_2 14ff 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 1500 1c00 | | Execute_Immediate Run_Utility,0x0 1501 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 1502 0869 | i | Execute_Immediate Raise,0x69 1503 0000 0000 | | .BLANK 0000[0x5] 1508 ; -------------------------------------------------------------------------------------- 1508 ; SUBPROGRAM 1508 ; -------------------------------------------------------------------------------------- 1508 151d | | .CONST 0x151d ; Address of begin 1509 0004 | | .CONST 0x0004 ; Address of exception handler 150a 0017 | | .CONST 0x0017 ; Number of locals 150b INIT_1508: 150b 029a 1523 | #| Declare_Subprogram INIT_1520,For_Outer_Call,Visible,Unelaborated 150d 029a 153b | ;| Declare_Subprogram INIT_1538,For_Outer_Call,Visible,Unelaborated 150f 00bf | | Action Accept_Activation 1510 e001 | | Load 0x0,0x1 1511 e002 | | Load 0x0,0x2 1512 e20f | | Load 0x1,0xf 1513 e210 | | Load 0x1,0x10 1514 e003 | | Load 0x0,0x3 1515 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 1516 0387 | | Declare_Variable Package 1517 00d8 | | Load_Top At_Offset_0 1518 020f | | Execute Module,Activate 1519 1d15 | | Execute_Immediate Reference_Lex_1,0x15 151a 00c7 | | Action Elaborate_Subprogram 151b 1d16 | | Execute_Immediate Reference_Lex_1,0x16 151c 00c7 | | Action Elaborate_Subprogram 151d BODY_1508: 151d 00bc | | Action Signal_Activated 151e 00bb | | Action Signal_Completion 151f 0000 | | .XXX[0x1] 1520 ; -------------------------------------------------------------------------------------- 1520 ; SUBPROGRAM 1520 ; -------------------------------------------------------------------------------------- 1520 1523 | # | .CONST 0x1523 ; Address of begin 1521 0004 | | .CONST 0x0004 ; Address of exception handler 1522 0001 | | .CONST 0x0001 ; Number of locals 1523 BODY_1520: 1523 INIT_1520: 1523 00da | | Load_Top At_Offset_2 1524 0219 | | Execute Heap_Access,All_Read 1525 00d8 | | Load_Top At_Offset_0 1526 3c1c |< | Execute Record,Field_Read,Field_Number 0x1c 1527 e5ff | | Load 0x2,-0x1 1528 8004 | | Call 0x0,0x4 1529 e5fe | | Load 0x2,-0x2 152a e20f | | Load 0x1,0xf 152b 0119 | | Execute Any,Check_In_Formal_Type 152c e217 | | Load 0x1,0x17 152d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 152e 00d9 | | Load_Top At_Offset_1 152f 381c |8 | Execute Record,Field_Write,Field_Number 0x1c 1530 4503 |E | Exit_Suprogram New_Top_Offset 0x3 1531 0000 0000 | | .BLANK 0000[0x7] 1538 ; -------------------------------------------------------------------------------------- 1538 ; SUBPROGRAM 1538 ; -------------------------------------------------------------------------------------- 1538 153b | ; | .CONST 0x153b ; Address of begin 1539 1545 | E | .CONST 0x1545 ; Address of exception handler 153a 0001 | | .CONST 0x0001 ; Number of locals 153b BODY_1538: 153b INIT_1538: 153b 00da | | Load_Top At_Offset_2 153c 0217 | | Execute Heap_Access,All_Reference 153d 3c1c |< | Execute Record,Field_Read,Field_Number 0x1c 153e 00db | | Load_Top At_Offset_3 153f 8004 | | Call 0x0,0x4 1540 e217 | | Load 0x1,0x17 1541 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1542 e210 | | Load 0x1,0x10 1543 0213 | | Execute Heap_Access,Check_In_Type 1544 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1545 TRAP_1538: 1545 486b |Hk | Short_Literal 0x6b 1546 010f | | Execute Exception,Equal 1547 6802 |h | Jump_Zero 0x154a 1548 e210 | | Load 0x1,0x10 1549 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 154a 0100 | | Execute Exception,Raise 154b ; -------------------------------------------------------------------------------------- 154b ; STRING TABLE 154b ; -------------------------------------------------------------------------------------- 154b 001c | | .STRTAB 0x001c->0x1559 ; "Refreshing unit " 154c 002a | * | .STRTAB 0x002a->0x1561 ; "Target name for " 154d 0038 | 8 | .STRTAB 0x0038->0x1569 ; " has been set to " 154e 0047 | G | .STRTAB 0x0047->0x1571 ; "." 154f 0046 | F | .STRTAB 0x0046->0x1572 ; "Releasing old special build instructions." 1550 006d | m | .STRTAB 0x006d->0x1586 ; "No siblings for " 1551 007b | { | .STRTAB 0x007b->0x158e ; "Created directory object for \x22" 1552 0097 | | .STRTAB 0x0097->0x159d ; "\x22." 1553 0097 | | .STRTAB 0x0097->0x159e ; "Structural_Suppliers (Parent) " 1554 00b3 | | .STRTAB 0x00b3->0x15ad ; "Structural_Suppliers (Other) " 1555 00ce | | .STRTAB 0x00ce->0x15bc ; "Add_Supplier " 1556 00d9 | | .STRTAB 0x00d9->0x15c2 ; "Changing Kinds for object" 1557 00f0 | | .STRTAB 0x00f0->0x15cf ; "Creating Machine_Data record." 1558 010b | | .STREND 0x010b->0x15dd 1559 5265 6672 |Refr| .STRTAB_STRINGS 15de 0000 0000 | | .XXX[0x2] 15e0 ; -------------------------------------------------------------------------------------- 15e0 ; Debug Table 15e0 ; -------------------------------------------------------------------------------------- 15e0 0004 000a | | .DEBUG4 0x0004,0x000a,0xe37e,0x0000,0x0001,0x0000 15e6 0000 0000 | | .BLANK 0000[0x1a]