|
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: 10240 (0x2800) 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 1228 | ( | .CONST 0x1228 ; 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 800b | | .CONST 0x800b ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 02f3 | | .CONST 0x02f3 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 005b | [ | .CONST 0x005b ; Number of locals 000b INIT_0008: 000b 4fff |O | Short_Literal -0x1 000c 6327 |c' | Indirect_Literal Discrete,0x334,{0x00000000, 0x7fffffff} 000d 00e2 | | Load_Encached Integer_Cache 000e 03f9 | | Declare_Type Discrete,Constrained,Visible 000f e001 | | Load 0x0,0x1 0010 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0011 0129 | ) | Execute Any,Make_Visible 0012 e001 | | Load 0x0,0x1 0013 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0014 0129 | ) | Execute Any,Make_Visible 0015 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 0016 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 0017 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 0018 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 0019 4800 |H | Short_Literal 0x0 001a e002 | | Load 0x0,0x2 001b 02a0 | | Declare_Subprogram Null_Subprogram 001c 038f | | Declare_Type Package,Defined,Visible 001d 00b6 | | Action Make_Scope 001e e003 | | Load 0x0,0x3 001f e004 | | Load 0x0,0x4 0020 e005 | | Load 0x0,0x5 0021 4804 |H | Short_Literal 0x4 0022 e214 | | Load 0x1,0x14 0023 020e | | Execute Module,Augment_Imports 0024 0386 | | Declare_Variable Package,Visible 0025 4800 |H | Short_Literal 0x0 0026 e006 | | Load 0x0,0x6 0027 02a0 | | Declare_Subprogram Null_Subprogram 0028 038f | | Declare_Type Package,Defined,Visible 0029 00b6 | | Action Make_Scope 002a e005 | | Load 0x0,0x5 002b e003 | | Load 0x0,0x3 002c e004 | | Load 0x0,0x4 002d 4804 |H | Short_Literal 0x4 002e e215 | | Load 0x1,0x15 002f 020e | | Execute Module,Augment_Imports 0030 0386 | | Declare_Variable Package,Visible 0031 4800 |H | Short_Literal 0x0 0032 e007 | | Load 0x0,0x7 0033 02a0 | | Declare_Subprogram Null_Subprogram 0034 038f | | Declare_Type Package,Defined,Visible 0035 00b6 | | Action Make_Scope 0036 e003 | | Load 0x0,0x3 0037 e005 | | Load 0x0,0x5 0038 4803 |H | Short_Literal 0x3 0039 e216 | | Load 0x1,0x16 003a 020e | | Execute Module,Augment_Imports 003b 0386 | | Declare_Variable Package,Visible 003c 4800 |H | Short_Literal 0x0 003d 0093 0b33 | 3| push_full_address INIT_0b30 003f 02a0 | | Declare_Subprogram Null_Subprogram 0040 038f | | Declare_Type Package,Defined,Visible 0041 0386 | | Declare_Variable Package,Visible 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 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated 004e c221 | ! | Store 0x1,0x21 004f 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated 0051 c21f | | Store 0x1,0x1f 0052 029a 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call,Visible,Unelaborated 0054 c220 | | Store 0x1,0x20 0055 4816 |H | Short_Literal 0x16 0056 032a | * | Declare_Type Record,Incomplete 0057 c21a | | Store 0x1,0x1a 0058 e21a | | Load 0x1,0x1a 0059 02a0 | | Declare_Subprogram Null_Subprogram 005a e212 | | Load 0x1,0x12 005b 03a3 | | Complete_Type Heap_Access,By_Defining 005c 4809 |H | Short_Literal 0x9 005d 032a | * | Declare_Type Record,Incomplete 005e c21b | | Store 0x1,0x1b 005f e21b | | Load 0x1,0x1b 0060 02a0 | | Declare_Subprogram Null_Subprogram 0061 e213 | | Load 0x1,0x13 0062 03a3 | | Complete_Type Heap_Access,By_Defining 0063 481d |H | Short_Literal 0x1d 0064 032a | * | Declare_Type Record,Incomplete 0065 c21c | | Store 0x1,0x1c 0066 e21c | | Load 0x1,0x1c 0067 02a0 | | Declare_Subprogram Null_Subprogram 0068 e210 | | Load 0x1,0x10 0069 03a3 | | Complete_Type Heap_Access,By_Defining 006a 4809 |H | Short_Literal 0x9 006b 032a | * | Declare_Type Record,Incomplete 006c c21d | | Store 0x1,0x1d 006d e21d | | Load 0x1,0x1d 006e 02a0 | | Declare_Subprogram Null_Subprogram 006f e211 | | Load 0x1,0x11 0070 03a3 | | Complete_Type Heap_Access,By_Defining 0071 00bf | | Action Accept_Activation 0072 00e1 | | Load_Encached Boolean_Cache 0073 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0074 e008 | | Load 0x0,0x8 0075 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 0076 02c7 | | Declare_Variable Any 0077 00d8 | | Load_Top At_Offset_0 0078 1c00 | | Execute_Immediate Run_Utility,0x0 0079 e008 | | Load 0x0,0x8 007a 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 007b 02c7 | | Declare_Variable Any 007c 00d8 | | Load_Top At_Offset_0 007d 1c00 | | Execute_Immediate Run_Utility,0x0 007e 00e2 | | Load_Encached Integer_Cache 007f 00e2 | | Load_Encached Integer_Cache 0080 4800 |H | Short_Literal 0x0 0081 0093 105b | [| push_full_address INIT_1058 0083 02a0 | | Declare_Subprogram Null_Subprogram 0084 038e | | Declare_Type Package,Defined 0085 e009 | | Load 0x0,0x9 0086 4801 |H | Short_Literal 0x1 0087 00da | | Load_Top At_Offset_2 0088 020e | | Execute Module,Augment_Imports 0089 0387 | | Declare_Variable Package 008a 4800 |H | Short_Literal 0x0 008b e00a | | Load 0x0,0xa 008c 02a0 | | Declare_Subprogram Null_Subprogram 008d 038e | | Declare_Type Package,Defined 008e e00b | | Load 0x0,0xb 008f 00b6 | | Action Make_Scope 0090 e00c | | Load 0x0,0xc 0091 e227 | ' | Load 0x1,0x27 0092 e00d | | Load 0x0,0xd 0093 e00e | | Load 0x0,0xe 0094 e00f | | Load 0x0,0xf 0095 4807 |H | Short_Literal 0x7 0096 e228 | ( | Load 0x1,0x28 0097 020e | | Execute Module,Augment_Imports 0098 0387 | | Declare_Variable Package 0099 4800 |H | Short_Literal 0x0 009a 0093 0f2b | +| push_full_address INIT_0f28 009c 02a0 | | Declare_Subprogram Null_Subprogram 009d 038e | | Declare_Type Package,Defined 009e e010 | | Load 0x0,0x10 009f e011 | | Load 0x0,0x11 00a0 e227 | ' | Load 0x1,0x27 00a1 e00b | | Load 0x0,0xb 00a2 e012 | | Load 0x0,0x12 00a3 00b6 | | Action Make_Scope 00a4 4806 |H | Short_Literal 0x6 00a5 e229 | ) | Load 0x1,0x29 00a6 020e | | Execute Module,Augment_Imports 00a7 0387 | | Declare_Variable Package 00a8 4800 |H | Short_Literal 0x0 00a9 0093 0cc3 | | push_full_address INIT_0cc0 00ab 02a0 | | Declare_Subprogram Null_Subprogram 00ac 038e | | Declare_Type Package,Defined 00ad 00b6 | | Action Make_Scope 00ae e003 | | Load 0x0,0x3 00af e00b | | Load 0x0,0xb 00b0 e013 | | Load 0x0,0x13 00b1 e014 | | Load 0x0,0x14 00b2 e015 | | Load 0x0,0x15 00b3 e012 | | Load 0x0,0x12 00b4 4807 |H | Short_Literal 0x7 00b5 e22a | * | Load 0x1,0x2a 00b6 020e | | Execute Module,Augment_Imports 00b7 0387 | | Declare_Variable Package 00b8 4800 |H | Short_Literal 0x0 00b9 0093 0b43 | C| push_full_address INIT_0b40 00bb 02a0 | | Declare_Subprogram Null_Subprogram 00bc 038e | | Declare_Type Package,Defined 00bd 0387 | | Declare_Variable Package 00be 4800 |H | Short_Literal 0x0 00bf 6270 |bp | Indirect_Literal Discrete,0x330,{0x00000000, 0x00007fff} 00c0 00e2 | | Load_Encached Integer_Cache 00c1 03f8 | | Declare_Type Discrete,Constrained 00c2 00d8 | | Load_Top At_Offset_0 00c3 00d9 | | Load_Top At_Offset_1 00c4 00da | | Load_Top At_Offset_2 00c5 00db | | Load_Top At_Offset_3 00c6 e22c | , | Load 0x1,0x2c 00c7 00d8 | | Load_Top At_Offset_0 00c8 e22c | , | Load 0x1,0x2c 00c9 00d8 | | Load_Top At_Offset_0 00ca e22c | , | Load 0x1,0x2c 00cb 00d8 | | Load_Top At_Offset_0 00cc e22c | , | Load 0x1,0x2c 00cd 00d8 | | Load_Top At_Offset_0 00ce e22c | , | Load 0x1,0x2c 00cf 02a0 | | Declare_Subprogram Null_Subprogram 00d0 480d |H | Short_Literal 0xd 00d1 032d | - | Declare_Type Record,Defined 00d2 00d8 | | Load_Top At_Offset_0 00d3 e216 | | Load 0x1,0x16 00d4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00d5 00e2 | | Load_Encached Integer_Cache 00d6 00e2 | | Load_Encached Integer_Cache 00d7 00e2 | | Load_Encached Integer_Cache 00d8 00e2 | | Load_Encached Integer_Cache 00d9 e227 | ' | Load 0x1,0x27 00da 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00db e227 | ' | Load 0x1,0x27 00dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00dd e00c | | Load 0x0,0xc 00de 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00df 00e1 | | Load_Encached Boolean_Cache 00e0 e227 | ' | Load 0x1,0x27 00e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e2 00e1 | | Load_Encached Boolean_Cache 00e3 00e1 | | Load_Encached Boolean_Cache 00e4 e228 | ( | Load 0x1,0x28 00e5 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 00e6 e228 | ( | Load 0x1,0x28 00e7 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 00e8 e228 | ( | Load 0x1,0x28 00e9 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00ea e228 | ( | Load 0x1,0x28 00eb 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00ec e228 | ( | Load 0x1,0x28 00ed 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00ee e009 | | Load 0x0,0x9 00ef 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00f0 e016 | | Load 0x0,0x16 00f1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f2 e229 | ) | Load 0x1,0x29 00f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f4 e22a | * | Load 0x1,0x2a 00f5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f6 029f 03e3 | | Declare_Subprogram INIT_03e0,For_Call 00f8 e21a | | Load 0x1,0x1a 00f9 0326 | & | Complete_Type Record,By_Defining 00fa e004 | | Load 0x0,0x4 00fb 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 00fc e004 | | Load 0x0,0x4 00fd 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 00fe e004 | | Load 0x0,0x4 00ff 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0100 e004 | | Load 0x0,0x4 0101 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0102 e004 | | Load 0x0,0x4 0103 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0104 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0105 029f 0403 | | Declare_Subprogram INIT_0400,For_Call 0107 4805 |H | Short_Literal 0x5 0108 032d | - | Declare_Type Record,Defined 0109 4800 |H | Short_Literal 0x0 010a 4bff |K | Short_Literal 0x3ff 010b 00e3 | | Load_Encached Natural_Cache 010c 03f8 | | Declare_Type Discrete,Constrained 010d 00e1 | | Load_Encached Boolean_Cache 010e 00e1 | | Load_Encached Boolean_Cache 010f 00e1 | | Load_Encached Boolean_Cache 0110 00e1 | | Load_Encached Boolean_Cache 0111 00e1 | | Load_Encached Boolean_Cache 0112 00e1 | | Load_Encached Boolean_Cache 0113 00e1 | | Load_Encached Boolean_Cache 0114 00e1 | | Load_Encached Boolean_Cache 0115 00e1 | | Load_Encached Boolean_Cache 0116 00e1 | | Load_Encached Boolean_Cache 0117 00e2 | | Load_Encached Integer_Cache 0118 e227 | ' | Load 0x1,0x27 0119 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011a e227 | ' | Load 0x1,0x27 011b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011c e22e | . | Load 0x1,0x2e 011d e00d | | Load 0x0,0xd 011e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011f e00d | | Load 0x0,0xd 0120 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0121 e00d | | Load 0x0,0xd 0122 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0123 e214 | | Load 0x1,0x14 0124 1b4b | K | Execute Package,Field_Read,Field_Number 0x4b 0125 e228 | ( | Load 0x1,0x28 0126 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0127 e228 | ( | Load 0x1,0x28 0128 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0129 e228 | ( | Load 0x1,0x28 012a 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 012b e228 | ( | Load 0x1,0x28 012c 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 012d e228 | ( | Load 0x1,0x28 012e 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 012f e228 | ( | Load 0x1,0x28 0130 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 0131 e22f | / | Load 0x1,0x2f 0132 e228 | ( | Load 0x1,0x28 0133 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0134 e215 | | Load 0x1,0x15 0135 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0136 e228 | ( | Load 0x1,0x28 0137 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0138 e228 | ( | Load 0x1,0x28 0139 1b19 | | Execute Package,Field_Read,Field_Number 0x19 013a 029f 042b | +| Declare_Subprogram INIT_0428,For_Call 013c e21c | | Load 0x1,0x1c 013d 0326 | & | Complete_Type Record,By_Defining 013e e004 | | Load 0x0,0x4 013f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0140 e227 | ' | Load 0x1,0x27 0141 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0142 e004 | | Load 0x0,0x4 0143 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0144 e227 | ' | Load 0x1,0x27 0145 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0146 e228 | ( | Load 0x1,0x28 0147 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 0148 e228 | ( | Load 0x1,0x28 0149 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 014a 00e1 | | Load_Encached Boolean_Cache 014b 00e1 | | Load_Encached Boolean_Cache 014c e228 | ( | Load 0x1,0x28 014d 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 014e 029f 0453 | S| Declare_Subprogram INIT_0450,For_Call 0150 e21b | | Load 0x1,0x1b 0151 0326 | & | Complete_Type Record,By_Defining 0152 4800 |H | Short_Literal 0x0 0153 61d8 |a | Indirect_Literal Discrete,0x32c,{0x00000000, 0x000007ff} 0154 00e3 | | Load_Encached Natural_Cache 0155 03f8 | | Declare_Type Discrete,Constrained 0156 4802 |H | Short_Literal 0x2 0157 4805 |H | Short_Literal 0x5 0158 e215 | | Load 0x1,0x15 0159 1b16 | | Execute Package,Field_Read,Field_Number 0x16 015a 03f8 | | Declare_Type Discrete,Constrained 015b 4802 |H | Short_Literal 0x2 015c 4805 |H | Short_Literal 0x5 015d 00db | | Load_Top At_Offset_3 015e 02a0 | | Declare_Subprogram Null_Subprogram 015f 4801 |H | Short_Literal 0x1 0160 035d | ] | Declare_Type Array,Defined 0161 e228 | ( | Load 0x1,0x28 0162 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 0163 e227 | ' | Load 0x1,0x27 0164 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0165 00e1 | | Load_Encached Boolean_Cache 0166 e228 | ( | Load 0x1,0x28 0167 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0168 e004 | | Load 0x0,0x4 0169 1b0f | | Execute Package,Field_Read,Field_Number 0xf 016a e232 | 2 | Load 0x1,0x32 016b e230 | 0 | Load 0x1,0x30 016c e228 | ( | Load 0x1,0x28 016d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 016e e228 | ( | Load 0x1,0x28 016f 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 0170 029f 0473 | s| Declare_Subprogram INIT_0470,For_Call 0172 e21d | | Load 0x1,0x1d 0173 0326 | & | Complete_Type Record,By_Defining 0174 4800 |H | Short_Literal 0x0 0175 4804 |H | Short_Literal 0x4 0176 029f 048b | | Declare_Subprogram INIT_0488,For_Call 0178 03fd | | Declare_Type Discrete,Defined 0179 00e3 | | Load_Encached Natural_Cache 017a 0266 | f | Execute Discrete,Bounds 017b e004 | | Load 0x0,0x4 017c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 017d 029f 04b3 | | Declare_Subprogram INIT_04b0,For_Call 017f 4801 |H | Short_Literal 0x1 0180 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 0181 00e3 | | Load_Encached Natural_Cache 0182 e003 | | Load 0x0,0x3 0183 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0184 4801 |H | Short_Literal 0x1 0185 61ae |a | Indirect_Literal Discrete,0x334,{0x00000000, 0x7fffffff} 0186 e234 | 4 | Load 0x1,0x34 0187 034e | N | QQ_Declare_Type Array,Constrained,Bounds_With_Object 0188 029f 04cb | | Declare_Subprogram INIT_04c8,For_Call 018a 4800 |H | Short_Literal 0x0 018b 4801 |H | Short_Literal 0x1 018c 4801 |H | Short_Literal 0x1 018d 4800 |H | Short_Literal 0x0 018e 4801 |H | Short_Literal 0x1 018f 4801 |H | Short_Literal 0x1 0190 031d | | Declare_Type Variant_Record,Defined 0191 e017 | | Load 0x0,0x17 0192 e018 | | Load 0x0,0x18 0193 e21a | | Load 0x1,0x1a 0194 e216 | | Load 0x1,0x16 0195 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0196 e019 | | Load 0x0,0x19 0197 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0198 0387 | | Declare_Variable Package 0199 00d8 | | Load_Top At_Offset_0 019a 020f | | Execute Module,Activate 019b e019 | | Load 0x0,0x19 019c 1919 | | Execute Package,Field_Reference,Field_Number 0x19 019d 00c6 | | Action Check_Subprogram_Elaborated 019e e21a | | Load 0x1,0x1a 019f e216 | | Load 0x1,0x16 01a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01a1 e01a | | Load 0x0,0x1a 01a2 e01b | | Load 0x0,0x1b 01a3 4800 |H | Short_Literal 0x0 01a4 0007 | | Action Break_Optional 01a5 e01c | | Load 0x0,0x1c 01a6 e01d | | Load 0x0,0x1d 01a7 e21c | | Load 0x1,0x1c 01a8 e214 | | Load 0x1,0x14 01a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01aa e019 | | Load 0x0,0x19 01ab 1b18 | | Execute Package,Field_Read,Field_Number 0x18 01ac 0387 | | Declare_Variable Package 01ad 00d8 | | Load_Top At_Offset_0 01ae 020f | | Execute Module,Activate 01af e019 | | Load 0x0,0x19 01b0 1919 | | Execute Package,Field_Reference,Field_Number 0x19 01b1 00c6 | | Action Check_Subprogram_Elaborated 01b2 e21c | | Load 0x1,0x1c 01b3 e214 | | Load 0x1,0x14 01b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b5 e01e | | Load 0x0,0x1e 01b6 e01f | | Load 0x0,0x1f 01b7 4800 |H | Short_Literal 0x0 01b8 0007 | | Action Break_Optional 01b9 e020 | | Load 0x0,0x20 01ba e021 | ! | Load 0x0,0x21 01bb e21b | | Load 0x1,0x1b 01bc e216 | | Load 0x1,0x16 01bd 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 01be e019 | | Load 0x0,0x19 01bf 1b18 | | Execute Package,Field_Read,Field_Number 0x18 01c0 0387 | | Declare_Variable Package 01c1 00d8 | | Load_Top At_Offset_0 01c2 020f | | Execute Module,Activate 01c3 e019 | | Load 0x0,0x19 01c4 1919 | | Execute Package,Field_Reference,Field_Number 0x19 01c5 00c6 | | Action Check_Subprogram_Elaborated 01c6 e21b | | Load 0x1,0x1b 01c7 e216 | | Load 0x1,0x16 01c8 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 01c9 e022 | " | Load 0x0,0x22 01ca e023 | # | Load 0x0,0x23 01cb 4800 |H | Short_Literal 0x0 01cc 0007 | | Action Break_Optional 01cd e024 | $ | Load 0x0,0x24 01ce e025 | % | Load 0x0,0x25 01cf e21d | | Load 0x1,0x1d 01d0 e215 | | Load 0x1,0x15 01d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d2 e019 | | Load 0x0,0x19 01d3 1b18 | | Execute Package,Field_Read,Field_Number 0x18 01d4 0387 | | Declare_Variable Package 01d5 00d8 | | Load_Top At_Offset_0 01d6 020f | | Execute Module,Activate 01d7 e019 | | Load 0x0,0x19 01d8 1919 | | Execute Package,Field_Reference,Field_Number 0x19 01d9 00c6 | | Action Check_Subprogram_Elaborated 01da e21d | | Load 0x1,0x1d 01db e215 | | Load 0x1,0x15 01dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01dd e026 | & | Load 0x0,0x26 01de e027 | ' | Load 0x0,0x27 01df 4800 |H | Short_Literal 0x0 01e0 0007 | | Action Break_Optional 01e1 029d 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call 01e3 029d 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call 01e5 029d 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call 01e7 029d 0603 | | Declare_Subprogram INIT_0600,For_Outer_Call 01e9 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 01ea 00c7 | | Action Elaborate_Subprogram 01eb 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 01ec 00c7 | | Action Elaborate_Subprogram 01ed 1d20 | | Execute_Immediate Reference_Lex_1,0x20 01ee 00c7 | | Action Elaborate_Subprogram 01ef 029d 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call 01f1 029d 06ab | | Declare_Subprogram INIT_06a8,For_Outer_Call 01f3 029d 06b3 | | Declare_Subprogram INIT_06b0,For_Outer_Call 01f5 029d 06eb | | Declare_Subprogram INIT_06e8,For_Outer_Call 01f7 029d 075b | [| Declare_Subprogram INIT_0758,For_Outer_Call 01f9 029d 07e3 | | Declare_Subprogram INIT_07e0,For_Outer_Call 01fb 029d 083b | ;| Declare_Subprogram INIT_0838,For_Outer_Call 01fd 029d 08d3 | | Declare_Subprogram INIT_08d0,For_Outer_Call 01ff 029d 0903 | | Declare_Subprogram INIT_0900,For_Outer_Call 0201 029d 0943 | C| Declare_Subprogram INIT_0940,For_Outer_Call 0203 e004 | | Load 0x0,0x4 0204 4801 |H | Short_Literal 0x1 0205 e227 | ' | Load 0x1,0x27 0206 020e | | Execute Module,Augment_Imports 0207 e227 | ' | Load 0x1,0x27 0208 020f | | Execute Module,Activate 0209 e028 | ( | Load 0x0,0x28 020a e029 | ) | Load 0x0,0x29 020b e21c | | Load 0x1,0x1c 020c e228 | ( | Load 0x1,0x28 020d e019 | | Load 0x0,0x19 020e e02a | * | Load 0x0,0x2a 020f e02b | + | Load 0x0,0x2b 0210 e02c | , | Load 0x0,0x2c 0211 4808 |H | Short_Literal 0x8 0212 e229 | ) | Load 0x1,0x29 0213 020e | | Execute Module,Augment_Imports 0214 e229 | ) | Load 0x1,0x29 0215 020f | | Execute Module,Activate 0216 e004 | | Load 0x0,0x4 0217 e242 | B | Load 0x1,0x42 0218 e248 | H | Load 0x1,0x48 0219 e228 | ( | Load 0x1,0x28 021a e02c | , | Load 0x0,0x2c 021b e02d | - | Load 0x0,0x2d 021c e243 | C | Load 0x1,0x43 021d e244 | D | Load 0x1,0x44 021e 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 021f e019 | | Load 0x0,0x19 0220 e249 | I | Load 0x1,0x49 0221 e24a | J | Load 0x1,0x4a 0222 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 0223 480d |H | Short_Literal 0xd 0224 e22a | * | Load 0x1,0x2a 0225 020e | | Execute Module,Augment_Imports 0226 e22a | * | Load 0x1,0x2a 0227 020f | | Execute Module,Activate 0228 e228 | ( | Load 0x1,0x28 0229 4801 |H | Short_Literal 0x1 022a e22b | + | Load 0x1,0x2b 022b 020e | | Execute Module,Augment_Imports 022c e22b | + | Load 0x1,0x2b 022d 020f | | Execute Module,Activate 022e e217 | | Load 0x1,0x17 022f 020f | | Execute Module,Activate 0230 e02e | . | Load 0x0,0x2e 0231 e02f | / | Load 0x0,0x2f 0232 e001 | | Load 0x0,0x1 0233 e030 | 0 | Load 0x0,0x30 0234 e031 | 1 | Load 0x0,0x31 0235 e019 | | Load 0x0,0x19 0236 e032 | 2 | Load 0x0,0x32 0237 e033 | 3 | Load 0x0,0x33 0238 e22d | - | Load 0x1,0x2d 0239 e21a | | Load 0x1,0x1a 023a e21c | | Load 0x1,0x1c 023b e21b | | Load 0x1,0x1b 023c e21d | | Load 0x1,0x1d 023d e009 | | Load 0x0,0x9 023e e016 | | Load 0x0,0x16 023f e229 | ) | Load 0x1,0x29 0240 e22a | * | Load 0x1,0x2a 0241 e034 | 4 | Load 0x0,0x34 0242 e035 | 5 | Load 0x0,0x35 0243 e004 | | Load 0x0,0x4 0244 e22e | . | Load 0x1,0x2e 0245 e005 | | Load 0x0,0x5 0246 e036 | 6 | Load 0x0,0x36 0247 e037 | 7 | Load 0x0,0x37 0248 e038 | 8 | Load 0x0,0x38 0249 e039 | 9 | Load 0x0,0x39 024a e03a | : | Load 0x0,0x3a 024b e03b | ; | Load 0x0,0x3b 024c e03c | < | Load 0x0,0x3c 024d e03d | = | Load 0x0,0x3d 024e e03e | > | Load 0x0,0x3e 024f e03f | ? | Load 0x0,0x3f 0250 e040 | @ | Load 0x0,0x40 0251 e041 | A | Load 0x0,0x41 0252 e042 | B | Load 0x0,0x42 0253 e043 | C | Load 0x0,0x43 0254 e044 | D | Load 0x0,0x44 0255 e045 | E | Load 0x0,0x45 0256 e046 | F | Load 0x0,0x46 0257 e047 | G | Load 0x0,0x47 0258 e048 | H | Load 0x0,0x48 0259 e049 | I | Load 0x0,0x49 025a e04a | J | Load 0x0,0x4a 025b e04b | K | Load 0x0,0x4b 025c e04c | L | Load 0x0,0x4c 025d e04d | M | Load 0x0,0x4d 025e e04e | N | Load 0x0,0x4e 025f e04f | O | Load 0x0,0x4f 0260 e236 | 6 | Load 0x1,0x36 0261 e050 | P | Load 0x0,0x50 0262 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e 0263 e051 | Q | Load 0x0,0x51 0264 e052 | R | Load 0x0,0x52 0265 e003 | | Load 0x0,0x3 0266 e237 | 7 | Load 0x1,0x37 0267 e238 | 8 | Load 0x1,0x38 0268 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 0269 e053 | S | Load 0x0,0x53 026a 483a |H: | Short_Literal 0x3a 026b e228 | ( | Load 0x1,0x28 026c 020e | | Execute Module,Augment_Imports 026d e228 | ( | Load 0x1,0x28 026e 020f | | Execute Module,Activate 026f e00d | | Load 0x0,0xd 0270 e054 | T | Load 0x0,0x54 0271 e055 | U | Load 0x0,0x55 0272 e056 | V | Load 0x0,0x56 0273 e057 | W | Load 0x0,0x57 0274 e058 | X | Load 0x0,0x58 0275 e059 | Y | Load 0x0,0x59 0276 e05a | Z | Load 0x0,0x5a 0277 e00c | | Load 0x0,0xc 0278 e004 | | Load 0x0,0x4 0279 e00f | | Load 0x0,0xf 027a e242 | B | Load 0x1,0x42 027b e05b | [ | Load 0x0,0x5b 027c e05c | \ | Load 0x0,0x5c 027d e05d | ] | Load 0x0,0x5d 027e e05e | ^ | Load 0x0,0x5e 027f e236 | 6 | Load 0x1,0x36 0280 e05f | _ | Load 0x0,0x5f 0281 e060 | ` | Load 0x0,0x60 0282 e061 | a | Load 0x0,0x61 0283 e062 | b | Load 0x0,0x62 0284 e063 | c | Load 0x0,0x63 0285 e064 | d | Load 0x0,0x64 0286 e228 | ( | Load 0x1,0x28 0287 1d55 | U | Execute_Immediate Reference_Lex_1,0x55 0288 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e 0289 1d56 | V | Execute_Immediate Reference_Lex_1,0x56 028a 1d4f | O | Execute_Immediate Reference_Lex_1,0x4f 028b e227 | ' | Load 0x1,0x27 028c 1d54 | T | Execute_Immediate Reference_Lex_1,0x54 028d e051 | Q | Load 0x0,0x51 028e e052 | R | Load 0x0,0x52 028f e065 | e | Load 0x0,0x65 0290 e229 | ) | Load 0x1,0x29 0291 1d5a | Z | Execute_Immediate Reference_Lex_1,0x5a 0292 e233 | 3 | Load 0x1,0x33 0293 1d58 | X | Execute_Immediate Reference_Lex_1,0x58 0294 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59 0295 e22a | * | Load 0x1,0x2a 0296 e22b | + | Load 0x1,0x2b 0297 1d57 | W | Execute_Immediate Reference_Lex_1,0x57 0298 e23c | < | Load 0x1,0x3c 0299 e248 | H | Load 0x1,0x48 029a e066 | f | Load 0x0,0x66 029b e067 | g | Load 0x0,0x67 029c e02c | , | Load 0x0,0x2c 029d 1d53 | S | Execute_Immediate Reference_Lex_1,0x53 029e e068 | h | Load 0x0,0x68 029f e00b | | Load 0x0,0xb 02a0 e243 | C | Load 0x1,0x43 02a1 e244 | D | Load 0x1,0x44 02a2 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 02a3 e019 | | Load 0x0,0x19 02a4 e237 | 7 | Load 0x1,0x37 02a5 e238 | 8 | Load 0x1,0x38 02a6 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 02a7 e001 | | Load 0x0,0x1 02a8 4839 |H9 | Short_Literal 0x39 02a9 e216 | | Load 0x1,0x16 02aa 020e | | Execute Module,Augment_Imports 02ab e216 | | Load 0x1,0x16 02ac 020f | | Execute Module,Activate 02ad a069 | i | Store_Unchecked 0x0,0x69 02ae e06a | j | Load 0x0,0x6a 02af e06b | k | Load 0x0,0x6b 02b0 e00f | | Load 0x0,0xf 02b1 e248 | H | Load 0x1,0x48 02b2 e06c | l | Load 0x0,0x6c 02b3 e06d | m | Load 0x0,0x6d 02b4 e06e | n | Load 0x0,0x6e 02b5 e06f | o | Load 0x0,0x6f 02b6 e227 | ' | Load 0x1,0x27 02b7 e051 | Q | Load 0x0,0x51 02b8 e052 | R | Load 0x0,0x52 02b9 e228 | ( | Load 0x1,0x28 02ba 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 02bb 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e 02bc e070 | p | Load 0x0,0x70 02bd e00b | | Load 0x0,0xb 02be e249 | I | Load 0x1,0x49 02bf e24a | J | Load 0x1,0x4a 02c0 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 02c1 e019 | | Load 0x0,0x19 02c2 e22a | * | Load 0x1,0x2a 02c3 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b 02c4 e053 | S | Load 0x0,0x53 02c5 4818 |H | Short_Literal 0x18 02c6 e215 | | Load 0x1,0x15 02c7 020e | | Execute Module,Augment_Imports 02c8 e215 | | Load 0x1,0x15 02c9 020f | | Execute Module,Activate 02ca e00f | | Load 0x0,0xf 02cb e23c | < | Load 0x1,0x3c 02cc e071 | q | Load 0x0,0x71 02cd e072 | r | Load 0x0,0x72 02ce e073 | s | Load 0x0,0x73 02cf e074 | t | Load 0x0,0x74 02d0 e075 | u | Load 0x0,0x75 02d1 e076 | v | Load 0x0,0x76 02d2 e228 | ( | Load 0x1,0x28 02d3 e22e | . | Load 0x1,0x2e 02d4 e00d | | Load 0x0,0xd 02d5 e227 | ' | Load 0x1,0x27 02d6 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e 02d7 e066 | f | Load 0x0,0x66 02d8 e051 | Q | Load 0x0,0x51 02d9 e00c | | Load 0x0,0xc 02da e00e | | Load 0x0,0xe 02db e22b | + | Load 0x1,0x2b 02dc e077 | w | Load 0x0,0x77 02dd e078 | x | Load 0x0,0x78 02de e079 | y | Load 0x0,0x79 02df e00b | | Load 0x0,0xb 02e0 e23d | = | Load 0x1,0x3d 02e1 e23e | > | Load 0x1,0x3e 02e2 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 02e3 e019 | | Load 0x0,0x19 02e4 e053 | S | Load 0x0,0x53 02e5 e07a | z | Load 0x0,0x7a 02e6 a07b | { | Store_Unchecked 0x0,0x7b 02e7 e07c | | | Load 0x0,0x7c 02e8 e07d | } | Load 0x0,0x7d 02e9 e07e | ~ | Load 0x0,0x7e 02ea e07f | | Load 0x0,0x7f 02eb e080 | | Load 0x0,0x80 02ec 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 02ed e052 | R | Load 0x0,0x52 02ee 4824 |H$ | Short_Literal 0x24 02ef e214 | | Load 0x1,0x14 02f0 020e | | Execute Module,Augment_Imports 02f1 e214 | | Load 0x1,0x14 02f2 020f | | Execute Module,Activate 02f3 BODY_0008: 02f3 e223 | # | Load 0x1,0x23 02f4 0120 | | Execute Any,Is_Value 02f5 6803 |h | Jump_Zero 0x2f9 02f6 e008 | | Load 0x0,0x8 02f7 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 02f8 7801 |x | Jump 0x2fa 02f9 e223 | # | Load 0x1,0x23 02fa 4be8 |K | Short_Literal 0x3e8 02fb 0092 1192 | | Action Push_String_Extended,0x1192 ; "DEBUG_HISTORY_ENTRIES" 02fd e008 | | Load 0x0,0x8 02fe 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 02ff c223 | # | Store 0x1,0x23 0300 e052 | R | Load 0x0,0x52 0301 180f | | Execute Package,Field_Execute,Field_Number 0xf 0302 e223 | # | Load 0x1,0x23 0303 e008 | | Load 0x0,0x8 0304 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0305 e008 | | Load 0x0,0x8 0306 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0307 a225 | % | Store_Unchecked 0x1,0x25 0308 e225 | % | Load 0x1,0x25 0309 480a |H | Short_Literal 0xa 030a 026f | o | Execute Discrete,Remainder 030b 0f01 | | Execute_Immediate Equal,0x1 030c 681c |h | Jump_Zero 0x329 030d e224 | $ | Load 0x1,0x24 030e 0120 | | Execute Any,Is_Value 030f 6803 |h | Jump_Zero 0x313 0310 e008 | | Load 0x0,0x8 0311 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 0312 7801 |x | Jump 0x314 0313 e224 | $ | Load 0x1,0x24 0314 4850 |HP | Short_Literal 0x50 0315 0092 1193 | | Action Push_String_Extended,0x1193 ; "WINDOW_SHIFT_OVERLAP" 0317 e008 | | Load 0x0,0x8 0318 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0319 c224 | $ | Store 0x1,0x24 031a e052 | R | Load 0x0,0x52 031b 180f | | Execute Package,Field_Execute,Field_Number 0xf 031c e224 | $ | Load 0x1,0x24 031d e008 | | Load 0x0,0x8 031e 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 031f e008 | | Load 0x0,0x8 0320 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0321 a226 | & | Store_Unchecked 0x1,0x26 0322 e226 | & | Load 0x1,0x26 0323 480a |H | Short_Literal 0xa 0324 026f | o | Execute Discrete,Remainder 0325 0f01 | | Execute_Immediate Equal,0x1 0326 6802 |h | Jump_Zero 0x329 0327 4801 |H | Short_Literal 0x1 0328 a222 | " | Store_Unchecked 0x1,0x22 0329 00bc | | Action Signal_Activated 032a 00bb | | Action Signal_Completion 032b 0000 | | .XXX[0x1] 032c 0000 0000 | | .LITERAL {0x00000000, 0x000007ff} 0330 0000 0000 | | .LITERAL {0x00000000, 0x00007fff} 0334 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 033d | = | .CONST 0x033d ; Address of begin 0339 0004 | | .CONST 0x0004 ; Address of exception handler 033a 0002 | | .CONST 0x0002 ; Number of locals 033b INIT_0338: 033b e216 | | Load 0x1,0x16 033c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 033d BODY_0338: 033d e5f8 | | Load 0x2,-0x8 033e e5f9 | | Load 0x2,-0x7 033f e216 | | Load 0x1,0x16 0340 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0341 e5fc | | Load 0x2,-0x4 0342 e5fd | | Load 0x2,-0x3 0343 e5fe | | Load 0x2,-0x2 0344 e228 | ( | Load 0x1,0x28 0345 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0346 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0347 c5f9 | | Store 0x2,-0x7 0348 c5f8 | | Store 0x2,-0x8 0349 e5f8 | | Load 0x2,-0x8 034a 7028 |p( | Jump_Nonzero 0x373 034b e5fd | | Load 0x2,-0x3 034c 00d9 | | Load_Top At_Offset_1 034d 824f | O | Call 0x1,0x4f 034e 7024 |p$ | Jump_Nonzero 0x373 034f e5fb | | Load 0x2,-0x5 0350 680b |h | Jump_Zero 0x35c 0351 e5f8 | | Load 0x2,-0x8 0352 e5f9 | | Load 0x2,-0x7 0353 00da | | Load_Top At_Offset_2 0354 e5fc | | Load 0x2,-0x4 0355 e5fd | | Load 0x2,-0x3 0356 e5ff | | Load 0x2,-0x1 0357 8251 | Q | Call 0x1,0x51 0358 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0359 c5f9 | | Store 0x2,-0x7 035a c5f8 | | Store 0x2,-0x8 035b 7817 |x | Jump 0x373 035c e003 | | Load 0x0,0x3 035d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 035e 4801 |H | Short_Literal 0x1 035f 4802 |H | Short_Literal 0x2 0360 e00f | | Load 0x0,0xf 0361 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0362 0334 | 4 | Declare_Variable Array,With_Constraint 0363 e5fd | | Load 0x2,-0x3 0364 e00f | | Load 0x0,0xf 0365 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0366 4801 |H | Short_Literal 0x1 0367 00da | | Load_Top At_Offset_2 0368 01d6 | | Execute Vector,Field_Write 0369 e5fc | | Load 0x2,-0x4 036a e00c | | Load 0x0,0xc 036b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 036c 4802 |H | Short_Literal 0x2 036d 00da | | Load_Top At_Offset_2 036e 01d6 | | Execute Vector,Field_Write 036f 6008 |` | Indirect_Literal Discrete,0x378,{0x00000000, 0x00002827} 0370 e003 | | Load 0x0,0x3 0371 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0372 c5f8 | | Store 0x2,-0x8 0373 00d8 | | Load_Top At_Offset_0 0374 a5fa | | Store_Unchecked 0x2,-0x6 0375 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0376 0000 0000 | | .XXX[0x2] 0378 0000 0000 | | .LITERAL {0x00000000, 0x00002827} 037c 0000 0000 | | .BLANK 0000[0x4] 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 038c | | .CONST 0x038c ; Address of begin 0381 0004 | | .CONST 0x0004 ; Address of exception handler 0382 0003 | | .CONST 0x0003 ; Number of locals 0383 INIT_0380: 0383 e004 | | Load 0x0,0x4 0384 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0385 e051 | Q | Load 0x0,0x51 0386 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0387 02c7 | | Declare_Variable Any 0388 e5fd | | Load 0x2,-0x3 0389 e001 | | Load 0x0,0x1 038a 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 038b a403 | | Store_Unchecked 0x2,0x3 038c BODY_0380: 038c 4800 |H | Short_Literal 0x0 038d a5fc | | Store_Unchecked 0x2,-0x4 038e e5ff | | Load 0x2,-0x1 038f 6811 |h | Jump_Zero 0x3a1 0390 0092 1194 | | Action Push_String_Extended,0x1194 ; "State file for " 0392 e5fe | | Load 0x2,-0x2 0393 e216 | | Load 0x1,0x16 0394 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0395 01cc | | Execute Vector,Catenate 0396 0092 1195 | | Action Push_String_Extended,0x1195 ; " is being abandoned." 0398 01cc | | Execute Vector,Catenate 0399 824e | N | Call 0x1,0x4e 039a 00d8 | | Load_Top At_Offset_0 039b 4801 |H | Short_Literal 0x1 039c 4800 |H | Short_Literal 0x0 039d e051 | Q | Load 0x0,0x51 039e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 039f c403 | | Store 0x2,0x3 03a0 782b |x+ | Jump 0x3cc 03a1 e001 | | Load 0x0,0x1 03a2 1b10 | | Execute Package,Field_Read,Field_Number 0x10 03a3 e5fd | | Load 0x2,-0x3 03a4 e001 | | Load 0x0,0x1 03a5 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 03a6 c5fd | | Store 0x2,-0x3 03a7 005a | Z | Store_Top Discrete,At_Offset_2 03a8 00d9 | | Load_Top At_Offset_1 03a9 700b |p | Jump_Nonzero 0x3b5 03aa 0092 1194 | | Action Push_String_Extended,0x1194 ; "State file for " 03ac e5fe | | Load 0x2,-0x2 03ad e216 | | Load 0x1,0x16 03ae 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 03af 01cc | | Execute Vector,Catenate 03b0 0092 1196 | | Action Push_String_Extended,0x1196 ; " has been closed." 03b2 01cc | | Execute Vector,Catenate 03b3 824e | N | Call 0x1,0x4e 03b4 7817 |x | Jump 0x3cc 03b5 e003 | | Load 0x0,0x3 03b6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03b7 4801 |H | Short_Literal 0x1 03b8 4802 |H | Short_Literal 0x2 03b9 e00f | | Load 0x0,0xf 03ba 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03bb 0334 | 4 | Declare_Variable Array,With_Constraint 03bc e5fe | | Load 0x2,-0x2 03bd e216 | | Load 0x1,0x16 03be 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 03bf 4801 |H | Short_Literal 0x1 03c0 00da | | Load_Top At_Offset_2 03c1 01d6 | | Execute Vector,Field_Write 03c2 00db | | Load_Top At_Offset_3 03c3 e00f | | Load 0x0,0xf 03c4 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 03c5 4802 |H | Short_Literal 0x2 03c6 00da | | Load_Top At_Offset_2 03c7 01d6 | | Execute Vector,Field_Write 03c8 6007 |` | Indirect_Literal Discrete,0x3d0,{0x00000000, 0x00005005} 03c9 e003 | | Load 0x0,0x3 03ca 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 03cb c5fc | | Store 0x2,-0x4 03cc e212 | | Load 0x1,0x12 03cd a5fe | | Store_Unchecked 0x2,-0x2 03ce 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03cf 0000 | | .XXX[0x1] 03d0 0000 0000 | | .LITERAL {0x00000000, 0x00005005} 03d4 0000 0000 | | .BLANK 0000[0x4] 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; -------------------------------------------------------------------------------------- 03d8 03db | | .CONST 0x03db ; Address of begin 03d9 0004 | | .CONST 0x0004 ; Address of exception handler 03da 0001 | | .CONST 0x0001 ; Number of locals 03db BODY_03d8: 03db INIT_03d8: 03db 00db | | Load_Top At_Offset_3 03dc 00db | | Load_Top At_Offset_3 03dd e228 | ( | Load 0x1,0x28 03de 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03df 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 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 4608 |F | Jump_Case 0x9 03e4 7808 |x | Jump 0x3ed ; case 0x0 03e5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 03e6 7816 |x | Jump 0x3fd ; case 0x2 03e7 7815 |x | Jump 0x3fd ; case 0x3 03e8 7814 |x | Jump 0x3fd ; case 0x4 03e9 7813 |x | Jump 0x3fd ; case 0x5 03ea 7812 |x | Jump 0x3fd ; case 0x6 03eb 7811 |x | Jump 0x3fd ; case 0x7 03ec 7810 |x | Jump 0x3fd ; case 0x8 03ed 4801 |H | Short_Literal 0x1 03ee 00db | | Load_Top At_Offset_3 03ef 380c |8 | Execute Record,Field_Write,Field_Number 0xc 03f0 00da | | Load_Top At_Offset_2 03f1 3412 |4 | Execute Record,Field_Reference,Field_Number 0x12 03f2 0125 | % | Execute Any,Set_Constraint 03f3 00da | | Load_Top At_Offset_2 03f4 3412 |4 | Execute Record,Field_Reference,Field_Number 0x12 03f5 1c00 | | Execute_Immediate Run_Utility,0x0 03f6 00da | | Load_Top At_Offset_2 03f7 3413 |4 | Execute Record,Field_Reference,Field_Number 0x13 03f8 0125 | % | Execute Any,Set_Constraint 03f9 00da | | Load_Top At_Offset_2 03fa 3413 |4 | Execute Record,Field_Reference,Field_Number 0x13 03fb 1c00 | | Execute_Immediate Run_Utility,0x0 03fc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 03fd 0869 | i | Execute_Immediate Raise,0x69 03fe 0000 0000 | | .XXX[0x2] 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 4608 |F | Jump_Case 0x9 0404 7808 |x | Jump 0x40d ; case 0x0 0405 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0406 7819 |x | Jump 0x420 ; case 0x2 0407 7818 |x | Jump 0x420 ; case 0x3 0408 7817 |x | Jump 0x420 ; case 0x4 0409 7816 |x | Jump 0x420 ; case 0x5 040a 7815 |x | Jump 0x420 ; case 0x6 040b 7814 |x | Jump 0x420 ; case 0x7 040c 7813 |x | Jump 0x420 ; case 0x8 040d 00da | | Load_Top At_Offset_2 040e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 040f 0125 | % | Execute Any,Set_Constraint 0410 00da | | Load_Top At_Offset_2 0411 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0412 1c00 | | Execute_Immediate Run_Utility,0x0 0413 00da | | Load_Top At_Offset_2 0414 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0415 0125 | % | Execute Any,Set_Constraint 0416 00da | | Load_Top At_Offset_2 0417 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0418 1c00 | | Execute_Immediate Run_Utility,0x0 0419 00da | | Load_Top At_Offset_2 041a 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 041b 0125 | % | Execute Any,Set_Constraint 041c 00da | | Load_Top At_Offset_2 041d 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 041e 1c00 | | Execute_Immediate Run_Utility,0x0 041f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0420 0869 | i | Execute_Immediate Raise,0x69 0421 0000 0000 | | .BLANK 0000[0x7] 0428 ; -------------------------------------------------------------------------------------- 0428 ; SUBPROGRAM 0428 ; -------------------------------------------------------------------------------------- 0428 042b | + | .CONST 0x042b ; Address of begin 0429 0004 | | .CONST 0x0004 ; Address of exception handler 042a 0001 | | .CONST 0x0001 ; Number of locals 042b BODY_0428: 042b INIT_0428: 042b 4608 |F | Jump_Case 0x9 042c 7808 |x | Jump 0x435 ; case 0x0 042d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 042e 781c |x | Jump 0x44b ; case 0x2 042f 781b |x | Jump 0x44b ; case 0x3 0430 781a |x | Jump 0x44b ; case 0x4 0431 7819 |x | Jump 0x44b ; case 0x5 0432 7818 |x | Jump 0x44b ; case 0x6 0433 7817 |x | Jump 0x44b ; case 0x7 0434 7816 |x | Jump 0x44b ; case 0x8 0435 00da | | Load_Top At_Offset_2 0436 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 0437 1c00 | | Execute_Immediate Run_Utility,0x0 0438 00da | | Load_Top At_Offset_2 0439 340e |4 | Execute Record,Field_Reference,Field_Number 0xe 043a 0125 | % | Execute Any,Set_Constraint 043b 00da | | Load_Top At_Offset_2 043c 340e |4 | Execute Record,Field_Reference,Field_Number 0xe 043d 1c00 | | Execute_Immediate Run_Utility,0x0 043e 00da | | Load_Top At_Offset_2 043f 340f |4 | Execute Record,Field_Reference,Field_Number 0xf 0440 0125 | % | Execute Any,Set_Constraint 0441 00da | | Load_Top At_Offset_2 0442 340f |4 | Execute Record,Field_Reference,Field_Number 0xf 0443 1c00 | | Execute_Immediate Run_Utility,0x0 0444 00da | | Load_Top At_Offset_2 0445 3410 |4 | Execute Record,Field_Reference,Field_Number 0x10 0446 0125 | % | Execute Any,Set_Constraint 0447 00da | | Load_Top At_Offset_2 0448 3410 |4 | Execute Record,Field_Reference,Field_Number 0x10 0449 1c00 | | Execute_Immediate Run_Utility,0x0 044a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 044b 0869 | i | Execute_Immediate Raise,0x69 044c 0000 0000 | | .BLANK 0000[0x4] 0450 ; -------------------------------------------------------------------------------------- 0450 ; SUBPROGRAM 0450 ; -------------------------------------------------------------------------------------- 0450 0453 | S | .CONST 0x0453 ; Address of begin 0451 0004 | | .CONST 0x0004 ; Address of exception handler 0452 0001 | | .CONST 0x0001 ; Number of locals 0453 BODY_0450: 0453 INIT_0450: 0453 4608 |F | Jump_Case 0x9 0454 7808 |x | Jump 0x45d ; case 0x0 0455 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0456 7813 |x | Jump 0x46a ; case 0x2 0457 7812 |x | Jump 0x46a ; case 0x3 0458 7811 |x | Jump 0x46a ; case 0x4 0459 7810 |x | Jump 0x46a ; case 0x5 045a 780f |x | Jump 0x46a ; case 0x6 045b 780e |x | Jump 0x46a ; case 0x7 045c 780d |x | Jump 0x46a ; case 0x8 045d 00da | | Load_Top At_Offset_2 045e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 045f 0125 | % | Execute Any,Set_Constraint 0460 00da | | Load_Top At_Offset_2 0461 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0462 1c00 | | Execute_Immediate Run_Utility,0x0 0463 00da | | Load_Top At_Offset_2 0464 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0465 0125 | % | Execute Any,Set_Constraint 0466 00da | | Load_Top At_Offset_2 0467 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0468 1c00 | | Execute_Immediate Run_Utility,0x0 0469 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 046a 0869 | i | Execute_Immediate Raise,0x69 046b 0000 0000 | | .BLANK 0000[0x5] 0470 ; -------------------------------------------------------------------------------------- 0470 ; SUBPROGRAM 0470 ; -------------------------------------------------------------------------------------- 0470 0473 | s | .CONST 0x0473 ; Address of begin 0471 0004 | | .CONST 0x0004 ; Address of exception handler 0472 0001 | | .CONST 0x0001 ; Number of locals 0473 BODY_0470: 0473 INIT_0470: 0473 4608 |F | Jump_Case 0x9 0474 7808 |x | Jump 0x47d ; case 0x0 0475 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0476 780d |x | Jump 0x484 ; case 0x2 0477 780c |x | Jump 0x484 ; case 0x3 0478 780b |x | Jump 0x484 ; case 0x4 0479 780a |x | Jump 0x484 ; case 0x5 047a 7809 |x | Jump 0x484 ; case 0x6 047b 7808 |x | Jump 0x484 ; case 0x7 047c 7807 |x | Jump 0x484 ; case 0x8 047d 00da | | Load_Top At_Offset_2 047e 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 047f 0125 | % | Execute Any,Set_Constraint 0480 00da | | Load_Top At_Offset_2 0481 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0482 1c00 | | Execute_Immediate Run_Utility,0x0 0483 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0484 0869 | i | Execute_Immediate Raise,0x69 0485 0000 0000 | | .XXX[0x3] 0487 0000 | | 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 048b | | .CONST 0x048b ; Address of begin 0489 0004 | | .CONST 0x0004 ; Address of exception handler 048a 0001 | | .CONST 0x0001 ; Number of locals 048b BODY_0488: 048b INIT_0488: 048b 4607 |F | Jump_Case 0x8 048c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 048d 7806 |x | Jump 0x494 ; case 0x1 048e 7809 |x | Jump 0x498 ; case 0x2 048f 780d |x | Jump 0x49d ; case 0x3 0490 7810 |x | Jump 0x4a1 ; case 0x4 0491 7811 |x | Jump 0x4a3 ; case 0x5 0492 7812 |x | Jump 0x4a5 ; case 0x6 0493 7815 |x | Jump 0x4a9 ; case 0x7 0494 00da | | Load_Top At_Offset_2 0495 0091 118a | | Action Push_String_Extended_Indexed,0x118a ; "OTHER_SUBCLASS" 0497 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0498 00db | | Load_Top At_Offset_3 0499 00db | | Load_Top At_Offset_3 049a 00e0 | | Load_Encached Standard_Cache 049b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 049c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 049d 00da | | Load_Top At_Offset_2 049e 00e0 | | Load_Encached Standard_Cache 049f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 04a0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 04a1 00db | | Load_Top At_Offset_3 04a2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 04a3 00db | | Load_Top At_Offset_3 04a4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 04a5 e233 | 3 | Load 0x1,0x33 04a6 00dc | | Load_Top At_Offset_4 04a7 0267 | g | Execute Discrete,Predecessor 04a8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 04a9 e233 | 3 | Load 0x1,0x33 04aa 00dc | | Load_Top At_Offset_4 04ab 0268 | h | Execute Discrete,Successor 04ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 04ad 0000 0000 | | .XXX[0x3] 04af 0000 | | 04b0 ; -------------------------------------------------------------------------------------- 04b0 ; SUBPROGRAM 04b0 ; -------------------------------------------------------------------------------------- 04b0 04b3 | | .CONST 0x04b3 ; Address of begin 04b1 0004 | | .CONST 0x0004 ; Address of exception handler 04b2 0001 | | .CONST 0x0001 ; Number of locals 04b3 BODY_04b0: 04b3 INIT_04b0: 04b3 00d1 | | Pop_Control Pop_Count_1 04b4 00da | | Load_Top At_Offset_2 04b5 01dc | | Execute Vector,Last 04b6 00db | | Load_Top At_Offset_3 04b7 01dd | | Execute Vector,First 04b8 0263 | c | Execute Discrete,Above_Bound 04b9 700a |p | Jump_Nonzero 0x4c4 04ba 00d8 | | Load_Top At_Offset_0 04bb e5ff | | Load 0x2,-0x1 04bc 01d5 | | Execute Vector,Field_Reference 04bd 0125 | % | Execute Any,Set_Constraint 04be 00d8 | | Load_Top At_Offset_0 04bf e5ff | | Load 0x2,-0x1 04c0 01d5 | | Execute Vector,Field_Reference 04c1 1c00 | | Execute_Immediate Run_Utility,0x0 04c2 0a01 | | Execute_Immediate Plus,0x1 04c3 7ff4 | | Jump 0x4b8 04c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 04c5 0000 0000 | | .XXX[0x3] 04c7 0000 | | 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; SUBPROGRAM 04c8 ; -------------------------------------------------------------------------------------- 04c8 04cb | | .CONST 0x04cb ; Address of begin 04c9 0004 | | .CONST 0x0004 ; Address of exception handler 04ca 0001 | | .CONST 0x0001 ; Number of locals 04cb BODY_04c8: 04cb INIT_04c8: 04cb 4608 |F | Jump_Case 0x9 04cc 7808 |x | Jump 0x4d5 ; case 0x0 04cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 04ce 781d |x | Jump 0x4ec ; case 0x2 04cf 781c |x | Jump 0x4ec ; case 0x3 04d0 781b |x | Jump 0x4ec ; case 0x4 04d1 781a |x | Jump 0x4ec ; case 0x5 04d2 7819 |x | Jump 0x4ec ; case 0x6 04d3 7805 |x | Jump 0x4d9 ; case 0x7 04d4 780d |x | Jump 0x4e2 ; case 0x8 04d5 00da | | Load_Top At_Offset_2 04d6 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 04d7 1c00 | | Execute_Immediate Run_Utility,0x0 04d8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 04d9 00db | | Load_Top At_Offset_3 04da 4801 |H | Short_Literal 0x1 04db e5fe | | Load 0x2,-0x2 04dc e234 | 4 | Load 0x1,0x34 04dd 035b | [ | Declare_Type Array,Constrained 04de 4801 |H | Short_Literal 0x1 04df e5ff | | Load 0x2,-0x1 04e0 031b | | Declare_Type Variant_Record,Constrained 04e1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 04e2 00db | | Load_Top At_Offset_3 04e3 00db | | Load_Top At_Offset_3 04e4 02fc | | Declare_Variable Variant_Record,With_Constraint 04e5 4801 |H | Short_Literal 0x1 04e6 e5fe | | Load 0x2,-0x2 04e7 e234 | 4 | Load 0x1,0x34 04e8 0334 | 4 | Declare_Variable Array,With_Constraint 04e9 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3 04ea 016a | j | QQ_execute Variant_Record,XXX 04eb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 04ec 0869 | i | Execute_Immediate Raise,0x69 04ed 0000 0000 | | .XXX[0x3] 04ef 0000 | | 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 e065 | e | Load 0x0,0x65 04f4 180e | | Execute Package,Field_Execute,Field_Number 0xe 04f5 00db | | Load_Top At_Offset_3 04f6 4801 |H | Short_Literal 0x1 04f7 6004 |` | Indirect_Literal Discrete,0x4fc,{0x00000000, 0x00005802} 04f8 e003 | | Load 0x0,0x3 04f9 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 04fa 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04fb 0000 | | .XXX[0x1] 04fc 0000 0000 | | .LITERAL {0x00000000, 0x00005802} 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 00da | | Load_Top At_Offset_2 0504 0217 | | Execute Heap_Access,All_Reference 0505 3c0e |< | Execute Record,Field_Read,Field_Number 0xe 0506 0217 | | Execute Heap_Access,All_Reference 0507 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0508 e5fe | | Load 0x2,-0x2 0509 012f | / | Execute Any,Equal 050a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 050b 0000 0000 | | .BLANK 0000[0x5] 0510 ; -------------------------------------------------------------------------------------- 0510 ; SUBPROGRAM 0510 ; -------------------------------------------------------------------------------------- 0510 053c | < | .CONST 0x053c ; Address of begin 0511 05e3 | | .CONST 0x05e3 ; Address of exception handler 0512 000e | | .CONST 0x000e ; Number of locals 0513 INIT_0510: 0513 00da | | Load_Top At_Offset_2 0514 0007 | | Action Break_Optional 0515 e004 | | Load 0x0,0x4 0516 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0517 02c7 | | Declare_Variable Any 0518 e5ff | | Load 0x2,-0x1 0519 0217 | | Execute Heap_Access,All_Reference 051a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 051b a403 | | Store_Unchecked 0x2,0x3 051c e004 | | Load 0x0,0x4 051d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 051e 02c7 | | Declare_Variable Any 051f 00d8 | | Load_Top At_Offset_0 0520 1c00 | | Execute_Immediate Run_Utility,0x0 0521 e004 | | Load 0x0,0x4 0522 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0523 e004 | | Load 0x0,0x4 0524 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0525 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0526 e004 | | Load 0x0,0x4 0527 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0528 02c7 | | Declare_Variable Any 0529 00d8 | | Load_Top At_Offset_0 052a 1c00 | | Execute_Immediate Run_Utility,0x0 052b e004 | | Load 0x0,0x4 052c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 052d 02c7 | | Declare_Variable Any 052e 00d8 | | Load_Top At_Offset_0 052f 1c00 | | Execute_Immediate Run_Utility,0x0 0530 e228 | ( | Load 0x1,0x28 0531 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 0532 e228 | ( | Load 0x1,0x28 0533 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 0534 e214 | | Load 0x1,0x14 0535 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0536 e216 | | Load 0x1,0x16 0537 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0538 029f 094b | K| Declare_Subprogram INIT_0948,For_Call 053a 029f 099b | | Declare_Subprogram INIT_0998,For_Call 053c BODY_0510: 053c e5fb | | Load 0x2,-0x5 053d e216 | | Load 0x1,0x16 053e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 053f e5fe | | Load 0x2,-0x2 0540 e228 | ( | Load 0x1,0x28 0541 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0542 c40c | | Store 0x2,0xc 0543 c5fb | | Store 0x2,-0x5 0544 e5fb | | Load 0x2,-0x5 0545 709c |p | Jump_Nonzero 0x5e2 0546 00da | | Load_Top At_Offset_2 0547 0e02 | | Execute_Immediate Not_Equal,0x2 0548 e5ff | | Load 0x2,-0x1 0549 0217 | | Execute Heap_Access,All_Reference 054a 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 054b e5fe | | Load 0x2,-0x2 054c e5ff | | Load 0x2,-0x1 054d 0217 | | Execute Heap_Access,All_Reference 054e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 054f e5fd | | Load 0x2,-0x3 0550 e5fe | | Load 0x2,-0x2 0551 e004 | | Load 0x0,0x4 0552 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0553 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0554 e227 | ' | Load 0x1,0x27 0555 180f | | Execute Package,Field_Execute,Field_Number 0xf 0556 e5ff | | Load 0x2,-0x1 0557 0217 | | Execute Heap_Access,All_Reference 0558 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0559 e5ff | | Load 0x2,-0x1 055a 0217 | | Execute Heap_Access,All_Reference 055b 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 055c 682d |h- | Jump_Zero 0x58a 055d e004 | | Load 0x0,0x4 055e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 055f e407 | | Load 0x2,0x7 0560 0120 | | Execute Any,Is_Value 0561 6803 |h | Jump_Zero 0x565 0562 e004 | | Load 0x0,0x4 0563 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0564 7801 |x | Jump 0x566 0565 e407 | | Load 0x2,0x7 0566 e5fe | | Load 0x2,-0x2 0567 e004 | | Load 0x0,0x4 0568 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 0569 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 056a c407 | | Store 0x2,0x7 056b c405 | | Store 0x2,0x5 056c 4801 |H | Short_Literal 0x1 056d 4801 |H | Short_Literal 0x1 056e e00f | | Load 0x0,0xf 056f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0570 0334 | 4 | Declare_Variable Array,With_Constraint 0571 e5fe | | Load 0x2,-0x2 0572 e00f | | Load 0x0,0xf 0573 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0574 4801 |H | Short_Literal 0x1 0575 00da | | Load_Top At_Offset_2 0576 01d6 | | Execute Vector,Field_Write 0577 6080 |` | Indirect_Literal Discrete,0x5f8,{0x00000000, 0x00002834} 0578 e405 | | Load 0x2,0x5 0579 e003 | | Load 0x0,0x3 057a 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 057b e407 | | Load 0x2,0x7 057c e5ff | | Load 0x2,-0x1 057d 0217 | | Execute Heap_Access,All_Reference 057e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 057f e5fd | | Load 0x2,-0x3 0580 e407 | | Load 0x2,0x7 0581 e004 | | Load 0x0,0x4 0582 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0583 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0584 e227 | ' | Load 0x1,0x27 0585 180f | | Execute Package,Field_Execute,Field_Number 0xf 0586 e5ff | | Load 0x2,-0x1 0587 0217 | | Execute Heap_Access,All_Reference 0588 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0589 780c |x | Jump 0x596 058a e5ff | | Load 0x2,-0x1 058b 0217 | | Execute Heap_Access,All_Reference 058c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 058d e5ff | | Load 0x2,-0x1 058e 0217 | | Execute Heap_Access,All_Reference 058f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0590 e5ff | | Load 0x2,-0x1 0591 0217 | | Execute Heap_Access,All_Reference 0592 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0593 e5ff | | Load 0x2,-0x1 0594 0217 | | Execute Heap_Access,All_Reference 0595 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0596 e5ff | | Load 0x2,-0x1 0597 0217 | | Execute Heap_Access,All_Reference 0598 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0599 a409 | | Store_Unchecked 0x2,0x9 059a 00cf | | Action Mark_Auxiliary 059b 780a |x | Jump 0x5a6 059c e005 | | Load 0x0,0x5 059d 180f | | Execute Package,Field_Execute,Field_Number 0xf 059e e409 | | Load 0x2,0x9 059f 0217 | | Execute Heap_Access,All_Reference 05a0 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 05a1 e409 | | Load 0x2,0x9 05a2 0217 | | Execute Heap_Access,All_Reference 05a3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 05a4 a409 | | Store_Unchecked 0x2,0x9 05a5 00c9 | | Action Pop_Auxiliary_Loop 05a6 e409 | | Load 0x2,0x9 05a7 77f4 |w | Jump_Nonzero 0x59c 05a8 00ce | | Action Pop_Auxiliary 05a9 e004 | | Load 0x0,0x4 05aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05ab e404 | | Load 0x2,0x4 05ac 0120 | | Execute Any,Is_Value 05ad 6803 |h | Jump_Zero 0x5b1 05ae e004 | | Load 0x0,0x4 05af 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05b0 7801 |x | Jump 0x5b2 05b1 e404 | | Load 0x2,0x4 05b2 6041 |`A | Indirect_Literal Discrete,0x5f4,{0x00000000, 0x00004000} 05b3 e051 | Q | Load 0x0,0x51 05b4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05b5 4800 |H | Short_Literal 0x0 05b6 e5fe | | Load 0x2,-0x2 05b7 e004 | | Load 0x0,0x4 05b8 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 05b9 1819 | | Execute Package,Field_Execute,Field_Number 0x19 05ba c404 | | Store 0x2,0x4 05bb c405 | | Store 0x2,0x5 05bc 4801 |H | Short_Literal 0x1 05bd 4801 |H | Short_Literal 0x1 05be e00f | | Load 0x0,0xf 05bf 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05c0 0334 | 4 | Declare_Variable Array,With_Constraint 05c1 e5fe | | Load 0x2,-0x2 05c2 e00f | | Load 0x0,0xf 05c3 181a | | Execute Package,Field_Execute,Field_Number 0x1a 05c4 4801 |H | Short_Literal 0x1 05c5 00da | | Load_Top At_Offset_2 05c6 01d6 | | Execute Vector,Field_Write 05c7 6028 |`( | Indirect_Literal Discrete,0x5f0,{0x00000000, 0x00002832} 05c8 e405 | | Load 0x2,0x5 05c9 e003 | | Load 0x0,0x3 05ca 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 05cb 00cf | | Action Mark_Auxiliary 05cc e402 | | Load 0x2,0x2 05cd 0217 | | Execute Heap_Access,All_Reference 05ce 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 05cf a40a | | Store_Unchecked 0x2,0xa 05d0 840d | | Call 0x2,0xd 05d1 e5fd | | Load 0x2,-0x3 05d2 0217 | | Execute Heap_Access,All_Reference 05d3 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 05d4 7001 |p | Jump_Nonzero 0x5d6 05d5 780b |x | Jump 0x5e1 05d6 e402 | | Load 0x2,0x2 05d7 0217 | | Execute Heap_Access,All_Reference 05d8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 05d9 e213 | | Load 0x1,0x13 05da 0216 | | Execute Heap_Access,Convert 05db a402 | | Store_Unchecked 0x2,0x2 05dc e402 | | Load 0x2,0x2 05dd 6803 |h | Jump_Zero 0x5e1 05de 840e | | Call 0x2,0xe 05df 00c9 | | Action Pop_Auxiliary_Loop 05e0 7feb | | Jump 0x5cc 05e1 00ce | | Action Pop_Auxiliary 05e2 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05e3 TRAP_0510: 05e3 e003 | | Load 0x0,0x3 05e4 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 05e5 010f | | Execute Exception,Equal 05e6 7004 |p | Jump_Nonzero 0x5eb 05e7 e003 | | Load 0x0,0x3 05e8 1b3e | > | Execute Package,Field_Read,Field_Number 0x3e 05e9 010f | | Execute Exception,Equal 05ea 6804 |h | Jump_Zero 0x5ef 05eb e003 | | Load 0x0,0x3 05ec 181b | | Execute Package,Field_Execute,Field_Number 0x1b 05ed a5fb | | Store_Unchecked 0x2,-0x5 05ee 4505 |E | Exit_Suprogram New_Top_Offset 0x5 05ef 0100 | | Execute Exception,Raise 05f0 0000 0000 | | .LITERAL {0x00000000, 0x00002832} 05f4 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 05f8 0000 0000 | | .LITERAL {0x00000000, 0x00002834} 05fc 0000 0000 | | .BLANK 0000[0x4] 0600 ; -------------------------------------------------------------------------------------- 0600 ; SUBPROGRAM 0600 ; -------------------------------------------------------------------------------------- 0600 0608 | | .CONST 0x0608 ; Address of begin 0601 0004 | | .CONST 0x0004 ; Address of exception handler 0602 0002 | | .CONST 0x0002 ; Number of locals 0603 INIT_0600: 0603 e5fb | | Load 0x2,-0x5 0604 e001 | | Load 0x0,0x1 0605 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0606 e20f | | Load 0x1,0xf 0607 03f1 | | Declare_Variable Discrete,With_Value 0608 BODY_0600: 0608 e5fe | | Load 0x2,-0x2 0609 e5fc | | Load 0x2,-0x4 060a 824f | O | Call 0x1,0x4f 060b 703f |p? | Jump_Nonzero 0x64b 060c 0092 1197 | | Action Push_String_Extended,0x1197 ; "Harmonizing the state." 060e 824e | N | Call 0x1,0x4e 060f 00d8 | | Load_Top At_Offset_0 0610 0e02 | | Execute_Immediate Not_Equal,0x2 0611 6814 |h | Jump_Zero 0x626 0612 e5fa | | Load 0x2,-0x6 0613 e5fb | | Load 0x2,-0x5 0614 e5fc | | Load 0x2,-0x4 0615 4800 |H | Short_Literal 0x0 0616 821f | | Call 0x1,0x1f 0617 c5fc | | Store 0x2,-0x4 0618 c5fb | | Store 0x2,-0x5 0619 c5fa | | Store 0x2,-0x6 061a e5fa | | Load 0x2,-0x6 061b e5fb | | Load 0x2,-0x5 061c e216 | | Load 0x1,0x16 061d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 061e e5fd | | Load 0x2,-0x3 061f e5fe | | Load 0x2,-0x2 0620 4802 |H | Short_Literal 0x2 0621 e228 | ( | Load 0x1,0x28 0622 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0623 c5fc | | Store 0x2,-0x4 0624 c5fb | | Store 0x2,-0x5 0625 c5fa | | Store 0x2,-0x6 0626 e5fa | | Load 0x2,-0x6 0627 e5ff | | Load 0x2,-0x1 0628 e5fc | | Load 0x2,-0x4 0629 e5fe | | Load 0x2,-0x2 062a e5fc | | Load 0x2,-0x4 062b 0217 | | Execute Heap_Access,All_Reference 062c 3c0e |< | Execute Record,Field_Read,Field_Number 0xe 062d e213 | | Load 0x1,0x13 062e 0216 | | Execute Heap_Access,Convert 062f 8250 | P | Call 0x1,0x50 0630 c5fa | | Store 0x2,-0x6 0631 e5fb | | Load 0x2,-0x5 0632 e001 | | Load 0x0,0x1 0633 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0634 00d9 | | Load_Top At_Offset_1 0635 027e | ~ | Execute Discrete,Not_Equal 0636 6814 |h | Jump_Zero 0x64b 0637 e5fa | | Load 0x2,-0x6 0638 e5fb | | Load 0x2,-0x5 0639 e5fc | | Load 0x2,-0x4 063a 4800 |H | Short_Literal 0x0 063b 821f | | Call 0x1,0x1f 063c c5fc | | Store 0x2,-0x4 063d c5fb | | Store 0x2,-0x5 063e c5fa | | Store 0x2,-0x6 063f e5fa | | Load 0x2,-0x6 0640 e5fb | | Load 0x2,-0x5 0641 e216 | | Load 0x1,0x16 0642 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0643 e5fd | | Load 0x2,-0x3 0644 e5fe | | Load 0x2,-0x2 0645 e402 | | Load 0x2,0x2 0646 e228 | ( | Load 0x1,0x28 0647 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0648 c5fc | | Store 0x2,-0x4 0649 c5fb | | Store 0x2,-0x5 064a c5fa | | Store 0x2,-0x6 064b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 064c 0000 0000 | | .BLANK 0000[0x4] 0650 ; -------------------------------------------------------------------------------------- 0650 ; SUBPROGRAM 0650 ; -------------------------------------------------------------------------------------- 0650 065b | [ | .CONST 0x065b ; Address of begin 0651 0004 | | .CONST 0x0004 ; Address of exception handler 0652 0003 | | .CONST 0x0003 ; Number of locals 0653 INIT_0650: 0653 00da | | Load_Top At_Offset_2 0654 0217 | | Execute Heap_Access,All_Reference 0655 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0656 e214 | | Load 0x1,0x14 0657 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0658 1c08 | | Execute_Immediate Run_Utility,0x8 0659 e229 | ) | Load 0x1,0x29 065a 1b15 | | Execute Package,Field_Read,Field_Number 0x15 065b BODY_0650: 065b 4800 |H | Short_Literal 0x0 065c 00da | | Load_Top At_Offset_2 065d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 065e e229 | ) | Load 0x1,0x29 065f 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0660 e5ff | | Load 0x2,-0x1 0661 e229 | ) | Load 0x1,0x29 0662 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0663 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0664 00cf | | Action Mark_Auxiliary 0665 00da | | Load_Top At_Offset_2 0666 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0667 01d9 | | Execute Vector,Reverse_Bounds 0668 0263 | c | Execute Discrete,Above_Bound 0669 7037 |p7 | Jump_Nonzero 0x6a1 066a 00db | | Load_Top At_Offset_3 066b e229 | ) | Load 0x1,0x29 066c 1819 | | Execute Package,Field_Execute,Field_Number 0x19 066d 6821 |h! | Jump_Zero 0x68f 066e 00d8 | | Load_Top At_Offset_0 066f 0aff | | Execute_Immediate Plus,-0x1 0670 e214 | | Load 0x1,0x14 0671 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0672 1c08 | | Execute_Immediate Run_Utility,0x8 0673 4800 |H | Short_Literal 0x0 0674 00d9 | | Load_Top At_Offset_1 0675 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0676 4801 |H | Short_Literal 0x1 0677 00da | | Load_Top At_Offset_2 0678 0aff | | Execute_Immediate Plus,-0x1 0679 e402 | | Load 0x2,0x2 067a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 067b 01cf | | Execute Vector,Slice_Read 067c 00d9 | | Load_Top At_Offset_1 067d 00d8 | | Load_Top At_Offset_0 067e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 067f 00da | | Load_Top At_Offset_2 0680 01da | | Execute Vector,Bounds 0681 00da | | Load_Top At_Offset_2 0682 01da | | Execute Vector,Bounds 0683 00da | | Load_Top At_Offset_2 0684 027f | | Execute Discrete,Equal 0685 7001 |p | Jump_Nonzero 0x687 0686 08e0 | | Execute_Immediate Raise,0xe0 0687 00cd | | Action Spare6_Action 0688 027f | | Execute Discrete,Equal 0689 7001 |p | Jump_Nonzero 0x68b 068a 08e0 | | Execute_Immediate Raise,0xe0 068b 00d2 | | Pop_Control Pop_Count_2 068c 00d9 | | Load_Top At_Offset_1 068d 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 068e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 068f e5ff | | Load 0x2,-0x1 0690 e403 | | Load 0x2,0x3 0691 e229 | ) | Load 0x1,0x29 0692 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0693 e229 | ) | Load 0x1,0x29 0694 180f | | Execute Package,Field_Execute,Field_Number 0xf 0695 e210 | | Load 0x1,0x10 0696 0216 | | Execute Heap_Access,Convert 0697 00d9 | | Load_Top At_Offset_1 0698 e402 | | Load 0x2,0x2 0699 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 069a 01d6 | | Execute Vector,Field_Write 069b 00db | | Load_Top At_Offset_3 069c e229 | ) | Load 0x1,0x29 069d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 069e c403 | | Store 0x2,0x3 069f 00c8 | | Action Pop_Auxiliary_Range 06a0 3fc9 |? | Loop_Increasing 0x66a 06a1 00ce | | Action Pop_Auxiliary 06a2 00d9 | | Load_Top At_Offset_1 06a3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06a4 0000 0000 | | .BLANK 0000[0x4] 06a8 ; -------------------------------------------------------------------------------------- 06a8 ; SUBPROGRAM 06a8 ; -------------------------------------------------------------------------------------- 06a8 06ab | | .CONST 0x06ab ; Address of begin 06a9 0004 | | .CONST 0x0004 ; Address of exception handler 06aa 0001 | | .CONST 0x0001 ; Number of locals 06ab BODY_06a8: 06ab INIT_06a8: 06ab 00da | | Load_Top At_Offset_2 06ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 06ad 0000 0000 | | .XXX[0x3] 06af 0000 | | 06b0 ; -------------------------------------------------------------------------------------- 06b0 ; SUBPROGRAM 06b0 ; -------------------------------------------------------------------------------------- 06b0 06b3 | | .CONST 0x06b3 ; Address of begin 06b1 0004 | | .CONST 0x0004 ; Address of exception handler 06b2 0001 | | .CONST 0x0001 ; Number of locals 06b3 BODY_06b0: 06b3 INIT_06b0: 06b3 4801 |H | Short_Literal 0x1 06b4 0092 1198 | | Action Push_String_Extended,0x1198 ; "<DEFAULT>" 06b6 e5fe | | Load 0x2,-0x2 06b7 e066 | f | Load 0x0,0x66 06b8 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 06b9 680c |h | Jump_Zero 0x6c6 06ba 00da | | Load_Top At_Offset_2 06bb e216 | | Load 0x1,0x16 06bc 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 06bd 00db | | Load_Top At_Offset_3 06be e216 | | Load 0x1,0x16 06bf 187c | | | Execute Package,Field_Execute,Field_Number 0x7c 06c0 01cc | | Execute Vector,Catenate 06c1 00db | | Load_Top At_Offset_3 06c2 e216 | | Load 0x1,0x16 06c3 187a | z | Execute Package,Field_Execute,Field_Number 0x7a 06c4 01cc | | Execute Vector,Catenate 06c5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06c6 00db | | Load_Top At_Offset_3 06c7 01dd | | Execute Vector,First 06c8 e5fe | | Load 0x2,-0x2 06c9 01d7 | | Execute Vector,Field_Read 06ca 0f21 | ! | Execute_Immediate Equal,0x21 06cb 6802 |h | Jump_Zero 0x6ce 06cc 00db | | Load_Top At_Offset_3 06cd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06ce 00db | | Load_Top At_Offset_3 06cf 01dd | | Execute Vector,First 06d0 e5fe | | Load 0x2,-0x2 06d1 01d7 | | Execute Vector,Field_Read 06d2 0f2e | . | Execute_Immediate Equal,0x2e 06d3 6806 |h | Jump_Zero 0x6da 06d4 00da | | Load_Top At_Offset_2 06d5 e216 | | Load 0x1,0x16 06d6 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 06d7 e5fe | | Load 0x2,-0x2 06d8 01cc | | Execute Vector,Catenate 06d9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06da 00da | | Load_Top At_Offset_2 06db e216 | | Load 0x1,0x16 06dc 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 06dd 00db | | Load_Top At_Offset_3 06de e216 | | Load 0x1,0x16 06df 187c | | | Execute Package,Field_Execute,Field_Number 0x7c 06e0 01cc | | Execute Vector,Catenate 06e1 e5fe | | Load 0x2,-0x2 06e2 01cc | | Execute Vector,Catenate 06e3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06e4 0000 0000 | | .BLANK 0000[0x4] 06e8 ; -------------------------------------------------------------------------------------- 06e8 ; SUBPROGRAM 06e8 ; -------------------------------------------------------------------------------------- 06e8 06ee | | .CONST 0x06ee ; Address of begin 06e9 0004 | | .CONST 0x0004 ; Address of exception handler 06ea 0002 | | .CONST 0x0002 ; Number of locals 06eb INIT_06e8: 06eb e004 | | Load 0x0,0x4 06ec 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 06ed 1b0f | | Execute Package,Field_Read,Field_Number 0xf 06ee BODY_06e8: 06ee e004 | | Load 0x0,0x4 06ef 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 06f0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 06f1 e5fc | | Load 0x2,-0x4 06f2 6061 |`a | Indirect_Literal Discrete,0x754,{0x00000000, 0x00004000} 06f3 e051 | Q | Load 0x0,0x51 06f4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06f5 e052 | R | Load 0x0,0x52 06f6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 06f7 e070 | p | Load 0x0,0x70 06f8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 06f9 4801 |H | Short_Literal 0x1 06fa 4800 |H | Short_Literal 0x0 06fb e052 | R | Load 0x0,0x52 06fc 1811 | | Execute Package,Field_Execute,Field_Number 0x11 06fd e004 | | Load 0x0,0x4 06fe 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 06ff 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0700 e5ff | | Load 0x2,-0x1 0701 e004 | | Load 0x0,0x4 0702 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0703 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0704 c5fc | | Store 0x2,-0x4 0705 0059 | Y | Store_Top Discrete,At_Offset_1 0706 00d8 | | Load_Top At_Offset_0 0707 6832 |h2 | Jump_Zero 0x73a 0708 00d8 | | Load_Top At_Offset_0 0709 0f03 | | Execute_Immediate Equal,0x3 070a 6816 |h | Jump_Zero 0x721 070b e065 | e | Load 0x0,0x65 070c 180e | | Execute Package,Field_Execute,Field_Number 0xe 070d 4801 |H | Short_Literal 0x1 070e 4801 |H | Short_Literal 0x1 070f e00f | | Load 0x0,0xf 0710 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0711 0334 | 4 | Declare_Variable Array,With_Constraint 0712 e5ff | | Load 0x2,-0x1 0713 e00f | | Load 0x0,0xf 0714 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0715 4801 |H | Short_Literal 0x1 0716 00da | | Load_Top At_Offset_2 0717 01d6 | | Execute Vector,Field_Write 0718 4801 |H | Short_Literal 0x1 0719 e5fd | | Load 0x2,-0x3 071a e003 | | Load 0x0,0x3 071b 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 071c e004 | | Load 0x0,0x4 071d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 071e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 071f c5fc | | Store 0x2,-0x4 0720 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0721 e003 | | Load 0x0,0x3 0722 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0723 4801 |H | Short_Literal 0x1 0724 4802 |H | Short_Literal 0x2 0725 e00f | | Load 0x0,0xf 0726 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0727 0334 | 4 | Declare_Variable Array,With_Constraint 0728 e5ff | | Load 0x2,-0x1 0729 e00f | | Load 0x0,0xf 072a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 072b 4801 |H | Short_Literal 0x1 072c 00da | | Load_Top At_Offset_2 072d 01d6 | | Execute Vector,Field_Write 072e e5ff | | Load 0x2,-0x1 072f 00db | | Load_Top At_Offset_3 0730 e00f | | Load 0x0,0xf 0731 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0732 4802 |H | Short_Literal 0x2 0733 00da | | Load_Top At_Offset_2 0734 01d6 | | Execute Vector,Field_Write 0735 e5fe | | Load 0x2,-0x2 0736 e003 | | Load 0x0,0x3 0737 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0738 c5fb | | Store 0x2,-0x5 0739 4504 |E | Exit_Suprogram New_Top_Offset 0x4 073a e5fc | | Load 0x2,-0x4 073b e004 | | Load 0x0,0x4 073c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 073d 181e | | Execute Package,Field_Execute,Field_Number 0x1e 073e 6811 |h | Jump_Zero 0x750 073f e065 | e | Load 0x0,0x65 0740 180e | | Execute Package,Field_Execute,Field_Number 0xe 0741 4801 |H | Short_Literal 0x1 0742 4801 |H | Short_Literal 0x1 0743 e00f | | Load 0x0,0xf 0744 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0745 0334 | 4 | Declare_Variable Array,With_Constraint 0746 e5ff | | Load 0x2,-0x1 0747 e00f | | Load 0x0,0xf 0748 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0749 4801 |H | Short_Literal 0x1 074a 00da | | Load_Top At_Offset_2 074b 01d6 | | Execute Vector,Field_Write 074c 4801 |H | Short_Literal 0x1 074d e5fd | | Load 0x2,-0x3 074e e003 | | Load 0x0,0x3 074f 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0750 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0751 0000 0000 | | .XXX[0x3] 0753 0000 | | 0754 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0758 ; -------------------------------------------------------------------------------------- 0758 ; SUBPROGRAM 0758 ; -------------------------------------------------------------------------------------- 0758 076f | o | .CONST 0x076f ; Address of begin 0759 0004 | | .CONST 0x0004 ; Address of exception handler 075a 0007 | | .CONST 0x0007 ; Number of locals 075b INIT_0758: 075b e004 | | Load 0x0,0x4 075c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 075d 1b18 | | Execute Package,Field_Read,Field_Number 0x18 075e 02c7 | | Declare_Variable Any 075f 00d8 | | Load_Top At_Offset_0 0760 1c00 | | Execute_Immediate Run_Utility,0x0 0761 e004 | | Load 0x0,0x4 0762 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0763 02c7 | | Declare_Variable Any 0764 00d8 | | Load_Top At_Offset_0 0765 1c00 | | Execute_Immediate Run_Utility,0x0 0766 e004 | | Load 0x0,0x4 0767 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0768 e003 | | Load 0x0,0x3 0769 1b0d | | Execute Package,Field_Read,Field_Number 0xd 076a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 076b 00e2 | | Load_Encached Integer_Cache 076c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 076d 029f 0a1b | | Declare_Subprogram INIT_0a18,For_Call 076f BODY_0758: 076f 00da | | Load_Top At_Offset_2 0770 e402 | | Load 0x2,0x2 0771 e5fd | | Load 0x2,-0x3 0772 e5fe | | Load 0x2,-0x2 0773 e5ff | | Load 0x2,-0x1 0774 8255 | U | Call 0x1,0x55 0775 c402 | | Store 0x2,0x2 0776 005b | [ | Store_Top Discrete,At_Offset_3 0777 00da | | Load_Top At_Offset_2 0778 7043 |pC | Jump_Nonzero 0x7bc 0779 00cf | | Action Mark_Auxiliary 077a 7835 |x5 | Jump 0x7b0 077b e004 | | Load 0x0,0x4 077c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 077d e403 | | Load 0x2,0x3 077e 0120 | | Execute Any,Is_Value 077f 6803 |h | Jump_Zero 0x783 0780 e004 | | Load 0x0,0x4 0781 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0782 7801 |x | Jump 0x784 0783 e403 | | Load 0x2,0x3 0784 e402 | | Load 0x2,0x2 0785 e004 | | Load 0x0,0x4 0786 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0787 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0788 c403 | | Store 0x2,0x3 0789 c404 | | Store 0x2,0x4 078a e404 | | Load 0x2,0x4 078b 681b |h | Jump_Zero 0x7a7 078c e003 | | Load 0x0,0x3 078d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 078e 4801 |H | Short_Literal 0x1 078f 4802 |H | Short_Literal 0x2 0790 e00f | | Load 0x0,0xf 0791 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0792 0334 | 4 | Declare_Variable Array,With_Constraint 0793 e402 | | Load 0x2,0x2 0794 e004 | | Load 0x0,0x4 0795 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0796 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0797 e00f | | Load 0x0,0xf 0798 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0799 4801 |H | Short_Literal 0x1 079a 00da | | Load_Top At_Offset_2 079b 01d6 | | Execute Vector,Field_Write 079c e404 | | Load 0x2,0x4 079d e00f | | Load 0x0,0xf 079e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 079f 4802 |H | Short_Literal 0x2 07a0 00da | | Load_Top At_Offset_2 07a1 01d6 | | Execute Vector,Field_Write 07a2 e5fc | | Load 0x2,-0x4 07a3 e003 | | Load 0x0,0x3 07a4 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 07a5 c405 | | Store 0x2,0x5 07a6 7803 |x | Jump 0x7aa 07a7 00da | | Load_Top At_Offset_2 07a8 0a01 | | Execute_Immediate Plus,0x1 07a9 005b | [ | Store_Top Discrete,At_Offset_3 07aa e402 | | Load 0x2,0x2 07ab e004 | | Load 0x0,0x4 07ac 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 07ad 181d | | Execute Package,Field_Execute,Field_Number 0x1d 07ae c402 | | Store 0x2,0x2 07af 00c9 | | Action Pop_Auxiliary_Loop 07b0 e402 | | Load 0x2,0x2 07b1 e004 | | Load 0x0,0x4 07b2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 07b3 181e | | Execute Package,Field_Execute,Field_Number 0x1e 07b4 6fc6 |o | Jump_Zero 0x77b 07b5 00ce | | Action Pop_Auxiliary 07b6 e402 | | Load 0x2,0x2 07b7 e004 | | Load 0x0,0x4 07b8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 07b9 181c | | Execute Package,Field_Execute,Field_Number 0x1c 07ba c402 | | Store 0x2,0x2 07bb 8407 | | Call 0x2,0x7 07bc 4800 |H | Short_Literal 0x0 07bd e235 | 5 | Load 0x1,0x35 07be 1c08 | | Execute_Immediate Run_Utility,0x8 07bf 00db | | Load_Top At_Offset_3 07c0 00d9 | | Load_Top At_Offset_1 07c1 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 07c2 4801 |H | Short_Literal 0x1 07c3 4800 |H | Short_Literal 0x0 07c4 e234 | 4 | Load 0x1,0x34 07c5 0334 | 4 | Declare_Variable Array,With_Constraint 07c6 00d9 | | Load_Top At_Offset_1 07c7 00d8 | | Load_Top At_Offset_0 07c8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 07c9 00da | | Load_Top At_Offset_2 07ca 01da | | Execute Vector,Bounds 07cb 00da | | Load_Top At_Offset_2 07cc 01da | | Execute Vector,Bounds 07cd 00da | | Load_Top At_Offset_2 07ce 027f | | Execute Discrete,Equal 07cf 7001 |p | Jump_Nonzero 0x7d1 07d0 08e0 | | Execute_Immediate Raise,0xe0 07d1 00cd | | Action Spare6_Action 07d2 027f | | Execute Discrete,Equal 07d3 7001 |p | Jump_Nonzero 0x7d5 07d4 08e0 | | Execute_Immediate Raise,0xe0 07d5 00d2 | | Pop_Control Pop_Count_2 07d6 00d9 | | Load_Top At_Offset_1 07d7 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 07d8 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 07d9 0000 0000 | | .BLANK 0000[0x7] 07e0 ; -------------------------------------------------------------------------------------- 07e0 ; SUBPROGRAM 07e0 ; -------------------------------------------------------------------------------------- 07e0 07ec | | .CONST 0x07ec ; Address of begin 07e1 0004 | | .CONST 0x0004 ; Address of exception handler 07e2 0005 | | .CONST 0x0005 ; Number of locals 07e3 INIT_07e0: 07e3 e003 | | Load 0x0,0x3 07e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07e5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 07e6 e227 | ' | Load 0x1,0x27 07e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07e8 e214 | | Load 0x1,0x14 07e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 07ea 029f 0a63 | c| Declare_Subprogram INIT_0a60,For_Call 07ec BODY_07e0: 07ec e5ff | | Load 0x2,-0x1 07ed 01db | | Execute Vector,Length 07ee 7003 |p | Jump_Nonzero 0x7f2 07ef e5fe | | Load 0x2,-0x2 07f0 8252 | R | Call 0x1,0x52 07f1 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 07f2 e5ff | | Load 0x2,-0x1 07f3 01dd | | Execute Vector,First 07f4 e5ff | | Load 0x2,-0x1 07f5 01d7 | | Execute Vector,Field_Read 07f6 0f2e | . | Execute_Immediate Equal,0x2e 07f7 683a |h: | Jump_Zero 0x832 07f8 e5fe | | Load 0x2,-0x2 07f9 e5ff | | Load 0x2,-0x1 07fa e227 | ' | Load 0x1,0x27 07fb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 07fc 0033 | 3 | Store_Top Heap_Access,At_Offset_3 07fd 00da | | Load_Top At_Offset_2 07fe e227 | ' | Load 0x1,0x27 07ff 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0800 7031 |p1 | Jump_Nonzero 0x832 0801 e5fe | | Load 0x2,-0x2 0802 00db | | Load_Top At_Offset_3 0803 e229 | ) | Load 0x1,0x29 0804 180f | | Execute Package,Field_Execute,Field_Number 0xf 0805 e210 | | Load 0x1,0x10 0806 0216 | | Execute Heap_Access,Convert 0807 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0808 00d9 | | Load_Top At_Offset_1 0809 e214 | | Load 0x1,0x14 080a 180f | | Execute Package,Field_Execute,Field_Number 0xf 080b 7026 |p& | Jump_Nonzero 0x832 080c 4801 |H | Short_Literal 0x1 080d e214 | | Load 0x1,0x14 080e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 080f 1c08 | | Execute_Immediate Run_Utility,0x8 0810 4800 |H | Short_Literal 0x0 0811 00d9 | | Load_Top At_Offset_1 0812 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0813 4801 |H | Short_Literal 0x1 0814 4801 |H | Short_Literal 0x1 0815 e214 | | Load 0x1,0x14 0816 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0817 0334 | 4 | Declare_Variable Array,With_Constraint 0818 4801 |H | Short_Literal 0x1 0819 4801 |H | Short_Literal 0x1 081a e404 | | Load 0x2,0x4 081b 00d9 | | Load_Top At_Offset_1 081c e407 | | Load 0x2,0x7 081d 01d6 | | Execute Vector,Field_Write 081e 3ffb |? | Loop_Increasing 0x81a 081f 00d9 | | Load_Top At_Offset_1 0820 00d8 | | Load_Top At_Offset_0 0821 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0822 00da | | Load_Top At_Offset_2 0823 01da | | Execute Vector,Bounds 0824 00da | | Load_Top At_Offset_2 0825 01da | | Execute Vector,Bounds 0826 00da | | Load_Top At_Offset_2 0827 027f | | Execute Discrete,Equal 0828 7001 |p | Jump_Nonzero 0x82a 0829 08e0 | | Execute_Immediate Raise,0xe0 082a 00cd | | Action Spare6_Action 082b 027f | | Execute Discrete,Equal 082c 7001 |p | Jump_Nonzero 0x82e 082d 08e0 | | Execute_Immediate Raise,0xe0 082e 00d2 | | Pop_Control Pop_Count_2 082f 00d9 | | Load_Top At_Offset_1 0830 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0831 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0832 8405 | | Call 0x2,0x5 0833 0831 | 1 | Execute_Immediate Raise,0x31 0834 0000 0000 | | .BLANK 0000[0x4] 0838 ; -------------------------------------------------------------------------------------- 0838 ; SUBPROGRAM 0838 ; -------------------------------------------------------------------------------------- 0838 0862 | b | .CONST 0x0862 ; Address of begin 0839 0004 | | .CONST 0x0004 ; Address of exception handler 083a 0007 | | .CONST 0x0007 ; Number of locals 083b INIT_0838: 083b e081 | | Load 0x0,0x81 083c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 083d 0124 | $ | Execute Any,Is_Constrained 083e 7009 |p | Jump_Nonzero 0x848 083f e081 | | Load 0x0,0x81 0840 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0841 1c09 | | Execute_Immediate Run_Utility,0x9 0842 e081 | | Load 0x0,0x81 0843 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0844 e02c | , | Load 0x0,0x2c 0845 180d | | Execute Package,Field_Execute,Field_Number 0xd 0846 0398 | | Declare_Variable Heap_Access,By_Allocation,With_Subtype 0847 7805 |x | Jump 0x84d 0848 e081 | | Load 0x0,0x81 0849 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 084a e02c | , | Load 0x0,0x2c 084b 180d | | Execute Package,Field_Execute,Field_Number 0xd 084c 039c | | Declare_Variable Heap_Access,By_Allocation 084d e004 | | Load 0x0,0x4 084e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 084f e081 | | Load 0x0,0x81 0850 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 0851 02c7 | | Declare_Variable Any 0852 00d8 | | Load_Top At_Offset_0 0853 1c00 | | Execute_Immediate Run_Utility,0x0 0854 e004 | | Load 0x0,0x4 0855 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0856 02c7 | | Declare_Variable Any 0857 00d8 | | Load_Top At_Offset_0 0858 1c00 | | Execute_Immediate Run_Utility,0x0 0859 4801 |H | Short_Literal 0x1 085a 48ff |H | Short_Literal 0xff 085b e234 | 4 | Load 0x1,0x34 085c 035b | [ | Declare_Type Array,Constrained 085d 0337 | 7 | Declare_Variable Array 085e 00d8 | | Load_Top At_Offset_0 085f 1c00 | | Execute_Immediate Run_Utility,0x0 0860 00e3 | | Load_Encached Natural_Cache 0861 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0862 BODY_0838: 0862 00be | | Action Activate_Tasks 0863 e402 | | Load 0x2,0x2 0864 e004 | | Load 0x0,0x4 0865 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0866 00d9 | | Load_Top At_Offset_1 0867 0219 | | Execute Heap_Access,All_Read 0868 4800 |H | Short_Literal 0x0 0869 4800 |H | Short_Literal 0x0 086a e051 | Q | Load 0x0,0x51 086b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 086c e5ff | | Load 0x2,-0x1 086d e081 | | Load 0x0,0x81 086e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 086f 00da | | Load_Top At_Offset_2 0870 0218 | | Execute Heap_Access,All_Write 0871 c403 | | Store 0x2,0x3 0872 00d1 | | Pop_Control Pop_Count_1 0873 e403 | | Load 0x2,0x3 0874 680f |h | Jump_Zero 0x884 0875 4801 |H | Short_Literal 0x1 0876 4801 |H | Short_Literal 0x1 0877 e00f | | Load 0x0,0xf 0878 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0879 0334 | 4 | Declare_Variable Array,With_Constraint 087a e5ff | | Load 0x2,-0x1 087b e00f | | Load 0x0,0xf 087c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 087d 4801 |H | Short_Literal 0x1 087e 00da | | Load_Top At_Offset_2 087f 01d6 | | Execute Vector,Field_Write 0880 e5fd | | Load 0x2,-0x3 0881 e403 | | Load 0x2,0x3 0882 e003 | | Load 0x0,0x3 0883 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0884 00db | | Load_Top At_Offset_3 0885 0120 | | Execute Any,Is_Value 0886 6803 |h | Jump_Zero 0x88a 0887 e081 | | Load 0x0,0x81 0888 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 0889 7801 |x | Jump 0x88b 088a 00db | | Load_Top At_Offset_3 088b e402 | | Load 0x2,0x2 088c e081 | | Load 0x0,0x81 088d 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 088e c404 | | Store 0x2,0x4 088f 00cf | | Action Mark_Auxiliary 0890 7824 |x$ | Jump 0x8b5 0891 00d9 | | Load_Top At_Offset_1 0892 0a01 | | Execute_Immediate Plus,0x1 0893 005a | Z | Store_Top Discrete,At_Offset_2 0894 e404 | | Load 0x2,0x4 0895 e081 | | Load 0x0,0x81 0896 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0897 c405 | | Store 0x2,0x5 0898 e5fe | | Load 0x2,-0x2 0899 6812 |h | Jump_Zero 0x8ac 089a e402 | | Load 0x2,0x2 089b 0219 | | Execute Heap_Access,All_Read 089c e405 | | Load 0x2,0x5 089d e081 | | Load 0x0,0x81 089e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 089f 00da | | Load_Top At_Offset_2 08a0 e406 | | Load 0x2,0x6 08a1 01d6 | | Execute Vector,Field_Write 08a2 00d9 | | Load_Top At_Offset_1 08a3 00db | | Load_Top At_Offset_3 08a4 01d7 | | Execute Vector,Field_Read 08a5 e004 | | Load 0x0,0x4 08a6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 08a7 6808 |h | Jump_Zero 0x8b0 08a8 00d9 | | Load_Top At_Offset_1 08a9 0aff | | Execute_Immediate Plus,-0x1 08aa 005a | Z | Store_Top Discrete,At_Offset_2 08ab 7804 |x | Jump 0x8b0 08ac 00db | | Load_Top At_Offset_3 08ad 00da | | Load_Top At_Offset_2 08ae e406 | | Load 0x2,0x6 08af 01d6 | | Execute Vector,Field_Write 08b0 e404 | | Load 0x2,0x4 08b1 e081 | | Load 0x0,0x81 08b2 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 08b3 c404 | | Store 0x2,0x4 08b4 00c9 | | Action Pop_Auxiliary_Loop 08b5 e404 | | Load 0x2,0x4 08b6 e081 | | Load 0x0,0x81 08b7 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 08b8 6fd8 |o | Jump_Zero 0x891 08b9 00ce | | Action Pop_Auxiliary 08ba e402 | | Load 0x2,0x2 08bb e004 | | Load 0x0,0x4 08bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08bd 00d9 | | Load_Top At_Offset_1 08be 0219 | | Execute Heap_Access,All_Read 08bf e081 | | Load 0x0,0x81 08c0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 08c1 00da | | Load_Top At_Offset_2 08c2 0218 | | Execute Heap_Access,All_Write 08c3 c403 | | Store 0x2,0x3 08c4 00d1 | | Pop_Control Pop_Count_1 08c5 4801 |H | Short_Literal 0x1 08c6 00d9 | | Load_Top At_Offset_1 08c7 00db | | Load_Top At_Offset_3 08c8 01cf | | Execute Vector,Slice_Read 08c9 e234 | 4 | Load 0x1,0x34 08ca 01c6 | | Execute Vector,Convert_To_Formal 08cb 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 08cc 0000 0000 | | .BLANK 0000[0x4] 08d0 ; -------------------------------------------------------------------------------------- 08d0 ; SUBPROGRAM 08d0 ; -------------------------------------------------------------------------------------- 08d0 08da | | .CONST 0x08da ; Address of begin 08d1 0004 | | .CONST 0x0004 ; Address of exception handler 08d2 0003 | | .CONST 0x0003 ; Number of locals 08d3 INIT_08d0: 08d3 e004 | | Load 0x0,0x4 08d4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 08d5 02c7 | | Declare_Variable Any 08d6 00d8 | | Load_Top At_Offset_0 08d7 1c00 | | Execute_Immediate Run_Utility,0x0 08d8 e004 | | Load 0x0,0x4 08d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08da BODY_08d0: 08da e004 | | Load 0x0,0x4 08db 1b0d | | Execute Package,Field_Read,Field_Number 0xd 08dc 00da | | Load_Top At_Offset_2 08dd 0120 | | Execute Any,Is_Value 08de 6803 |h | Jump_Zero 0x8e2 08df e004 | | Load 0x0,0x4 08e0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 08e1 7801 |x | Jump 0x8e3 08e2 00da | | Load_Top At_Offset_2 08e3 e5ff | | Load 0x2,-0x1 08e4 e004 | | Load 0x0,0x4 08e5 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 08e6 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 08e7 c402 | | Store 0x2,0x2 08e8 0059 | Y | Store_Top Discrete,At_Offset_1 08e9 00d8 | | Load_Top At_Offset_0 08ea 680f |h | Jump_Zero 0x8fa 08eb 4801 |H | Short_Literal 0x1 08ec 4801 |H | Short_Literal 0x1 08ed e00f | | Load 0x0,0xf 08ee 1b0f | | Execute Package,Field_Read,Field_Number 0xf 08ef 0334 | 4 | Declare_Variable Array,With_Constraint 08f0 e5ff | | Load 0x2,-0x1 08f1 e00f | | Load 0x0,0xf 08f2 181a | | Execute Package,Field_Execute,Field_Number 0x1a 08f3 4801 |H | Short_Literal 0x1 08f4 00da | | Load_Top At_Offset_2 08f5 01d6 | | Execute Vector,Field_Write 08f6 e5fe | | Load 0x2,-0x2 08f7 00da | | Load_Top At_Offset_2 08f8 e003 | | Load 0x0,0x3 08f9 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 08fa 00d9 | | Load_Top At_Offset_1 08fb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 08fc 0000 0000 | | .BLANK 0000[0x4] 0900 ; -------------------------------------------------------------------------------------- 0900 ; SUBPROGRAM 0900 ; -------------------------------------------------------------------------------------- 0900 0909 | | .CONST 0x0909 ; Address of begin 0901 0004 | | .CONST 0x0004 ; Address of exception handler 0902 0002 | | .CONST 0x0002 ; Number of locals 0903 INIT_0900: 0903 00da | | Load_Top At_Offset_2 0904 e004 | | Load 0x0,0x4 0905 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0906 e004 | | Load 0x0,0x4 0907 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0908 03f1 | | Declare_Variable Discrete,With_Value 0909 BODY_0900: 0909 00d8 | | Load_Top At_Offset_0 090a e053 | S | Load 0x0,0x53 090b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 090c 027f | | Execute Discrete,Equal 090d 700a |p | Jump_Nonzero 0x918 090e 00d8 | | Load_Top At_Offset_0 090f e053 | S | Load 0x0,0x53 0910 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0911 027f | | Execute Discrete,Equal 0912 7005 |p | Jump_Nonzero 0x918 0913 00d8 | | Load_Top At_Offset_0 0914 e053 | S | Load 0x0,0x53 0915 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0916 027f | | Execute Discrete,Equal 0917 6802 |h | Jump_Zero 0x91a 0918 4801 |H | Short_Literal 0x1 0919 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 091a 00d8 | | Load_Top At_Offset_0 091b e053 | S | Load 0x0,0x53 091c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 091d 027f | | Execute Discrete,Equal 091e 700a |p | Jump_Nonzero 0x929 091f 00d8 | | Load_Top At_Offset_0 0920 e053 | S | Load 0x0,0x53 0921 180f | | Execute Package,Field_Execute,Field_Number 0xf 0922 027f | | Execute Discrete,Equal 0923 7005 |p | Jump_Nonzero 0x929 0924 00d8 | | Load_Top At_Offset_0 0925 e053 | S | Load 0x0,0x53 0926 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0927 027f | | Execute Discrete,Equal 0928 6802 |h | Jump_Zero 0x92b 0929 4802 |H | Short_Literal 0x2 092a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 092b 00d8 | | Load_Top At_Offset_0 092c e053 | S | Load 0x0,0x53 092d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 092e 027f | | Execute Discrete,Equal 092f 6802 |h | Jump_Zero 0x932 0930 4803 |H | Short_Literal 0x3 0931 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0932 00d8 | | Load_Top At_Offset_0 0933 e053 | S | Load 0x0,0x53 0934 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0935 027f | | Execute Discrete,Equal 0936 6802 |h | Jump_Zero 0x939 0937 4804 |H | Short_Literal 0x4 0938 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0939 4800 |H | Short_Literal 0x0 093a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 093b 0000 0000 | | .BLANK 0000[0x5] 0940 ; -------------------------------------------------------------------------------------- 0940 ; SUBPROGRAM 0940 ; -------------------------------------------------------------------------------------- 0940 0943 | C | .CONST 0x0943 ; Address of begin 0941 0004 | | .CONST 0x0004 ; Address of exception handler 0942 0001 | | .CONST 0x0001 ; Number of locals 0943 BODY_0940: 0943 INIT_0940: 0943 00da | | Load_Top At_Offset_2 0944 825a | Z | Call 0x1,0x5a 0945 0f01 | | Execute_Immediate Equal,0x1 0946 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0947 0000 | | .XXX[0x1] 0948 ; -------------------------------------------------------------------------------------- 0948 ; SUBPROGRAM 0948 ; -------------------------------------------------------------------------------------- 0948 094d | M | .CONST 0x094d ; Address of begin 0949 0004 | | .CONST 0x0004 ; Address of exception handler 094a 0002 | | .CONST 0x0002 ; Number of locals 094b INIT_0948: 094b 029f 0acb | | Declare_Subprogram INIT_0ac8,For_Call 094d BODY_0948: 094d 00cf | | Action Mark_Auxiliary 094e 7841 |xA | Jump 0x990 094f e40a | | Load 0x2,0xa 0950 0217 | | Execute Heap_Access,All_Reference 0951 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0952 e004 | | Load 0x0,0x4 0953 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0954 7019 |p | Jump_Nonzero 0x96e 0955 e004 | | Load 0x0,0x4 0956 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0957 e407 | | Load 0x2,0x7 0958 0120 | | Execute Any,Is_Value 0959 6803 |h | Jump_Zero 0x95d 095a e004 | | Load 0x0,0x4 095b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 095c 7801 |x | Jump 0x95e 095d e407 | | Load 0x2,0x7 095e e40a | | Load 0x2,0xa 095f 0217 | | Execute Heap_Access,All_Reference 0960 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0961 e004 | | Load 0x0,0x4 0962 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 0963 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0964 c407 | | Store 0x2,0x7 0965 c405 | | Store 0x2,0x5 0966 e5fd | | Load 0x2,-0x3 0967 e40a | | Load 0x2,0xa 0968 0217 | | Execute Heap_Access,All_Reference 0969 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 096a e22a | * | Load 0x1,0x2a 096b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 096c 8602 | | Call 0x3,0x2 096d 781d |x | Jump 0x98b 096e e003 | | Load 0x0,0x3 096f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0970 4801 |H | Short_Literal 0x1 0971 4803 |H | Short_Literal 0x3 0972 e00f | | Load 0x0,0xf 0973 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0974 0334 | 4 | Declare_Variable Array,With_Constraint 0975 e5fd | | Load 0x2,-0x3 0976 e216 | | Load 0x1,0x16 0977 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 0978 4801 |H | Short_Literal 0x1 0979 00da | | Load_Top At_Offset_2 097a 01d6 | | Execute Vector,Field_Write 097b e5ff | | Load 0x2,-0x1 097c e216 | | Load 0x1,0x16 097d 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 097e 4802 |H | Short_Literal 0x2 097f 00da | | Load_Top At_Offset_2 0980 01d6 | | Execute Vector,Field_Write 0981 e40a | | Load 0x2,0xa 0982 e215 | | Load 0x1,0x15 0983 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0984 4803 |H | Short_Literal 0x3 0985 00da | | Load_Top At_Offset_2 0986 01d6 | | Execute Vector,Field_Write 0987 600c |` | Indirect_Literal Discrete,0x994,{0x00000000, 0x00002833} 0988 e003 | | Load 0x0,0x3 0989 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 098a c5fb | | Store 0x2,-0x5 098b e40a | | Load 0x2,0xa 098c 0217 | | Execute Heap_Access,All_Reference 098d 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 098e a40a | | Store_Unchecked 0x2,0xa 098f 00c9 | | Action Pop_Auxiliary_Loop 0990 e40a | | Load 0x2,0xa 0991 77bd |w | Jump_Nonzero 0x94f 0992 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0993 0000 | | .XXX[0x1] 0994 0000 0000 | | .LITERAL {0x00000000, 0x00002833} 0998 ; -------------------------------------------------------------------------------------- 0998 ; SUBPROGRAM 0998 ; -------------------------------------------------------------------------------------- 0998 09af | | .CONST 0x09af ; Address of begin 0999 0004 | | .CONST 0x0004 ; Address of exception handler 099a 0005 | | .CONST 0x0005 ; Number of locals 099b INIT_0998: 099b e402 | | Load 0x2,0x2 099c 0217 | | Execute Heap_Access,All_Reference 099d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 099e e227 | ' | Load 0x1,0x27 099f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 09a0 e004 | | Load 0x0,0x4 09a1 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09a2 02c7 | | Declare_Variable Any 09a3 00d8 | | Load_Top At_Offset_0 09a4 1c00 | | Execute_Immediate Run_Utility,0x0 09a5 e402 | | Load 0x2,0x2 09a6 0217 | | Execute Heap_Access,All_Reference 09a7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 09a8 e227 | ' | Load 0x1,0x27 09a9 1812 | | Execute Package,Field_Execute,Field_Number 0x12 09aa e004 | | Load 0x0,0x4 09ab 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09ac 02c7 | | Declare_Variable Any 09ad 00d8 | | Load_Top At_Offset_0 09ae 1c00 | | Execute_Immediate Run_Utility,0x0 09af BODY_0998: 09af e5fd | | Load 0x2,-0x3 09b0 e402 | | Load 0x2,0x2 09b1 0217 | | Execute Heap_Access,All_Reference 09b2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 09b3 e22a | * | Load 0x1,0x2a 09b4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 09b5 e004 | | Load 0x0,0x4 09b6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 09b7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09b8 00db | | Load_Top At_Offset_3 09b9 0120 | | Execute Any,Is_Value 09ba 6803 |h | Jump_Zero 0x9be 09bb e004 | | Load 0x0,0x4 09bc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09bd 7801 |x | Jump 0x9bf 09be 00db | | Load_Top At_Offset_3 09bf 6054 |`T | Indirect_Literal Discrete,0xa14,{0x00000000, 0x00004000} 09c0 e051 | Q | Load 0x0,0x51 09c1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 09c2 e052 | R | Load 0x0,0x52 09c3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 09c4 e004 | | Load 0x0,0x4 09c5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 09c6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 09c7 e602 | | Load 0x3,0x2 09c8 e004 | | Load 0x0,0x4 09c9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 09ca 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 09cb c603 | | Store 0x3,0x3 09cc c406 | | Store 0x2,0x6 09cd e406 | | Load 0x2,0x6 09ce 6817 |h | Jump_Zero 0x9e6 09cf e065 | e | Load 0x0,0x65 09d0 180e | | Execute Package,Field_Execute,Field_Number 0xe 09d1 4801 |H | Short_Literal 0x1 09d2 4802 |H | Short_Literal 0x2 09d3 e00f | | Load 0x0,0xf 09d4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09d5 0334 | 4 | Declare_Variable Array,With_Constraint 09d6 00db | | Load_Top At_Offset_3 09d7 e00f | | Load 0x0,0xf 09d8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 09d9 4801 |H | Short_Literal 0x1 09da 00da | | Load_Top At_Offset_2 09db 01d6 | | Execute Vector,Field_Write 09dc e602 | | Load 0x3,0x2 09dd e00f | | Load 0x0,0xf 09de 1810 | | Execute Package,Field_Execute,Field_Number 0x10 09df 4802 |H | Short_Literal 0x2 09e0 00da | | Load_Top At_Offset_2 09e1 01d6 | | Execute Vector,Field_Write 09e2 602d |`- | Indirect_Literal Discrete,0xa10,{0x00000000, 0x00002814} 09e3 e003 | | Load 0x0,0x3 09e4 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 09e5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09e6 00da | | Load_Top At_Offset_2 09e7 e402 | | Load 0x2,0x2 09e8 0217 | | Execute Heap_Access,All_Reference 09e9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 09ea 4800 |H | Short_Literal 0x0 09eb e5fd | | Load 0x2,-0x3 09ec e402 | | Load 0x2,0x2 09ed e603 | | Load 0x3,0x3 09ee e22a | * | Load 0x1,0x2a 09ef 1813 | | Execute Package,Field_Execute,Field_Number 0x13 09f0 e004 | | Load 0x0,0x4 09f1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 09f2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09f3 00d9 | | Load_Top At_Offset_1 09f4 0120 | | Execute Any,Is_Value 09f5 6803 |h | Jump_Zero 0x9f9 09f6 e004 | | Load 0x0,0x4 09f7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09f8 7801 |x | Jump 0x9fa 09f9 00d9 | | Load_Top At_Offset_1 09fa 6019 |` | Indirect_Literal Discrete,0xa14,{0x00000000, 0x00004000} 09fb e051 | Q | Load 0x0,0x51 09fc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 09fd e052 | R | Load 0x0,0x52 09fe 1811 | | Execute Package,Field_Execute,Field_Number 0x11 09ff e004 | | Load 0x0,0x4 0a00 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0a01 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0a02 e604 | | Load 0x3,0x4 0a03 e004 | | Load 0x0,0x4 0a04 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0a05 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0a06 c605 | | Store 0x3,0x5 0a07 c406 | | Store 0x2,0x6 0a08 e406 | | Load 0x2,0x6 0a09 7004 |p | Jump_Nonzero 0xa0e 0a0a 00d8 | | Load_Top At_Offset_0 0a0b e402 | | Load 0x2,0x2 0a0c 0217 | | Execute Heap_Access,All_Reference 0a0d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0a0e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0a0f 0000 | | .XXX[0x1] 0a10 0000 0000 | | .LITERAL {0x00000000, 0x00002814} 0a14 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0a18 ; -------------------------------------------------------------------------------------- 0a18 ; SUBPROGRAM 0a18 ; -------------------------------------------------------------------------------------- 0a18 0a20 | | .CONST 0x0a20 ; Address of begin 0a19 0004 | | .CONST 0x0004 ; Address of exception handler 0a1a 0002 | | .CONST 0x0002 ; Number of locals 0a1b INIT_0a18: 0a1b e406 | | Load 0x2,0x6 0a1c e235 | 5 | Load 0x1,0x35 0a1d 1c08 | | Execute_Immediate Run_Utility,0x8 0a1e 00d8 | | Load_Top At_Offset_0 0a1f 1c00 | | Execute_Immediate Run_Utility,0x0 0a20 BODY_0a18: 0a20 e405 | | Load 0x2,0x5 0a21 00d9 | | Load_Top At_Offset_1 0a22 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0a23 4801 |H | Short_Literal 0x1 0a24 a406 | | Store_Unchecked 0x2,0x6 0a25 00cf | | Action Mark_Auxiliary 0a26 7828 |x( | Jump 0xa4f 0a27 00d9 | | Load_Top At_Offset_1 0a28 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0a29 e406 | | Load 0x2,0x6 0a2a e004 | | Load 0x0,0x4 0a2b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a2c 00d9 | | Load_Top At_Offset_1 0a2d 00db | | Load_Top At_Offset_3 0a2e 01d7 | | Execute Vector,Field_Read 0a2f 0120 | | Execute Any,Is_Value 0a30 6807 |h | Jump_Zero 0xa38 0a31 e004 | | Load 0x0,0x4 0a32 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0a33 00da | | Load_Top At_Offset_2 0a34 e604 | | Load 0x3,0x4 0a35 01d7 | | Execute Vector,Field_Read 0a36 00d1 | | Pop_Control Pop_Count_1 0a37 7803 |x | Jump 0xa3b 0a38 00d9 | | Load_Top At_Offset_1 0a39 00db | | Load_Top At_Offset_3 0a3a 01d7 | | Execute Vector,Field_Read 0a3b e402 | | Load 0x2,0x2 0a3c e004 | | Load 0x0,0x4 0a3d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0a3e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0a3f 00da | | Load_Top At_Offset_2 0a40 e604 | | Load 0x3,0x4 0a41 01d6 | | Execute Vector,Field_Write 0a42 c404 | | Store 0x2,0x4 0a43 00d2 | | Pop_Control Pop_Count_2 0a44 e404 | | Load 0x2,0x4 0a45 7003 |p | Jump_Nonzero 0xa49 0a46 e406 | | Load 0x2,0x6 0a47 0a01 | | Execute_Immediate Plus,0x1 0a48 c406 | | Store 0x2,0x6 0a49 e402 | | Load 0x2,0x2 0a4a e004 | | Load 0x0,0x4 0a4b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0a4c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0a4d c402 | | Store 0x2,0x2 0a4e 00c9 | | Action Pop_Auxiliary_Loop 0a4f e402 | | Load 0x2,0x2 0a50 e004 | | Load 0x0,0x4 0a51 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0a52 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0a53 6fd3 |o | Jump_Zero 0xa27 0a54 00ce | | Action Pop_Auxiliary 0a55 e402 | | Load 0x2,0x2 0a56 e004 | | Load 0x0,0x4 0a57 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0a58 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 0a59 c402 | | Store 0x2,0x2 0a5a 00d8 | | Load_Top At_Offset_0 0a5b 00cb | | Action Pop_Block_With_Result 0a5c 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0a5d 0000 0000 | | .XXX[0x3] 0a5f 0000 | | 0a60 ; -------------------------------------------------------------------------------------- 0a60 ; SUBPROGRAM 0a60 ; -------------------------------------------------------------------------------------- 0a60 0a78 | x | .CONST 0x0a78 ; Address of begin 0a61 0004 | | .CONST 0x0004 ; Address of exception handler 0a62 0005 | | .CONST 0x0005 ; Number of locals 0a63 INIT_0a60: 0a63 e5fb | | Load 0x2,-0x5 0a64 e5fc | | Load 0x2,-0x4 0a65 e5fd | | Load 0x2,-0x3 0a66 e5ff | | Load 0x2,-0x1 0a67 e5fe | | Load 0x2,-0x2 0a68 8254 | T | Call 0x1,0x54 0a69 8256 | V | Call 0x1,0x56 0a6a 4801 |H | Short_Literal 0x1 0a6b 00d9 | | Load_Top At_Offset_1 0a6c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0a6d e214 | | Load 0x1,0x14 0a6e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0a6f 035b | [ | Declare_Type Array,Constrained 0a70 0337 | 7 | Declare_Variable Array 0a71 00e2 | | Load_Encached Integer_Cache 0a72 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0a73 e22a | * | Load 0x1,0x2a 0a74 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0a75 02ff | | Declare_Variable Variant_Record 0a76 00d8 | | Load_Top At_Offset_0 0a77 1c00 | | Execute_Immediate Run_Utility,0x0 0a78 BODY_0a60: 0a78 00db | | Load_Top At_Offset_3 0a79 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0a7a a402 | | Store_Unchecked 0x2,0x2 0a7b 00cf | | Action Mark_Auxiliary 0a7c e602 | | Load 0x3,0x2 0a7d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0a7e 01d9 | | Execute Vector,Reverse_Bounds 0a7f 0263 | c | Execute Discrete,Above_Bound 0a80 7022 |p" | Jump_Nonzero 0xaa3 0a81 4802 |H | Short_Literal 0x2 0a82 e5fe | | Load 0x2,-0x2 0a83 00da | | Load_Top At_Offset_2 0a84 e602 | | Load 0x3,0x2 0a85 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0a86 01d7 | | Execute Vector,Field_Read 0a87 e22a | * | Load 0x1,0x2a 0a88 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0a89 e605 | | Load 0x3,0x5 0a8a 016d | m | Execute Variant_Record,Structure_Write 0a8b 00db | | Load_Top At_Offset_3 0a8c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0a8d 0f02 | | Execute_Immediate Equal,0x2 0a8e 6812 |h | Jump_Zero 0xaa1 0a8f 00db | | Load_Top At_Offset_3 0a90 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0a91 0217 | | Execute Heap_Access,All_Reference 0a92 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0a93 e210 | | Load 0x1,0x10 0a94 0216 | | Execute Heap_Access,Convert 0a95 a404 | | Store_Unchecked 0x2,0x4 0a96 e404 | | Load 0x2,0x4 0a97 e214 | | Load 0x1,0x14 0a98 180f | | Execute Package,Field_Execute,Field_Number 0xf 0a99 7007 |p | Jump_Nonzero 0xaa1 0a9a e604 | | Load 0x3,0x4 0a9b 0a01 | | Execute_Immediate Plus,0x1 0a9c c604 | | Store 0x3,0x4 0a9d e404 | | Load 0x2,0x4 0a9e e604 | | Load 0x3,0x4 0a9f e603 | | Load 0x3,0x3 0aa0 01d6 | | Execute Vector,Field_Write 0aa1 00c8 | | Action Pop_Auxiliary_Range 0aa2 3fde |? | Loop_Increasing 0xa81 0aa3 00ce | | Action Pop_Auxiliary 0aa4 00d9 | | Load_Top At_Offset_1 0aa5 e214 | | Load 0x1,0x14 0aa6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0aa7 1c08 | | Execute_Immediate Run_Utility,0x8 0aa8 e402 | | Load 0x2,0x2 0aa9 00d9 | | Load_Top At_Offset_1 0aaa 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0aab 4801 |H | Short_Literal 0x1 0aac 00db | | Load_Top At_Offset_3 0aad e603 | | Load 0x3,0x3 0aae 01cf | | Execute Vector,Slice_Read 0aaf 00d9 | | Load_Top At_Offset_1 0ab0 00d8 | | Load_Top At_Offset_0 0ab1 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0ab2 00da | | Load_Top At_Offset_2 0ab3 01da | | Execute Vector,Bounds 0ab4 00da | | Load_Top At_Offset_2 0ab5 01da | | Execute Vector,Bounds 0ab6 00da | | Load_Top At_Offset_2 0ab7 027f | | Execute Discrete,Equal 0ab8 7001 |p | Jump_Nonzero 0xaba 0ab9 08e0 | | Execute_Immediate Raise,0xe0 0aba 00cd | | Action Spare6_Action 0abb 027f | | Execute Discrete,Equal 0abc 7001 |p | Jump_Nonzero 0xabe 0abd 08e0 | | Execute_Immediate Raise,0xe0 0abe 00d2 | | Pop_Control Pop_Count_2 0abf 00d9 | | Load_Top At_Offset_1 0ac0 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0ac1 00cb | | Action Pop_Block_With_Result 0ac2 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0ac3 0000 0000 | | .BLANK 0000[0x5] 0ac8 ; -------------------------------------------------------------------------------------- 0ac8 ; SUBPROGRAM 0ac8 ; -------------------------------------------------------------------------------------- 0ac8 0ad6 | | .CONST 0x0ad6 ; Address of begin 0ac9 0004 | | .CONST 0x0004 ; Address of exception handler 0aca 0003 | | .CONST 0x0003 ; Number of locals 0acb INIT_0ac8: 0acb e40a | | Load 0x2,0xa 0acc 0217 | | Execute Heap_Access,All_Reference 0acd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0ace e227 | ' | Load 0x1,0x27 0acf 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0ad0 e5fd | | Load 0x2,-0x3 0ad1 e216 | | Load 0x1,0x16 0ad2 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0ad3 00d9 | | Load_Top At_Offset_1 0ad4 01cc | | Execute Vector,Catenate 0ad5 0007 | | Action Break_Optional 0ad6 BODY_0ac8: 0ad6 e004 | | Load 0x0,0x4 0ad7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0ad8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ad9 e408 | | Load 0x2,0x8 0ada 0120 | | Execute Any,Is_Value 0adb 6803 |h | Jump_Zero 0xadf 0adc e004 | | Load 0x0,0x4 0add 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ade 7801 |x | Jump 0xae0 0adf e408 | | Load 0x2,0x8 0ae0 604b |`K | Indirect_Literal Discrete,0xb2c,{0x00000000, 0x00004000} 0ae1 e051 | Q | Load 0x0,0x51 0ae2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ae3 e404 | | Load 0x2,0x4 0ae4 e803 | | Load 0x4,0x3 0ae5 e004 | | Load 0x0,0x4 0ae6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0ae7 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0ae8 c408 | | Store 0x2,0x8 0ae9 c406 | | Store 0x2,0x6 0aea e406 | | Load 0x2,0x6 0aeb 7025 |p% | Jump_Nonzero 0xb11 0aec e408 | | Load 0x2,0x8 0aed e40a | | Load 0x2,0xa 0aee 0217 | | Execute Heap_Access,All_Reference 0aef 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0af0 4800 |H | Short_Literal 0x0 0af1 e5fd | | Load 0x2,-0x3 0af2 e40a | | Load 0x2,0xa 0af3 e408 | | Load 0x2,0x8 0af4 e22a | * | Load 0x1,0x2a 0af5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0af6 e40a | | Load 0x2,0xa 0af7 0217 | | Execute Heap_Access,All_Reference 0af8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0af9 6816 |h | Jump_Zero 0xb10 0afa e40a | | Load 0x2,0xa 0afb 0217 | | Execute Heap_Access,All_Reference 0afc 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0afd e210 | | Load 0x1,0x10 0afe 0216 | | Execute Heap_Access,Convert 0aff a40b | | Store_Unchecked 0x2,0xb 0b00 4801 |H | Short_Literal 0x1 0b01 e40b | | Load 0x2,0xb 0b02 0217 | | Execute Heap_Access,All_Reference 0b03 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0b04 e408 | | Load 0x2,0x8 0b05 e40b | | Load 0x2,0xb 0b06 0217 | | Execute Heap_Access,All_Reference 0b07 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 0b08 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0b09 e5fb | | Load 0x2,-0x5 0b0a 4801 |H | Short_Literal 0x1 0b0b e5fc | | Load 0x2,-0x4 0b0c e40b | | Load 0x2,0xb 0b0d e214 | | Load 0x1,0x14 0b0e 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 0b0f c5fb | | Store 0x2,-0x5 0b10 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b11 e40a | | Load 0x2,0xa 0b12 0217 | | Execute Heap_Access,All_Reference 0b13 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0b14 6816 |h | Jump_Zero 0xb2b 0b15 0092 1199 | | Action Push_String_Extended,0x1199 ; "Bad Name_Status when resolving " 0b17 00d9 | | Load_Top At_Offset_1 0b18 01cc | | Execute Vector,Catenate 0b19 0092 119a | | Action Push_String_Extended,0x119a ; ". Invalidate its Unit.Data." 0b1b 01cc | | Execute Vector,Catenate 0b1c 824e | N | Call 0x1,0x4e 0b1d 4800 |H | Short_Literal 0x0 0b1e e40a | | Load 0x2,0xa 0b1f 0217 | | Execute Heap_Access,All_Reference 0b20 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0b21 0217 | | Execute Heap_Access,All_Reference 0b22 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0b23 e004 | | Load 0x0,0x4 0b24 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0b25 e40a | | Load 0x2,0xa 0b26 0217 | | Execute Heap_Access,All_Reference 0b27 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0b28 0217 | | Execute Heap_Access,All_Reference 0b29 340d |4 | Execute Record,Field_Reference,Field_Number 0xd 0b2a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0b2b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b2c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0b30 ; -------------------------------------------------------------------------------------- 0b30 ; SUBPROGRAM 0b30 ; -------------------------------------------------------------------------------------- 0b30 0b37 | 7 | .CONST 0x0b37 ; Address of begin 0b31 0004 | | .CONST 0x0004 ; Address of exception handler 0b32 000d | | .CONST 0x000d ; Number of locals 0b33 INIT_0b30: 0b33 00e9 | | Load_Encached String_Cache 0b34 02a0 | | Declare_Subprogram Null_Subprogram 0b35 03ae | | Declare_Type Heap_Access,Defined,Visible 0b36 00bf | | Action Accept_Activation 0b37 BODY_0b30: 0b37 00bc | | Action Signal_Activated 0b38 00bb | | Action Signal_Completion 0b39 0000 0000 | | .BLANK 0000[0x7] 0b40 ; -------------------------------------------------------------------------------------- 0b40 ; SUBPROGRAM 0b40 ; -------------------------------------------------------------------------------------- 0b40 0b64 | d | .CONST 0x0b64 ; Address of begin 0b41 0004 | | .CONST 0x0004 ; Address of exception handler 0b42 0014 | | .CONST 0x0014 ; Number of locals 0b43 INIT_0b40: 0b43 029a 0b6b | k| Declare_Subprogram INIT_0b68,For_Outer_Call,Visible,Unelaborated 0b45 029a 0b7b | {| Declare_Subprogram INIT_0b78,For_Outer_Call,Visible,Unelaborated 0b47 029a 0b9b | | Declare_Subprogram INIT_0b98,For_Outer_Call,Visible,Unelaborated 0b49 029a 0bab | | Declare_Subprogram INIT_0ba8,For_Outer_Call,Visible,Unelaborated 0b4b 029a 0bcb | | Declare_Subprogram INIT_0bc8,For_Outer_Call,Visible,Unelaborated 0b4d 029a 0beb | | Declare_Subprogram INIT_0be8,For_Outer_Call,Visible,Unelaborated 0b4f 029a 0c1b | | Declare_Subprogram INIT_0c18,For_Outer_Call,Visible,Unelaborated 0b51 029a 0c53 | S| Declare_Subprogram INIT_0c50,For_Outer_Call,Visible,Unelaborated 0b53 00bf | | Action Accept_Activation 0b54 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0b55 00c7 | | Action Elaborate_Subprogram 0b56 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0b57 00c7 | | Action Elaborate_Subprogram 0b58 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0b59 00c7 | | Action Elaborate_Subprogram 0b5a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0b5b 00c7 | | Action Elaborate_Subprogram 0b5c 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0b5d 00c7 | | Action Elaborate_Subprogram 0b5e 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0b5f 00c7 | | Action Elaborate_Subprogram 0b60 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0b61 00c7 | | Action Elaborate_Subprogram 0b62 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0b63 00c7 | | Action Elaborate_Subprogram 0b64 BODY_0b40: 0b64 00bc | | Action Signal_Activated 0b65 00bb | | Action Signal_Completion 0b66 0000 0000 | | .XXX[0x2] 0b68 ; -------------------------------------------------------------------------------------- 0b68 ; SUBPROGRAM 0b68 ; -------------------------------------------------------------------------------------- 0b68 0b6b | k | .CONST 0x0b6b ; Address of begin 0b69 0004 | | .CONST 0x0004 ; Address of exception handler 0b6a 0001 | | .CONST 0x0001 ; Number of locals 0b6b BODY_0b68: 0b6b INIT_0b68: 0b6b 00da | | Load_Top At_Offset_2 0b6c 7002 |p | Jump_Nonzero 0xb6f 0b6d 4800 |H | Short_Literal 0x0 0b6e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0b6f 00da | | Load_Top At_Offset_2 0b70 0217 | | Execute Heap_Access,All_Reference 0b71 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0b72 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0b73 0000 0000 | | .BLANK 0000[0x5] 0b78 ; -------------------------------------------------------------------------------------- 0b78 ; SUBPROGRAM 0b78 ; -------------------------------------------------------------------------------------- 0b78 0b7d | } | .CONST 0x0b7d ; Address of begin 0b79 0004 | | .CONST 0x0004 ; Address of exception handler 0b7a 0002 | | .CONST 0x0002 ; Number of locals 0b7b INIT_0b78: 0b7b 029f 0c8b | | Declare_Subprogram INIT_0c88,For_Call 0b7d BODY_0b78: 0b7d 00db | | Load_Top At_Offset_3 0b7e 7005 |p | Jump_Nonzero 0xb84 0b7f e5fd | | Load 0x2,-0x3 0b80 e001 | | Load 0x0,0x1 0b81 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0b82 c5fd | | Store 0x2,-0x3 0b83 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0b84 e5fd | | Load 0x2,-0x3 0b85 700b |p | Jump_Nonzero 0xb91 0b86 e5fe | | Load 0x2,-0x2 0b87 e5ff | | Load 0x2,-0x1 0b88 00d8 | | Load_Top At_Offset_0 0b89 00e4 | | Load_Encached Positive_Cache 0b8a 0260 | ` | Execute Discrete,In_Type 0b8b 7001 |p | Jump_Nonzero 0xb8d 0b8c 0801 | | Execute_Immediate Raise,0x1 0b8d e001 | | Load 0x0,0x1 0b8e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0b8f a5fd | | Store_Unchecked 0x2,-0x3 0b90 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0b91 8402 | | Call 0x2,0x2 0b92 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0b93 0000 0000 | | .BLANK 0000[0x5] 0b98 ; -------------------------------------------------------------------------------------- 0b98 ; SUBPROGRAM 0b98 ; -------------------------------------------------------------------------------------- 0b98 0b9b | | .CONST 0x0b9b ; Address of begin 0b99 0004 | | .CONST 0x0004 ; Address of exception handler 0b9a 0001 | | .CONST 0x0001 ; Number of locals 0b9b BODY_0b98: 0b9b INIT_0b98: 0b9b 00da | | Load_Top At_Offset_2 0b9c 7002 |p | Jump_Nonzero 0xb9f 0b9d 4800 |H | Short_Literal 0x0 0b9e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0b9f 00da | | Load_Top At_Offset_2 0ba0 0217 | | Execute Heap_Access,All_Reference 0ba1 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0ba2 00d8 | | Load_Top At_Offset_0 0ba3 00e3 | | Load_Encached Natural_Cache 0ba4 0260 | ` | Execute Discrete,In_Type 0ba5 7001 |p | Jump_Nonzero 0xba7 0ba6 0801 | | Execute_Immediate Raise,0x1 0ba7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ba8 ; -------------------------------------------------------------------------------------- 0ba8 ; SUBPROGRAM 0ba8 ; -------------------------------------------------------------------------------------- 0ba8 0bab | | .CONST 0x0bab ; Address of begin 0ba9 0004 | | .CONST 0x0004 ; Address of exception handler 0baa 0001 | | .CONST 0x0001 ; Number of locals 0bab BODY_0ba8: 0bab INIT_0ba8: 0bab 00db | | Load_Top At_Offset_3 0bac 7003 |p | Jump_Nonzero 0xbb0 0bad 6016 |` | Indirect_Literal Discrete,0xbc4,{0x00000000, 0x0000500f} 0bae a5fd | | Store_Unchecked 0x2,-0x3 0baf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0bb0 00da | | Load_Top At_Offset_2 0bb1 e5fe | | Load 0x2,-0x2 0bb2 0217 | | Execute Heap_Access,All_Reference 0bb3 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0bb4 027d | } | Execute Discrete,Greater 0bb5 6803 |h | Jump_Zero 0xbb9 0bb6 6009 |` | Indirect_Literal Discrete,0xbc0,{0x00000000, 0x00005011} 0bb7 a5fd | | Store_Unchecked 0x2,-0x3 0bb8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0bb9 00da | | Load_Top At_Offset_2 0bba e5fe | | Load 0x2,-0x2 0bbb 0217 | | Execute Heap_Access,All_Reference 0bbc 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0bbd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0bbe 0000 0000 | | .XXX[0x2] 0bc0 0000 0000 | | .LITERAL {0x00000000, 0x00005011} 0bc4 0000 0000 | | .LITERAL {0x00000000, 0x0000500f} 0bc8 ; -------------------------------------------------------------------------------------- 0bc8 ; SUBPROGRAM 0bc8 ; -------------------------------------------------------------------------------------- 0bc8 0bcb | | .CONST 0x0bcb ; Address of begin 0bc9 0004 | | .CONST 0x0004 ; Address of exception handler 0bca 0001 | | .CONST 0x0001 ; Number of locals 0bcb BODY_0bc8: 0bcb INIT_0bc8: 0bcb 00db | | Load_Top At_Offset_3 0bcc 7003 |p | Jump_Nonzero 0xbd0 0bcd 67f6 |g | Indirect_Literal Discrete,0xbc4,{0x00000000, 0x0000500f} 0bce a5fc | | Store_Unchecked 0x2,-0x4 0bcf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0bd0 00da | | Load_Top At_Offset_2 0bd1 e5fe | | Load 0x2,-0x2 0bd2 0217 | | Execute Heap_Access,All_Reference 0bd3 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0bd4 027b | { | Execute Discrete,Greater_Equal 0bd5 6803 |h | Jump_Zero 0xbd9 0bd6 600d |` | Indirect_Literal Discrete,0xbe4,{0x00000000, 0x00005012} 0bd7 a5fc | | Store_Unchecked 0x2,-0x4 0bd8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0bd9 00da | | Load_Top At_Offset_2 0bda 0a01 | | Execute_Immediate Plus,0x1 0bdb e5fe | | Load 0x2,-0x2 0bdc 0217 | | Execute Heap_Access,All_Reference 0bdd 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0bde 01d7 | | Execute Vector,Field_Read 0bdf c5fd | | Store 0x2,-0x3 0be0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0be1 0000 0000 | | .XXX[0x3] 0be3 0000 | | 0be4 0000 0000 | | .LITERAL {0x00000000, 0x00005012} 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 e5fd | | Load 0x2,-0x3 0bec 7003 |p | Jump_Nonzero 0xbf0 0bed 6022 |`" | Indirect_Literal Discrete,0xc10,{0x00000000, 0x0000500f} 0bee a5fc | | Store_Unchecked 0x2,-0x4 0bef 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0bf0 00da | | Load_Top At_Offset_2 0bf1 e5fd | | Load 0x2,-0x3 0bf2 0217 | | Execute Heap_Access,All_Reference 0bf3 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0bf4 027b | { | Execute Discrete,Greater_Equal 0bf5 6803 |h | Jump_Zero 0xbf9 0bf6 6015 |` | Indirect_Literal Discrete,0xc0c,{0x00000000, 0x00005007} 0bf7 a5fc | | Store_Unchecked 0x2,-0x4 0bf8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0bf9 00db | | Load_Top At_Offset_3 0bfa 00db | | Load_Top At_Offset_3 0bfb 0a01 | | Execute_Immediate Plus,0x1 0bfc e5fd | | Load 0x2,-0x3 0bfd 0217 | | Execute Heap_Access,All_Reference 0bfe 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0bff 01d6 | | Execute Vector,Field_Write 0c00 00da | | Load_Top At_Offset_2 0c01 e5fd | | Load 0x2,-0x3 0c02 0217 | | Execute Heap_Access,All_Reference 0c03 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0c04 027b | { | Execute Discrete,Greater_Equal 0c05 6805 |h | Jump_Zero 0xc0b 0c06 00da | | Load_Top At_Offset_2 0c07 0a01 | | Execute_Immediate Plus,0x1 0c08 e5fd | | Load 0x2,-0x3 0c09 0217 | | Execute Heap_Access,All_Reference 0c0a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0c0b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0c0c 0000 0000 | | .LITERAL {0x00000000, 0x00005007} 0c10 0000 0000 | | .LITERAL {0x00000000, 0x0000500f} 0c14 0000 0000 | | .BLANK 0000[0x4] 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 7003 |p | Jump_Nonzero 0xc20 0c1d 67f2 |g | Indirect_Literal Discrete,0xc10,{0x00000000, 0x0000500f} 0c1e a5fd | | Store_Unchecked 0x2,-0x3 0c1f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0c20 00db | | Load_Top At_Offset_3 0c21 0217 | | Execute Heap_Access,All_Reference 0c22 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0c23 e5fe | | Load 0x2,-0x2 0c24 0217 | | Execute Heap_Access,All_Reference 0c25 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0c26 027c | | | Execute Discrete,Less 0c27 6807 |h | Jump_Zero 0xc2f 0c28 00db | | Load_Top At_Offset_3 0c29 0217 | | Execute Heap_Access,All_Reference 0c2a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0c2b 0a01 | | Execute_Immediate Plus,0x1 0c2c e5fe | | Load 0x2,-0x2 0c2d 0217 | | Execute Heap_Access,All_Reference 0c2e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0c2f 00cf | | Action Mark_Auxiliary 0c30 4802 |H | Short_Literal 0x2 0c31 e5fe | | Load 0x2,-0x2 0c32 0217 | | Execute Heap_Access,All_Reference 0c33 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0c34 0264 | d | Execute Discrete,Below_Bound 0c35 700d |p | Jump_Nonzero 0xc43 0c36 00d8 | | Load_Top At_Offset_0 0c37 0aff | | Execute_Immediate Plus,-0x1 0c38 e5fe | | Load 0x2,-0x2 0c39 0217 | | Execute Heap_Access,All_Reference 0c3a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0c3b 01d7 | | Execute Vector,Field_Read 0c3c 00d9 | | Load_Top At_Offset_1 0c3d e5fe | | Load 0x2,-0x2 0c3e 0217 | | Execute Heap_Access,All_Reference 0c3f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0c40 01d6 | | Execute Vector,Field_Write 0c41 00c8 | | Action Pop_Auxiliary_Range 0c42 37f3 |7 | Loop_Decreasing 0xc36 0c43 00ce | | Action Pop_Auxiliary 0c44 00da | | Load_Top At_Offset_2 0c45 4801 |H | Short_Literal 0x1 0c46 e5fe | | Load 0x2,-0x2 0c47 0217 | | Execute Heap_Access,All_Reference 0c48 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0c49 01d6 | | Execute Vector,Field_Write 0c4a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0c4b 0000 0000 | | .BLANK 0000[0x5] 0c50 ; -------------------------------------------------------------------------------------- 0c50 ; SUBPROGRAM 0c50 ; -------------------------------------------------------------------------------------- 0c50 0c53 | S | .CONST 0x0c53 ; Address of begin 0c51 0004 | | .CONST 0x0004 ; Address of exception handler 0c52 0001 | | .CONST 0x0001 ; Number of locals 0c53 BODY_0c50: 0c53 INIT_0c50: 0c53 00db | | Load_Top At_Offset_3 0c54 7003 |p | Jump_Nonzero 0xc58 0c55 602e |`. | Indirect_Literal Discrete,0xc84,{0x00000000, 0x0000500f} 0c56 a5fd | | Store_Unchecked 0x2,-0x3 0c57 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0c58 00da | | Load_Top At_Offset_2 0c59 e5fe | | Load 0x2,-0x2 0c5a 0217 | | Execute Heap_Access,All_Reference 0c5b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0c5c 027b | { | Execute Discrete,Greater_Equal 0c5d 6805 |h | Jump_Zero 0xc63 0c5e 4800 |H | Short_Literal 0x0 0c5f e5fe | | Load 0x2,-0x2 0c60 0217 | | Execute Heap_Access,All_Reference 0c61 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0c62 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0c63 00db | | Load_Top At_Offset_3 0c64 0217 | | Execute Heap_Access,All_Reference 0c65 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0c66 00db | | Load_Top At_Offset_3 0c67 0272 | r | Execute Discrete,Minus 0c68 e5fe | | Load 0x2,-0x2 0c69 0217 | | Execute Heap_Access,All_Reference 0c6a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0c6b 00cf | | Action Mark_Auxiliary 0c6c e5fe | | Load 0x2,-0x2 0c6d 0217 | | Execute Heap_Access,All_Reference 0c6e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0c6f 4801 |H | Short_Literal 0x1 0c70 0263 | c | Execute Discrete,Above_Bound 0c71 700e |p | Jump_Nonzero 0xc80 0c72 00d8 | | Load_Top At_Offset_0 0c73 e5ff | | Load 0x2,-0x1 0c74 0273 | s | Execute Discrete,Plus 0c75 e5fe | | Load 0x2,-0x2 0c76 0217 | | Execute Heap_Access,All_Reference 0c77 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0c78 01d7 | | Execute Vector,Field_Read 0c79 00d9 | | Load_Top At_Offset_1 0c7a e5fe | | Load 0x2,-0x2 0c7b 0217 | | Execute Heap_Access,All_Reference 0c7c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0c7d 01d6 | | Execute Vector,Field_Write 0c7e 00c8 | | Action Pop_Auxiliary_Range 0c7f 3ff2 |? | Loop_Increasing 0xc72 0c80 00ce | | Action Pop_Auxiliary 0c81 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0c82 0000 0000 | | .XXX[0x2] 0c84 0000 0000 | | .LITERAL {0x00000000, 0x0000500f} 0c88 ; -------------------------------------------------------------------------------------- 0c88 ; SUBPROGRAM 0c88 ; -------------------------------------------------------------------------------------- 0c88 0c91 | | .CONST 0x0c91 ; Address of begin 0c89 0004 | | .CONST 0x0004 ; Address of exception handler 0c8a 0002 | | .CONST 0x0002 ; Number of locals 0c8b INIT_0c88: 0c8b e5ff | | Load 0x2,-0x1 0c8c e001 | | Load 0x0,0x1 0c8d 1b3c | < | Execute Package,Field_Read,Field_Number 0x3c 0c8e 1c08 | | Execute_Immediate Run_Utility,0x8 0c8f 00d8 | | Load_Top At_Offset_0 0c90 1c00 | | Execute_Immediate Run_Utility,0x0 0c91 BODY_0c88: 0c91 00cf | | Action Mark_Auxiliary 0c92 e5fd | | Load 0x2,-0x3 0c93 0217 | | Execute Heap_Access,All_Reference 0c94 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0c95 4801 |H | Short_Literal 0x1 0c96 0263 | c | Execute Discrete,Above_Bound 0c97 7014 |p | Jump_Nonzero 0xcac 0c98 00d8 | | Load_Top At_Offset_0 0c99 e5ff | | Load 0x2,-0x1 0c9a 027d | } | Execute Discrete,Greater 0c9b 6802 |h | Jump_Zero 0xc9e 0c9c 00d2 | | Pop_Control Pop_Count_2 0c9d 780e |x | Jump 0xcac 0c9e 00d8 | | Load_Top At_Offset_0 0c9f e602 | | Load 0x3,0x2 0ca0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0ca1 00d8 | | Load_Top At_Offset_0 0ca2 e5fd | | Load 0x2,-0x3 0ca3 0217 | | Execute Heap_Access,All_Reference 0ca4 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0ca5 01d7 | | Execute Vector,Field_Read 0ca6 00d9 | | Load_Top At_Offset_1 0ca7 e602 | | Load 0x3,0x2 0ca8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0ca9 01d6 | | Execute Vector,Field_Write 0caa 00c8 | | Action Pop_Auxiliary_Range 0cab 3fec |? | Loop_Increasing 0xc98 0cac 00ce | | Action Pop_Auxiliary 0cad e5fd | | Load 0x2,-0x3 0cae e001 | | Load 0x0,0x1 0caf 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0cb0 c5fd | | Store 0x2,-0x3 0cb1 e5fe | | Load 0x2,-0x2 0cb2 e5ff | | Load 0x2,-0x1 0cb3 00d8 | | Load_Top At_Offset_0 0cb4 00e4 | | Load_Encached Positive_Cache 0cb5 0260 | ` | Execute Discrete,In_Type 0cb6 7001 |p | Jump_Nonzero 0xcb8 0cb7 0801 | | Execute_Immediate Raise,0x1 0cb8 e001 | | Load 0x0,0x1 0cb9 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0cba a5fd | | Store_Unchecked 0x2,-0x3 0cbb 00d8 | | Load_Top At_Offset_0 0cbc e5fd | | Load 0x2,-0x3 0cbd 0218 | | Execute Heap_Access,All_Write 0cbe 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0cbf 0000 | | .XXX[0x1] 0cc0 ; -------------------------------------------------------------------------------------- 0cc0 ; SUBPROGRAM 0cc0 ; -------------------------------------------------------------------------------------- 0cc0 0d56 | V | .CONST 0x0d56 ; Address of begin 0cc1 0004 | | .CONST 0x0004 ; Address of exception handler 0cc2 0025 | % | .CONST 0x0025 ; Number of locals 0cc3 INIT_0cc0: 0cc3 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 0cc4 4800 |H | Short_Literal 0x0 0cc5 4802 |H | Short_Literal 0x2 0cc6 029f 0d5b | [| Declare_Subprogram INIT_0d58,For_Call 0cc8 03fe | | Declare_Type Discrete,Defined,Visible 0cc9 00d8 | | Load_Top At_Offset_0 0cca 4801 |H | Short_Literal 0x1 0ccb e001 | | Load 0x0,0x1 0ccc 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0ccd 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0cce 4801 |H | Short_Literal 0x1 0ccf e001 | | Load 0x0,0x1 0cd0 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0cd1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0cd2 4801 |H | Short_Literal 0x1 0cd3 e002 | | Load 0x0,0x2 0cd4 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0cd5 029f 0eeb | | Declare_Subprogram INIT_0ee8,For_Call 0cd7 4803 |H | Short_Literal 0x3 0cd8 4800 |H | Short_Literal 0x0 0cd9 4803 |H | Short_Literal 0x3 0cda 4800 |H | Short_Literal 0x0 0cdb 4801 |H | Short_Literal 0x1 0cdc 031e | | Declare_Type Variant_Record,Defined,Visible 0cdd 029a 0d8b | | Declare_Subprogram INIT_0d88,For_Outer_Call,Visible,Unelaborated 0cdf 029a 0d93 | | Declare_Subprogram INIT_0d90,For_Outer_Call,Visible,Unelaborated 0ce1 029a 0dbb | | Declare_Subprogram INIT_0db8,For_Outer_Call,Visible,Unelaborated 0ce3 029a 0de3 | | Declare_Subprogram INIT_0de0,For_Outer_Call,Visible,Unelaborated 0ce5 029a 0df3 | | Declare_Subprogram INIT_0df0,For_Outer_Call,Visible,Unelaborated 0ce7 029a 0e03 | | Declare_Subprogram INIT_0e00,For_Outer_Call,Visible,Unelaborated 0ce9 029a 0e13 | | Declare_Subprogram INIT_0e10,For_Outer_Call,Visible,Unelaborated 0ceb 029a 0e23 | #| Declare_Subprogram INIT_0e20,For_Outer_Call,Visible,Unelaborated 0ced 029a 0e33 | 3| Declare_Subprogram INIT_0e30,For_Outer_Call,Visible,Unelaborated 0cef 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 0cf0 029a 0e43 | C| Declare_Subprogram INIT_0e40,For_Outer_Call,Visible,Unelaborated 0cf2 029a 0e63 | c| Declare_Subprogram INIT_0e60,For_Outer_Call,Visible,Unelaborated 0cf4 029a 0e73 | s| Declare_Subprogram INIT_0e70,For_Outer_Call,Visible,Unelaborated 0cf6 029a 0e93 | | Declare_Subprogram INIT_0e90,For_Outer_Call,Visible,Unelaborated 0cf8 029a 0ea3 | | Declare_Subprogram INIT_0ea0,For_Outer_Call,Visible,Unelaborated 0cfa 4801 |H | Short_Literal 0x1 0cfb 4802 |H | Short_Literal 0x2 0cfc e20e | | Load 0x1,0xe 0cfd 03f8 | | Declare_Type Discrete,Constrained 0cfe 00d8 | | Load_Top At_Offset_0 0cff e003 | | Load 0x0,0x3 0d00 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0d01 02a0 | | Declare_Subprogram Null_Subprogram 0d02 4802 |H | Short_Literal 0x2 0d03 032d | - | Declare_Type Record,Defined 0d04 e004 | | Load 0x0,0x4 0d05 e005 | | Load 0x0,0x5 0d06 e006 | | Load 0x0,0x6 0d07 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0d08 00db | | Load_Top At_Offset_3 0d09 e006 | | Load 0x0,0x6 0d0a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d0b e006 | | Load 0x0,0x6 0d0c 1913 | | Execute Package,Field_Reference,Field_Number 0x13 0d0d e007 | | Load 0x0,0x7 0d0e 0387 | | Declare_Variable Package 0d0f 00d8 | | Load_Top At_Offset_0 0d10 020f | | Execute Module,Activate 0d11 00d8 | | Load_Top At_Offset_0 0d12 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0d13 e20d | | Load 0x1,0xd 0d14 03a2 | | Complete_Type Heap_Access,By_Renaming 0d15 00d8 | | Load_Top At_Offset_0 0d16 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0d17 e001 | | Load 0x0,0x1 0d18 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0d19 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d1a 02a0 | | Declare_Subprogram Null_Subprogram 0d1b 4802 |H | Short_Literal 0x2 0d1c 032d | - | Declare_Type Record,Defined 0d1d 00d8 | | Load_Top At_Offset_0 0d1e 02a0 | | Declare_Subprogram Null_Subprogram 0d1f e219 | | Load 0x1,0x19 0d20 03a3 | | Complete_Type Heap_Access,By_Defining 0d21 00bf | | Action Accept_Activation 0d22 4801 |H | Short_Literal 0x1 0d23 4802 |H | Short_Literal 0x2 0d24 e002 | | Load 0x0,0x2 0d25 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0d26 02a0 | | Declare_Subprogram Null_Subprogram 0d27 4801 |H | Short_Literal 0x1 0d28 035d | ] | Declare_Type Array,Defined 0d29 00d8 | | Load_Top At_Offset_0 0d2a 0337 | 7 | Declare_Variable Array 0d2b 00d8 | | Load_Top At_Offset_0 0d2c 0335 | 5 | Declare_Variable Array,Duplicate 0d2d 00cd | | Action Spare6_Action 0d2e 6055 |`U | Indirect_Literal Discrete,0xd84,{0x00000000, 0x0000500b} 0d2f 4802 |H | Short_Literal 0x2 0d30 00da | | Load_Top At_Offset_2 0d31 01d6 | | Execute Vector,Field_Write 0d32 604d |`M | Indirect_Literal Discrete,0xd80,{0x00000000, 0x0000500a} 0d33 4801 |H | Short_Literal 0x1 0d34 00da | | Load_Top At_Offset_2 0d35 01d6 | | Execute Vector,Field_Write 0d36 00d9 | | Load_Top At_Offset_1 0d37 01d4 | | Execute Vector,Structure_Write 0d38 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0d39 00c7 | | Action Elaborate_Subprogram 0d3a 029d 0eb3 | | Declare_Subprogram INIT_0eb0,For_Outer_Call 0d3c 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0d3d 00c7 | | Action Elaborate_Subprogram 0d3e 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0d3f 00c7 | | Action Elaborate_Subprogram 0d40 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0d41 00c7 | | Action Elaborate_Subprogram 0d42 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0d43 00c7 | | Action Elaborate_Subprogram 0d44 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0d45 00c7 | | Action Elaborate_Subprogram 0d46 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0d47 00c7 | | Action Elaborate_Subprogram 0d48 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0d49 00c7 | | Action Elaborate_Subprogram 0d4a 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0d4b 00c7 | | Action Elaborate_Subprogram 0d4c 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0d4d 00c7 | | Action Elaborate_Subprogram 0d4e 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0d4f 00c7 | | Action Elaborate_Subprogram 0d50 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0d51 00c7 | | Action Elaborate_Subprogram 0d52 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0d53 00c7 | | Action Elaborate_Subprogram 0d54 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0d55 00c7 | | Action Elaborate_Subprogram 0d56 BODY_0cc0: 0d56 00bc | | Action Signal_Activated 0d57 00bb | | Action Signal_Completion 0d58 ; -------------------------------------------------------------------------------------- 0d58 ; SUBPROGRAM 0d58 ; -------------------------------------------------------------------------------------- 0d58 0d5b | [ | .CONST 0x0d5b ; Address of begin 0d59 0004 | | .CONST 0x0004 ; Address of exception handler 0d5a 0001 | | .CONST 0x0001 ; Number of locals 0d5b BODY_0d58: 0d5b INIT_0d58: 0d5b 4607 |F | Jump_Case 0x8 0d5c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0d5d 7806 |x | Jump 0xd64 ; case 0x1 0d5e 7809 |x | Jump 0xd68 ; case 0x2 0d5f 780d |x | Jump 0xd6d ; case 0x3 0d60 7810 |x | Jump 0xd71 ; case 0x4 0d61 7811 |x | Jump 0xd73 ; case 0x5 0d62 7812 |x | Jump 0xd75 ; case 0x6 0d63 7815 |x | Jump 0xd79 ; case 0x7 0d64 00da | | Load_Top At_Offset_2 0d65 0091 118f | | Action Push_String_Extended_Indexed,0x118f ; "NIL" 0d67 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0d68 00db | | Load_Top At_Offset_3 0d69 00db | | Load_Top At_Offset_3 0d6a 00e0 | | Load_Encached Standard_Cache 0d6b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0d6c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0d6d 00da | | Load_Top At_Offset_2 0d6e 00e0 | | Load_Encached Standard_Cache 0d6f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0d70 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0d71 00db | | Load_Top At_Offset_3 0d72 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0d73 00db | | Load_Top At_Offset_3 0d74 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0d75 e20e | | Load 0x1,0xe 0d76 00dc | | Load_Top At_Offset_4 0d77 0267 | g | Execute Discrete,Predecessor 0d78 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0d79 e20e | | Load 0x1,0xe 0d7a 00dc | | Load_Top At_Offset_4 0d7b 0268 | h | Execute Discrete,Successor 0d7c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0d7d 0000 0000 | | .XXX[0x3] 0d7f 0000 | | 0d80 0000 0000 | | .LITERAL {0x00000000, 0x0000500a} 0d84 0000 0000 | | .LITERAL {0x00000000, 0x0000500b} 0d88 ; -------------------------------------------------------------------------------------- 0d88 ; SUBPROGRAM 0d88 ; -------------------------------------------------------------------------------------- 0d88 0d8b | | .CONST 0x0d8b ; Address of begin 0d89 0004 | | .CONST 0x0004 ; Address of exception handler 0d8a 0001 | | .CONST 0x0001 ; Number of locals 0d8b BODY_0d88: 0d8b INIT_0d88: 0d8b e221 | ! | Load 0x1,0x21 0d8c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0d8d 00ca | | Action Exit_Nullary_Function 0d8e 0000 0000 | | .XXX[0x2] 0d90 ; -------------------------------------------------------------------------------------- 0d90 ; SUBPROGRAM 0d90 ; -------------------------------------------------------------------------------------- 0d90 0d96 | | .CONST 0x0d96 ; Address of begin 0d91 0004 | | .CONST 0x0004 ; Address of exception handler 0d92 0003 | | .CONST 0x0003 ; Number of locals 0d93 INIT_0d90: 0d93 00e1 | | Load_Encached Boolean_Cache 0d94 e220 | | Load 0x1,0x20 0d95 0322 | " | Declare_Variable Record 0d96 BODY_0d90: 0d96 00e1 | | Load_Encached Boolean_Cache 0d97 00d9 | | Load_Top At_Offset_1 0d98 e5ff | | Load 0x2,-0x1 0d99 e008 | | Load 0x0,0x8 0d9a 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40 0d9b 180d | | Execute Package,Field_Execute,Field_Number 0xd 0d9c e5fe | | Load 0x2,-0x2 0d9d 0217 | | Execute Heap_Access,All_Reference 0d9e 3c15 |< | Execute Record,Field_Read,Field_Number 0x15 0d9f e221 | ! | Load 0x1,0x21 0da0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0da1 00d1 | | Pop_Control Pop_Count_1 0da2 005a | Z | Store_Top Discrete,At_Offset_2 0da3 00d9 | | Load_Top At_Offset_1 0da4 6805 |h | Jump_Zero 0xdaa 0da5 00d8 | | Load_Top At_Offset_0 0da6 e5fe | | Load 0x2,-0x2 0da7 e5fd | | Load 0x2,-0x3 0da8 8225 | % | Call 0x1,0x25 0da9 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0daa 4800 |H | Short_Literal 0x0 0dab e20f | | Load 0x1,0xf 0dac 1c08 | | Execute_Immediate Run_Utility,0x8 0dad 6006 |` | Indirect_Literal Discrete,0xdb4,{0x00000000, 0x0000500c} 0dae 00d9 | | Load_Top At_Offset_1 0daf 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 0db0 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0db1 0000 0000 | | .XXX[0x3] 0db3 0000 | | 0db4 0000 0000 | | .LITERAL {0x00000000, 0x0000500c} 0db8 ; -------------------------------------------------------------------------------------- 0db8 ; SUBPROGRAM 0db8 ; -------------------------------------------------------------------------------------- 0db8 0dbd | | .CONST 0x0dbd ; Address of begin 0db9 0004 | | .CONST 0x0004 ; Address of exception handler 0dba 0002 | | .CONST 0x0002 ; Number of locals 0dbb INIT_0db8: 0dbb e220 | | Load 0x1,0x20 0dbc 0322 | " | Declare_Variable Record 0dbd BODY_0db8: 0dbd e5fe | | Load 0x2,-0x2 0dbe 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0dbf 00d9 | | Load_Top At_Offset_1 0dc0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0dc1 00d8 | | Load_Top At_Offset_0 0dc2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0dc3 0f02 | | Execute_Immediate Equal,0x2 0dc4 7007 |p | Jump_Nonzero 0xdcc 0dc5 e5fe | | Load 0x2,-0x2 0dc6 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 0dc7 e009 | | Load 0x0,0x9 0dc8 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0dc9 00d9 | | Load_Top At_Offset_1 0dca 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0dcb 7806 |x | Jump 0xdd2 0dcc e5fe | | Load 0x2,-0x2 0dcd 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0dce e00a | | Load 0x0,0xa 0dcf 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0dd0 00d9 | | Load_Top At_Offset_1 0dd1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0dd2 e5fc | | Load 0x2,-0x4 0dd3 00d9 | | Load_Top At_Offset_1 0dd4 e5ff | | Load 0x2,-0x1 0dd5 e008 | | Load 0x0,0x8 0dd6 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40 0dd7 180d | | Execute Package,Field_Execute,Field_Number 0xd 0dd8 e5fd | | Load 0x2,-0x3 0dd9 0217 | | Execute Heap_Access,All_Reference 0dda 3c15 |< | Execute Record,Field_Read,Field_Number 0x15 0ddb e221 | ! | Load 0x1,0x21 0ddc 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0ddd 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0dde 0000 0000 | | .XXX[0x2] 0de0 ; -------------------------------------------------------------------------------------- 0de0 ; SUBPROGRAM 0de0 ; -------------------------------------------------------------------------------------- 0de0 0de3 | | .CONST 0x0de3 ; Address of begin 0de1 0004 | | .CONST 0x0004 ; Address of exception handler 0de2 0001 | | .CONST 0x0001 ; Number of locals 0de3 BODY_0de0: 0de3 INIT_0de0: 0de3 e5fc | | Load 0x2,-0x4 0de4 e5fd | | Load 0x2,-0x3 0de5 4801 |H | Short_Literal 0x1 0de6 e20f | | Load 0x1,0xf 0de7 1c08 | | Execute_Immediate Run_Utility,0x8 0de8 e5fe | | Load 0x2,-0x2 0de9 00d9 | | Load_Top At_Offset_1 0dea 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 0deb e5ff | | Load 0x2,-0x1 0dec 8212 | | Call 0x1,0x12 0ded 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0dee 0000 0000 | | .XXX[0x2] 0df0 ; -------------------------------------------------------------------------------------- 0df0 ; SUBPROGRAM 0df0 ; -------------------------------------------------------------------------------------- 0df0 0df3 | | .CONST 0x0df3 ; Address of begin 0df1 0004 | | .CONST 0x0004 ; Address of exception handler 0df2 0001 | | .CONST 0x0001 ; Number of locals 0df3 BODY_0df0: 0df3 INIT_0df0: 0df3 e5fc | | Load 0x2,-0x4 0df4 e5fd | | Load 0x2,-0x3 0df5 4802 |H | Short_Literal 0x2 0df6 e20f | | Load 0x1,0xf 0df7 1c08 | | Execute_Immediate Run_Utility,0x8 0df8 e5fe | | Load 0x2,-0x2 0df9 00d9 | | Load_Top At_Offset_1 0dfa 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 0dfb e5ff | | Load 0x2,-0x1 0dfc 8212 | | Call 0x1,0x12 0dfd 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0dfe 0000 0000 | | .XXX[0x2] 0e00 ; -------------------------------------------------------------------------------------- 0e00 ; SUBPROGRAM 0e00 ; -------------------------------------------------------------------------------------- 0e00 0e03 | | .CONST 0x0e03 ; Address of begin 0e01 0004 | | .CONST 0x0004 ; Address of exception handler 0e02 0001 | | .CONST 0x0001 ; Number of locals 0e03 BODY_0e00: 0e03 INIT_0e00: 0e03 00da | | Load_Top At_Offset_2 0e04 e008 | | Load 0x0,0x8 0e05 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40 0e06 180d | | Execute Package,Field_Execute,Field_Number 0xd 0e07 e5fe | | Load 0x2,-0x2 0e08 0217 | | Execute Heap_Access,All_Reference 0e09 3c15 |< | Execute Record,Field_Read,Field_Number 0x15 0e0a e221 | ! | Load 0x1,0x21 0e0b 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0e0c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0e0d 0000 0000 | | .XXX[0x3] 0e0f 0000 | | 0e10 ; -------------------------------------------------------------------------------------- 0e10 ; SUBPROGRAM 0e10 ; -------------------------------------------------------------------------------------- 0e10 0e13 | | .CONST 0x0e13 ; Address of begin 0e11 0004 | | .CONST 0x0004 ; Address of exception handler 0e12 0001 | | .CONST 0x0001 ; Number of locals 0e13 BODY_0e10: 0e13 INIT_0e10: 0e13 00da | | Load_Top At_Offset_2 0e14 0219 | | Execute Heap_Access,All_Read 0e15 e221 | ! | Load 0x1,0x21 0e16 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0e17 e5ff | | Load 0x2,-0x1 0e18 e00b | | Load 0x0,0xb 0e19 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0e1a e221 | ! | Load 0x1,0x21 0e1b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0e1c 00d9 | | Load_Top At_Offset_1 0e1d 3815 |8 | Execute Record,Field_Write,Field_Number 0x15 0e1e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0e1f 0000 | | .XXX[0x1] 0e20 ; -------------------------------------------------------------------------------------- 0e20 ; SUBPROGRAM 0e20 ; -------------------------------------------------------------------------------------- 0e20 0e23 | # | .CONST 0x0e23 ; Address of begin 0e21 0004 | | .CONST 0x0004 ; Address of exception handler 0e22 0001 | | .CONST 0x0001 ; Number of locals 0e23 BODY_0e20: 0e23 INIT_0e20: 0e23 00da | | Load_Top At_Offset_2 0e24 0217 | | Execute Heap_Access,All_Reference 0e25 3c15 |< | Execute Record,Field_Read,Field_Number 0x15 0e26 e221 | ! | Load 0x1,0x21 0e27 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0e28 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e29 0000 0000 | | .BLANK 0000[0x7] 0e30 ; -------------------------------------------------------------------------------------- 0e30 ; SUBPROGRAM 0e30 ; -------------------------------------------------------------------------------------- 0e30 0e33 | 3 | .CONST 0x0e33 ; Address of begin 0e31 0004 | | .CONST 0x0004 ; Address of exception handler 0e32 0001 | | .CONST 0x0001 ; Number of locals 0e33 BODY_0e30: 0e33 INIT_0e30: 0e33 00da | | Load_Top At_Offset_2 0e34 0217 | | Execute Heap_Access,All_Reference 0e35 3c15 |< | Execute Record,Field_Read,Field_Number 0x15 0e36 e221 | ! | Load 0x1,0x21 0e37 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0e38 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0e39 0000 0000 | | .BLANK 0000[0x7] 0e40 ; -------------------------------------------------------------------------------------- 0e40 ; SUBPROGRAM 0e40 ; -------------------------------------------------------------------------------------- 0e40 0e48 | H | .CONST 0x0e48 ; Address of begin 0e41 0004 | | .CONST 0x0004 ; Address of exception handler 0e42 0003 | | .CONST 0x0003 ; Number of locals 0e43 INIT_0e40: 0e43 e00c | | Load 0x0,0xc 0e44 180d | | Execute Package,Field_Execute,Field_Number 0xd 0e45 e219 | | Load 0x1,0x19 0e46 00d9 | | Load_Top At_Offset_1 0e47 039c | | Declare_Variable Heap_Access,By_Allocation 0e48 BODY_0e40: 0e48 e5ff | | Load 0x2,-0x1 0e49 00d9 | | Load_Top At_Offset_1 0e4a 0217 | | Execute Heap_Access,All_Reference 0e4b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0e4c 00d8 | | Load_Top At_Offset_0 0e4d 0219 | | Execute Heap_Access,All_Read 0e4e e221 | ! | Load 0x1,0x21 0e4f 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0e50 00db | | Load_Top At_Offset_3 0e51 e5ff | | Load 0x2,-0x1 0e52 0217 | | Execute Heap_Access,All_Reference 0e53 3c15 |< | Execute Record,Field_Read,Field_Number 0x15 0e54 e221 | ! | Load 0x1,0x21 0e55 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0e56 00d9 | | Load_Top At_Offset_1 0e57 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0e58 00d1 | | Pop_Control Pop_Count_1 0e59 00d8 | | Load_Top At_Offset_0 0e5a a5fe | | Store_Unchecked 0x2,-0x2 0e5b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0e5c 0000 0000 | | .BLANK 0000[0x4] 0e60 ; -------------------------------------------------------------------------------------- 0e60 ; SUBPROGRAM 0e60 ; -------------------------------------------------------------------------------------- 0e60 0e63 | c | .CONST 0x0e63 ; Address of begin 0e61 0004 | | .CONST 0x0004 ; Address of exception handler 0e62 0001 | | .CONST 0x0001 ; Number of locals 0e63 BODY_0e60: 0e63 INIT_0e60: 0e63 00da | | Load_Top At_Offset_2 0e64 0219 | | Execute Heap_Access,All_Read 0e65 00d8 | | Load_Top At_Offset_0 0e66 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0e67 e221 | ! | Load 0x1,0x21 0e68 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0e69 00d9 | | Load_Top At_Offset_1 0e6a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0e6b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e6c 0000 0000 | | .BLANK 0000[0x4] 0e70 ; -------------------------------------------------------------------------------------- 0e70 ; SUBPROGRAM 0e70 ; -------------------------------------------------------------------------------------- 0e70 0e78 | x | .CONST 0x0e78 ; Address of begin 0e71 0004 | | .CONST 0x0004 ; Address of exception handler 0e72 0002 | | .CONST 0x0002 ; Number of locals 0e73 INIT_0e70: 0e73 e00d | | Load 0x0,0xd 0e74 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e75 02ff | | Declare_Variable Variant_Record 0e76 00d8 | | Load_Top At_Offset_0 0e77 1c00 | | Execute_Immediate Run_Utility,0x0 0e78 BODY_0e70: 0e78 00d8 | | Load_Top At_Offset_0 0e79 e006 | | Load 0x0,0x6 0e7a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0e7b 0162 | b | Execute Variant_Record,Check_In_Type 0e7c 4800 |H | Short_Literal 0x0 0e7d e5ff | | Load 0x2,-0x1 0e7e 0217 | | Execute Heap_Access,All_Reference 0e7f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0e80 e221 | ! | Load 0x1,0x21 0e81 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0e82 e006 | | Load 0x0,0x6 0e83 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0e84 00d1 | | Pop_Control Pop_Count_1 0e85 00d8 | | Load_Top At_Offset_0 0e86 e008 | | Load 0x0,0x8 0e87 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40 0e88 180e | | Execute Package,Field_Execute,Field_Number 0xe 0e89 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0e8a 0000 0000 | | .BLANK 0000[0x6] 0e90 ; -------------------------------------------------------------------------------------- 0e90 ; SUBPROGRAM 0e90 ; -------------------------------------------------------------------------------------- 0e90 0e93 | | .CONST 0x0e93 ; Address of begin 0e91 0004 | | .CONST 0x0004 ; Address of exception handler 0e92 0001 | | .CONST 0x0001 ; Number of locals 0e93 BODY_0e90: 0e93 INIT_0e90: 0e93 00da | | Load_Top At_Offset_2 0e94 0217 | | Execute Heap_Access,All_Reference 0e95 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0e96 e221 | ! | Load 0x1,0x21 0e97 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0e98 00db | | Load_Top At_Offset_3 0e99 0217 | | Execute Heap_Access,All_Reference 0e9a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0e9b e5fe | | Load 0x2,-0x2 0e9c 8225 | % | Call 0x1,0x25 0e9d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0e9e 0000 0000 | | .XXX[0x2] 0ea0 ; -------------------------------------------------------------------------------------- 0ea0 ; SUBPROGRAM 0ea0 ; -------------------------------------------------------------------------------------- 0ea0 0ea3 | | .CONST 0x0ea3 ; Address of begin 0ea1 0004 | | .CONST 0x0004 ; Address of exception handler 0ea2 0001 | | .CONST 0x0001 ; Number of locals 0ea3 BODY_0ea0: 0ea3 INIT_0ea0: 0ea3 00da | | Load_Top At_Offset_2 0ea4 0217 | | Execute Heap_Access,All_Reference 0ea5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0ea6 e221 | ! | Load 0x1,0x21 0ea7 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0ea8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ea9 0000 0000 | | .BLANK 0000[0x7] 0eb0 ; -------------------------------------------------------------------------------------- 0eb0 ; SUBPROGRAM 0eb0 ; -------------------------------------------------------------------------------------- 0eb0 0eb3 | | .CONST 0x0eb3 ; Address of begin 0eb1 0004 | | .CONST 0x0004 ; Address of exception handler 0eb2 0001 | | .CONST 0x0001 ; Number of locals 0eb3 BODY_0eb0: 0eb3 INIT_0eb0: 0eb3 00da | | Load_Top At_Offset_2 0eb4 680e |h | Jump_Zero 0xec3 0eb5 00da | | Load_Top At_Offset_2 0eb6 e5fd | | Load 0x2,-0x3 0eb7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0eb8 027e | ~ | Execute Discrete,Not_Equal 0eb9 6809 |h | Jump_Zero 0xec3 0eba 4800 |H | Short_Literal 0x0 0ebb e20f | | Load 0x1,0xf 0ebc 1c08 | | Execute_Immediate Run_Utility,0x8 0ebd 00db | | Load_Top At_Offset_3 0ebe e224 | $ | Load 0x1,0x24 0ebf 01d7 | | Execute Vector,Field_Read 0ec0 00d9 | | Load_Top At_Offset_1 0ec1 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 0ec2 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0ec3 e5fd | | Load 0x2,-0x3 0ec4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0ec5 0f02 | | Execute_Immediate Equal,0x2 0ec6 7010 |p | Jump_Nonzero 0xed7 0ec7 4801 |H | Short_Literal 0x1 0ec8 e20f | | Load 0x1,0xf 0ec9 1c08 | | Execute_Immediate Run_Utility,0x8 0eca e5fd | | Load 0x2,-0x3 0ecb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0ecc e5fe | | Load 0x2,-0x2 0ecd e00b | | Load 0x0,0xb 0ece 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0ecf e00e | | Load 0x0,0xe 0ed0 e00f | | Load 0x0,0xf 0ed1 a010 | | Store_Unchecked 0x0,0x10 0ed2 e011 | | Load 0x0,0x11 0ed3 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0ed4 00d9 | | Load_Top At_Offset_1 0ed5 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 0ed6 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0ed7 4802 |H | Short_Literal 0x2 0ed8 e20f | | Load 0x1,0xf 0ed9 1c08 | | Execute_Immediate Run_Utility,0x8 0eda e5fd | | Load 0x2,-0x3 0edb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0edc e5fe | | Load 0x2,-0x2 0edd e00b | | Load 0x0,0xb 0ede 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0edf e012 | | Load 0x0,0x12 0ee0 e013 | | Load 0x0,0x13 0ee1 a014 | | Store_Unchecked 0x0,0x14 0ee2 e011 | | Load 0x0,0x11 0ee3 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0ee4 00d9 | | Load_Top At_Offset_1 0ee5 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 0ee6 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0ee7 0000 | | .XXX[0x1] 0ee8 ; -------------------------------------------------------------------------------------- 0ee8 ; SUBPROGRAM 0ee8 ; -------------------------------------------------------------------------------------- 0ee8 0eeb | | .CONST 0x0eeb ; Address of begin 0ee9 0004 | | .CONST 0x0004 ; Address of exception handler 0eea 0001 | | .CONST 0x0001 ; Number of locals 0eeb BODY_0ee8: 0eeb INIT_0ee8: 0eeb 4608 |F | Jump_Case 0x9 0eec 7808 |x | Jump 0xef5 ; case 0x0 0eed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0eee 7838 |x8 | Jump 0xf27 ; case 0x2 0eef 7837 |x7 | Jump 0xf27 ; case 0x3 0ef0 7836 |x6 | Jump 0xf27 ; case 0x4 0ef1 7835 |x5 | Jump 0xf27 ; case 0x5 0ef2 7814 |x | Jump 0xf07 ; case 0x6 0ef3 781e |x | Jump 0xf12 ; case 0x7 0ef4 782b |x+ | Jump 0xf20 ; case 0x8 0ef5 00da | | Load_Top At_Offset_2 0ef6 016c | l | Execute Variant_Record,Is_Constrained 0ef7 7009 |p | Jump_Nonzero 0xf01 0ef8 00cf | | Action Mark_Auxiliary 0ef9 4800 |H | Short_Literal 0x0 0efa e5ff | | Load 0x2,-0x1 0efb 1c08 | | Execute_Immediate Run_Utility,0x8 0efc 00d8 | | Load_Top At_Offset_0 0efd 1c00 | | Execute_Immediate Run_Utility,0x0 0efe c5ff | | Store 0x2,-0x1 0eff 00ce | | Action Pop_Auxiliary 0f00 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0f01 00da | | Load_Top At_Offset_2 0f02 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0f03 4602 |F | Jump_Case 0x3 0f04 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0f05 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0f06 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 0f07 00db | | Load_Top At_Offset_3 0f08 4602 |F | Jump_Case 0x3 0f09 7806 |x | Jump 0xf10 ; case 0x0 0f0a 7803 |x | Jump 0xf0e ; case 0x1 0f0b 7800 |x | Jump 0xf0c ; case 0x2 0f0c 4802 |H | Short_Literal 0x2 0f0d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0f0e 4801 |H | Short_Literal 0x1 0f0f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0f10 4803 |H | Short_Literal 0x3 0f11 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0f12 00db | | Load_Top At_Offset_3 0f13 e5fe | | Load 0x2,-0x2 0f14 4602 |F | Jump_Case 0x3 0f15 7806 |x | Jump 0xf1c ; case 0x0 0f16 7803 |x | Jump 0xf1a ; case 0x1 0f17 7800 |x | Jump 0xf18 ; case 0x2 0f18 4802 |H | Short_Literal 0x2 0f19 7803 |x | Jump 0xf1d 0f1a 4801 |H | Short_Literal 0x1 0f1b 7801 |x | Jump 0xf1d 0f1c 4803 |H | Short_Literal 0x3 0f1d e5ff | | Load 0x2,-0x1 0f1e 031b | | Declare_Type Variant_Record,Constrained 0f1f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0f20 00db | | Load_Top At_Offset_3 0f21 e5fe | | Load 0x2,-0x2 0f22 e5ff | | Load 0x2,-0x1 0f23 1c06 | | Execute_Immediate Run_Utility,0x6 0f24 e5ff | | Load 0x2,-0x1 0f25 02fc | | Declare_Variable Variant_Record,With_Constraint 0f26 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0f27 0869 | i | Execute_Immediate Raise,0x69 0f28 ; -------------------------------------------------------------------------------------- 0f28 ; SUBPROGRAM 0f28 ; -------------------------------------------------------------------------------------- 0f28 0f8c | | .CONST 0x0f8c ; Address of begin 0f29 0004 | | .CONST 0x0004 ; Address of exception handler 0f2a 0021 | ! | .CONST 0x0021 ; Number of locals 0f2b INIT_0f28: 0f2b 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 0f2c 029a 0f93 | | Declare_Subprogram INIT_0f90,For_Outer_Call,Visible,Unelaborated 0f2e 029a 0f9b | | Declare_Subprogram INIT_0f98,For_Outer_Call,Visible,Unelaborated 0f30 029a 0fbb | | Declare_Subprogram INIT_0fb8,For_Outer_Call,Visible,Unelaborated 0f32 029a 0fcb | | Declare_Subprogram INIT_0fc8,For_Outer_Call,Visible,Unelaborated 0f34 029a 0fdb | | Declare_Subprogram INIT_0fd8,For_Outer_Call,Visible,Unelaborated 0f36 029a 0feb | | Declare_Subprogram INIT_0fe8,For_Outer_Call,Visible,Unelaborated 0f38 029a 0ffb | | Declare_Subprogram INIT_0ff8,For_Outer_Call,Visible,Unelaborated 0f3a 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 0f3b 029a 100b | | Declare_Subprogram INIT_1008,For_Outer_Call,Visible,Unelaborated 0f3d 029a 102b | +| Declare_Subprogram INIT_1028,For_Outer_Call,Visible,Unelaborated 0f3f 029a 103b | ;| Declare_Subprogram INIT_1038,For_Outer_Call,Visible,Unelaborated 0f41 029a 104b | K| Declare_Subprogram INIT_1048,For_Outer_Call,Visible,Unelaborated 0f43 e001 | | Load 0x0,0x1 0f44 e002 | | Load 0x0,0x2 0f45 e003 | | Load 0x0,0x3 0f46 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f47 e004 | | Load 0x0,0x4 0f48 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0f49 e004 | | Load 0x0,0x4 0f4a 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0f4b e003 | | Load 0x0,0x3 0f4c 1916 | | Execute Package,Field_Reference,Field_Number 0x16 0f4d e005 | | Load 0x0,0x5 0f4e 0387 | | Declare_Variable Package 0f4f 00d8 | | Load_Top At_Offset_0 0f50 020f | | Execute Module,Activate 0f51 00d8 | | Load_Top At_Offset_0 0f52 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0f53 e20d | | Load 0x1,0xd 0f54 03a2 | | Complete_Type Heap_Access,By_Renaming 0f55 00d8 | | Load_Top At_Offset_0 0f56 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0f57 e006 | | Load 0x0,0x6 0f58 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0f59 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0f5a 02a0 | | Declare_Subprogram Null_Subprogram 0f5b 4802 |H | Short_Literal 0x2 0f5c 032d | - | Declare_Type Record,Defined 0f5d 00d8 | | Load_Top At_Offset_0 0f5e 02a0 | | Declare_Subprogram Null_Subprogram 0f5f e215 | | Load 0x1,0x15 0f60 03a3 | | Complete_Type Heap_Access,By_Defining 0f61 00bf | | Action Accept_Activation 0f62 e007 | | Load 0x0,0x7 0f63 e008 | | Load 0x0,0x8 0f64 e009 | | Load 0x0,0x9 0f65 e00a | | Load 0x0,0xa 0f66 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0f67 e00b | | Load 0x0,0xb 0f68 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0f69 0387 | | Declare_Variable Package 0f6a 00d8 | | Load_Top At_Offset_0 0f6b 020f | | Execute Module,Activate 0f6c e00b | | Load 0x0,0xb 0f6d 1919 | | Execute Package,Field_Reference,Field_Number 0x19 0f6e 00c6 | | Action Check_Subprogram_Elaborated 0f6f e009 | | Load 0x0,0x9 0f70 e00a | | Load 0x0,0xa 0f71 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0f72 e00c | | Load 0x0,0xc 0f73 e00d | | Load 0x0,0xd 0f74 4800 |H | Short_Literal 0x0 0f75 0007 | | Action Break_Optional 0f76 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0f77 00c7 | | Action Elaborate_Subprogram 0f78 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0f79 00c7 | | Action Elaborate_Subprogram 0f7a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0f7b 00c7 | | Action Elaborate_Subprogram 0f7c 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0f7d 00c7 | | Action Elaborate_Subprogram 0f7e 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0f7f 00c7 | | Action Elaborate_Subprogram 0f80 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0f81 00c7 | | Action Elaborate_Subprogram 0f82 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0f83 00c7 | | Action Elaborate_Subprogram 0f84 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0f85 00c7 | | Action Elaborate_Subprogram 0f86 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0f87 00c7 | | Action Elaborate_Subprogram 0f88 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0f89 00c7 | | Action Elaborate_Subprogram 0f8a 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0f8b 00c7 | | Action Elaborate_Subprogram 0f8c BODY_0f28: 0f8c 00bc | | Action Signal_Activated 0f8d 00bb | | Action Signal_Completion 0f8e 0000 0000 | | .XXX[0x2] 0f90 ; -------------------------------------------------------------------------------------- 0f90 ; SUBPROGRAM 0f90 ; -------------------------------------------------------------------------------------- 0f90 0f93 | | .CONST 0x0f93 ; Address of begin 0f91 0004 | | .CONST 0x0004 ; Address of exception handler 0f92 0001 | | .CONST 0x0001 ; Number of locals 0f93 BODY_0f90: 0f93 INIT_0f90: 0f93 e21a | | Load 0x1,0x1a 0f94 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0f95 00ca | | Action Exit_Nullary_Function 0f96 0000 0000 | | .XXX[0x2] 0f98 ; -------------------------------------------------------------------------------------- 0f98 ; SUBPROGRAM 0f98 ; -------------------------------------------------------------------------------------- 0f98 0f9f | | .CONST 0x0f9f ; Address of begin 0f99 0004 | | .CONST 0x0004 ; Address of exception handler 0f9a 0003 | | .CONST 0x0003 ; Number of locals 0f9b INIT_0f98: 0f9b e004 | | Load 0x0,0x4 0f9c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0f9d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0f9e 00e1 | | Load_Encached Boolean_Cache 0f9f BODY_0f98: 0f9f 00e1 | | Load_Encached Boolean_Cache 0fa0 00da | | Load_Top At_Offset_2 0fa1 e5ff | | Load 0x2,-0x1 0fa2 e5fe | | Load 0x2,-0x2 0fa3 0217 | | Execute Heap_Access,All_Reference 0fa4 3c14 |< | Execute Record,Field_Read,Field_Number 0x14 0fa5 e21a | | Load 0x1,0x1a 0fa6 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0fa7 005b | [ | Store_Top Discrete,At_Offset_3 0fa8 0059 | Y | Store_Top Discrete,At_Offset_1 0fa9 00d8 | | Load_Top At_Offset_0 0faa 680a |h | Jump_Zero 0xfb5 0fab 00d9 | | Load_Top At_Offset_1 0fac e5fe | | Load 0x2,-0x2 0fad e00a | | Load 0x0,0xa 0fae 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0faf e21d | | Load 0x1,0x1d 0fb0 e21e | | Load 0x1,0x1e 0fb1 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0fb2 e00b | | Load 0x0,0xb 0fb3 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0fb4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0fb5 e00a | | Load 0x0,0xa 0fb6 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0fb7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0fb8 ; -------------------------------------------------------------------------------------- 0fb8 ; SUBPROGRAM 0fb8 ; -------------------------------------------------------------------------------------- 0fb8 0fbb | | .CONST 0x0fbb ; Address of begin 0fb9 0004 | | .CONST 0x0004 ; Address of exception handler 0fba 0001 | | .CONST 0x0001 ; Number of locals 0fbb BODY_0fb8: 0fbb INIT_0fb8: 0fbb e5fc | | Load 0x2,-0x4 0fbc e5fe | | Load 0x2,-0x2 0fbd e21c | | Load 0x1,0x1c 0fbe 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0fbf e5ff | | Load 0x2,-0x1 0fc0 e5fd | | Load 0x2,-0x3 0fc1 0217 | | Execute Heap_Access,All_Reference 0fc2 3c14 |< | Execute Record,Field_Read,Field_Number 0x14 0fc3 e21a | | Load 0x1,0x1a 0fc4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0fc5 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0fc6 0000 0000 | | .XXX[0x2] 0fc8 ; -------------------------------------------------------------------------------------- 0fc8 ; SUBPROGRAM 0fc8 ; -------------------------------------------------------------------------------------- 0fc8 0fcb | | .CONST 0x0fcb ; Address of begin 0fc9 0004 | | .CONST 0x0004 ; Address of exception handler 0fca 0001 | | .CONST 0x0001 ; Number of locals 0fcb BODY_0fc8: 0fcb INIT_0fc8: 0fcb 00da | | Load_Top At_Offset_2 0fcc e5fe | | Load 0x2,-0x2 0fcd 0217 | | Execute Heap_Access,All_Reference 0fce 3c14 |< | Execute Record,Field_Read,Field_Number 0x14 0fcf e21a | | Load 0x1,0x1a 0fd0 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0fd1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0fd2 0000 0000 | | .BLANK 0000[0x6] 0fd8 ; -------------------------------------------------------------------------------------- 0fd8 ; SUBPROGRAM 0fd8 ; -------------------------------------------------------------------------------------- 0fd8 0fdb | | .CONST 0x0fdb ; Address of begin 0fd9 0004 | | .CONST 0x0004 ; Address of exception handler 0fda 0001 | | .CONST 0x0001 ; Number of locals 0fdb BODY_0fd8: 0fdb INIT_0fd8: 0fdb 00da | | Load_Top At_Offset_2 0fdc 0219 | | Execute Heap_Access,All_Read 0fdd e21a | | Load 0x1,0x1a 0fde 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0fdf e5ff | | Load 0x2,-0x1 0fe0 e00a | | Load 0x0,0xa 0fe1 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0fe2 e21a | | Load 0x1,0x1a 0fe3 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0fe4 00d9 | | Load_Top At_Offset_1 0fe5 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 0fe6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0fe7 0000 | | .XXX[0x1] 0fe8 ; -------------------------------------------------------------------------------------- 0fe8 ; SUBPROGRAM 0fe8 ; -------------------------------------------------------------------------------------- 0fe8 0feb | | .CONST 0x0feb ; Address of begin 0fe9 0004 | | .CONST 0x0004 ; Address of exception handler 0fea 0001 | | .CONST 0x0001 ; Number of locals 0feb BODY_0fe8: 0feb INIT_0fe8: 0feb 00da | | Load_Top At_Offset_2 0fec 0217 | | Execute Heap_Access,All_Reference 0fed 3c14 |< | Execute Record,Field_Read,Field_Number 0x14 0fee e21a | | Load 0x1,0x1a 0fef 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0ff0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ff1 0000 0000 | | .BLANK 0000[0x7] 0ff8 ; -------------------------------------------------------------------------------------- 0ff8 ; SUBPROGRAM 0ff8 ; -------------------------------------------------------------------------------------- 0ff8 0ffb | | .CONST 0x0ffb ; Address of begin 0ff9 0004 | | .CONST 0x0004 ; Address of exception handler 0ffa 0001 | | .CONST 0x0001 ; Number of locals 0ffb BODY_0ff8: 0ffb INIT_0ff8: 0ffb 00da | | Load_Top At_Offset_2 0ffc 0217 | | Execute Heap_Access,All_Reference 0ffd 3c14 |< | Execute Record,Field_Read,Field_Number 0x14 0ffe e21a | | Load 0x1,0x1a 0fff 181d | | Execute Package,Field_Execute,Field_Number 0x1d 1000 4502 |E | Exit_Suprogram New_Top_Offset 0x2 1001 0000 0000 | | .BLANK 0000[0x7] 1008 ; -------------------------------------------------------------------------------------- 1008 ; SUBPROGRAM 1008 ; -------------------------------------------------------------------------------------- 1008 1010 | | .CONST 0x1010 ; Address of begin 1009 0004 | | .CONST 0x0004 ; Address of exception handler 100a 0003 | | .CONST 0x0003 ; Number of locals 100b INIT_1008: 100b e00e | | Load 0x0,0xe 100c 180d | | Execute Package,Field_Execute,Field_Number 0xd 100d e215 | | Load 0x1,0x15 100e 00d9 | | Load_Top At_Offset_1 100f 039c | | Declare_Variable Heap_Access,By_Allocation 1010 BODY_1008: 1010 e5ff | | Load 0x2,-0x1 1011 00d9 | | Load_Top At_Offset_1 1012 0217 | | Execute Heap_Access,All_Reference 1013 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 1014 00d8 | | Load_Top At_Offset_0 1015 0219 | | Execute Heap_Access,All_Read 1016 e21a | | Load 0x1,0x1a 1017 1b20 | | Execute Package,Field_Read,Field_Number 0x20 1018 00db | | Load_Top At_Offset_3 1019 e5ff | | Load 0x2,-0x1 101a 0217 | | Execute Heap_Access,All_Reference 101b 3c14 |< | Execute Record,Field_Read,Field_Number 0x14 101c e21a | | Load 0x1,0x1a 101d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 101e 00d9 | | Load_Top At_Offset_1 101f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 1020 00d1 | | Pop_Control Pop_Count_1 1021 00d8 | | Load_Top At_Offset_0 1022 a5fe | | Store_Unchecked 0x2,-0x2 1023 4502 |E | Exit_Suprogram New_Top_Offset 0x2 1024 0000 0000 | | .BLANK 0000[0x4] 1028 ; -------------------------------------------------------------------------------------- 1028 ; SUBPROGRAM 1028 ; -------------------------------------------------------------------------------------- 1028 102b | + | .CONST 0x102b ; Address of begin 1029 0004 | | .CONST 0x0004 ; Address of exception handler 102a 0001 | | .CONST 0x0001 ; Number of locals 102b BODY_1028: 102b INIT_1028: 102b 00da | | Load_Top At_Offset_2 102c 0219 | | Execute Heap_Access,All_Read 102d 00d8 | | Load_Top At_Offset_0 102e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 102f e21a | | Load 0x1,0x1a 1030 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 1031 00d9 | | Load_Top At_Offset_1 1032 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 1033 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1034 0000 0000 | | .BLANK 0000[0x4] 1038 ; -------------------------------------------------------------------------------------- 1038 ; SUBPROGRAM 1038 ; -------------------------------------------------------------------------------------- 1038 103b | ; | .CONST 0x103b ; Address of begin 1039 0004 | | .CONST 0x0004 ; Address of exception handler 103a 0001 | | .CONST 0x0001 ; Number of locals 103b BODY_1038: 103b INIT_1038: 103b 00da | | Load_Top At_Offset_2 103c 0217 | | Execute Heap_Access,All_Reference 103d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 103e 00db | | Load_Top At_Offset_3 103f 0217 | | Execute Heap_Access,All_Reference 1040 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 1041 e21a | | Load 0x1,0x1a 1042 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 1043 e003 | | Load 0x0,0x3 1044 1817 | | Execute Package,Field_Execute,Field_Number 0x17 1045 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1046 0000 0000 | | .XXX[0x2] 1048 ; -------------------------------------------------------------------------------------- 1048 ; SUBPROGRAM 1048 ; -------------------------------------------------------------------------------------- 1048 104b | K | .CONST 0x104b ; Address of begin 1049 0004 | | .CONST 0x0004 ; Address of exception handler 104a 0001 | | .CONST 0x0001 ; Number of locals 104b BODY_1048: 104b INIT_1048: 104b 00da | | Load_Top At_Offset_2 104c 0217 | | Execute Heap_Access,All_Reference 104d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 104e e21a | | Load 0x1,0x1a 104f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 1050 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1051 0000 0000 | | .BLANK 0000[0x7] 1058 ; -------------------------------------------------------------------------------------- 1058 ; SUBPROGRAM 1058 ; -------------------------------------------------------------------------------------- 1058 109c | | .CONST 0x109c ; Address of begin 1059 0004 | | .CONST 0x0004 ; Address of exception handler 105a 001d | | .CONST 0x001d ; Number of locals 105b INIT_1058: 105b e001 | | Load 0x0,0x1 105c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 105d 0129 | ) | Execute Any,Make_Visible 105e 029a 10a3 | | Declare_Subprogram INIT_10a0,For_Outer_Call,Visible,Unelaborated 1060 029a 10ab | | Declare_Subprogram INIT_10a8,For_Outer_Call,Visible,Unelaborated 1062 029a 10bb | | Declare_Subprogram INIT_10b8,For_Outer_Call,Visible,Unelaborated 1064 029a 10cb | | Declare_Subprogram INIT_10c8,For_Outer_Call,Visible,Unelaborated 1066 029a 10eb | | Declare_Subprogram INIT_10e8,For_Outer_Call,Visible,Unelaborated 1068 029a 10fb | | Declare_Subprogram INIT_10f8,For_Outer_Call,Visible,Unelaborated 106a 029a 110b | | Declare_Subprogram INIT_1108,For_Outer_Call,Visible,Unelaborated 106c 029a 111b | | Declare_Subprogram INIT_1118,For_Outer_Call,Visible,Unelaborated 106e 029a 1123 | #| Declare_Subprogram INIT_1120,For_Outer_Call,Visible,Unelaborated 1070 029a 1133 | 3| Declare_Subprogram INIT_1130,For_Outer_Call,Visible,Unelaborated 1072 e001 | | Load 0x0,0x1 1073 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 1074 0129 | ) | Execute Any,Make_Visible 1075 029a 1143 | C| Declare_Subprogram INIT_1140,For_Outer_Call,Visible,Unelaborated 1077 029a 115b | [| Declare_Subprogram INIT_1158,For_Outer_Call,Visible,Unelaborated 1079 029a 116b | k| Declare_Subprogram INIT_1168,For_Outer_Call,Visible,Unelaborated 107b 029a 117b | {| Declare_Subprogram INIT_1178,For_Outer_Call,Visible,Unelaborated 107d 00bf | | Action Accept_Activation 107e 1d0e | | Execute_Immediate Reference_Lex_1,0xe 107f 00c7 | | Action Elaborate_Subprogram 1080 1d0f | | Execute_Immediate Reference_Lex_1,0xf 1081 00c7 | | Action Elaborate_Subprogram 1082 1d10 | | Execute_Immediate Reference_Lex_1,0x10 1083 00c7 | | Action Elaborate_Subprogram 1084 1d12 | | Execute_Immediate Reference_Lex_1,0x12 1085 00c7 | | Action Elaborate_Subprogram 1086 1d13 | | Execute_Immediate Reference_Lex_1,0x13 1087 00c7 | | Action Elaborate_Subprogram 1088 1d14 | | Execute_Immediate Reference_Lex_1,0x14 1089 00c7 | | Action Elaborate_Subprogram 108a 029d 1183 | | Declare_Subprogram INIT_1180,For_Outer_Call 108c 1d19 | | Execute_Immediate Reference_Lex_1,0x19 108d 00c7 | | Action Elaborate_Subprogram 108e 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 108f 00c7 | | Action Elaborate_Subprogram 1090 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 1091 00c7 | | Action Elaborate_Subprogram 1092 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 1093 00c7 | | Action Elaborate_Subprogram 1094 1d15 | | Execute_Immediate Reference_Lex_1,0x15 1095 00c7 | | Action Elaborate_Subprogram 1096 1d16 | | Execute_Immediate Reference_Lex_1,0x16 1097 00c7 | | Action Elaborate_Subprogram 1098 1d17 | | Execute_Immediate Reference_Lex_1,0x17 1099 00c7 | | Action Elaborate_Subprogram 109a 1d11 | | Execute_Immediate Reference_Lex_1,0x11 109b 00c7 | | Action Elaborate_Subprogram 109c BODY_1058: 109c 00bc | | Action Signal_Activated 109d 00bb | | Action Signal_Completion 109e 0000 0000 | | .XXX[0x2] 10a0 ; -------------------------------------------------------------------------------------- 10a0 ; SUBPROGRAM 10a0 ; -------------------------------------------------------------------------------------- 10a0 10a3 | | .CONST 0x10a3 ; Address of begin 10a1 0004 | | .CONST 0x0004 ; Address of exception handler 10a2 0001 | | .CONST 0x0001 ; Number of locals 10a3 BODY_10a0: 10a3 INIT_10a0: 10a3 e001 | | Load 0x0,0x1 10a4 1814 | | Execute Package,Field_Execute,Field_Number 0x14 10a5 e20d | | Load 0x1,0xd 10a6 0216 | | Execute Heap_Access,Convert 10a7 00ca | | Action Exit_Nullary_Function 10a8 ; -------------------------------------------------------------------------------------- 10a8 ; SUBPROGRAM 10a8 ; -------------------------------------------------------------------------------------- 10a8 10ab | | .CONST 0x10ab ; Address of begin 10a9 0004 | | .CONST 0x0004 ; Address of exception handler 10aa 0001 | | .CONST 0x0001 ; Number of locals 10ab BODY_10a8: 10ab INIT_10a8: 10ab 4801 |H | Short_Literal 0x1 10ac e5fe | | Load 0x2,-0x2 10ad 0217 | | Execute Heap_Access,All_Reference 10ae 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 10af e001 | | Load 0x0,0x1 10b0 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 10b1 e5ff | | Load 0x2,-0x1 10b2 e001 | | Load 0x0,0x1 10b3 1815 | | Execute Package,Field_Execute,Field_Number 0x15 10b4 e20d | | Load 0x1,0xd 10b5 0216 | | Execute Heap_Access,Convert 10b6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 10b7 0000 | | .XXX[0x1] 10b8 ; -------------------------------------------------------------------------------------- 10b8 ; SUBPROGRAM 10b8 ; -------------------------------------------------------------------------------------- 10b8 10bb | | .CONST 0x10bb ; Address of begin 10b9 0004 | | .CONST 0x0004 ; Address of exception handler 10ba 0001 | | .CONST 0x0001 ; Number of locals 10bb BODY_10b8: 10bb INIT_10b8: 10bb 4801 |H | Short_Literal 0x1 10bc e5fe | | Load 0x2,-0x2 10bd 0217 | | Execute Heap_Access,All_Reference 10be 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 10bf e001 | | Load 0x0,0x1 10c0 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 10c1 e5ff | | Load 0x2,-0x1 10c2 e001 | | Load 0x0,0x1 10c3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 10c4 e20d | | Load 0x1,0xd 10c5 0216 | | Execute Heap_Access,Convert 10c6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 10c7 0000 | | .XXX[0x1] 10c8 ; -------------------------------------------------------------------------------------- 10c8 ; SUBPROGRAM 10c8 ; -------------------------------------------------------------------------------------- 10c8 10d3 | | .CONST 0x10d3 ; Address of begin 10c9 0004 | | .CONST 0x0004 ; Address of exception handler 10ca 0003 | | .CONST 0x0003 ; Number of locals 10cb INIT_10c8: 10cb 00db | | Load_Top At_Offset_3 10cc e002 | | Load 0x0,0x2 10cd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 10ce 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 10cf 00db | | Load_Top At_Offset_3 10d0 e002 | | Load 0x0,0x2 10d1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 10d2 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 10d3 BODY_10c8: 10d3 e5fd | | Load 0x2,-0x3 10d4 00da | | Load_Top At_Offset_2 10d5 01dd | | Execute Vector,First 10d6 00da | | Load_Top At_Offset_2 10d7 01db | | Execute Vector,Length 10d8 0273 | s | Execute Discrete,Plus 10d9 00d8 | | Load_Top At_Offset_0 10da 00e2 | | Load_Encached Integer_Cache 10db 0260 | ` | Execute Discrete,In_Type 10dc 7001 |p | Jump_Nonzero 0x10de 10dd 0801 | | Execute_Immediate Raise,0x1 10de 00db | | Load_Top At_Offset_3 10df 01dc | | Execute Vector,Last 10e0 e402 | | Load 0x2,0x2 10e1 01cf | | Execute Vector,Slice_Read 10e2 820f | | Call 0x1,0xf 10e3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 10e4 0000 0000 | | .BLANK 0000[0x4] 10e8 ; -------------------------------------------------------------------------------------- 10e8 ; SUBPROGRAM 10e8 ; -------------------------------------------------------------------------------------- 10e8 10eb | | .CONST 0x10eb ; Address of begin 10e9 0004 | | .CONST 0x0004 ; Address of exception handler 10ea 0001 | | .CONST 0x0001 ; Number of locals 10eb BODY_10e8: 10eb INIT_10e8: 10eb 00da | | Load_Top At_Offset_2 10ec e001 | | Load 0x0,0x1 10ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd 10ee 0216 | | Execute Heap_Access,Convert 10ef e001 | | Load 0x0,0x1 10f0 181b | | Execute Package,Field_Execute,Field_Number 0x1b 10f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 10f2 0000 0000 | | .BLANK 0000[0x6] 10f8 ; -------------------------------------------------------------------------------------- 10f8 ; SUBPROGRAM 10f8 ; -------------------------------------------------------------------------------------- 10f8 10fb | | .CONST 0x10fb ; Address of begin 10f9 0004 | | .CONST 0x0004 ; Address of exception handler 10fa 0001 | | .CONST 0x0001 ; Number of locals 10fb BODY_10f8: 10fb INIT_10f8: 10fb 00da | | Load_Top At_Offset_2 10fc e001 | | Load 0x0,0x1 10fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 10fe 0216 | | Execute Heap_Access,Convert 10ff e001 | | Load 0x0,0x1 1100 181c | | Execute Package,Field_Execute,Field_Number 0x1c 1101 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1102 0000 0000 | | .BLANK 0000[0x6] 1108 ; -------------------------------------------------------------------------------------- 1108 ; SUBPROGRAM 1108 ; -------------------------------------------------------------------------------------- 1108 110b | | .CONST 0x110b ; Address of begin 1109 0004 | | .CONST 0x0004 ; Address of exception handler 110a 0001 | | .CONST 0x0001 ; Number of locals 110b BODY_1108: 110b INIT_1108: 110b 00da | | Load_Top At_Offset_2 110c e001 | | Load 0x0,0x1 110d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 110e 0216 | | Execute Heap_Access,Convert 110f e001 | | Load 0x0,0x1 1110 181d | | Execute Package,Field_Execute,Field_Number 0x1d 1111 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1112 0000 0000 | | .BLANK 0000[0x6] 1118 ; -------------------------------------------------------------------------------------- 1118 ; SUBPROGRAM 1118 ; -------------------------------------------------------------------------------------- 1118 111b | | .CONST 0x111b ; Address of begin 1119 0004 | | .CONST 0x0004 ; Address of exception handler 111a 0001 | | .CONST 0x0001 ; Number of locals 111b BODY_1118: 111b INIT_1118: 111b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 111c 0000 0000 | | .BLANK 0000[0x4] 1120 ; -------------------------------------------------------------------------------------- 1120 ; SUBPROGRAM 1120 ; -------------------------------------------------------------------------------------- 1120 1123 | # | .CONST 0x1123 ; Address of begin 1121 0004 | | .CONST 0x0004 ; Address of exception handler 1122 0001 | | .CONST 0x0001 ; Number of locals 1123 BODY_1120: 1123 INIT_1120: 1123 00da | | Load_Top At_Offset_2 1124 e001 | | Load 0x0,0x1 1125 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1126 0216 | | Execute Heap_Access,Convert 1127 e001 | | Load 0x0,0x1 1128 1813 | | Execute Package,Field_Execute,Field_Number 0x13 1129 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 112a 0000 0000 | | .BLANK 0000[0x6] 1130 ; -------------------------------------------------------------------------------------- 1130 ; SUBPROGRAM 1130 ; -------------------------------------------------------------------------------------- 1130 1133 | 3 | .CONST 0x1133 ; Address of begin 1131 0004 | | .CONST 0x0004 ; Address of exception handler 1132 0001 | | .CONST 0x0001 ; Number of locals 1133 BODY_1130: 1133 INIT_1130: 1133 00db | | Load_Top At_Offset_3 1134 0217 | | Execute Heap_Access,All_Reference 1135 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 1136 e001 | | Load 0x0,0x1 1137 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 1138 00db | | Load_Top At_Offset_3 1139 e001 | | Load 0x0,0x1 113a 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 113b e20d | | Load 0x1,0xd 113c 0216 | | Execute Heap_Access,Convert 113d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 113e 0000 0000 | | .XXX[0x2] 1140 ; -------------------------------------------------------------------------------------- 1140 ; SUBPROGRAM 1140 ; -------------------------------------------------------------------------------------- 1140 1143 | C | .CONST 0x1143 ; Address of begin 1141 0004 | | .CONST 0x0004 ; Address of exception handler 1142 0001 | | .CONST 0x0001 ; Number of locals 1143 BODY_1140: 1143 INIT_1140: 1143 00db | | Load_Top At_Offset_3 1144 0120 | | Execute Any,Is_Value 1145 6803 |h | Jump_Zero 0x1149 1146 e001 | | Load 0x0,0x1 1147 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 1148 7804 |x | Jump 0x114d 1149 00db | | Load_Top At_Offset_3 114a e001 | | Load 0x0,0x1 114b 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 114c 011e | | Execute Any,Convert 114d 00db | | Load_Top At_Offset_3 114e 0217 | | Execute Heap_Access,All_Reference 114f 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 1150 e001 | | Load 0x0,0x1 1151 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 1152 e001 | | Load 0x0,0x1 1153 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 1154 c5fe | | Store 0x2,-0x2 1155 4502 |E | Exit_Suprogram New_Top_Offset 0x2 1156 0000 0000 | | .XXX[0x2] 1158 ; -------------------------------------------------------------------------------------- 1158 ; SUBPROGRAM 1158 ; -------------------------------------------------------------------------------------- 1158 115b | [ | .CONST 0x115b ; Address of begin 1159 0004 | | .CONST 0x0004 ; Address of exception handler 115a 0001 | | .CONST 0x0001 ; Number of locals 115b BODY_1158: 115b INIT_1158: 115b 00da | | Load_Top At_Offset_2 115c e001 | | Load 0x0,0x1 115d 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 115e 011e | | Execute Any,Convert 115f e001 | | Load 0x0,0x1 1160 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 1161 c5ff | | Store 0x2,-0x1 1162 4501 |E | Exit_Suprogram New_Top_Offset 0x1 1163 0000 0000 | | .BLANK 0000[0x5] 1168 ; -------------------------------------------------------------------------------------- 1168 ; SUBPROGRAM 1168 ; -------------------------------------------------------------------------------------- 1168 116b | k | .CONST 0x116b ; Address of begin 1169 0004 | | .CONST 0x0004 ; Address of exception handler 116a 0001 | | .CONST 0x0001 ; Number of locals 116b BODY_1168: 116b INIT_1168: 116b 00da | | Load_Top At_Offset_2 116c e001 | | Load 0x0,0x1 116d 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 116e e20d | | Load 0x1,0xd 116f 0216 | | Execute Heap_Access,Convert 1170 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 1171 0000 0000 | | .BLANK 0000[0x7] 1178 ; -------------------------------------------------------------------------------------- 1178 ; SUBPROGRAM 1178 ; -------------------------------------------------------------------------------------- 1178 117b | { | .CONST 0x117b ; Address of begin 1179 0004 | | .CONST 0x0004 ; Address of exception handler 117a 0001 | | .CONST 0x0001 ; Number of locals 117b BODY_1178: 117b INIT_1178: 117b 00da | | Load_Top At_Offset_2 117c e001 | | Load 0x0,0x1 117d 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 117e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 117f 0000 | | .XXX[0x1] 1180 ; -------------------------------------------------------------------------------------- 1180 ; SUBPROGRAM 1180 ; -------------------------------------------------------------------------------------- 1180 1183 | | .CONST 0x1183 ; Address of begin 1181 0004 | | .CONST 0x0004 ; Address of exception handler 1182 0001 | | .CONST 0x0001 ; Number of locals 1183 BODY_1180: 1183 INIT_1180: 1183 00da | | Load_Top At_Offset_2 1184 e001 | | Load 0x0,0x1 1185 1b0d | | Execute Package,Field_Read,Field_Number 0xd 1186 0216 | | Execute Heap_Access,Convert 1187 e001 | | Load 0x0,0x1 1188 1819 | | Execute Package,Field_Execute,Field_Number 0x19 1189 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 118a ; -------------------------------------------------------------------------------------- 118a ; STRING TABLE 118a ; -------------------------------------------------------------------------------------- 118a 0024 | $ | .STRTAB 0x0024->0x119c ; "OTHER_SUBCLASS" 118b 0030 | 0 | .STRTAB 0x0030->0x11a3 ; "VIEW_SUBCLASS" 118c 003b | ; | .STRTAB 0x003b->0x11a9 ; "SUBSYSTEM_SUBCLASS" 118d 004b | K | .STRTAB 0x004b->0x11b2 ; "WORLD_SUBCLASS" 118e 0057 | W | .STRTAB 0x0057->0x11b9 ; "ACTIVITY_SUBCLASS" 118f 0066 | f | .STRTAB 0x0066->0x11c2 ; "NIL" 1190 0067 | g | .STRTAB 0x0067->0x11c3 ; "IMPORT" 1191 006b | k | .STRTAB 0x006b->0x11c6 ; "LINK" 1192 006d | m | .STRTAB 0x006d->0x11c8 ; "DEBUG_HISTORY_ENTRIES" 1193 0080 | | .STRTAB 0x0080->0x11d3 ; "WINDOW_SHIFT_OVERLAP" 1194 0092 | | .STRTAB 0x0092->0x11dd ; "State file for " 1195 009f | | .STRTAB 0x009f->0x11e4 ; " is being abandoned." 1196 00b1 | | .STRTAB 0x00b1->0x11ee ; " has been closed." 1197 00c0 | | .STRTAB 0x00c0->0x11f7 ; "Harmonizing the state." 1198 00d4 | | .STRTAB 0x00d4->0x1202 ; "<DEFAULT>" 1199 00db | | .STRTAB 0x00db->0x1206 ; "Bad Name_Status when resolving " 119a 00f8 | | .STRTAB 0x00f8->0x1216 ; ". Invalidate its Unit.Data." 119b 0111 | | .STREND 0x0111->0x1223 119c 4f54 4845 |OTHE| .STRTAB_STRINGS 1224 0000 0000 | | .BLANK 0000[0x4] 1228 ; -------------------------------------------------------------------------------------- 1228 ; Debug Table 1228 ; -------------------------------------------------------------------------------------- 1228 0004 000a | | .DEBUG4 0x0004,0x000a,0xe362,0x0000,0x0001,0x0000 122e 0000 0000 | | .XXX[0xe] 1230 5aca 1700 |Z | 1232 08da 0000 | | 1234 001c 039b | | 1236 850b 8004 | | 1238 1103 0000 | | 123a 0000 000e | | 123c 0000 0000 | | .BLANK 0000[0x4] 1240 00e6 e542 | B| .XXX[0xc] 1242 e001 1e40 | @| 1244 0000 0380 | | 1246 75ad 2170 |u !p| 1248 1203 0000 | | 124a 0000 000e | | 124c 0000 0000 | | .BLANK 0000[0x4] 1250 00e0 1cef | | .XXX[0xc] 1252 485c 0024 |H\ $| 1254 4800 0000 |H | 1256 700e 77c4 |p w | 1258 1303 0000 | | 125a 0000 000e | | 125c 0000 0000 | | .BLANK 0000[0x5] 1261 1c03 ad7d | }| .XXX[0xb] 1263 0b80 04a9 | | 1265 0000 000e | | 1267 01d6 1401 | | 1269 0000 0000 | | 126b 000e | | 126c 0000 0000 | | .BLANK 0000[0x4] 1270 4000 0003 |@ | .XXX[0xc] 1272 8075 b1a1 | u | 1274 7000 98a0 |p | 1276 0000 01c0 | | 1278 1502 0000 | | 127a 0000 000e | | 127c 0000 0000 | | .BLANK 0000[0x4] 1280 26c8 0000 |& | .XXX[0xc] 1282 0070 0eb6 | p | 1284 842e 0013 | . | 1286 9400 0000 | | 1288 1601 0000 | | 128a 0000 000e | | 128c 0000 0000 | | .BLANK 0000[0x4] 1290 8004 f900 | | .XXX[0xc] 1292 0000 0e01 | | 1294 d6de 85c0 | | 1296 0286 8000 | | 1298 1702 0000 | | 129a 0000 000e | | 129c 0000 0000 | | .BLANK 0000[0x4] 12a0 a170 00a4 | p | .XXX[0xc] 12a2 a000 0001 | | 12a4 c039 f310 | 9 | 12a6 b800 5290 | R | 12a8 1801 0000 | | 12aa 0000 000e | | 12ac 0000 0000 | | .BLANK 0000[0x4] 12b0 7da4 2e00 |} . | .XXX[0xa] 12b2 14e4 0000 | | 12b4 0038 073e | 8 >| 12b6 e217 0005 | | 12b8 0c0f a400 | | 12ba 0000 0000 | | .BLANK 0000[0x4] 12be 0004 0000 | | .XXX[0x88] 12c0 0141 28f4 | A( | 12c2 0800 16c6 | | 12c4 18aa e814 | | 12c6 0001 f9b3 | | 12c8 0141 28f4 | A( | 12ca 0800 16c6 | | 12cc 17aa e814 | | 12ce 0001 fab3 | | 12d0 0141 28f4 | A( | 12d2 0800 16c6 | | 12d4 16aa e814 | | 12d6 0001 fb33 | 3| 12d8 0141 28f4 | A( | 12da 0800 16c6 | | 12dc 15aa e814 | | 12de 0001 fbb3 | | 12e0 0141 28f4 | A( | 12e2 0800 16c6 | | 12e4 14aa e814 | | 12e6 0001 fc33 | 3| 12e8 0141 28f4 | A( | 12ea 0800 16c6 | | 12ec 13aa e814 | | 12ee 0001 fcb3 | | 12f0 0141 28f4 | A( | 12f2 0800 16c6 | | 12f4 12aa e814 | | 12f6 0001 fdb3 | | 12f8 0141 28f4 | A( | 12fa 0800 16c6 | | 12fc 11aa e814 | | 12fe 0001 feb3 | | 1300 0141 28f4 | A( | 1302 0800 16c6 | | 1304 10aa e814 | | 1306 0001 ffb3 | | 1308 0141 28f4 | A( | 130a 0800 16c6 | | 130c 0faa e814 | | 130e 0002 00b3 | | 1310 0141 28f4 | A( | 1312 0800 16c6 | | 1314 0eaa e814 | | 1316 0002 01b3 | | 1318 000e 042e | .| 131a 0fe5 9c00 | | 131c 00ba 6800 | h | 131e 13a0 0000 | | 1320 0fd1 a300 | | 1322 0008 0000 | | 1324 0000 6580 | e | 1326 00a0 947a | z| 1328 07f2 ce85 | | 132a 8000 0040 | @| 132c 2170 7f2c |!p ,| 132e f086 c000 | | 1330 0000 0000 | | 1332 0008 6350 | cP| 1334 b83f 9671 | ? q| 1336 03f9 6742 | gB| 1338 c000 0400 | | 133a 0000 cb00 | | 133c 0141 28f4 | A( | 133e 0000 0000 | | 1340 0000 0023 | #| 1342 9d42 e0fe | B | 1344 59c0 0f00 |Y | 1346 0000 0000 | | .BLANK 0000[0x5] 134b 0200 | | .XXX[0x1] 134c 0000 0000 | | .BLANK 0000[0xb] 1357 001f ffff | | .XXX[0x3] 1359 ffe0 | | 135a 0101 0101 | | .BLANK 0101[0x81] 13db 0100 0080 | | .XXX[0x2] 13dd 8080 8080 | | .BLANK 8080[0x23]