|
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: 7168 (0x1c00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0db0 | | .CONST 0x0db0 ; 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 8008 | | .CONST 0x8008 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0183 | | .CONST 0x0183 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0069 | i | .CONST 0x0069 ; Number of locals 000b INIT_0008: 000b 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 000c e001 | | Load 0x0,0x1 000d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 000e 0129 | ) | Execute Any,Make_Visible 000f e001 | | Load 0x0,0x1 0010 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0011 0129 | ) | Execute Any,Make_Visible 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b 00c4 | | Action Make_Default 002c 00c4 | | Action Make_Default 002d 00c4 | | Action Make_Default 002e 00c4 | | Action Make_Default 002f 00c4 | | Action Make_Default 0030 00c4 | | Action Make_Default 0031 00c4 | | Action Make_Default 0032 00c4 | | Action Make_Default 0033 00c4 | | Action Make_Default 0034 00c4 | | Action Make_Default 0035 00c4 | | Action Make_Default 0036 00c4 | | Action Make_Default 0037 00c4 | | Action Make_Default 0038 00c4 | | Action Make_Default 0039 00c4 | | Action Make_Default 003a 00c4 | | Action Make_Default 003b 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 003d c233 | 3 | Store 0x1,0x33 003e 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 0040 c211 | | Store 0x1,0x11 0041 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0043 c235 | 5 | Store 0x1,0x35 0044 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 0046 c212 | | Store 0x1,0x12 0047 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated 0049 c236 | 6 | Store 0x1,0x36 004a 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated 004c c214 | | Store 0x1,0x14 004d 029a 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call,Visible,Unelaborated 004f c215 | | Store 0x1,0x15 0050 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated 0052 c216 | | Store 0x1,0x16 0053 029a 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call,Visible,Unelaborated 0055 c217 | | Store 0x1,0x17 0056 029a 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call,Visible,Unelaborated 0058 c22f | / | Store 0x1,0x2f 0059 029a 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call,Visible,Unelaborated 005b c238 | 8 | Store 0x1,0x38 005c 029a 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call,Visible,Unelaborated 005e c21a | | Store 0x1,0x1a 005f 029a 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call,Visible,Unelaborated 0061 c21b | | Store 0x1,0x1b 0062 029a 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call,Visible,Unelaborated 0064 c237 | 7 | Store 0x1,0x37 0065 029a 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call,Visible,Unelaborated 0067 c21c | | Store 0x1,0x1c 0068 029a 053b | ;| Declare_Subprogram INIT_0538,For_Outer_Call,Visible,Unelaborated 006a c21d | | Store 0x1,0x1d 006b 029a 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call,Visible,Unelaborated 006d c21e | | Store 0x1,0x1e 006e 029a 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call,Visible,Unelaborated 0070 c21f | | Store 0x1,0x1f 0071 029a 0563 | c| Declare_Subprogram INIT_0560,For_Outer_Call,Visible,Unelaborated 0073 c220 | | Store 0x1,0x20 0074 029a 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call,Visible,Unelaborated 0076 c221 | ! | Store 0x1,0x21 0077 029a 0583 | | Declare_Subprogram INIT_0580,For_Outer_Call,Visible,Unelaborated 0079 c222 | " | Store 0x1,0x22 007a 029a 058b | | Declare_Subprogram INIT_0588,For_Outer_Call,Visible,Unelaborated 007c c223 | # | Store 0x1,0x23 007d 029a 05e3 | | Declare_Subprogram INIT_05e0,For_Outer_Call,Visible,Unelaborated 007f c224 | $ | Store 0x1,0x24 0080 029a 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call,Visible,Unelaborated 0082 c225 | % | Store 0x1,0x25 0083 029a 0623 | #| Declare_Subprogram INIT_0620,For_Outer_Call,Visible,Unelaborated 0085 c234 | 4 | Store 0x1,0x34 0086 029a 0643 | C| Declare_Subprogram INIT_0640,For_Outer_Call,Visible,Unelaborated 0088 c230 | 0 | Store 0x1,0x30 0089 029a 067b | {| Declare_Subprogram INIT_0678,For_Outer_Call,Visible,Unelaborated 008b c231 | 1 | Store 0x1,0x31 008c 029a 068b | | Declare_Subprogram INIT_0688,For_Outer_Call,Visible,Unelaborated 008e c228 | ( | Store 0x1,0x28 008f 029a 069b | | Declare_Subprogram INIT_0698,For_Outer_Call,Visible,Unelaborated 0091 c229 | ) | Store 0x1,0x29 0092 029a 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call,Visible,Unelaborated 0094 c22a | * | Store 0x1,0x2a 0095 029a 06e3 | | Declare_Subprogram INIT_06e0,For_Outer_Call,Visible,Unelaborated 0097 c22b | + | Store 0x1,0x2b 0098 029a 073b | ;| Declare_Subprogram INIT_0738,For_Outer_Call,Visible,Unelaborated 009a c22c | , | Store 0x1,0x2c 009b 4806 |H | Short_Literal 0x6 009c 0093 0cf3 | | push_full_address INIT_0cf0 009e 02a0 | | Declare_Subprogram Null_Subprogram 009f 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 00a0 c22d | - | Store 0x1,0x2d 00a1 480a |H | Short_Literal 0xa 00a2 032a | * | Declare_Type Record,Incomplete 00a3 c22e | . | Store 0x1,0x2e 00a4 e22e | . | Load 0x1,0x2e 00a5 02a0 | | Declare_Subprogram Null_Subprogram 00a6 e20d | | Load 0x1,0xd 00a7 03a3 | | Complete_Type Heap_Access,By_Defining 00a8 00bf | | Action Accept_Activation 00a9 0092 0d3b | ;| Action Push_String_Extended,0xd3b ; "!IO" 00ab 0092 0d3c | <| Action Push_String_Extended,0xd3c ; "!LRM" 00ad 4802 |H | Short_Literal 0x2 00ae 032a | * | Declare_Type Record,Incomplete 00af 00d8 | | Load_Top At_Offset_0 00b0 02a0 | | Declare_Subprogram Null_Subprogram 00b1 03ad | | Declare_Type Heap_Access,Defined 00b2 e002 | | Load 0x0,0x2 00b3 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b5 00d9 | | Load_Top At_Offset_1 00b6 02a0 | | Declare_Subprogram Null_Subprogram 00b7 e23b | ; | Load 0x1,0x3b 00b8 0326 | & | Complete_Type Record,By_Defining 00b9 4806 |H | Short_Literal 0x6 00ba 032a | * | Declare_Type Record,Incomplete 00bb 00d8 | | Load_Top At_Offset_0 00bc 02a0 | | Declare_Subprogram Null_Subprogram 00bd 03ad | | Declare_Type Heap_Access,Defined 00be 00d8 | | Load_Top At_Offset_0 00bf e002 | | Load 0x0,0x2 00c0 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c2 e002 | | Load 0x0,0x2 00c3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c4 e003 | | Load 0x0,0x3 00c5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00c6 e23c | < | Load 0x1,0x3c 00c7 00e2 | | Load_Encached Integer_Cache 00c8 029f 07ab | | Declare_Subprogram INIT_07a8,For_Call 00ca e23d | = | Load 0x1,0x3d 00cb 0326 | & | Complete_Type Record,By_Defining 00cc e004 | | Load 0x0,0x4 00cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ce e005 | | Load 0x0,0x5 00cf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d0 e20e | | Load 0x1,0xe 00d1 e20f | | Load 0x1,0xf 00d2 e23e | > | Load 0x1,0x3e 00d3 00e2 | | Load_Encached Integer_Cache 00d4 00e2 | | Load_Encached Integer_Cache 00d5 e003 | | Load 0x0,0x3 00d6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00d7 00e1 | | Load_Encached Boolean_Cache 00d8 e006 | | Load 0x0,0x6 00d9 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00da 029f 07cb | | Declare_Subprogram INIT_07c8,For_Call 00dc e22e | . | Load 0x1,0x2e 00dd 0326 | & | Complete_Type Record,By_Defining 00de 029b 07e3 | | Declare_Subprogram INIT_07e0,For_Outer_Call,Unelaborated 00e0 029d 07f3 | | Declare_Subprogram INIT_07f0,For_Outer_Call 00e2 a007 | | Store_Unchecked 0x0,0x7 00e3 00c6 | | Action Check_Subprogram_Elaborated 00e4 e002 | | Load 0x0,0x2 00e5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e7 00e3 | | Load_Encached Natural_Cache 00e8 e002 | | Load 0x0,0x2 00e9 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00ea 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00eb 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 00ec e008 | | Load 0x0,0x8 00ed e009 | | Load 0x0,0x9 00ee 4800 |H | Short_Literal 0x0 00ef 0007 | | Action Break_Optional 00f0 029d 0803 | | Declare_Subprogram INIT_0800,For_Outer_Call 00f2 029d 0823 | #| Declare_Subprogram INIT_0820,For_Outer_Call 00f4 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 00f5 00c7 | | Action Elaborate_Subprogram 00f6 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00f7 00c7 | | Action Elaborate_Subprogram 00f8 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 00f9 00c7 | | Action Elaborate_Subprogram 00fa 029d 0843 | C| Declare_Subprogram INIT_0840,For_Outer_Call 00fc 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00fd 00c7 | | Action Elaborate_Subprogram 00fe 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 00ff 00c7 | | Action Elaborate_Subprogram 0100 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0101 00c7 | | Action Elaborate_Subprogram 0102 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0103 00c7 | | Action Elaborate_Subprogram 0104 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0105 00c7 | | Action Elaborate_Subprogram 0106 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0107 00c7 | | Action Elaborate_Subprogram 0108 029d 08ab | | Declare_Subprogram INIT_08a8,For_Outer_Call 010a 029d 08eb | | Declare_Subprogram INIT_08e8,For_Outer_Call 010c 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 010d 00c7 | | Action Elaborate_Subprogram 010e 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 010f 00c7 | | Action Elaborate_Subprogram 0110 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 0111 00c7 | | Action Elaborate_Subprogram 0112 029d 092b | +| Declare_Subprogram INIT_0928,For_Outer_Call 0114 029d 09e3 | | Declare_Subprogram INIT_09e0,For_Outer_Call 0116 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 0117 00c7 | | Action Elaborate_Subprogram 0118 029d 0a33 | 3| Declare_Subprogram INIT_0a30,For_Outer_Call 011a 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 011b 00c7 | | Action Elaborate_Subprogram 011c 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 011d 00c7 | | Action Elaborate_Subprogram 011e 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 011f 00c7 | | Action Elaborate_Subprogram 0120 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 0121 00c7 | | Action Elaborate_Subprogram 0122 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0123 00c7 | | Action Elaborate_Subprogram 0124 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0125 00c7 | | Action Elaborate_Subprogram 0126 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0127 00c7 | | Action Elaborate_Subprogram 0128 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0129 00c7 | | Action Elaborate_Subprogram 012a e00a | | Load 0x0,0xa 012b e00b | | Load 0x0,0xb 012c e22e | . | Load 0x1,0x2e 012d e20d | | Load 0x1,0xd 012e e00c | | Load 0x0,0xc 012f 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0130 0387 | | Declare_Variable Package 0131 00d8 | | Load_Top At_Offset_0 0132 020f | | Execute Module,Activate 0133 e00c | | Load 0x0,0xc 0134 1919 | | Execute Package,Field_Reference,Field_Number 0x19 0135 00c6 | | Action Check_Subprogram_Elaborated 0136 e22e | . | Load 0x1,0x2e 0137 e20d | | Load 0x1,0xd 0138 e00d | | Load 0x0,0xd 0139 e00e | | Load 0x0,0xe 013a 4800 |H | Short_Literal 0x0 013b 0007 | | Action Break_Optional 013c e00f | | Load 0x0,0xf 013d 193c | < | Execute Package,Field_Reference,Field_Number 0x3c 013e 00c6 | | Action Check_Subprogram_Elaborated 013f e20d | | Load 0x1,0xd 0140 4813 |H | Short_Literal 0x13 0141 e250 | P | Load 0x1,0x50 0142 1911 | | Execute Package,Field_Reference,Field_Number 0x11 0143 e250 | P | Load 0x1,0x50 0144 1912 | | Execute Package,Field_Reference,Field_Number 0x12 0145 e010 | | Load 0x0,0x10 0146 e011 | | Load 0x0,0x11 0147 4800 |H | Short_Literal 0x0 0148 0007 | | Action Break_Optional 0149 029d 0aab | | Declare_Subprogram INIT_0aa8,For_Outer_Call 014b e00f | | Load 0x0,0xf 014c 193d | = | Execute Package,Field_Reference,Field_Number 0x3d 014d 00c6 | | Action Check_Subprogram_Elaborated 014e e20d | | Load 0x1,0xd 014f 4813 |H | Short_Literal 0x13 0150 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d 0151 e20d | | Load 0x1,0xd 0152 e012 | | Load 0x0,0x12 0153 e013 | | Load 0x0,0x13 0154 4800 |H | Short_Literal 0x0 0155 0007 | | Action Break_Optional 0156 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0157 00c7 | | Action Elaborate_Subprogram 0158 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0159 00c7 | | Action Elaborate_Subprogram 015a 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 015b 00c7 | | Action Elaborate_Subprogram 015c 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 015d 00c7 | | Action Elaborate_Subprogram 015e 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 015f 00c7 | | Action Elaborate_Subprogram 0160 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 0161 00c7 | | Action Elaborate_Subprogram 0162 029d 0ac3 | | Declare_Subprogram INIT_0ac0,For_Outer_Call 0164 029d 0b33 | 3| Declare_Subprogram INIT_0b30,For_Outer_Call 0166 029d 0b6b | k| Declare_Subprogram INIT_0b68,For_Outer_Call 0168 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 0169 00c7 | | Action Elaborate_Subprogram 016a 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 016b 00c7 | | Action Elaborate_Subprogram 016c 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 016d 00c7 | | Action Elaborate_Subprogram 016e 029d 0b83 | | Declare_Subprogram INIT_0b80,For_Outer_Call 0170 029d 0c0b | | Declare_Subprogram INIT_0c08,For_Outer_Call 0172 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0173 00c7 | | Action Elaborate_Subprogram 0174 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 0175 00c7 | | Action Elaborate_Subprogram 0176 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 0177 00c7 | | Action Elaborate_Subprogram 0178 e00c | | Load 0x0,0xc 0179 e014 | | Load 0x0,0x14 017a e015 | | Load 0x0,0x15 017b e016 | | Load 0x0,0x16 017c e017 | | Load 0x0,0x17 017d e018 | | Load 0x0,0x18 017e 4806 |H | Short_Literal 0x6 017f e22d | - | Load 0x1,0x2d 0180 020e | | Execute Module,Augment_Imports 0181 e22d | - | Load 0x1,0x2d 0182 020d | | Execute Module,Elaborate 0183 BODY_0008: 0183 00bc | | Action Signal_Activated 0184 00bb | | Action Signal_Completion 0185 0000 0000 | | .XXX[0x3] 0187 0000 | | 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 01b3 | | .CONST 0x01b3 ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0002 | | .CONST 0x0002 ; Number of locals 018b INIT_0188: 018b e22e | . | Load 0x1,0x2e 018c 0322 | " | Declare_Variable Record 018d e5fa | | Load 0x2,-0x6 018e 00d9 | | Load_Top At_Offset_1 018f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0190 e5fe | | Load 0x2,-0x2 0191 00d9 | | Load_Top At_Offset_1 0192 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0193 4800 |H | Short_Literal 0x0 0194 00d9 | | Load_Top At_Offset_1 0195 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0196 e5fd | | Load 0x2,-0x3 0197 00d9 | | Load_Top At_Offset_1 0198 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0199 e23e | > | Load 0x1,0x3e 019a 00d9 | | Load_Top At_Offset_1 019b 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 019c 4800 |H | Short_Literal 0x0 019d 00d9 | | Load_Top At_Offset_1 019e 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 019f 4800 |H | Short_Literal 0x0 01a0 00d9 | | Load_Top At_Offset_1 01a1 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 01a2 e003 | | Load 0x0,0x3 01a3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01a4 e22e | . | Load 0x1,0x2e 01a5 3007 |0 | Execute Record,Field_Type,Field_Number 0x7 01a6 0119 | | Execute Any,Check_In_Formal_Type 01a7 00d9 | | Load_Top At_Offset_1 01a8 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 01a9 e5fc | | Load 0x2,-0x4 01aa 00d9 | | Load_Top At_Offset_1 01ab 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 01ac 4800 |H | Short_Literal 0x0 01ad 00d9 | | Load_Top At_Offset_1 01ae 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 01af e20d | | Load 0x1,0xd 01b0 e018 | | Load 0x0,0x18 01b1 180d | | Execute Package,Field_Execute,Field_Number 0xd 01b2 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 01b3 BODY_0188: 01b3 4801 |H | Short_Literal 0x1 01b4 0092 0d3d | =| Action Push_String_Extended,0xd3d ; "<NONE>" 01b6 e5ff | | Load 0x2,-0x1 01b7 e019 | | Load 0x0,0x19 01b8 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01b9 7014 |p | Jump_Nonzero 0x1ce 01ba 00d8 | | Load_Top At_Offset_0 01bb e5ff | | Load 0x2,-0x1 01bc 8212 | | Call 0x1,0x12 01bd 00d8 | | Load_Top At_Offset_0 01be 0217 | | Execute Heap_Access,All_Reference 01bf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01c0 a5fa | | Store_Unchecked 0x2,-0x6 01c1 4800 |H | Short_Literal 0x0 01c2 e5fa | | Load 0x2,-0x6 01c3 e004 | | Load 0x0,0x4 01c4 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 01c5 6808 |h | Jump_Zero 0x1ce 01c6 0092 0d3e | >| Action Push_String_Extended,0xd3e ; "Domain for \x22" 01c8 e5ff | | Load 0x2,-0x1 01c9 01cc | | Execute Vector,Catenate 01ca 0092 0d3f | ?| Action Push_String_Extended,0xd3f ; "\x22 has been opened." 01cc 01cc | | Execute Vector,Catenate 01cd 8240 | @ | Call 0x1,0x40 01ce 00d8 | | Load_Top At_Offset_0 01cf a5fb | | Store_Unchecked 0x2,-0x5 01d0 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01d1 0000 0000 | | .BLANK 0000[0x7] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01df | | .CONST 0x01df ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0003 | | .CONST 0x0003 ; Number of locals 01db INIT_01d8: 01db e23e | > | Load 0x1,0x3e 01dc 0007 | | Action Break_Optional 01dd 00d8 | | Load_Top At_Offset_0 01de 0007 | | Action Break_Optional 01df BODY_01d8: 01df e5ff | | Load 0x2,-0x1 01e0 6823 |h# | Jump_Zero 0x204 01e1 e5ff | | Load 0x2,-0x1 01e2 0217 | | Execute Heap_Access,All_Reference 01e3 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 01e4 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01e5 00cf | | Action Mark_Auxiliary 01e6 781a |x | Jump 0x201 01e7 00da | | Load_Top At_Offset_2 01e8 0217 | | Execute Heap_Access,All_Reference 01e9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01ea 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01eb 0092 0d40 | @| Action Push_String_Extended,0xd40 ; "State " 01ed 00db | | Load_Top At_Offset_3 01ee 0217 | | Execute Heap_Access,All_Reference 01ef 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01f0 e002 | | Load 0x0,0x2 01f1 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01f2 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01f3 01cc | | Execute Vector,Catenate 01f4 0092 0d41 | A| Action Push_String_Extended,0xd41 ; " is being removed from the domain." 01f6 01cc | | Execute Vector,Catenate 01f7 8240 | @ | Call 0x1,0x40 01f8 4800 |H | Short_Literal 0x0 01f9 e5ff | | Load 0x2,-0x1 01fa e402 | | Load 0x2,0x2 01fb 0217 | | Execute Heap_Access,All_Reference 01fc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01fd 8236 | 6 | Call 0x1,0x36 01fe 00d9 | | Load_Top At_Offset_1 01ff 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0200 00c9 | | Action Pop_Auxiliary_Loop 0201 00da | | Load_Top At_Offset_2 0202 77e4 |w | Jump_Nonzero 0x1e7 0203 00ce | | Action Pop_Auxiliary 0204 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0205 0000 0000 | | .XXX[0x3] 0207 0000 | | 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020f | | .CONST 0x020f ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0003 | | .CONST 0x0003 ; Number of locals 020b INIT_0208: 020b e23e | > | Load 0x1,0x3e 020c 0007 | | Action Break_Optional 020d 00d8 | | Load_Top At_Offset_0 020e 0007 | | Action Break_Optional 020f BODY_0208: 020f e5ff | | Load 0x2,-0x1 0210 6823 |h# | Jump_Zero 0x234 0211 e5ff | | Load 0x2,-0x1 0212 0217 | | Execute Heap_Access,All_Reference 0213 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0214 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0215 00cf | | Action Mark_Auxiliary 0216 781a |x | Jump 0x231 0217 00da | | Load_Top At_Offset_2 0218 0217 | | Execute Heap_Access,All_Reference 0219 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 021a 0032 | 2 | Store_Top Heap_Access,At_Offset_2 021b 0092 0d40 | @| Action Push_String_Extended,0xd40 ; "State " 021d 00db | | Load_Top At_Offset_3 021e 0217 | | Execute Heap_Access,All_Reference 021f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0220 e002 | | Load 0x0,0x2 0221 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0222 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0223 01cc | | Execute Vector,Catenate 0224 0092 0d41 | A| Action Push_String_Extended,0xd41 ; " is being removed from the domain." 0226 01cc | | Execute Vector,Catenate 0227 8240 | @ | Call 0x1,0x40 0228 4801 |H | Short_Literal 0x1 0229 e5ff | | Load 0x2,-0x1 022a e402 | | Load 0x2,0x2 022b 0217 | | Execute Heap_Access,All_Reference 022c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 022d 8236 | 6 | Call 0x1,0x36 022e 00d9 | | Load_Top At_Offset_1 022f 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0230 00c9 | | Action Pop_Auxiliary_Loop 0231 00da | | Load_Top At_Offset_2 0232 77e4 |w | Jump_Nonzero 0x217 0233 00ce | | Action Pop_Auxiliary 0234 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0235 0000 0000 | | .XXX[0x3] 0237 0000 | | 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 0250 | P | .CONST 0x0250 ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0007 | | .CONST 0x0007 ; Number of locals 023b INIT_0238: 023b e003 | | Load 0x0,0x3 023c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 023d 1b18 | | Execute Package,Field_Read,Field_Number 0x18 023e 02c7 | | Declare_Variable Any 023f 00d8 | | Load_Top At_Offset_0 0240 1c00 | | Execute_Immediate Run_Utility,0x0 0241 e003 | | Load 0x0,0x3 0242 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0243 02c7 | | Declare_Variable Any 0244 00d8 | | Load_Top At_Offset_0 0245 1c00 | | Execute_Immediate Run_Utility,0x0 0246 e003 | | Load 0x0,0x3 0247 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0248 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0249 e003 | | Load 0x0,0x3 024a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 024b e23e | > | Load 0x1,0x3e 024c 0007 | | Action Break_Optional 024d e002 | | Load 0x0,0x2 024e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 024f 0602 | | Execute_Immediate Set_Value_Unchecked,0x2 0250 BODY_0238: 0250 e5fe | | Load 0x2,-0x2 0251 0217 | | Execute Heap_Access,All_Reference 0252 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0253 7002 |p | Jump_Nonzero 0x256 0254 4800 |H | Short_Literal 0x0 0255 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0256 e003 | | Load 0x0,0x3 0257 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0258 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0259 e402 | | Load 0x2,0x2 025a 6109 |a | Indirect_Literal Discrete,0x364,{0x00000000, 0x00004000} 025b e01a | | Load 0x0,0x1a 025c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 025d e01b | | Load 0x0,0x1b 025e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 025f e01c | | Load 0x0,0x1c 0260 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0261 4801 |H | Short_Literal 0x1 0262 4800 |H | Short_Literal 0x0 0263 e01b | | Load 0x0,0x1b 0264 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0265 e003 | | Load 0x0,0x3 0266 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0267 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0268 e5ff | | Load 0x2,-0x1 0269 e003 | | Load 0x0,0x3 026a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 026b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 026c c402 | | Store 0x2,0x2 026d c404 | | Store 0x2,0x4 026e 00db | | Load_Top At_Offset_3 026f 6824 |h$ | Jump_Zero 0x294 0270 4801 |H | Short_Literal 0x1 0271 4803 |H | Short_Literal 0x3 0272 e00f | | Load 0x0,0xf 0273 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0274 035b | [ | Declare_Type Array,Constrained 0275 0337 | 7 | Declare_Variable Array 0276 e5ff | | Load 0x2,-0x1 0277 e00f | | Load 0x0,0xf 0278 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0279 4801 |H | Short_Literal 0x1 027a 00da | | Load_Top At_Offset_2 027b 01d6 | | Execute Vector,Field_Write 027c e5fe | | Load 0x2,-0x2 027d 8220 | | Call 0x1,0x20 027e 4802 |H | Short_Literal 0x2 027f 00da | | Load_Top At_Offset_2 0280 01d6 | | Execute Vector,Field_Write 0281 e5ff | | Load 0x2,-0x1 0282 e404 | | Load 0x2,0x4 0283 e00f | | Load 0x0,0xf 0284 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0285 4803 |H | Short_Literal 0x3 0286 00da | | Load_Top At_Offset_2 0287 01d6 | | Execute Vector,Field_Write 0288 60d7 |` | Indirect_Literal Discrete,0x360,{0x00000000, 0x00003002} 0289 e004 | | Load 0x0,0x4 028a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 028b e5fe | | Load 0x2,-0x2 028c 0217 | | Execute Heap_Access,All_Reference 028d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 028e e5fe | | Load 0x2,-0x2 028f 0217 | | Execute Heap_Access,All_Reference 0290 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0291 e004 | | Load 0x0,0x4 0292 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0293 78c0 |x | Jump 0x354 0294 e402 | | Load 0x2,0x2 0295 e003 | | Load 0x0,0x3 0296 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0297 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0298 681d |h | Jump_Zero 0x2b6 0299 4801 |H | Short_Literal 0x1 029a 4802 |H | Short_Literal 0x2 029b e00f | | Load 0x0,0xf 029c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 029d 035b | [ | Declare_Type Array,Constrained 029e 0337 | 7 | Declare_Variable Array 029f e5ff | | Load 0x2,-0x1 02a0 e00f | | Load 0x0,0xf 02a1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02a2 4801 |H | Short_Literal 0x1 02a3 00da | | Load_Top At_Offset_2 02a4 01d6 | | Execute Vector,Field_Write 02a5 e5fe | | Load 0x2,-0x2 02a6 8220 | | Call 0x1,0x20 02a7 4802 |H | Short_Literal 0x2 02a8 00da | | Load_Top At_Offset_2 02a9 01d6 | | Execute Vector,Field_Write 02aa 60b1 |` | Indirect_Literal Discrete,0x35c,{0x00000000, 0x00003006} 02ab e004 | | Load 0x0,0x4 02ac 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02ad e5fe | | Load 0x2,-0x2 02ae 0217 | | Execute Heap_Access,All_Reference 02af 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02b0 e5fe | | Load 0x2,-0x2 02b1 0217 | | Execute Heap_Access,All_Reference 02b2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02b3 e004 | | Load 0x0,0x4 02b4 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 02b5 789e |x | Jump 0x354 02b6 00cf | | Action Mark_Auxiliary 02b7 7896 |x | Jump 0x34e 02b8 e003 | | Load 0x0,0x3 02b9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02ba e403 | | Load 0x2,0x3 02bb 0120 | | Execute Any,Is_Value 02bc 6803 |h | Jump_Zero 0x2c0 02bd e003 | | Load 0x0,0x3 02be 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02bf 7801 |x | Jump 0x2c1 02c0 e403 | | Load 0x2,0x3 02c1 e402 | | Load 0x2,0x2 02c2 e003 | | Load 0x0,0x3 02c3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02c4 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 02c5 c403 | | Store 0x2,0x3 02c6 c405 | | Store 0x2,0x5 02c7 e403 | | Load 0x2,0x3 02c8 e01d | | Load 0x0,0x1d 02c9 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 02ca 6817 |h | Jump_Zero 0x2e2 02cb e5fe | | Load 0x2,-0x2 02cc 0092 0d42 | B| Action Push_String_Extended,0xd42 ; "[_" 02ce e402 | | Load 0x2,0x2 02cf e003 | | Load 0x0,0x3 02d0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02d1 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 02d2 01cc | | Execute Vector,Catenate 02d3 0092 0d43 | C| Action Push_String_Extended,0xd43 ; "]'C(~Spec_View)" 02d5 01cc | | Execute Vector,Catenate 02d6 8212 | | Call 0x1,0x12 02d7 e5fe | | Load 0x2,-0x2 02d8 0217 | | Execute Heap_Access,All_Reference 02d9 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 02da e003 | | Load 0x0,0x3 02db 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02dc 686b |hk | Jump_Zero 0x348 02dd e403 | | Load 0x2,0x3 02de e5fe | | Load 0x2,-0x2 02df 0217 | | Execute Heap_Access,All_Reference 02e0 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 02e1 7866 |xf | Jump 0x348 02e2 e403 | | Load 0x2,0x3 02e3 8248 | H | Call 0x1,0x48 02e4 c403 | | Store 0x2,0x3 02e5 e5fe | | Load 0x2,-0x2 02e6 0217 | | Execute Heap_Access,All_Reference 02e7 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 02e8 0033 | 3 | Store_Top Heap_Access,At_Offset_3 02e9 00cf | | Action Mark_Auxiliary 02ea 00db | | Load_Top At_Offset_3 02eb 704f |pO | Jump_Nonzero 0x33b 02ec e23e | > | Load 0x1,0x3e 02ed e018 | | Load 0x0,0x18 02ee 180d | | Execute Package,Field_Execute,Field_Number 0xd 02ef 039c | | Declare_Variable Heap_Access,By_Allocation 02f0 a406 | | Store_Unchecked 0x2,0x6 02f1 e5fe | | Load 0x2,-0x2 02f2 0219 | | Execute Heap_Access,All_Read 02f3 e406 | | Load 0x2,0x6 02f4 0219 | | Execute Heap_Access,All_Read 02f5 e406 | | Load 0x2,0x6 02f6 0219 | | Execute Heap_Access,All_Read 02f7 00da | | Load_Top At_Offset_2 02f8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02f9 00da | | Load_Top At_Offset_2 02fa 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02fb e002 | | Load 0x0,0x2 02fc 1b16 | | Execute Package,Field_Read,Field_Number 0x16 02fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02fe e5fe | | Load 0x2,-0x2 02ff 0217 | | Execute Heap_Access,All_Reference 0300 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0301 e5fe | | Load 0x2,-0x2 0302 0217 | | Execute Heap_Access,All_Reference 0303 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0304 e403 | | Load 0x2,0x3 0305 e407 | | Load 0x2,0x7 0306 e5fe | | Load 0x2,-0x2 0307 8237 | 7 | Call 0x1,0x37 0308 e002 | | Load 0x0,0x2 0309 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 030a 00db | | Load_Top At_Offset_3 030b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 030c 00db | | Load_Top At_Offset_3 030d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 030e 00db | | Load_Top At_Offset_3 030f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0310 00d3 | | Pop_Control Pop_Count_3 0311 4800 |H | Short_Literal 0x0 0312 e5fe | | Load 0x2,-0x2 0313 0217 | | Execute Heap_Access,All_Reference 0314 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0315 e004 | | Load 0x0,0x4 0316 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0317 682f |h/ | Jump_Zero 0x347 0318 e403 | | Load 0x2,0x3 0319 e406 | | Load 0x2,0x6 031a 0217 | | Execute Heap_Access,All_Reference 031b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 031c e5fe | | Load 0x2,-0x2 031d 0217 | | Execute Heap_Access,All_Reference 031e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 031f e406 | | Load 0x2,0x6 0320 0217 | | Execute Heap_Access,All_Reference 0321 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0322 4800 |H | Short_Literal 0x0 0323 e406 | | Load 0x2,0x6 0324 0217 | | Execute Heap_Access,All_Reference 0325 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0326 e23c | < | Load 0x1,0x3c 0327 e406 | | Load 0x2,0x6 0328 0217 | | Execute Heap_Access,All_Reference 0329 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 032a 00db | | Load_Top At_Offset_3 032b e5fe | | Load 0x2,-0x2 032c 0217 | | Execute Heap_Access,All_Reference 032d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 032e e5fe | | Load 0x2,-0x2 032f 0217 | | Execute Heap_Access,All_Reference 0330 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0331 0a01 | | Execute_Immediate Plus,0x1 0332 e5fe | | Load 0x2,-0x2 0333 0217 | | Execute Heap_Access,All_Reference 0334 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0335 e5fe | | Load 0x2,-0x2 0336 e406 | | Load 0x2,0x6 0337 0217 | | Execute Heap_Access,All_Reference 0338 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0339 824a | J | Call 0x1,0x4a 033a 780c |x | Jump 0x347 033b 00db | | Load_Top At_Offset_3 033c 0217 | | Execute Heap_Access,All_Reference 033d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 033e e403 | | Load 0x2,0x3 033f 012f | / | Execute Any,Equal 0340 7006 |p | Jump_Nonzero 0x347 0341 00db | | Load_Top At_Offset_3 0342 0217 | | Execute Heap_Access,All_Reference 0343 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0344 a406 | | Store_Unchecked 0x2,0x6 0345 00c9 | | Action Pop_Auxiliary_Loop 0346 7fa3 | | Jump 0x2ea 0347 00ce | | Action Pop_Auxiliary 0348 e402 | | Load 0x2,0x2 0349 e003 | | Load 0x0,0x3 034a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 034b 181d | | Execute Package,Field_Execute,Field_Number 0x1d 034c c402 | | Store 0x2,0x2 034d 00c9 | | Action Pop_Auxiliary_Loop 034e e402 | | Load 0x2,0x2 034f e003 | | Load 0x0,0x3 0350 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0351 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0352 6f65 |oe | Jump_Zero 0x2b8 0353 00ce | | Action Pop_Auxiliary 0354 e402 | | Load 0x2,0x2 0355 e003 | | Load 0x0,0x3 0356 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0357 1852 | R | Execute Package,Field_Execute,Field_Number 0x52 0358 c402 | | Store 0x2,0x2 0359 4503 |E | Exit_Suprogram New_Top_Offset 0x3 035a 0000 0000 | | .XXX[0x2] 035c 0000 0000 | | .LITERAL {0x00000000, 0x00003006} 0360 0000 0000 | | .LITERAL {0x00000000, 0x00003002} 0364 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 036f | o | .CONST 0x036f ; Address of begin 0369 0004 | | .CONST 0x0004 ; Address of exception handler 036a 0003 | | .CONST 0x0003 ; Number of locals 036b INIT_0368: 036b e23e | > | Load 0x1,0x3e 036c 0007 | | Action Break_Optional 036d 00d8 | | Load_Top At_Offset_0 036e 0007 | | Action Break_Optional 036f BODY_0368: 036f e5fe | | Load 0x2,-0x2 0370 685c |h\ | Jump_Zero 0x3cd 0371 e5fe | | Load 0x2,-0x2 0372 0217 | | Execute Heap_Access,All_Reference 0373 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0374 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0375 00cf | | Action Mark_Auxiliary 0376 7843 |xC | Jump 0x3ba 0377 00da | | Load_Top At_Offset_2 0378 0217 | | Execute Heap_Access,All_Reference 0379 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 037a e5ff | | Load 0x2,-0x1 037b 021f | | Execute Heap_Access,Equal 037c 6836 |h6 | Jump_Zero 0x3b3 037d 00d9 | | Load_Top At_Offset_1 037e 7007 |p | Jump_Nonzero 0x386 037f 00da | | Load_Top At_Offset_2 0380 0217 | | Execute Heap_Access,All_Reference 0381 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0382 e5fe | | Load 0x2,-0x2 0383 0217 | | Execute Heap_Access,All_Reference 0384 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0385 7806 |x | Jump 0x38c 0386 00da | | Load_Top At_Offset_2 0387 0217 | | Execute Heap_Access,All_Reference 0388 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0389 00da | | Load_Top At_Offset_2 038a 0217 | | Execute Heap_Access,All_Reference 038b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 038c e5fe | | Load 0x2,-0x2 038d 0217 | | Execute Heap_Access,All_Reference 038e 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 038f 00db | | Load_Top At_Offset_3 0390 0217 | | Execute Heap_Access,All_Reference 0391 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0392 0272 | r | Execute Discrete,Minus 0393 e5fe | | Load 0x2,-0x2 0394 0217 | | Execute Heap_Access,All_Reference 0395 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0396 e5fe | | Load 0x2,-0x2 0397 0217 | | Execute Heap_Access,All_Reference 0398 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0399 0aff | | Execute_Immediate Plus,-0x1 039a e5fe | | Load 0x2,-0x2 039b 0217 | | Execute Heap_Access,All_Reference 039c 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 039d e5fe | | Load 0x2,-0x2 039e 0219 | | Execute Heap_Access,All_Read 039f 00db | | Load_Top At_Offset_3 03a0 0219 | | Execute Heap_Access,All_Read 03a1 e402 | | Load 0x2,0x2 03a2 0219 | | Execute Heap_Access,All_Read 03a3 00da | | Load_Top At_Offset_2 03a4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03a5 00da | | Load_Top At_Offset_2 03a6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03a7 00da | | Load_Top At_Offset_2 03a8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03a9 e5fd | | Load 0x2,-0x3 03aa e002 | | Load 0x0,0x2 03ab 181f | | Execute Package,Field_Execute,Field_Number 0x1f 03ac 00db | | Load_Top At_Offset_3 03ad 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03ae 00db | | Load_Top At_Offset_3 03af 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 03b0 00db | | Load_Top At_Offset_3 03b1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 03b2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03b3 00da | | Load_Top At_Offset_2 03b4 0032 | 2 | Store_Top Heap_Access,At_Offset_2 03b5 00d9 | | Load_Top At_Offset_1 03b6 0217 | | Execute Heap_Access,All_Reference 03b7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03b8 0033 | 3 | Store_Top Heap_Access,At_Offset_3 03b9 00c9 | | Action Pop_Auxiliary_Loop 03ba 00da | | Load_Top At_Offset_2 03bb 77bb |w | Jump_Nonzero 0x377 03bc 00ce | | Action Pop_Auxiliary 03bd e5ff | | Load 0x2,-0x1 03be e002 | | Load 0x0,0x2 03bf 1b16 | | Execute Package,Field_Read,Field_Number 0x16 03c0 1886 | | Execute Package,Field_Execute,Field_Number 0x86 03c1 700b |p | Jump_Nonzero 0x3cd 03c2 0092 0d44 | D| Action Push_String_Extended,0xd44 ; "Can't remove (or find) " 03c4 e5ff | | Load 0x2,-0x1 03c5 e002 | | Load 0x0,0x2 03c6 1b16 | | Execute Package,Field_Read,Field_Number 0x16 03c7 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 03c8 01cc | | Execute Vector,Catenate 03c9 0092 0d45 | E| Action Push_String_Extended,0xd45 ; " from the domain." 03cb 01cc | | Execute Vector,Catenate 03cc 8240 | @ | Call 0x1,0x40 03cd 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03ce 0000 0000 | | .XXX[0x2] 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03d3 | | .CONST 0x03d3 ; Address of begin 03d1 0004 | | .CONST 0x0004 ; Address of exception handler 03d2 0001 | | .CONST 0x0001 ; Number of locals 03d3 BODY_03d0: 03d3 INIT_03d0: 03d3 00da | | Load_Top At_Offset_2 03d4 021c | | Execute Heap_Access,Not_Null 03d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03d6 0000 0000 | | .XXX[0x2] 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 00da | | Load_Top At_Offset_2 03dc 0217 | | Execute Heap_Access,All_Reference 03dd 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 03de e002 | | Load 0x0,0x2 03df 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03e0 00d9 | | Load_Top At_Offset_1 03e1 00d0 | | Action Swap_Control 03e2 0260 | ` | Execute Discrete,In_Type 03e3 7001 |p | Jump_Nonzero 0x3e5 03e4 0801 | | Execute_Immediate Raise,0x1 03e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03e6 0000 0000 | | .XXX[0x2] 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03eb | | .CONST 0x03eb ; Address of begin 03e9 0004 | | .CONST 0x0004 ; Address of exception handler 03ea 0001 | | .CONST 0x0001 ; Number of locals 03eb BODY_03e8: 03eb INIT_03e8: 03eb 00da | | Load_Top At_Offset_2 03ec 0217 | | Execute Heap_Access,All_Reference 03ed 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03ef 0000 | | .XXX[0x1] 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 03f3 | | .CONST 0x03f3 ; Address of begin 03f1 0004 | | .CONST 0x0004 ; Address of exception handler 03f2 0001 | | .CONST 0x0001 ; Number of locals 03f3 BODY_03f0: 03f3 INIT_03f0: 03f3 00da | | Load_Top At_Offset_2 03f4 0217 | | Execute Heap_Access,All_Reference 03f5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03f7 0000 | | .XXX[0x1] 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 03fd | | .CONST 0x03fd ; Address of begin 03f9 0004 | | .CONST 0x0004 ; Address of exception handler 03fa 0002 | | .CONST 0x0002 ; Number of locals 03fb INIT_03f8: 03fb e23e | > | Load 0x1,0x3e 03fc 0007 | | Action Break_Optional 03fd BODY_03f8: 03fd 00db | | Load_Top At_Offset_3 03fe 6838 |h8 | Jump_Zero 0x437 03ff 00db | | Load_Top At_Offset_3 0400 0217 | | Execute Heap_Access,All_Reference 0401 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0402 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0403 e5fe | | Load 0x2,-0x2 0404 e002 | | Load 0x0,0x2 0405 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0406 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0407 6818 |h | Jump_Zero 0x420 0408 00cf | | Action Mark_Auxiliary 0409 7812 |x | Jump 0x41c 040a 00d9 | | Load_Top At_Offset_1 040b 0217 | | Execute Heap_Access,All_Reference 040c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 040d e5fe | | Load 0x2,-0x2 040e 021f | | Execute Heap_Access,Equal 040f 6807 |h | Jump_Zero 0x417 0410 e5fb | | Load 0x2,-0x5 0411 e5fc | | Load 0x2,-0x4 0412 e5fd | | Load 0x2,-0x3 0413 e402 | | Load 0x2,0x2 0414 e5ff | | Load 0x2,-0x1 0415 824e | N | Call 0x1,0x4e 0416 7807 |x | Jump 0x41e 0417 00d9 | | Load_Top At_Offset_1 0418 0217 | | Execute Heap_Access,All_Reference 0419 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 041a 0032 | 2 | Store_Top Heap_Access,At_Offset_2 041b 00c9 | | Action Pop_Auxiliary_Loop 041c 00d9 | | Load_Top At_Offset_1 041d 77ec |w | Jump_Nonzero 0x40a 041e 00ce | | Action Pop_Auxiliary 041f 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0420 00cf | | Action Mark_Auxiliary 0421 7812 |x | Jump 0x434 0422 4800 |H | Short_Literal 0x0 0423 e5ff | | Load 0x2,-0x1 0424 0217 | | Execute Heap_Access,All_Reference 0425 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0426 e004 | | Load 0x0,0x4 0427 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0428 6806 |h | Jump_Zero 0x42f 0429 e5fb | | Load 0x2,-0x5 042a e5fc | | Load 0x2,-0x4 042b e5fd | | Load 0x2,-0x3 042c e402 | | Load 0x2,0x2 042d e5ff | | Load 0x2,-0x1 042e 824e | N | Call 0x1,0x4e 042f 00d9 | | Load_Top At_Offset_1 0430 0217 | | Execute Heap_Access,All_Reference 0431 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0432 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0433 00c9 | | Action Pop_Auxiliary_Loop 0434 00d9 | | Load_Top At_Offset_1 0435 77ec |w | Jump_Nonzero 0x422 0436 00ce | | Action Pop_Auxiliary 0437 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0438 ; -------------------------------------------------------------------------------------- 0438 ; SUBPROGRAM 0438 ; -------------------------------------------------------------------------------------- 0438 043d | = | .CONST 0x043d ; Address of begin 0439 0004 | | .CONST 0x0004 ; Address of exception handler 043a 0002 | | .CONST 0x0002 ; Number of locals 043b INIT_0438: 043b e23e | > | Load 0x1,0x3e 043c 0007 | | Action Break_Optional 043d BODY_0438: 043d 00db | | Load_Top At_Offset_3 043e 6840 |h@ | Jump_Zero 0x47f 043f 00db | | Load_Top At_Offset_3 0440 0217 | | Execute Heap_Access,All_Reference 0441 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0442 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0443 e5fe | | Load 0x2,-0x2 0444 e002 | | Load 0x0,0x2 0445 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0446 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0447 681c |h | Jump_Zero 0x464 0448 00cf | | Action Mark_Auxiliary 0449 7816 |x | Jump 0x460 044a 00d9 | | Load_Top At_Offset_1 044b 0217 | | Execute Heap_Access,All_Reference 044c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 044d e5fe | | Load 0x2,-0x2 044e 021f | | Execute Heap_Access,Equal 044f 680b |h | Jump_Zero 0x45b 0450 00d9 | | Load_Top At_Offset_1 0451 0217 | | Execute Heap_Access,All_Reference 0452 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0453 e5fd | | Load 0x2,-0x3 0454 e002 | | Load 0x0,0x2 0455 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0456 1876 | v | Execute Package,Field_Execute,Field_Number 0x76 0457 00da | | Load_Top At_Offset_2 0458 e5ff | | Load 0x2,-0x1 0459 824f | O | Call 0x1,0x4f 045a 7807 |x | Jump 0x462 045b 00d9 | | Load_Top At_Offset_1 045c 0217 | | Execute Heap_Access,All_Reference 045d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 045e 0032 | 2 | Store_Top Heap_Access,At_Offset_2 045f 00c9 | | Action Pop_Auxiliary_Loop 0460 00d9 | | Load_Top At_Offset_1 0461 77e8 |w | Jump_Nonzero 0x44a 0462 00ce | | Action Pop_Auxiliary 0463 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0464 00cf | | Action Mark_Auxiliary 0465 7816 |x | Jump 0x47c 0466 4800 |H | Short_Literal 0x0 0467 e5ff | | Load 0x2,-0x1 0468 0217 | | Execute Heap_Access,All_Reference 0469 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 046a e004 | | Load 0x0,0x4 046b 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 046c 680a |h | Jump_Zero 0x477 046d 00d9 | | Load_Top At_Offset_1 046e 0217 | | Execute Heap_Access,All_Reference 046f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0470 e5fd | | Load 0x2,-0x3 0471 e002 | | Load 0x0,0x2 0472 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0473 1876 | v | Execute Package,Field_Execute,Field_Number 0x76 0474 00da | | Load_Top At_Offset_2 0475 e5ff | | Load 0x2,-0x1 0476 824f | O | Call 0x1,0x4f 0477 00d9 | | Load_Top At_Offset_1 0478 0217 | | Execute Heap_Access,All_Reference 0479 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 047a 0032 | 2 | Store_Top Heap_Access,At_Offset_2 047b 00c9 | | Action Pop_Auxiliary_Loop 047c 00d9 | | Load_Top At_Offset_1 047d 77e8 |w | Jump_Nonzero 0x466 047e 00ce | | Action Pop_Auxiliary 047f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 0485 | | .CONST 0x0485 ; Address of begin 0481 0004 | | .CONST 0x0004 ; Address of exception handler 0482 0002 | | .CONST 0x0002 ; Number of locals 0483 INIT_0480: 0483 e23e | > | Load 0x1,0x3e 0484 0007 | | Action Break_Optional 0485 BODY_0480: 0485 e5fe | | Load 0x2,-0x2 0486 e002 | | Load 0x0,0x2 0487 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0488 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0489 6816 |h | Jump_Zero 0x4a0 048a 00db | | Load_Top At_Offset_3 048b e5fe | | Load 0x2,-0x2 048c 824c | L | Call 0x1,0x4c 048d 0031 | 1 | Store_Top Heap_Access,At_Offset_1 048e 4800 |H | Short_Literal 0x0 048f e5ff | | Load 0x2,-0x1 0490 0217 | | Execute Heap_Access,All_Reference 0491 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0492 e004 | | Load 0x0,0x4 0493 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0494 6816 |h | Jump_Zero 0x4ab 0495 00d8 | | Load_Top At_Offset_0 0496 0217 | | Execute Heap_Access,All_Reference 0497 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0498 e002 | | Load 0x0,0x2 0499 1b0d | | Execute Package,Field_Read,Field_Number 0xd 049a 00d9 | | Load_Top At_Offset_1 049b 00d0 | | Action Swap_Control 049c 0260 | ` | Execute Discrete,In_Type 049d 7001 |p | Jump_Nonzero 0x49f 049e 0801 | | Execute_Immediate Raise,0x1 049f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04a0 00db | | Load_Top At_Offset_3 04a1 0217 | | Execute Heap_Access,All_Reference 04a2 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 04a3 e002 | | Load 0x0,0x2 04a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04a5 00d9 | | Load_Top At_Offset_1 04a6 00d0 | | Action Swap_Control 04a7 0260 | ` | Execute Discrete,In_Type 04a8 7001 |p | Jump_Nonzero 0x4aa 04a9 0801 | | Execute_Immediate Raise,0x1 04aa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04ab 00db | | Load_Top At_Offset_3 04ac 0217 | | Execute Heap_Access,All_Reference 04ad 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04ae e004 | | Load 0x0,0x4 04af 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 04b0 e5ff | | Load 0x2,-0x1 04b1 0217 | | Execute Heap_Access,All_Reference 04b2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04b3 e004 | | Load 0x0,0x4 04b4 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 04b5 e004 | | Load 0x0,0x4 04b6 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 04b7 e002 | | Load 0x0,0x2 04b8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04b9 00d9 | | Load_Top At_Offset_1 04ba 00d0 | | Action Swap_Control 04bb 0260 | ` | Execute Discrete,In_Type 04bc 7001 |p | Jump_Nonzero 0x4be 04bd 0801 | | Execute_Immediate Raise,0x1 04be 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04bf 0000 | | .XXX[0x1] 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04ca | | .CONST 0x04ca ; Address of begin 04c1 0004 | | .CONST 0x0004 ; Address of exception handler 04c2 0005 | | .CONST 0x0005 ; Number of locals 04c3 INIT_04c0: 04c3 e23e | > | Load 0x1,0x3e 04c4 0007 | | Action Break_Optional 04c5 e23c | < | Load 0x1,0x3c 04c6 029f 0c8b | | Declare_Subprogram INIT_0c88,For_Call 04c8 029f 0cbb | | Declare_Subprogram INIT_0cb8,For_Call 04ca BODY_04c0: 04ca e5ff | | Load 0x2,-0x1 04cb 6817 |h | Jump_Zero 0x4e3 04cc e5ff | | Load 0x2,-0x1 04cd 0217 | | Execute Heap_Access,All_Reference 04ce 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 04cf a402 | | Store_Unchecked 0x2,0x2 04d0 e5fe | | Load 0x2,-0x2 04d1 e002 | | Load 0x0,0x2 04d2 1b16 | | Execute Package,Field_Read,Field_Number 0x16 04d3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04d4 680d |h | Jump_Zero 0x4e2 04d5 e5ff | | Load 0x2,-0x1 04d6 e5fe | | Load 0x2,-0x2 04d7 824c | L | Call 0x1,0x4c 04d8 a402 | | Store_Unchecked 0x2,0x2 04d9 4800 |H | Short_Literal 0x0 04da e5ff | | Load 0x2,-0x1 04db 0217 | | Execute Heap_Access,All_Reference 04dc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04dd e004 | | Load 0x0,0x4 04de 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 04df 6803 |h | Jump_Zero 0x4e3 04e0 8404 | | Call 0x2,0x4 04e1 7801 |x | Jump 0x4e3 04e2 8405 | | Call 0x2,0x5 04e3 e002 | | Load 0x0,0x2 04e4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04e5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 04e6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 04e7 0000 | | .XXX[0x1] 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; SUBPROGRAM 04e8 ; -------------------------------------------------------------------------------------- 04e8 04f9 | | .CONST 0x04f9 ; Address of begin 04e9 0004 | | .CONST 0x0004 ; Address of exception handler 04ea 0004 | | .CONST 0x0004 ; Number of locals 04eb INIT_04e8: 04eb 00da | | Load_Top At_Offset_2 04ec 8225 | % | Call 0x1,0x25 04ed 4801 |H | Short_Literal 0x1 04ee 00d9 | | Load_Top At_Offset_1 04ef 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 04f0 e002 | | Load 0x0,0x2 04f1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 04f2 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 04f3 035b | [ | Declare_Type Array,Constrained 04f4 0337 | 7 | Declare_Variable Array 04f5 00d8 | | Load_Top At_Offset_0 04f6 1c00 | | Execute_Immediate Run_Utility,0x0 04f7 e004 | | Load 0x0,0x4 04f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04f9 BODY_04e8: 04f9 00cf | | Action Mark_Auxiliary 04fa 00db | | Load_Top At_Offset_3 04fb 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 04fc 4801 |H | Short_Literal 0x1 04fd 0263 | c | Execute Discrete,Above_Bound 04fe 7023 |p# | Jump_Nonzero 0x522 04ff 00d8 | | Load_Top At_Offset_0 0500 e403 | | Load 0x2,0x3 0501 01d5 | | Execute Vector,Field_Reference 0502 e404 | | Load 0x2,0x4 0503 00d9 | | Load_Top At_Offset_1 0504 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0505 0120 | | Execute Any,Is_Value 0506 6803 |h | Jump_Zero 0x50a 0507 e003 | | Load 0x0,0x3 0508 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0509 7802 |x | Jump 0x50c 050a 00d9 | | Load_Top At_Offset_1 050b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 050c 00db | | Load_Top At_Offset_3 050d e402 | | Load 0x2,0x2 050e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 050f 01d7 | | Execute Vector,Field_Read 0510 e002 | | Load 0x0,0x2 0511 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0512 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0513 00da | | Load_Top At_Offset_2 0514 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0515 c404 | | Store 0x2,0x4 0516 00d1 | | Pop_Control Pop_Count_1 0517 00d8 | | Load_Top At_Offset_0 0518 e403 | | Load 0x2,0x3 0519 01d5 | | Execute Vector,Field_Reference 051a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 051b 8249 | I | Call 0x1,0x49 051c 00d9 | | Load_Top At_Offset_1 051d e403 | | Load 0x2,0x3 051e 01d5 | | Execute Vector,Field_Reference 051f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0520 00c8 | | Action Pop_Auxiliary_Range 0521 3fdd |? | Loop_Increasing 0x4ff 0522 00ce | | Action Pop_Auxiliary 0523 00d9 | | Load_Top At_Offset_1 0524 e002 | | Load 0x0,0x2 0525 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0526 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 0527 01c6 | | Execute Vector,Convert_To_Formal 0528 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0529 0000 0000 | | .BLANK 0000[0x7] 0530 ; -------------------------------------------------------------------------------------- 0530 ; SUBPROGRAM 0530 ; -------------------------------------------------------------------------------------- 0530 0533 | 3 | .CONST 0x0533 ; Address of begin 0531 0004 | | .CONST 0x0004 ; Address of exception handler 0532 0001 | | .CONST 0x0001 ; Number of locals 0533 BODY_0530: 0533 INIT_0530: 0533 00da | | Load_Top At_Offset_2 0534 0217 | | Execute Heap_Access,All_Reference 0535 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0536 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0537 0000 | | .XXX[0x1] 0538 ; -------------------------------------------------------------------------------------- 0538 ; SUBPROGRAM 0538 ; -------------------------------------------------------------------------------------- 0538 053b | ; | .CONST 0x053b ; Address of begin 0539 0004 | | .CONST 0x0004 ; Address of exception handler 053a 0001 | | .CONST 0x0001 ; Number of locals 053b BODY_0538: 053b INIT_0538: 053b 00db | | Load_Top At_Offset_3 053c 00db | | Load_Top At_Offset_3 053d 0217 | | Execute Heap_Access,All_Reference 053e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 053f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0540 ; -------------------------------------------------------------------------------------- 0540 ; SUBPROGRAM 0540 ; -------------------------------------------------------------------------------------- 0540 0543 | C | .CONST 0x0543 ; Address of begin 0541 0004 | | .CONST 0x0004 ; Address of exception handler 0542 0001 | | .CONST 0x0001 ; Number of locals 0543 BODY_0540: 0543 INIT_0540: 0543 4800 |H | Short_Literal 0x0 0544 00db | | Load_Top At_Offset_3 0545 0217 | | Execute Heap_Access,All_Reference 0546 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0547 e004 | | Load 0x0,0x4 0548 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0549 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 054a 0000 0000 | | .BLANK 0000[0x6] 0550 ; -------------------------------------------------------------------------------------- 0550 ; SUBPROGRAM 0550 ; -------------------------------------------------------------------------------------- 0550 0553 | S | .CONST 0x0553 ; Address of begin 0551 0004 | | .CONST 0x0004 ; Address of exception handler 0552 0001 | | .CONST 0x0001 ; Number of locals 0553 BODY_0550: 0553 INIT_0550: 0553 00da | | Load_Top At_Offset_2 0554 0217 | | Execute Heap_Access,All_Reference 0555 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0556 e004 | | Load 0x0,0x4 0557 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0558 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0559 0000 0000 | | .BLANK 0000[0x7] 0560 ; -------------------------------------------------------------------------------------- 0560 ; SUBPROGRAM 0560 ; -------------------------------------------------------------------------------------- 0560 0563 | c | .CONST 0x0563 ; Address of begin 0561 0004 | | .CONST 0x0004 ; Address of exception handler 0562 0001 | | .CONST 0x0001 ; Number of locals 0563 BODY_0560: 0563 INIT_0560: 0563 00da | | Load_Top At_Offset_2 0564 e256 | V | Load 0x1,0x56 0565 e257 | W | Load 0x1,0x57 0566 1d58 | X | Execute_Immediate Reference_Lex_1,0x58 0567 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59 0568 1d5a | Z | Execute_Immediate Reference_Lex_1,0x5a 0569 e00f | | Load 0x0,0xf 056a 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 056b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 056c 0000 0000 | | .BLANK 0000[0x4] 0570 ; -------------------------------------------------------------------------------------- 0570 ; SUBPROGRAM 0570 ; -------------------------------------------------------------------------------------- 0570 0573 | s | .CONST 0x0573 ; Address of begin 0571 0004 | | .CONST 0x0004 ; Address of exception handler 0572 0001 | | .CONST 0x0001 ; Number of locals 0573 BODY_0570: 0573 INIT_0570: 0573 00da | | Load_Top At_Offset_2 0574 e25e | ^ | Load 0x1,0x5e 0575 e25f | _ | Load 0x1,0x5f 0576 1d60 | ` | Execute_Immediate Reference_Lex_1,0x60 0577 e261 | a | Load 0x1,0x61 0578 1d62 | b | Execute_Immediate Reference_Lex_1,0x62 0579 e00f | | Load 0x0,0xf 057a 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 057b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 057c 0000 0000 | | .BLANK 0000[0x4] 0580 ; -------------------------------------------------------------------------------------- 0580 ; SUBPROGRAM 0580 ; -------------------------------------------------------------------------------------- 0580 0583 | | .CONST 0x0583 ; Address of begin 0581 0004 | | .CONST 0x0004 ; Address of exception handler 0582 0001 | | .CONST 0x0001 ; Number of locals 0583 BODY_0580: 0583 INIT_0580: 0583 0092 0d46 | F| Action Push_String_Extended,0xd46 ; "the specified domain" 0585 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0586 0000 0000 | | .XXX[0x2] 0588 ; -------------------------------------------------------------------------------------- 0588 ; SUBPROGRAM 0588 ; -------------------------------------------------------------------------------------- 0588 0593 | | .CONST 0x0593 ; Address of begin 0589 0004 | | .CONST 0x0004 ; Address of exception handler 058a 0003 | | .CONST 0x0003 ; Number of locals 058b INIT_0588: 058b e003 | | Load 0x0,0x3 058c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 058d 02c7 | | Declare_Variable Any 058e 00d8 | | Load_Top At_Offset_0 058f 1c00 | | Execute_Immediate Run_Utility,0x0 0590 e003 | | Load 0x0,0x3 0591 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0592 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0593 BODY_0588: 0593 e003 | | Load 0x0,0x3 0594 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0595 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0596 00da | | Load_Top At_Offset_2 0597 0120 | | Execute Any,Is_Value 0598 6803 |h | Jump_Zero 0x59c 0599 e003 | | Load 0x0,0x3 059a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 059b 7801 |x | Jump 0x59d 059c 00da | | Load_Top At_Offset_2 059d 603a |`: | Indirect_Literal Discrete,0x5d8,{0x00000000, 0x00004000} 059e e01a | | Load 0x0,0x1a 059f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05a0 e01b | | Load 0x0,0x1b 05a1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 05a2 e003 | | Load 0x0,0x3 05a3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 05a4 1816 | | Execute Package,Field_Execute,Field_Number 0x16 05a5 e5ff | | Load 0x2,-0x1 05a6 e003 | | Load 0x0,0x3 05a7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 05a8 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 05a9 c402 | | Store 0x2,0x2 05aa 0059 | Y | Store_Top Discrete,At_Offset_1 05ab 00d8 | | Load_Top At_Offset_0 05ac 7004 |p | Jump_Nonzero 0x5b1 05ad e5fe | | Load 0x2,-0x2 05ae 00da | | Load_Top At_Offset_2 05af 8224 | $ | Call 0x1,0x24 05b0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05b1 4801 |H | Short_Literal 0x1 05b2 4802 |H | Short_Literal 0x2 05b3 e00f | | Load 0x0,0xf 05b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 05b5 035b | [ | Declare_Type Array,Constrained 05b6 0337 | 7 | Declare_Variable Array 05b7 e5ff | | Load 0x2,-0x1 05b8 00da | | Load_Top At_Offset_2 05b9 e00f | | Load 0x0,0xf 05ba 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 05bb 4801 |H | Short_Literal 0x1 05bc 00da | | Load_Top At_Offset_2 05bd 01d6 | | Execute Vector,Field_Write 05be e5fe | | Load 0x2,-0x2 05bf 8220 | | Call 0x1,0x20 05c0 4802 |H | Short_Literal 0x2 05c1 00da | | Load_Top At_Offset_2 05c2 01d6 | | Execute Vector,Field_Write 05c3 6010 |` | Indirect_Literal Discrete,0x5d4,{0x00000000, 0x00003001} 05c4 e004 | | Load 0x0,0x4 05c5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05c6 e5fe | | Load 0x2,-0x2 05c7 0217 | | Execute Heap_Access,All_Reference 05c8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 05c9 e5fe | | Load 0x2,-0x2 05ca 0217 | | Execute Heap_Access,All_Reference 05cb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05cc e004 | | Load 0x0,0x4 05cd 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 05ce e002 | | Load 0x0,0x2 05cf 1b16 | | Execute Package,Field_Read,Field_Number 0x16 05d0 180e | | Execute Package,Field_Execute,Field_Number 0xe 05d1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05d2 0000 0000 | | .XXX[0x2] 05d4 0000 0000 | | .LITERAL {0x00000000, 0x00003001} 05d8 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 05dc 0000 0000 | | .BLANK 0000[0x4] 05e0 ; -------------------------------------------------------------------------------------- 05e0 ; SUBPROGRAM 05e0 ; -------------------------------------------------------------------------------------- 05e0 05e7 | | .CONST 0x05e7 ; Address of begin 05e1 0004 | | .CONST 0x0004 ; Address of exception handler 05e2 0002 | | .CONST 0x0002 ; Number of locals 05e3 INIT_05e0: 05e3 00db | | Load_Top At_Offset_3 05e4 00db | | Load_Top At_Offset_3 05e5 8248 | H | Call 0x1,0x48 05e6 824b | K | Call 0x1,0x4b 05e7 BODY_05e0: 05e7 00d8 | | Load_Top At_Offset_0 05e8 7004 |p | Jump_Nonzero 0x5ed 05e9 e002 | | Load 0x0,0x2 05ea 1b16 | | Execute Package,Field_Read,Field_Number 0x16 05eb 180e | | Execute Package,Field_Execute,Field_Number 0xe 05ec 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05ed 00d8 | | Load_Top At_Offset_0 05ee 0217 | | Execute Heap_Access,All_Reference 05ef 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 05f0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05f1 0000 0000 | | .BLANK 0000[0x7] 05f8 ; -------------------------------------------------------------------------------------- 05f8 ; SUBPROGRAM 05f8 ; -------------------------------------------------------------------------------------- 05f8 0606 | | .CONST 0x0606 ; Address of begin 05f9 0004 | | .CONST 0x0004 ; Address of exception handler 05fa 0003 | | .CONST 0x0003 ; Number of locals 05fb INIT_05f8: 05fb 00da | | Load_Top At_Offset_2 05fc 0217 | | Execute Heap_Access,All_Reference 05fd 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 05fe e002 | | Load 0x0,0x2 05ff 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0600 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0601 1c08 | | Execute_Immediate Run_Utility,0x8 0602 00db | | Load_Top At_Offset_3 0603 0217 | | Execute Heap_Access,All_Reference 0604 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0605 0007 | | Action Break_Optional 0606 BODY_05f8: 0606 4800 |H | Short_Literal 0x0 0607 00da | | Load_Top At_Offset_2 0608 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0609 00cf | | Action Mark_Auxiliary 060a 00da | | Load_Top At_Offset_2 060b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 060c 01d9 | | Execute Vector,Reverse_Bounds 060d 0263 | c | Execute Discrete,Above_Bound 060e 700d |p | Jump_Nonzero 0x61c 060f 00db | | Load_Top At_Offset_3 0610 0217 | | Execute Heap_Access,All_Reference 0611 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0612 00d9 | | Load_Top At_Offset_1 0613 e402 | | Load 0x2,0x2 0614 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0615 01d6 | | Execute Vector,Field_Write 0616 00db | | Load_Top At_Offset_3 0617 0217 | | Execute Heap_Access,All_Reference 0618 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0619 a403 | | Store_Unchecked 0x2,0x3 061a 00c8 | | Action Pop_Auxiliary_Range 061b 3ff3 |? | Loop_Increasing 0x60f 061c 00ce | | Action Pop_Auxiliary 061d 00d9 | | Load_Top At_Offset_1 061e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 061f 0000 | | .XXX[0x1] 0620 ; -------------------------------------------------------------------------------------- 0620 ; SUBPROGRAM 0620 ; -------------------------------------------------------------------------------------- 0620 0626 | & | .CONST 0x0626 ; Address of begin 0621 0004 | | .CONST 0x0004 ; Address of exception handler 0622 0002 | | .CONST 0x0002 ; Number of locals 0623 INIT_0620: 0623 00da | | Load_Top At_Offset_2 0624 0217 | | Execute Heap_Access,All_Reference 0625 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0626 BODY_0620: 0626 00cf | | Action Mark_Auxiliary 0627 e5fe | | Load 0x2,-0x2 0628 4802 |H | Short_Literal 0x2 0629 0263 | c | Execute Discrete,Above_Bound 062a 700a |p | Jump_Nonzero 0x635 062b 00db | | Load_Top At_Offset_3 062c 7002 |p | Jump_Nonzero 0x62f 062d 00d2 | | Pop_Control Pop_Count_2 062e 7806 |x | Jump 0x635 062f 00db | | Load_Top At_Offset_3 0630 0217 | | Execute Heap_Access,All_Reference 0631 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0632 a402 | | Store_Unchecked 0x2,0x2 0633 00c8 | | Action Pop_Auxiliary_Range 0634 3ff6 |? | Loop_Increasing 0x62b 0635 00ce | | Action Pop_Auxiliary 0636 00d8 | | Load_Top At_Offset_0 0637 7004 |p | Jump_Nonzero 0x63c 0638 e002 | | Load 0x0,0x2 0639 1b16 | | Execute Package,Field_Read,Field_Number 0x16 063a 180e | | Execute Package,Field_Execute,Field_Number 0xe 063b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 063c 00d8 | | Load_Top At_Offset_0 063d 0217 | | Execute Heap_Access,All_Reference 063e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 063f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0640 ; -------------------------------------------------------------------------------------- 0640 ; SUBPROGRAM 0640 ; -------------------------------------------------------------------------------------- 0640 0648 | H | .CONST 0x0648 ; Address of begin 0641 0004 | | .CONST 0x0004 ; Address of exception handler 0642 0003 | | .CONST 0x0003 ; Number of locals 0643 INIT_0640: 0643 e23e | > | Load 0x1,0x3e 0644 0007 | | Action Break_Optional 0645 e002 | | Load 0x0,0x2 0646 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0647 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0648 BODY_0640: 0648 e5fe | | Load 0x2,-0x2 0649 6827 |h' | Jump_Zero 0x671 064a e5fe | | Load 0x2,-0x2 064b 0217 | | Execute Heap_Access,All_Reference 064c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 064d 0032 | 2 | Store_Top Heap_Access,At_Offset_2 064e 00cf | | Action Mark_Auxiliary 064f 781e |x | Jump 0x66e 0650 e5fe | | Load 0x2,-0x2 0651 0219 | | Execute Heap_Access,All_Read 0652 00d8 | | Load_Top At_Offset_0 0653 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0654 e002 | | Load 0x0,0x2 0655 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0656 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0657 e402 | | Load 0x2,0x2 0658 0217 | | Execute Heap_Access,All_Reference 0659 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 065a e5ff | | Load 0x2,-0x1 065b e002 | | Load 0x0,0x2 065c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 065d 1875 | u | Execute Package,Field_Execute,Field_Number 0x75 065e c403 | | Store 0x2,0x3 065f 00d9 | | Load_Top At_Offset_1 0660 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0661 00d1 | | Pop_Control Pop_Count_1 0662 00d9 | | Load_Top At_Offset_1 0663 e002 | | Load 0x0,0x2 0664 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0665 180f | | Execute Package,Field_Execute,Field_Number 0xf 0666 7002 |p | Jump_Nonzero 0x669 0667 00d9 | | Load_Top At_Offset_1 0668 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0669 00da | | Load_Top At_Offset_2 066a 0217 | | Execute Heap_Access,All_Reference 066b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 066c 0033 | 3 | Store_Top Heap_Access,At_Offset_3 066d 00c9 | | Action Pop_Auxiliary_Loop 066e 00da | | Load_Top At_Offset_2 066f 77e0 |w | Jump_Nonzero 0x650 0670 00ce | | Action Pop_Auxiliary 0671 e002 | | Load 0x0,0x2 0672 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0673 180e | | Execute Package,Field_Execute,Field_Number 0xe 0674 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0675 0000 0000 | | .XXX[0x3] 0677 0000 | | 0678 ; -------------------------------------------------------------------------------------- 0678 ; SUBPROGRAM 0678 ; -------------------------------------------------------------------------------------- 0678 067b | { | .CONST 0x067b ; Address of begin 0679 0004 | | .CONST 0x0004 ; Address of exception handler 067a 0001 | | .CONST 0x0001 ; Number of locals 067b BODY_0678: 067b INIT_0678: 067b 00db | | Load_Top At_Offset_3 067c 0217 | | Execute Heap_Access,All_Reference 067d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 067e 00db | | Load_Top At_Offset_3 067f 8267 | g | Call 0x1,0x67 0680 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0681 0000 0000 | | .BLANK 0000[0x7] 0688 ; -------------------------------------------------------------------------------------- 0688 ; SUBPROGRAM 0688 ; -------------------------------------------------------------------------------------- 0688 068b | | .CONST 0x068b ; Address of begin 0689 0004 | | .CONST 0x0004 ; Address of exception handler 068a 0001 | | .CONST 0x0001 ; Number of locals 068b BODY_0688: 068b INIT_0688: 068b 00da | | Load_Top At_Offset_2 068c 0217 | | Execute Heap_Access,All_Reference 068d 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 068e 00d8 | | Load_Top At_Offset_0 068f 0120 | | Execute Any,Is_Value 0690 7002 |p | Jump_Nonzero 0x693 0691 00d8 | | Load_Top At_Offset_0 0692 011e | | Execute Any,Convert 0693 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0694 0000 0000 | | .BLANK 0000[0x4] 0698 ; -------------------------------------------------------------------------------------- 0698 ; SUBPROGRAM 0698 ; -------------------------------------------------------------------------------------- 0698 069b | | .CONST 0x069b ; Address of begin 0699 0004 | | .CONST 0x0004 ; Address of exception handler 069a 0001 | | .CONST 0x0001 ; Number of locals 069b BODY_0698: 069b INIT_0698: 069b 00db | | Load_Top At_Offset_3 069c 00db | | Load_Top At_Offset_3 069d 0217 | | Execute Heap_Access,All_Reference 069e 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 069f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 06a0 ; -------------------------------------------------------------------------------------- 06a0 ; SUBPROGRAM 06a0 ; -------------------------------------------------------------------------------------- 06a0 06b0 | | .CONST 0x06b0 ; Address of begin 06a1 0004 | | .CONST 0x0004 ; Address of exception handler 06a2 0004 | | .CONST 0x0004 ; Number of locals 06a3 INIT_06a0: 06a3 00da | | Load_Top At_Offset_2 06a4 e002 | | Load 0x0,0x2 06a5 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06a6 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 06a7 00d8 | | Load_Top At_Offset_0 06a8 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 06a9 e002 | | Load 0x0,0x2 06aa 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06ab 1b10 | | Execute Package,Field_Read,Field_Number 0x10 06ac 1c08 | | Execute_Immediate Run_Utility,0x8 06ad e004 | | Load 0x0,0x4 06ae 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06af 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 06b0 BODY_06a0: 06b0 00da | | Load_Top At_Offset_2 06b1 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 06b2 00da | | Load_Top At_Offset_2 06b3 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 06b4 00cf | | Action Mark_Auxiliary 06b5 00db | | Load_Top At_Offset_3 06b6 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06b7 01d9 | | Execute Vector,Reverse_Bounds 06b8 0263 | c | Execute Discrete,Above_Bound 06b9 7022 |p" | Jump_Nonzero 0x6dc 06ba e403 | | Load 0x2,0x3 06bb 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06bc 00d9 | | Load_Top At_Offset_1 06bd e404 | | Load 0x2,0x4 06be e002 | | Load 0x0,0x2 06bf 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06c1 00da | | Load_Top At_Offset_2 06c2 e408 | | Load 0x2,0x8 06c3 01d7 | | Execute Vector,Field_Read 06c4 00d1 | | Pop_Control Pop_Count_1 06c5 e5fe | | Load 0x2,-0x2 06c6 e407 | | Load 0x2,0x7 06c7 e402 | | Load 0x2,0x2 06c8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 06c9 01d7 | | Execute Vector,Field_Read 06ca 8269 | i | Call 0x1,0x69 06cb 00da | | Load_Top At_Offset_2 06cc e408 | | Load 0x2,0x8 06cd 01d6 | | Execute Vector,Field_Write 06ce c404 | | Store 0x2,0x4 06cf 00d2 | | Pop_Control Pop_Count_2 06d0 4800 |H | Short_Literal 0x0 06d1 e404 | | Load 0x2,0x4 06d2 e004 | | Load 0x0,0x4 06d3 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 06d4 7005 |p | Jump_Nonzero 0x6da 06d5 00db | | Load_Top At_Offset_3 06d6 e403 | | Load 0x2,0x3 06d7 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 06d8 4800 |H | Short_Literal 0x0 06d9 a404 | | Store_Unchecked 0x2,0x4 06da 00c8 | | Action Pop_Auxiliary_Range 06db 3fde |? | Loop_Increasing 0x6ba 06dc 00ce | | Action Pop_Auxiliary 06dd 00d9 | | Load_Top At_Offset_1 06de 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06df 0000 | | .XXX[0x1] 06e0 ; -------------------------------------------------------------------------------------- 06e0 ; SUBPROGRAM 06e0 ; -------------------------------------------------------------------------------------- 06e0 06f1 | | .CONST 0x06f1 ; Address of begin 06e1 0004 | | .CONST 0x0004 ; Address of exception handler 06e2 0006 | | .CONST 0x0006 ; Number of locals 06e3 INIT_06e0: 06e3 e23e | > | Load 0x1,0x3e 06e4 0007 | | Action Break_Optional 06e5 e004 | | Load 0x0,0x4 06e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06e7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 06e8 e002 | | Load 0x0,0x2 06e9 1b14 | | Execute Package,Field_Read,Field_Number 0x14 06ea 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06eb e002 | | Load 0x0,0x2 06ec 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06ed 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 06ee e002 | | Load 0x0,0x2 06ef 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06f1 BODY_06e0: 06f1 e5fe | | Load 0x2,-0x2 06f2 683b |h; | Jump_Zero 0x72e 06f3 e5fe | | Load 0x2,-0x2 06f4 0217 | | Execute Heap_Access,All_Reference 06f5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 06f6 a402 | | Store_Unchecked 0x2,0x2 06f7 e5ff | | Load 0x2,-0x1 06f8 e002 | | Load 0x0,0x2 06f9 1b15 | | Execute Package,Field_Read,Field_Number 0x15 06fa 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06fb 680b |h | Jump_Zero 0x707 06fc 00db | | Load_Top At_Offset_3 06fd e002 | | Load 0x0,0x2 06fe 1b10 | | Execute Package,Field_Read,Field_Number 0x10 06ff e5ff | | Load 0x2,-0x1 0700 e002 | | Load 0x0,0x2 0701 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0702 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0703 c404 | | Store 0x2,0x4 0704 c403 | | Store 0x2,0x3 0705 00da | | Load_Top At_Offset_2 0706 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0707 00db | | Load_Top At_Offset_3 0708 e002 | | Load 0x0,0x2 0709 1b13 | | Execute Package,Field_Read,Field_Number 0x13 070a e5ff | | Load 0x2,-0x1 070b e002 | | Load 0x0,0x2 070c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 070d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 070e 0033 | 3 | Store_Top Heap_Access,At_Offset_3 070f c403 | | Store 0x2,0x3 0710 4800 |H | Short_Literal 0x0 0711 e403 | | Load 0x2,0x3 0712 e004 | | Load 0x0,0x4 0713 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0714 6819 |h | Jump_Zero 0x72e 0715 00db | | Load_Top At_Offset_3 0716 e002 | | Load 0x0,0x2 0717 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0718 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0719 e5fe | | Load 0x2,-0x2 071a e405 | | Load 0x2,0x5 071b 8269 | i | Call 0x1,0x69 071c 0032 | 2 | Store_Top Heap_Access,At_Offset_2 071d c403 | | Store 0x2,0x3 071e 00d8 | | Load_Top At_Offset_0 071f e002 | | Load 0x0,0x2 0720 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0721 1886 | | Execute Package,Field_Execute,Field_Number 0x86 0722 700b |p | Jump_Nonzero 0x72e 0723 4800 |H | Short_Literal 0x0 0724 e403 | | Load 0x2,0x3 0725 e004 | | Load 0x0,0x4 0726 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0727 6806 |h | Jump_Zero 0x72e 0728 00d8 | | Load_Top At_Offset_0 0729 e5ff | | Load 0x2,-0x1 072a e002 | | Load 0x0,0x2 072b 1b16 | | Execute Package,Field_Read,Field_Number 0x16 072c 1883 | | Execute Package,Field_Execute,Field_Number 0x83 072d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 072e e002 | | Load 0x0,0x2 072f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0730 180e | | Execute Package,Field_Execute,Field_Number 0xe 0731 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0732 0000 0000 | | .BLANK 0000[0x6] 0738 ; -------------------------------------------------------------------------------------- 0738 ; SUBPROGRAM 0738 ; -------------------------------------------------------------------------------------- 0738 074d | M | .CONST 0x074d ; Address of begin 0739 0004 | | .CONST 0x0004 ; Address of exception handler 073a 0005 | | .CONST 0x0005 ; Number of locals 073b INIT_0738: 073b 4801 |H | Short_Literal 0x1 073c 00db | | Load_Top At_Offset_3 073d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 073e e002 | | Load 0x0,0x2 073f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0740 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0741 035b | [ | Declare_Type Array,Constrained 0742 0337 | 7 | Declare_Variable Array 0743 e002 | | Load 0x0,0x2 0744 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0745 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0746 00e2 | | Load_Encached Integer_Cache 0747 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0748 e5ff | | Load 0x2,-0x1 0749 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 074a e004 | | Load 0x0,0x4 074b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 074c 03f1 | | Declare_Variable Discrete,With_Value 074d BODY_0738: 074d 00cf | | Action Mark_Auxiliary 074e e5ff | | Load 0x2,-0x1 074f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0750 01d9 | | Execute Vector,Reverse_Bounds 0751 0263 | c | Execute Discrete,Above_Bound 0752 7031 |p1 | Jump_Nonzero 0x784 0753 e5fe | | Load 0x2,-0x2 0754 00d9 | | Load_Top At_Offset_1 0755 e5ff | | Load 0x2,-0x1 0756 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0757 01d7 | | Execute Vector,Field_Read 0758 822b | + | Call 0x1,0x2b 0759 a403 | | Store_Unchecked 0x2,0x3 075a e403 | | Load 0x2,0x3 075b e002 | | Load 0x0,0x2 075c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 075d 180f | | Execute Package,Field_Execute,Field_Number 0xf 075e 7008 |p | Jump_Nonzero 0x767 075f e404 | | Load 0x2,0x4 0760 0a01 | | Execute_Immediate Plus,0x1 0761 c404 | | Store 0x2,0x4 0762 e403 | | Load 0x2,0x3 0763 e404 | | Load 0x2,0x4 0764 e402 | | Load 0x2,0x2 0765 01d6 | | Execute Vector,Field_Write 0766 781b |x | Jump 0x782 0767 e004 | | Load 0x0,0x4 0768 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0769 4801 |H | Short_Literal 0x1 076a 4802 |H | Short_Literal 0x2 076b e00f | | Load 0x0,0xf 076c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 076d 035b | [ | Declare_Type Array,Constrained 076e 0337 | 7 | Declare_Variable Array 076f 00da | | Load_Top At_Offset_2 0770 e5ff | | Load 0x2,-0x1 0771 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0772 01d7 | | Execute Vector,Field_Read 0773 e002 | | Load 0x0,0x2 0774 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0775 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0776 4801 |H | Short_Literal 0x1 0777 00da | | Load_Top At_Offset_2 0778 01d6 | | Execute Vector,Field_Write 0779 e5fe | | Load 0x2,-0x2 077a 8220 | | Call 0x1,0x20 077b 4802 |H | Short_Literal 0x2 077c 00da | | Load_Top At_Offset_2 077d 01d6 | | Execute Vector,Field_Write 077e 6025 |`% | Indirect_Literal Discrete,0x7a4,{0x00000000, 0x00003004} 077f e004 | | Load 0x0,0x4 0780 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0781 c405 | | Store 0x2,0x5 0782 00c8 | | Action Pop_Auxiliary_Range 0783 3fcf |? | Loop_Increasing 0x753 0784 00ce | | Action Pop_Auxiliary 0785 00d9 | | Load_Top At_Offset_1 0786 e002 | | Load 0x0,0x2 0787 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0788 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0789 1c08 | | Execute_Immediate Run_Utility,0x8 078a 00d9 | | Load_Top At_Offset_1 078b 00d9 | | Load_Top At_Offset_1 078c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 078d 4801 |H | Short_Literal 0x1 078e 00db | | Load_Top At_Offset_3 078f e402 | | Load 0x2,0x2 0790 01cf | | Execute Vector,Slice_Read 0791 00d9 | | Load_Top At_Offset_1 0792 00d8 | | Load_Top At_Offset_0 0793 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0794 00da | | Load_Top At_Offset_2 0795 01da | | Execute Vector,Bounds 0796 00da | | Load_Top At_Offset_2 0797 01da | | Execute Vector,Bounds 0798 00da | | Load_Top At_Offset_2 0799 027f | | Execute Discrete,Equal 079a 7001 |p | Jump_Nonzero 0x79c 079b 08e0 | | Execute_Immediate Raise,0xe0 079c 00cd | | Action Spare6_Action 079d 027f | | Execute Discrete,Equal 079e 7001 |p | Jump_Nonzero 0x7a0 079f 08e0 | | Execute_Immediate Raise,0xe0 07a0 00d2 | | Pop_Control Pop_Count_2 07a1 00d9 | | Load_Top At_Offset_1 07a2 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 07a3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07a4 0000 0000 | | .LITERAL {0x00000000, 0x00003004} 07a8 ; -------------------------------------------------------------------------------------- 07a8 ; SUBPROGRAM 07a8 ; -------------------------------------------------------------------------------------- 07a8 07ab | | .CONST 0x07ab ; Address of begin 07a9 0004 | | .CONST 0x0004 ; Address of exception handler 07aa 0001 | | .CONST 0x0001 ; Number of locals 07ab BODY_07a8: 07ab INIT_07a8: 07ab 4608 |F | Jump_Case 0x9 07ac 7808 |x | Jump 0x7b5 ; case 0x0 07ad 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 07ae 7813 |x | Jump 0x7c2 ; case 0x2 07af 7812 |x | Jump 0x7c2 ; case 0x3 07b0 7811 |x | Jump 0x7c2 ; case 0x4 07b1 7810 |x | Jump 0x7c2 ; case 0x5 07b2 780f |x | Jump 0x7c2 ; case 0x6 07b3 780e |x | Jump 0x7c2 ; case 0x7 07b4 780d |x | Jump 0x7c2 ; case 0x8 07b5 00da | | Load_Top At_Offset_2 07b6 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 07b7 0125 | % | Execute Any,Set_Constraint 07b8 00da | | Load_Top At_Offset_2 07b9 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 07ba 1c00 | | Execute_Immediate Run_Utility,0x0 07bb 00da | | Load_Top At_Offset_2 07bc 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 07bd 0125 | % | Execute Any,Set_Constraint 07be 00da | | Load_Top At_Offset_2 07bf 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 07c0 1c00 | | Execute_Immediate Run_Utility,0x0 07c1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 07c2 0869 | i | Execute_Immediate Raise,0x69 07c3 0000 0000 | | .BLANK 0000[0x5] 07c8 ; -------------------------------------------------------------------------------------- 07c8 ; SUBPROGRAM 07c8 ; -------------------------------------------------------------------------------------- 07c8 07cb | | .CONST 0x07cb ; Address of begin 07c9 0004 | | .CONST 0x0004 ; Address of exception handler 07ca 0001 | | .CONST 0x0001 ; Number of locals 07cb BODY_07c8: 07cb INIT_07c8: 07cb 4608 |F | Jump_Case 0x9 07cc 7808 |x | Jump 0x7d5 ; case 0x0 07cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 07ce 780d |x | Jump 0x7dc ; case 0x2 07cf 780c |x | Jump 0x7dc ; case 0x3 07d0 780b |x | Jump 0x7dc ; case 0x4 07d1 780a |x | Jump 0x7dc ; case 0x5 07d2 7809 |x | Jump 0x7dc ; case 0x6 07d3 7808 |x | Jump 0x7dc ; case 0x7 07d4 7807 |x | Jump 0x7dc ; case 0x8 07d5 00da | | Load_Top At_Offset_2 07d6 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7 07d7 0125 | % | Execute Any,Set_Constraint 07d8 00da | | Load_Top At_Offset_2 07d9 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7 07da 1c00 | | Execute_Immediate Run_Utility,0x0 07db 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 07dc 0869 | i | Execute_Immediate Raise,0x69 07dd 0000 0000 | | .XXX[0x3] 07df 0000 | | 07e0 ; -------------------------------------------------------------------------------------- 07e0 ; SUBPROGRAM 07e0 ; -------------------------------------------------------------------------------------- 07e0 07e3 | | .CONST 0x07e3 ; Address of begin 07e1 0004 | | .CONST 0x0004 ; Address of exception handler 07e2 0001 | | .CONST 0x0001 ; Number of locals 07e3 BODY_07e0: 07e3 INIT_07e0: 07e3 00da | | Load_Top At_Offset_2 07e4 e002 | | Load 0x0,0x2 07e5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 07e6 181f | | Execute Package,Field_Execute,Field_Number 0x1f 07e7 e5fe | | Load 0x2,-0x2 07e8 e002 | | Load 0x0,0x2 07e9 1b14 | | Execute Package,Field_Read,Field_Number 0x14 07ea 181f | | Execute Package,Field_Execute,Field_Number 0x1f 07eb 027c | | | Execute Discrete,Less 07ec 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 07ed 0000 0000 | | .XXX[0x3] 07ef 0000 | | 07f0 ; -------------------------------------------------------------------------------------- 07f0 ; SUBPROGRAM 07f0 ; -------------------------------------------------------------------------------------- 07f0 07f3 | | .CONST 0x07f3 ; Address of begin 07f1 0004 | | .CONST 0x0004 ; Address of exception handler 07f2 0001 | | .CONST 0x0001 ; Number of locals 07f3 BODY_07f0: 07f3 INIT_07f0: 07f3 e01e | | Load 0x0,0x1e 07f4 180e | | Execute Package,Field_Execute,Field_Number 0xe 07f5 00db | | Load_Top At_Offset_3 07f6 4801 |H | Short_Literal 0x1 07f7 6004 |` | Indirect_Literal Discrete,0x7fc,{0x00000000, 0x00005802} 07f8 e004 | | Load 0x0,0x4 07f9 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 07fa 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07fb 0000 | | .XXX[0x1] 07fc 0000 0000 | | .LITERAL {0x00000000, 0x00005802} 0800 ; -------------------------------------------------------------------------------------- 0800 ; SUBPROGRAM 0800 ; -------------------------------------------------------------------------------------- 0800 080b | | .CONST 0x080b ; Address of begin 0801 0004 | | .CONST 0x0004 ; Address of exception handler 0802 0003 | | .CONST 0x0003 ; Number of locals 0803 INIT_0800: 0803 e003 | | Load 0x0,0x3 0804 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0805 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0806 02c7 | | Declare_Variable Any 0807 00d8 | | Load_Top At_Offset_0 0808 1c00 | | Execute_Immediate Run_Utility,0x0 0809 e003 | | Load 0x0,0x3 080a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 080b BODY_0800: 080b e003 | | Load 0x0,0x3 080c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 080d 00da | | Load_Top At_Offset_2 080e 0120 | | Execute Any,Is_Value 080f 6804 |h | Jump_Zero 0x814 0810 e003 | | Load 0x0,0x3 0811 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 0812 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0813 7801 |x | Jump 0x815 0814 00da | | Load_Top At_Offset_2 0815 e5ff | | Load 0x2,-0x1 0816 e003 | | Load 0x0,0x3 0817 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 0818 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0819 c402 | | Store 0x2,0x2 081a 0059 | Y | Store_Top Discrete,At_Offset_1 081b 00d9 | | Load_Top At_Offset_1 081c e003 | | Load 0x0,0x3 081d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 081e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 081f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0820 ; -------------------------------------------------------------------------------------- 0820 ; SUBPROGRAM 0820 ; -------------------------------------------------------------------------------------- 0820 082a | * | .CONST 0x082a ; Address of begin 0821 0004 | | .CONST 0x0004 ; Address of exception handler 0822 0003 | | .CONST 0x0003 ; Number of locals 0823 INIT_0820: 0823 e003 | | Load 0x0,0x3 0824 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0825 02c7 | | Declare_Variable Any 0826 00d8 | | Load_Top At_Offset_0 0827 1c00 | | Execute_Immediate Run_Utility,0x0 0828 e003 | | Load 0x0,0x3 0829 1b0d | | Execute Package,Field_Read,Field_Number 0xd 082a BODY_0820: 082a e003 | | Load 0x0,0x3 082b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 082c 00da | | Load_Top At_Offset_2 082d 0120 | | Execute Any,Is_Value 082e 6803 |h | Jump_Zero 0x832 082f e003 | | Load 0x0,0x3 0830 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0831 7801 |x | Jump 0x833 0832 00da | | Load_Top At_Offset_2 0833 e5ff | | Load 0x2,-0x1 0834 e003 | | Load 0x0,0x3 0835 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 0836 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0837 c402 | | Store 0x2,0x2 0838 0059 | Y | Store_Top Discrete,At_Offset_1 0839 00d9 | | Load_Top At_Offset_1 083a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 083b 0000 0000 | | .BLANK 0000[0x5] 0840 ; -------------------------------------------------------------------------------------- 0840 ; SUBPROGRAM 0840 ; -------------------------------------------------------------------------------------- 0840 0843 | C | .CONST 0x0843 ; Address of begin 0841 0004 | | .CONST 0x0004 ; Address of exception handler 0842 0001 | | .CONST 0x0001 ; Number of locals 0843 BODY_0840: 0843 INIT_0840: 0843 00da | | Load_Top At_Offset_2 0844 e002 | | Load 0x0,0x2 0845 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0846 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0847 0f02 | | Execute_Immediate Equal,0x2 0848 682c |h, | Jump_Zero 0x875 0849 00db | | Load_Top At_Offset_3 084a 0217 | | Execute Heap_Access,All_Reference 084b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 084c 0e02 | | Execute_Immediate Not_Equal,0x2 084d 6826 |h& | Jump_Zero 0x874 084e 00db | | Load_Top At_Offset_3 084f 0217 | | Execute Heap_Access,All_Reference 0850 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0851 7005 |p | Jump_Nonzero 0x857 0852 4802 |H | Short_Literal 0x2 0853 e5fe | | Load 0x2,-0x2 0854 0217 | | Execute Heap_Access,All_Reference 0855 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0856 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0857 4801 |H | Short_Literal 0x1 0858 4802 |H | Short_Literal 0x2 0859 e00f | | Load 0x0,0xf 085a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 085b 035b | [ | Declare_Type Array,Constrained 085c 0337 | 7 | Declare_Variable Array 085d e5fe | | Load 0x2,-0x2 085e 8220 | | Call 0x1,0x20 085f 4801 |H | Short_Literal 0x1 0860 00da | | Load_Top At_Offset_2 0861 01d6 | | Execute Vector,Field_Write 0862 00db | | Load_Top At_Offset_3 0863 e002 | | Load 0x0,0x2 0864 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0865 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 0866 4802 |H | Short_Literal 0x2 0867 00da | | Load_Top At_Offset_2 0868 01d6 | | Execute Vector,Field_Write 0869 603a |`: | Indirect_Literal Discrete,0x8a4,{0x00000000, 0x00003005} 086a e004 | | Load 0x0,0x4 086b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 086c e5fe | | Load 0x2,-0x2 086d 0217 | | Execute Heap_Access,All_Reference 086e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 086f 00db | | Load_Top At_Offset_3 0870 0217 | | Execute Heap_Access,All_Reference 0871 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0872 e004 | | Load 0x0,0x4 0873 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0874 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0875 00db | | Load_Top At_Offset_3 0876 0217 | | Execute Heap_Access,All_Reference 0877 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0878 0e01 | | Execute_Immediate Not_Equal,0x1 0879 6826 |h& | Jump_Zero 0x8a0 087a 00db | | Load_Top At_Offset_3 087b 0217 | | Execute Heap_Access,All_Reference 087c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 087d 7005 |p | Jump_Nonzero 0x883 087e 4801 |H | Short_Literal 0x1 087f e5fe | | Load 0x2,-0x2 0880 0217 | | Execute Heap_Access,All_Reference 0881 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0882 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0883 4801 |H | Short_Literal 0x1 0884 4802 |H | Short_Literal 0x2 0885 e00f | | Load 0x0,0xf 0886 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0887 035b | [ | Declare_Type Array,Constrained 0888 0337 | 7 | Declare_Variable Array 0889 e5fe | | Load 0x2,-0x2 088a 8220 | | Call 0x1,0x20 088b 4801 |H | Short_Literal 0x1 088c 00da | | Load_Top At_Offset_2 088d 01d6 | | Execute Vector,Field_Write 088e 00db | | Load_Top At_Offset_3 088f e002 | | Load 0x0,0x2 0890 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0891 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 0892 4802 |H | Short_Literal 0x2 0893 00da | | Load_Top At_Offset_2 0894 01d6 | | Execute Vector,Field_Write 0895 600e |` | Indirect_Literal Discrete,0x8a4,{0x00000000, 0x00003005} 0896 e004 | | Load 0x0,0x4 0897 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0898 e5fe | | Load 0x2,-0x2 0899 0217 | | Execute Heap_Access,All_Reference 089a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 089b 00db | | Load_Top At_Offset_3 089c 0217 | | Execute Heap_Access,All_Reference 089d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 089e e004 | | Load 0x0,0x4 089f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 08a0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 08a1 0000 0000 | | .XXX[0x3] 08a3 0000 | | 08a4 0000 0000 | | .LITERAL {0x00000000, 0x00003005} 08a8 ; -------------------------------------------------------------------------------------- 08a8 ; SUBPROGRAM 08a8 ; -------------------------------------------------------------------------------------- 08a8 08ad | | .CONST 0x08ad ; Address of begin 08a9 0004 | | .CONST 0x0004 ; Address of exception handler 08aa 0002 | | .CONST 0x0002 ; Number of locals 08ab INIT_08a8: 08ab e23e | > | Load 0x1,0x3e 08ac 0007 | | Action Break_Optional 08ad BODY_08a8: 08ad e5fe | | Load 0x2,-0x2 08ae 6816 |h | Jump_Zero 0x8c5 08af e5fe | | Load 0x2,-0x2 08b0 0217 | | Execute Heap_Access,All_Reference 08b1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 08b2 0031 | 1 | Store_Top Heap_Access,At_Offset_1 08b3 00cf | | Action Mark_Auxiliary 08b4 780d |x | Jump 0x8c2 08b5 e5ff | | Load 0x2,-0x1 08b6 00da | | Load_Top At_Offset_2 08b7 0217 | | Execute Heap_Access,All_Reference 08b8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 08b9 012f | / | Execute Any,Equal 08ba 6802 |h | Jump_Zero 0x8bd 08bb 00d9 | | Load_Top At_Offset_1 08bc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 08bd 00d9 | | Load_Top At_Offset_1 08be 0217 | | Execute Heap_Access,All_Reference 08bf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 08c0 0032 | 2 | Store_Top Heap_Access,At_Offset_2 08c1 00c9 | | Action Pop_Auxiliary_Loop 08c2 00d9 | | Load_Top At_Offset_1 08c3 77f1 |w | Jump_Nonzero 0x8b5 08c4 00ce | | Action Pop_Auxiliary 08c5 4801 |H | Short_Literal 0x1 08c6 4802 |H | Short_Literal 0x2 08c7 e00f | | Load 0x0,0xf 08c8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 08c9 035b | [ | Declare_Type Array,Constrained 08ca 0337 | 7 | Declare_Variable Array 08cb e5ff | | Load 0x2,-0x1 08cc e00f | | Load 0x0,0xf 08cd 181a | | Execute Package,Field_Execute,Field_Number 0x1a 08ce 4801 |H | Short_Literal 0x1 08cf 00da | | Load_Top At_Offset_2 08d0 01d6 | | Execute Vector,Field_Write 08d1 e5fe | | Load 0x2,-0x2 08d2 8220 | | Call 0x1,0x20 08d3 4802 |H | Short_Literal 0x2 08d4 00da | | Load_Top At_Offset_2 08d5 01d6 | | Execute Vector,Field_Write 08d6 600d |` | Indirect_Literal Discrete,0x8e4,{0x00000000, 0x00003007} 08d7 e004 | | Load 0x0,0x4 08d8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 08d9 e5fe | | Load 0x2,-0x2 08da 0217 | | Execute Heap_Access,All_Reference 08db 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 08dc e5fe | | Load 0x2,-0x2 08dd 0217 | | Execute Heap_Access,All_Reference 08de 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 08df e004 | | Load 0x0,0x4 08e0 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 08e1 e23e | > | Load 0x1,0x3e 08e2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 08e3 0000 | | .XXX[0x1] 08e4 0000 0000 | | .LITERAL {0x00000000, 0x00003007} 08e8 ; -------------------------------------------------------------------------------------- 08e8 ; SUBPROGRAM 08e8 ; -------------------------------------------------------------------------------------- 08e8 08ed | | .CONST 0x08ed ; Address of begin 08e9 0004 | | .CONST 0x0004 ; Address of exception handler 08ea 0002 | | .CONST 0x0002 ; Number of locals 08eb INIT_08e8: 08eb e23e | > | Load 0x1,0x3e 08ec 0007 | | Action Break_Optional 08ed BODY_08e8: 08ed e5fe | | Load 0x2,-0x2 08ee 6816 |h | Jump_Zero 0x905 08ef e5fe | | Load 0x2,-0x2 08f0 0217 | | Execute Heap_Access,All_Reference 08f1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 08f2 0031 | 1 | Store_Top Heap_Access,At_Offset_1 08f3 00cf | | Action Mark_Auxiliary 08f4 780d |x | Jump 0x902 08f5 e5ff | | Load 0x2,-0x1 08f6 00da | | Load_Top At_Offset_2 08f7 0217 | | Execute Heap_Access,All_Reference 08f8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 08f9 021f | | Execute Heap_Access,Equal 08fa 6802 |h | Jump_Zero 0x8fd 08fb 00d9 | | Load_Top At_Offset_1 08fc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 08fd 00d9 | | Load_Top At_Offset_1 08fe 0217 | | Execute Heap_Access,All_Reference 08ff 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0900 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0901 00c9 | | Action Pop_Auxiliary_Loop 0902 00d9 | | Load_Top At_Offset_1 0903 77f1 |w | Jump_Nonzero 0x8f5 0904 00ce | | Action Pop_Auxiliary 0905 4801 |H | Short_Literal 0x1 0906 4802 |H | Short_Literal 0x2 0907 e00f | | Load 0x0,0xf 0908 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0909 035b | [ | Declare_Type Array,Constrained 090a 0337 | 7 | Declare_Variable Array 090b e5ff | | Load 0x2,-0x1 090c e002 | | Load 0x0,0x2 090d 1b16 | | Execute Package,Field_Read,Field_Number 0x16 090e 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 090f 4801 |H | Short_Literal 0x1 0910 00da | | Load_Top At_Offset_2 0911 01d6 | | Execute Vector,Field_Write 0912 e5fe | | Load 0x2,-0x2 0913 8220 | | Call 0x1,0x20 0914 4802 |H | Short_Literal 0x2 0915 00da | | Load_Top At_Offset_2 0916 01d6 | | Execute Vector,Field_Write 0917 67cc |g | Indirect_Literal Discrete,0x8e4,{0x00000000, 0x00003007} 0918 e004 | | Load 0x0,0x4 0919 1813 | | Execute Package,Field_Execute,Field_Number 0x13 091a e5fe | | Load 0x2,-0x2 091b 0217 | | Execute Heap_Access,All_Reference 091c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 091d e5fe | | Load 0x2,-0x2 091e 0217 | | Execute Heap_Access,All_Reference 091f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0920 e004 | | Load 0x0,0x4 0921 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0922 e23e | > | Load 0x1,0x3e 0923 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0924 0000 0000 | | .BLANK 0000[0x4] 0928 ; -------------------------------------------------------------------------------------- 0928 ; SUBPROGRAM 0928 ; -------------------------------------------------------------------------------------- 0928 093f | ? | .CONST 0x093f ; Address of begin 0929 0004 | | .CONST 0x0004 ; Address of exception handler 092a 0006 | | .CONST 0x0006 ; Number of locals 092b INIT_0928: 092b e5fd | | Load 0x2,-0x3 092c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 092d e002 | | Load 0x0,0x2 092e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 092f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0930 1c08 | | Execute_Immediate Run_Utility,0x8 0931 e5fd | | Load 0x2,-0x3 0932 00d9 | | Load_Top At_Offset_1 0933 016d | m | Execute Variant_Record,Structure_Write 0934 e5fe | | Load 0x2,-0x2 0935 0217 | | Execute Heap_Access,All_Reference 0936 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0937 0007 | | Action Break_Optional 0938 e23c | < | Load 0x1,0x3c 0939 0007 | | Action Break_Optional 093a e002 | | Load 0x0,0x2 093b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 093c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 093d 00e2 | | Load_Encached Integer_Cache 093e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 093f BODY_0928: 093f 00d8 | | Load_Top At_Offset_0 0940 e402 | | Load 0x2,0x2 0941 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0942 e241 | A | Load 0x1,0x41 0943 e242 | B | Load 0x1,0x42 0944 e243 | C | Load 0x1,0x43 0945 1d44 | D | Execute_Immediate Reference_Lex_1,0x44 0946 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 0947 8007 | | Call 0x0,0x7 0948 00d1 | | Pop_Control Pop_Count_1 0949 0059 | Y | Store_Top Discrete,At_Offset_1 094a 00cf | | Action Mark_Auxiliary 094b e402 | | Load 0x2,0x2 094c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 094d 01d9 | | Execute Vector,Reverse_Bounds 094e 0263 | c | Execute Discrete,Above_Bound 094f 704d |pM | Jump_Nonzero 0x99d 0950 00d8 | | Load_Top At_Offset_0 0951 e402 | | Load 0x2,0x2 0952 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0953 01d7 | | Execute Vector,Field_Read 0954 a405 | | Store_Unchecked 0x2,0x5 0955 00cf | | Action Mark_Auxiliary 0956 7807 |x | Jump 0x95e 0957 e403 | | Load 0x2,0x3 0958 a404 | | Store_Unchecked 0x2,0x4 0959 e403 | | Load 0x2,0x3 095a 0217 | | Execute Heap_Access,All_Reference 095b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 095c a403 | | Store_Unchecked 0x2,0x3 095d 00c9 | | Action Pop_Auxiliary_Loop 095e e403 | | Load 0x2,0x3 095f 6806 |h | Jump_Zero 0x966 0960 e405 | | Load 0x2,0x5 0961 e403 | | Load 0x2,0x3 0962 0217 | | Execute Heap_Access,All_Reference 0963 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0964 823f | ? | Call 0x1,0x3f 0965 77f1 |w | Jump_Nonzero 0x957 0966 00ce | | Action Pop_Auxiliary 0967 e403 | | Load 0x2,0x3 0968 6806 |h | Jump_Zero 0x96f 0969 e405 | | Load 0x2,0x5 096a e403 | | Load 0x2,0x3 096b 0217 | | Execute Heap_Access,All_Reference 096c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 096d 021e | | Execute Heap_Access,Maximum 096e 682c |h, | Jump_Zero 0x99b 096f e23b | ; | Load 0x1,0x3b 0970 0322 | " | Declare_Variable Record 0971 e405 | | Load 0x2,0x5 0972 00d9 | | Load_Top At_Offset_1 0973 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0974 e403 | | Load 0x2,0x3 0975 00d9 | | Load_Top At_Offset_1 0976 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0977 e23c | < | Load 0x1,0x3c 0978 e018 | | Load 0x0,0x18 0979 180d | | Execute Package,Field_Execute,Field_Number 0xd 097a 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 097b a403 | | Store_Unchecked 0x2,0x3 097c e404 | | Load 0x2,0x4 097d 7007 |p | Jump_Nonzero 0x985 097e e403 | | Load 0x2,0x3 097f e5fe | | Load 0x2,-0x2 0980 0217 | | Execute Heap_Access,All_Reference 0981 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0982 e403 | | Load 0x2,0x3 0983 a404 | | Store_Unchecked 0x2,0x4 0984 7808 |x | Jump 0x98d 0985 e403 | | Load 0x2,0x3 0986 e404 | | Load 0x2,0x4 0987 0217 | | Execute Heap_Access,All_Reference 0988 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0989 e404 | | Load 0x2,0x4 098a 0217 | | Execute Heap_Access,All_Reference 098b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 098c a404 | | Store_Unchecked 0x2,0x4 098d e5fe | | Load 0x2,-0x2 098e 0217 | | Execute Heap_Access,All_Reference 098f 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0990 0a01 | | Execute_Immediate Plus,0x1 0991 e5fe | | Load 0x2,-0x2 0992 0217 | | Execute Heap_Access,All_Reference 0993 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0994 e5ff | | Load 0x2,-0x1 0995 0217 | | Execute Heap_Access,All_Reference 0996 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0997 0a01 | | Execute_Immediate Plus,0x1 0998 e5ff | | Load 0x2,-0x1 0999 0217 | | Execute Heap_Access,All_Reference 099a 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 099b 00c8 | | Action Pop_Auxiliary_Range 099c 3fb3 |? | Loop_Increasing 0x950 099d 00ce | | Action Pop_Auxiliary 099e 0092 0d47 | G| Action Push_String_Extended,0xd47 ; "Activated" 09a0 e5fd | | Load 0x2,-0x3 09a1 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 09a2 00e0 | | Load_Encached Standard_Cache 09a3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 09a4 01cc | | Execute Vector,Catenate 09a5 0092 0d48 | H| Action Push_String_Extended,0xd48 ; " units." 09a7 01cc | | Execute Vector,Catenate 09a8 8240 | @ | Call 0x1,0x40 09a9 e5fc | | Load 0x2,-0x4 09aa 682b |h+ | Jump_Zero 0x9d6 09ab e5ff | | Load 0x2,-0x1 09ac 0217 | | Execute Heap_Access,All_Reference 09ad 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 09ae 0f01 | | Execute_Immediate Equal,0x1 09af 680f |h | Jump_Zero 0x9bf 09b0 e5ff | | Load 0x2,-0x1 09b1 0219 | | Execute Heap_Access,All_Read 09b2 00d8 | | Load_Top At_Offset_0 09b3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 09b4 e5fc | | Load 0x2,-0x4 09b5 e5ff | | Load 0x2,-0x1 09b6 8237 | 7 | Call 0x1,0x37 09b7 e402 | | Load 0x2,0x2 09b8 e002 | | Load 0x0,0x2 09b9 1b14 | | Execute Package,Field_Read,Field_Number 0x14 09ba 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 09bb 00d9 | | Load_Top At_Offset_1 09bc 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 09bd 00d1 | | Pop_Control Pop_Count_1 09be 4505 |E | Exit_Suprogram New_Top_Offset 0x5 09bf 4801 |H | Short_Literal 0x1 09c0 4802 |H | Short_Literal 0x2 09c1 e00f | | Load 0x0,0xf 09c2 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09c3 035b | [ | Declare_Type Array,Constrained 09c4 0337 | 7 | Declare_Variable Array 09c5 e5fe | | Load 0x2,-0x2 09c6 0217 | | Execute Heap_Access,All_Reference 09c7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 09c8 e002 | | Load 0x0,0x2 09c9 1b16 | | Execute Package,Field_Read,Field_Number 0x16 09ca 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 09cb 4801 |H | Short_Literal 0x1 09cc 00da | | Load_Top At_Offset_2 09cd 01d6 | | Execute Vector,Field_Write 09ce e5ff | | Load 0x2,-0x1 09cf 8220 | | Call 0x1,0x20 09d0 4802 |H | Short_Literal 0x2 09d1 00da | | Load_Top At_Offset_2 09d2 01d6 | | Execute Vector,Field_Write 09d3 6004 |` | Indirect_Literal Discrete,0x9d8,{0x00000000, 0x0000300a} 09d4 e004 | | Load 0x0,0x4 09d5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 09d6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 09d7 0000 | | .XXX[0x1] 09d8 0000 0000 | | .LITERAL {0x00000000, 0x0000300a} 09dc 0000 0000 | | .BLANK 0000[0x4] 09e0 ; -------------------------------------------------------------------------------------- 09e0 ; SUBPROGRAM 09e0 ; -------------------------------------------------------------------------------------- 09e0 09e3 | | .CONST 0x09e3 ; Address of begin 09e1 0004 | | .CONST 0x0004 ; Address of exception handler 09e2 0001 | | .CONST 0x0001 ; Number of locals 09e3 BODY_09e0: 09e3 INIT_09e0: 09e3 e5fb | | Load 0x2,-0x5 09e4 6837 |h7 | Jump_Zero 0xa1c 09e5 00da | | Load_Top At_Offset_2 09e6 0217 | | Execute Heap_Access,All_Reference 09e7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 09e8 0f01 | | Execute_Immediate Equal,0x1 09e9 680f |h | Jump_Zero 0x9f9 09ea 4800 |H | Short_Literal 0x0 09eb e5fc | | Load 0x2,-0x4 09ec e5ff | | Load 0x2,-0x1 09ed 8237 | 7 | Call 0x1,0x37 09ee e5fe | | Load 0x2,-0x2 09ef 0217 | | Execute Heap_Access,All_Reference 09f0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 09f1 e5fd | | Load 0x2,-0x3 09f2 e002 | | Load 0x0,0x2 09f3 1b16 | | Execute Package,Field_Read,Field_Number 0x16 09f4 1890 | | Execute Package,Field_Execute,Field_Number 0x90 09f5 e5fe | | Load 0x2,-0x2 09f6 e5ff | | Load 0x2,-0x1 09f7 824d | M | Call 0x1,0x4d 09f8 4506 |E | Exit_Suprogram New_Top_Offset 0x6 09f9 4801 |H | Short_Literal 0x1 09fa 4802 |H | Short_Literal 0x2 09fb e00f | | Load 0x0,0xf 09fc 1b0f | | Execute Package,Field_Read,Field_Number 0xf 09fd 035b | [ | Declare_Type Array,Constrained 09fe 0337 | 7 | Declare_Variable Array 09ff e5fe | | Load 0x2,-0x2 0a00 0217 | | Execute Heap_Access,All_Reference 0a01 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0a02 e002 | | Load 0x0,0x2 0a03 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0a04 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 0a05 4801 |H | Short_Literal 0x1 0a06 00da | | Load_Top At_Offset_2 0a07 01d6 | | Execute Vector,Field_Write 0a08 00db | | Load_Top At_Offset_3 0a09 8220 | | Call 0x1,0x20 0a0a 4802 |H | Short_Literal 0x2 0a0b 00da | | Load_Top At_Offset_2 0a0c 01d6 | | Execute Vector,Field_Write 0a0d 601a |` | Indirect_Literal Discrete,0xa28,{0x00000000, 0x0000300b} 0a0e e004 | | Load 0x0,0x4 0a0f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0a10 4800 |H | Short_Literal 0x0 0a11 e5fe | | Load 0x2,-0x2 0a12 0217 | | Execute Heap_Access,All_Reference 0a13 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0a14 e5fd | | Load 0x2,-0x3 0a15 e002 | | Load 0x0,0x2 0a16 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0a17 1876 | v | Execute Package,Field_Execute,Field_Number 0x76 0a18 e5fe | | Load 0x2,-0x2 0a19 e5ff | | Load 0x2,-0x1 0a1a 824d | M | Call 0x1,0x4d 0a1b 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0a1c e5fc | | Load 0x2,-0x4 0a1d e5fe | | Load 0x2,-0x2 0a1e 0217 | | Execute Heap_Access,All_Reference 0a1f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0a20 e5fd | | Load 0x2,-0x3 0a21 e002 | | Load 0x0,0x2 0a22 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0a23 1876 | v | Execute Package,Field_Execute,Field_Number 0x76 0a24 e5fe | | Load 0x2,-0x2 0a25 e5ff | | Load 0x2,-0x1 0a26 824d | M | Call 0x1,0x4d 0a27 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0a28 0000 0000 | | .LITERAL {0x00000000, 0x0000300b} 0a2c 0000 0000 | | .BLANK 0000[0x4] 0a30 ; -------------------------------------------------------------------------------------- 0a30 ; SUBPROGRAM 0a30 ; -------------------------------------------------------------------------------------- 0a30 0a47 | G | .CONST 0x0a47 ; Address of begin 0a31 0004 | | .CONST 0x0004 ; Address of exception handler 0a32 0006 | | .CONST 0x0006 ; Number of locals 0a33 INIT_0a30: 0a33 e5fd | | Load 0x2,-0x3 0a34 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0a35 e002 | | Load 0x0,0x2 0a36 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0a37 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0a38 1c08 | | Execute_Immediate Run_Utility,0x8 0a39 e5fd | | Load 0x2,-0x3 0a3a 00d9 | | Load_Top At_Offset_1 0a3b 016d | m | Execute Variant_Record,Structure_Write 0a3c e5fe | | Load 0x2,-0x2 0a3d 0217 | | Execute Heap_Access,All_Reference 0a3e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0a3f 0007 | | Action Break_Optional 0a40 e23c | < | Load 0x1,0x3c 0a41 0007 | | Action Break_Optional 0a42 e002 | | Load 0x0,0x2 0a43 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0a44 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a45 00e2 | | Load_Encached Integer_Cache 0a46 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0a47 BODY_0a30: 0a47 00d8 | | Load_Top At_Offset_0 0a48 e402 | | Load 0x2,0x2 0a49 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0a4a e241 | A | Load 0x1,0x41 0a4b e242 | B | Load 0x1,0x42 0a4c e243 | C | Load 0x1,0x43 0a4d 1d44 | D | Execute_Immediate Reference_Lex_1,0x44 0a4e 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 0a4f 8007 | | Call 0x0,0x7 0a50 00d1 | | Pop_Control Pop_Count_1 0a51 0059 | Y | Store_Top Discrete,At_Offset_1 0a52 00cf | | Action Mark_Auxiliary 0a53 e402 | | Load 0x2,0x2 0a54 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0a55 01d9 | | Execute Vector,Reverse_Bounds 0a56 0263 | c | Execute Discrete,Above_Bound 0a57 7041 |pA | Jump_Nonzero 0xa99 0a58 00d8 | | Load_Top At_Offset_0 0a59 e402 | | Load 0x2,0x2 0a5a 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0a5b 01d7 | | Execute Vector,Field_Read 0a5c a405 | | Store_Unchecked 0x2,0x5 0a5d 00cf | | Action Mark_Auxiliary 0a5e e403 | | Load 0x2,0x3 0a5f 7001 |p | Jump_Nonzero 0xa61 0a60 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0a61 e405 | | Load 0x2,0x5 0a62 e403 | | Load 0x2,0x3 0a63 0217 | | Execute Heap_Access,All_Reference 0a64 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0a65 823f | ? | Call 0x1,0x3f 0a66 6808 |h | Jump_Zero 0xa6f 0a67 e403 | | Load 0x2,0x3 0a68 a404 | | Store_Unchecked 0x2,0x4 0a69 e403 | | Load 0x2,0x3 0a6a 0217 | | Execute Heap_Access,All_Reference 0a6b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0a6c a403 | | Store_Unchecked 0x2,0x3 0a6d 00c9 | | Action Pop_Auxiliary_Loop 0a6e 7fef | | Jump 0xa5e 0a6f 00ce | | Action Pop_Auxiliary 0a70 e405 | | Load 0x2,0x5 0a71 e403 | | Load 0x2,0x3 0a72 0217 | | Execute Heap_Access,All_Reference 0a73 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0a74 021f | | Execute Heap_Access,Equal 0a75 6821 |h! | Jump_Zero 0xa97 0a76 e404 | | Load 0x2,0x4 0a77 7007 |p | Jump_Nonzero 0xa7f 0a78 e403 | | Load 0x2,0x3 0a79 0217 | | Execute Heap_Access,All_Reference 0a7a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0a7b e5fe | | Load 0x2,-0x2 0a7c 0217 | | Execute Heap_Access,All_Reference 0a7d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0a7e 7806 |x | Jump 0xa85 0a7f e403 | | Load 0x2,0x3 0a80 0217 | | Execute Heap_Access,All_Reference 0a81 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0a82 e404 | | Load 0x2,0x4 0a83 0217 | | Execute Heap_Access,All_Reference 0a84 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0a85 e403 | | Load 0x2,0x3 0a86 0217 | | Execute Heap_Access,All_Reference 0a87 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0a88 a403 | | Store_Unchecked 0x2,0x3 0a89 e5fe | | Load 0x2,-0x2 0a8a 0217 | | Execute Heap_Access,All_Reference 0a8b 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0a8c 0aff | | Execute_Immediate Plus,-0x1 0a8d e5fe | | Load 0x2,-0x2 0a8e 0217 | | Execute Heap_Access,All_Reference 0a8f 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0a90 e5ff | | Load 0x2,-0x1 0a91 0217 | | Execute Heap_Access,All_Reference 0a92 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0a93 0aff | | Execute_Immediate Plus,-0x1 0a94 e5ff | | Load 0x2,-0x1 0a95 0217 | | Execute Heap_Access,All_Reference 0a96 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0a97 00c8 | | Action Pop_Auxiliary_Range 0a98 3fbf |? | Loop_Increasing 0xa58 0a99 00ce | | Action Pop_Auxiliary 0a9a 0092 0d49 | I| Action Push_String_Extended,0xd49 ; "Deactivated" 0a9c e5fd | | Load 0x2,-0x3 0a9d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0a9e 00e0 | | Load_Encached Standard_Cache 0a9f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0aa0 01cc | | Execute Vector,Catenate 0aa1 0092 0d48 | H| Action Push_String_Extended,0xd48 ; " units." 0aa3 01cc | | Execute Vector,Catenate 0aa4 8240 | @ | Call 0x1,0x40 0aa5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0aa6 0000 0000 | | .XXX[0x2] 0aa8 ; -------------------------------------------------------------------------------------- 0aa8 ; SUBPROGRAM 0aa8 ; -------------------------------------------------------------------------------------- 0aa8 0aab | | .CONST 0x0aab ; Address of begin 0aa9 0004 | | .CONST 0x0004 ; Address of exception handler 0aaa 0001 | | .CONST 0x0001 ; Number of locals 0aab BODY_0aa8: 0aab INIT_0aa8: 0aab 00db | | Load_Top At_Offset_3 0aac e006 | | Load 0x0,0x6 0aad 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0aae 00d9 | | Load_Top At_Offset_1 0aaf 00d0 | | Action Swap_Control 0ab0 0260 | ` | Execute Discrete,In_Type 0ab1 7001 |p | Jump_Nonzero 0xab3 0ab2 0801 | | Execute_Immediate Raise,0x1 0ab3 00db | | Load_Top At_Offset_3 0ab4 e251 | Q | Load 0x1,0x51 0ab5 e252 | R | Load 0x1,0x52 0ab6 1d53 | S | Execute_Immediate Reference_Lex_1,0x53 0ab7 e00c | | Load 0x0,0xc 0ab8 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0ab9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0aba 0000 0000 | | .BLANK 0000[0x6] 0ac0 ; -------------------------------------------------------------------------------------- 0ac0 ; SUBPROGRAM 0ac0 ; -------------------------------------------------------------------------------------- 0ac0 0ac3 | | .CONST 0x0ac3 ; Address of begin 0ac1 0004 | | .CONST 0x0004 ; Address of exception handler 0ac2 0001 | | .CONST 0x0001 ; Number of locals 0ac3 BODY_0ac0: 0ac3 INIT_0ac0: 0ac3 4800 |H | Short_Literal 0x0 0ac4 00db | | Load_Top At_Offset_3 0ac5 e004 | | Load 0x0,0x4 0ac6 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0ac7 6802 |h | Jump_Zero 0xaca 0ac8 00db | | Load_Top At_Offset_3 0ac9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0aca 4800 |H | Short_Literal 0x0 0acb e5fe | | Load 0x2,-0x2 0acc e004 | | Load 0x0,0x4 0acd 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0ace 6802 |h | Jump_Zero 0xad1 0acf 00da | | Load_Top At_Offset_2 0ad0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0ad1 00da | | Load_Top At_Offset_2 0ad2 e004 | | Load 0x0,0x4 0ad3 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0ad4 6057 |`W | Indirect_Literal Discrete,0xb2c,{0x00000000, 0x00000801} 0ad5 027f | | Execute Discrete,Equal 0ad6 6825 |h% | Jump_Zero 0xafc 0ad7 00db | | Load_Top At_Offset_3 0ad8 e004 | | Load 0x0,0x4 0ad9 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0ada 6051 |`Q | Indirect_Literal Discrete,0xb2c,{0x00000000, 0x00000801} 0adb 027f | | Execute Discrete,Equal 0adc 680b |h | Jump_Zero 0xae8 0add 00da | | Load_Top At_Offset_2 0ade e004 | | Load 0x0,0x4 0adf 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0ae0 e5fe | | Load 0x2,-0x2 0ae1 e004 | | Load 0x0,0x4 0ae2 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0ae3 01cc | | Execute Vector,Catenate 0ae4 6047 |`G | Indirect_Literal Discrete,0xb2c,{0x00000000, 0x00000801} 0ae5 e004 | | Load 0x0,0x4 0ae6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0ae7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0ae8 00da | | Load_Top At_Offset_2 0ae9 e004 | | Load 0x0,0x4 0aea 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0aeb 4801 |H | Short_Literal 0x1 0aec 4801 |H | Short_Literal 0x1 0aed e00f | | Load 0x0,0xf 0aee 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0aef 035b | [ | Declare_Type Array,Constrained 0af0 0337 | 7 | Declare_Variable Array 0af1 e5fe | | Load 0x2,-0x2 0af2 e004 | | Load 0x0,0x4 0af3 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0af4 4801 |H | Short_Literal 0x1 0af5 00da | | Load_Top At_Offset_2 0af6 01d6 | | Execute Vector,Field_Write 0af7 01cc | | Execute Vector,Catenate 0af8 6033 |`3 | Indirect_Literal Discrete,0xb2c,{0x00000000, 0x00000801} 0af9 e004 | | Load 0x0,0x4 0afa 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0afb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0afc 00db | | Load_Top At_Offset_3 0afd e004 | | Load 0x0,0x4 0afe 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0aff 602c |`, | Indirect_Literal Discrete,0xb2c,{0x00000000, 0x00000801} 0b00 027f | | Execute Discrete,Equal 0b01 6814 |h | Jump_Zero 0xb16 0b02 4801 |H | Short_Literal 0x1 0b03 4801 |H | Short_Literal 0x1 0b04 e00f | | Load 0x0,0xf 0b05 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b06 035b | [ | Declare_Type Array,Constrained 0b07 0337 | 7 | Declare_Variable Array 0b08 00db | | Load_Top At_Offset_3 0b09 e004 | | Load 0x0,0x4 0b0a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0b0b 4801 |H | Short_Literal 0x1 0b0c 00da | | Load_Top At_Offset_2 0b0d 01d6 | | Execute Vector,Field_Write 0b0e e5fe | | Load 0x2,-0x2 0b0f e004 | | Load 0x0,0x4 0b10 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0b11 01cc | | Execute Vector,Catenate 0b12 6019 |` | Indirect_Literal Discrete,0xb2c,{0x00000000, 0x00000801} 0b13 e004 | | Load 0x0,0x4 0b14 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0b15 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0b16 4801 |H | Short_Literal 0x1 0b17 4802 |H | Short_Literal 0x2 0b18 e00f | | Load 0x0,0xf 0b19 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b1a 035b | [ | Declare_Type Array,Constrained 0b1b 0337 | 7 | Declare_Variable Array 0b1c 00db | | Load_Top At_Offset_3 0b1d e004 | | Load 0x0,0x4 0b1e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0b1f 4801 |H | Short_Literal 0x1 0b20 00da | | Load_Top At_Offset_2 0b21 01d6 | | Execute Vector,Field_Write 0b22 e5fe | | Load 0x2,-0x2 0b23 e004 | | Load 0x0,0x4 0b24 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0b25 4802 |H | Short_Literal 0x2 0b26 00da | | Load_Top At_Offset_2 0b27 01d6 | | Execute Vector,Field_Write 0b28 6003 |` | Indirect_Literal Discrete,0xb2c,{0x00000000, 0x00000801} 0b29 e004 | | Load 0x0,0x4 0b2a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0b2b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0b2c 0000 0000 | | .LITERAL {0x00000000, 0x00000801} 0b30 ; -------------------------------------------------------------------------------------- 0b30 ; SUBPROGRAM 0b30 ; -------------------------------------------------------------------------------------- 0b30 0b33 | 3 | .CONST 0x0b33 ; Address of begin 0b31 0004 | | .CONST 0x0004 ; Address of exception handler 0b32 0001 | | .CONST 0x0001 ; Number of locals 0b33 BODY_0b30: 0b33 INIT_0b30: 0b33 00da | | Load_Top At_Offset_2 0b34 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0b35 7002 |p | Jump_Nonzero 0xb38 0b36 00db | | Load_Top At_Offset_3 0b37 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0b38 00db | | Load_Top At_Offset_3 0b39 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0b3a 7002 |p | Jump_Nonzero 0xb3d 0b3b 00da | | Load_Top At_Offset_2 0b3c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0b3d 00da | | Load_Top At_Offset_2 0b3e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0b3f e5fe | | Load 0x2,-0x2 0b40 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0b41 0273 | s | Execute Discrete,Plus 0b42 e002 | | Load 0x0,0x2 0b43 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0b44 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0b45 1c08 | | Execute_Immediate Run_Utility,0x8 0b46 e5fe | | Load 0x2,-0x2 0b47 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0b48 e5ff | | Load 0x2,-0x1 0b49 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0b4a 8265 | e | Call 0x1,0x65 0b4b 00d9 | | Load_Top At_Offset_1 0b4c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0b4d 00db | | Load_Top At_Offset_3 0b4e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0b4f e5fe | | Load 0x2,-0x2 0b50 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0b51 01cc | | Execute Vector,Catenate 0b52 00d9 | | Load_Top At_Offset_1 0b53 00d8 | | Load_Top At_Offset_0 0b54 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0b55 00da | | Load_Top At_Offset_2 0b56 01da | | Execute Vector,Bounds 0b57 00da | | Load_Top At_Offset_2 0b58 01da | | Execute Vector,Bounds 0b59 00da | | Load_Top At_Offset_2 0b5a 027f | | Execute Discrete,Equal 0b5b 7001 |p | Jump_Nonzero 0xb5d 0b5c 08e0 | | Execute_Immediate Raise,0xe0 0b5d 00cd | | Action Spare6_Action 0b5e 027f | | Execute Discrete,Equal 0b5f 7001 |p | Jump_Nonzero 0xb61 0b60 08e0 | | Execute_Immediate Raise,0xe0 0b61 00d2 | | Pop_Control Pop_Count_2 0b62 00d9 | | Load_Top At_Offset_1 0b63 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0b64 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0b65 0000 0000 | | .XXX[0x3] 0b67 0000 | | 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 00db | | Load_Top At_Offset_3 0b6c 7004 |p | Jump_Nonzero 0xb71 0b6d e002 | | Load 0x0,0x2 0b6e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0b6f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0b70 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0b71 00db | | Load_Top At_Offset_3 0b72 0217 | | Execute Heap_Access,All_Reference 0b73 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0b74 00db | | Load_Top At_Offset_3 0b75 8267 | g | Call 0x1,0x67 0b76 e5fe | | Load 0x2,-0x2 0b77 0217 | | Execute Heap_Access,All_Reference 0b78 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0b79 e5ff | | Load 0x2,-0x1 0b7a e002 | | Load 0x0,0x2 0b7b 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0b7c 1876 | v | Execute Package,Field_Execute,Field_Number 0x76 0b7d 8266 | f | Call 0x1,0x66 0b7e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0b7f 0000 | | .XXX[0x1] 0b80 ; -------------------------------------------------------------------------------------- 0b80 ; SUBPROGRAM 0b80 ; -------------------------------------------------------------------------------------- 0b80 0b8f | | .CONST 0x0b8f ; Address of begin 0b81 0bd6 | | .CONST 0x0bd6 ; Address of exception handler 0b82 0004 | | .CONST 0x0004 ; Number of locals 0b83 INIT_0b80: 0b83 e003 | | Load 0x0,0x3 0b84 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b85 02c7 | | Declare_Variable Any 0b86 00d8 | | Load_Top At_Offset_0 0b87 1c00 | | Execute_Immediate Run_Utility,0x0 0b88 e01d | | Load 0x0,0x1d 0b89 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0b8a 02c7 | | Declare_Variable Any 0b8b 00d8 | | Load_Top At_Offset_0 0b8c 1c00 | | Execute_Immediate Run_Utility,0x0 0b8d e003 | | Load 0x0,0x3 0b8e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b8f BODY_0b80: 0b8f 00be | | Action Activate_Tasks 0b90 e5fe | | Load 0x2,-0x2 0b91 6843 |hC | Jump_Zero 0xbd5 0b92 e5fe | | Load 0x2,-0x2 0b93 0217 | | Execute Heap_Access,All_Reference 0b94 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0b95 c402 | | Store 0x2,0x2 0b96 00da | | Load_Top At_Offset_2 0b97 e003 | | Load 0x0,0x3 0b98 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0b99 6805 |h | Jump_Zero 0xb9f 0b9a e01e | | Load 0x0,0x1e 0b9b 180e | | Execute Package,Field_Execute,Field_Number 0xe 0b9c e01e | | Load 0x0,0x1e 0b9d 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0b9e c402 | | Store 0x2,0x2 0b9f e003 | | Load 0x0,0x3 0ba0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0ba1 00da | | Load_Top At_Offset_2 0ba2 4800 |H | Short_Literal 0x0 0ba3 4800 |H | Short_Literal 0x0 0ba4 e01a | | Load 0x0,0x1a 0ba5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ba6 e402 | | Load 0x2,0x2 0ba7 e01d | | Load 0x0,0x1d 0ba8 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0ba9 c403 | | Store 0x2,0x3 0baa 0059 | Y | Store_Top Discrete,At_Offset_1 0bab 00d8 | | Load_Top At_Offset_0 0bac 681c |h | Jump_Zero 0xbc9 0bad e003 | | Load 0x0,0x3 0bae 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0baf c5fd | | Store 0x2,-0x3 0bb0 e004 | | Load 0x0,0x4 0bb1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0bb2 4801 |H | Short_Literal 0x1 0bb3 4802 |H | Short_Literal 0x2 0bb4 e00f | | Load 0x0,0xf 0bb5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0bb6 035b | [ | Declare_Type Array,Constrained 0bb7 0337 | 7 | Declare_Variable Array 0bb8 e402 | | Load 0x2,0x2 0bb9 e00f | | Load 0x0,0xf 0bba 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0bbb 4801 |H | Short_Literal 0x1 0bbc 00da | | Load_Top At_Offset_2 0bbd 01d6 | | Execute Vector,Field_Write 0bbe 00da | | Load_Top At_Offset_2 0bbf e00f | | Load 0x0,0xf 0bc0 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0bc1 4802 |H | Short_Literal 0x2 0bc2 00da | | Load_Top At_Offset_2 0bc3 01d6 | | Execute Vector,Field_Write 0bc4 603b |`; | Indirect_Literal Discrete,0xc00,{0x00000000, 0x00003003} 0bc5 e004 | | Load 0x0,0x4 0bc6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0bc7 c5fc | | Store 0x2,-0x4 0bc8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0bc9 00d9 | | Load_Top At_Offset_1 0bca e5ff | | Load 0x2,-0x1 0bcb e01d | | Load 0x0,0x1d 0bcc 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0bcd c5fd | | Store 0x2,-0x3 0bce e003 | | Load 0x0,0x3 0bcf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0bd0 00da | | Load_Top At_Offset_2 0bd1 e01d | | Load 0x0,0x1d 0bd2 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0bd3 c403 | | Store 0x2,0x3 0bd4 0059 | Y | Store_Top Discrete,At_Offset_1 0bd5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0bd6 TRAP_0b80: 0bd6 e01d | | Load 0x0,0x1d 0bd7 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0bd8 010f | | Execute Exception,Equal 0bd9 6820 |h | Jump_Zero 0xbfa 0bda e003 | | Load 0x0,0x3 0bdb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0bdc 00db | | Load_Top At_Offset_3 0bdd e01d | | Load 0x0,0x1d 0bde 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0bdf c403 | | Store 0x2,0x3 0be0 005a | Z | Store_Top Discrete,At_Offset_2 0be1 e004 | | Load 0x0,0x4 0be2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0be3 4801 |H | Short_Literal 0x1 0be4 4802 |H | Short_Literal 0x2 0be5 e00f | | Load 0x0,0xf 0be6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0be7 035b | [ | Declare_Type Array,Constrained 0be8 0337 | 7 | Declare_Variable Array 0be9 e5ff | | Load 0x2,-0x1 0bea e00f | | Load 0x0,0xf 0beb 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0bec 4801 |H | Short_Literal 0x1 0bed 00da | | Load_Top At_Offset_2 0bee 01d6 | | Execute Vector,Field_Write 0bef e402 | | Load 0x2,0x2 0bf0 e00f | | Load 0x0,0xf 0bf1 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0bf2 4802 |H | Short_Literal 0x2 0bf3 00da | | Load_Top At_Offset_2 0bf4 01d6 | | Execute Vector,Field_Write 0bf5 6006 |` | Indirect_Literal Discrete,0xbfc,{0x00000000, 0x00003009} 0bf6 e004 | | Load 0x0,0x4 0bf7 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0bf8 c5fc | | Store 0x2,-0x4 0bf9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0bfa 0100 | | Execute Exception,Raise 0bfb 0000 | | .XXX[0x1] 0bfc 0000 0000 | | .LITERAL {0x00000000, 0x00003009} 0c00 0000 0000 | | .LITERAL {0x00000000, 0x00003003} 0c04 0000 0000 | | .BLANK 0000[0x4] 0c08 ; -------------------------------------------------------------------------------------- 0c08 ; SUBPROGRAM 0c08 ; -------------------------------------------------------------------------------------- 0c08 0c19 | | .CONST 0x0c19 ; Address of begin 0c09 0004 | | .CONST 0x0004 ; Address of exception handler 0c0a 0004 | | .CONST 0x0004 ; Number of locals 0c0b INIT_0c08: 0c0b e23e | > | Load 0x1,0x3e 0c0c 0007 | | Action Break_Optional 0c0d e003 | | Load 0x0,0x3 0c0e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c0f 02c7 | | Declare_Variable Any 0c10 00d8 | | Load_Top At_Offset_0 0c11 1c00 | | Execute_Immediate Run_Utility,0x0 0c12 e5ff | | Load 0x2,-0x1 0c13 e002 | | Load 0x0,0x2 0c14 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0c15 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0c16 e003 | | Load 0x0,0x3 0c17 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0c18 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0c19 BODY_0c08: 0c19 e5fe | | Load 0x2,-0x2 0c1a 6861 |ha | Jump_Zero 0xc7c 0c1b e5fe | | Load 0x2,-0x2 0c1c 0217 | | Execute Heap_Access,All_Reference 0c1d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0c1e 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0c1f e002 | | Load 0x0,0x2 0c20 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0c21 180e | | Execute Package,Field_Execute,Field_Number 0xe 0c22 a5fd | | Store_Unchecked 0x2,-0x3 0c23 e5ff | | Load 0x2,-0x1 0c24 e002 | | Load 0x0,0x2 0c25 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0c26 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0c27 c403 | | Store 0x2,0x3 0c28 00d9 | | Load_Top At_Offset_1 0c29 e003 | | Load 0x0,0x3 0c2a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0c2b 6810 |h | Jump_Zero 0xc3c 0c2c e5fc | | Load 0x2,-0x4 0c2d 00da | | Load_Top At_Offset_2 0c2e 0120 | | Execute Any,Is_Value 0c2f 6803 |h | Jump_Zero 0xc33 0c30 e003 | | Load 0x0,0x3 0c31 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c32 7801 |x | Jump 0xc34 0c33 00da | | Load_Top At_Offset_2 0c34 e5fe | | Load 0x2,-0x2 0c35 e5ff | | Load 0x2,-0x1 0c36 e002 | | Load 0x0,0x2 0c37 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0c38 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0c39 8268 | h | Call 0x1,0x68 0c3a c403 | | Store 0x2,0x3 0c3b c5fc | | Store 0x2,-0x4 0c3c 4800 |H | Short_Literal 0x0 0c3d e5fc | | Load 0x2,-0x4 0c3e e004 | | Load 0x0,0x4 0c3f 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0c40 683b |h; | Jump_Zero 0xc7c 0c41 00cf | | Action Mark_Auxiliary 0c42 7810 |x | Jump 0xc53 0c43 00da | | Load_Top At_Offset_2 0c44 e402 | | Load 0x2,0x2 0c45 0217 | | Execute Heap_Access,All_Reference 0c46 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0c47 012f | / | Execute Any,Equal 0c48 6805 |h | Jump_Zero 0xc4e 0c49 00db | | Load_Top At_Offset_3 0c4a 0217 | | Execute Heap_Access,All_Reference 0c4b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0c4c a5fd | | Store_Unchecked 0x2,-0x3 0c4d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0c4e 00db | | Load_Top At_Offset_3 0c4f 0217 | | Execute Heap_Access,All_Reference 0c50 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0c51 a402 | | Store_Unchecked 0x2,0x2 0c52 00c9 | | Action Pop_Auxiliary_Loop 0c53 00db | | Load_Top At_Offset_3 0c54 77ee |w | Jump_Nonzero 0xc43 0c55 00ce | | Action Pop_Auxiliary 0c56 4801 |H | Short_Literal 0x1 0c57 e239 | 9 | Load 0x1,0x39 0c58 00da | | Load_Top At_Offset_2 0c59 e019 | | Load 0x0,0x19 0c5a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0c5b 7006 |p | Jump_Nonzero 0xc62 0c5c 4801 |H | Short_Literal 0x1 0c5d e23a | : | Load 0x1,0x3a 0c5e 00da | | Load_Top At_Offset_2 0c5f e019 | | Load 0x0,0x19 0c60 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0c61 7801 |x | Jump 0xc63 0c62 4801 |H | Short_Literal 0x1 0c63 7018 |p | Jump_Nonzero 0xc7c 0c64 e004 | | Load 0x0,0x4 0c65 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0c66 4801 |H | Short_Literal 0x1 0c67 4802 |H | Short_Literal 0x2 0c68 e00f | | Load 0x0,0xf 0c69 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0c6a 035b | [ | Declare_Type Array,Constrained 0c6b 0337 | 7 | Declare_Variable Array 0c6c e5ff | | Load 0x2,-0x1 0c6d e002 | | Load 0x0,0x2 0c6e 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0c6f 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 0c70 4801 |H | Short_Literal 0x1 0c71 00da | | Load_Top At_Offset_2 0c72 01d6 | | Execute Vector,Field_Write 0c73 e5fe | | Load 0x2,-0x2 0c74 8220 | | Call 0x1,0x20 0c75 4802 |H | Short_Literal 0x2 0c76 00da | | Load_Top At_Offset_2 0c77 01d6 | | Execute Vector,Field_Write 0c78 6007 |` | Indirect_Literal Discrete,0xc80,{0x00000000, 0x00003008} 0c79 e004 | | Load 0x0,0x4 0c7a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0c7b c5fc | | Store 0x2,-0x4 0c7c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0c7d 0000 0000 | | .XXX[0x3] 0c7f 0000 | | 0c80 0000 0000 | | .LITERAL {0x00000000, 0x00003008} 0c84 0000 0000 | | .BLANK 0000[0x4] 0c88 ; -------------------------------------------------------------------------------------- 0c88 ; SUBPROGRAM 0c88 ; -------------------------------------------------------------------------------------- 0c88 0c92 | | .CONST 0x0c92 ; Address of begin 0c89 0004 | | .CONST 0x0004 ; Address of exception handler 0c8a 0002 | | .CONST 0x0002 ; Number of locals 0c8b INIT_0c88: 0c8b e402 | | Load 0x2,0x2 0c8c 0217 | | Execute Heap_Access,All_Reference 0c8d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0c8e e002 | | Load 0x0,0x2 0c8f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0c90 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0c91 1c08 | | Execute_Immediate Run_Utility,0x8 0c92 BODY_0c88: 0c92 e402 | | Load 0x2,0x2 0c93 0217 | | Execute Heap_Access,All_Reference 0c94 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0c95 a403 | | Store_Unchecked 0x2,0x3 0c96 00cf | | Action Mark_Auxiliary 0c97 00d9 | | Load_Top At_Offset_1 0c98 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0c99 01d9 | | Execute Vector,Reverse_Bounds 0c9a 0263 | c | Execute Discrete,Above_Bound 0c9b 700d |p | Jump_Nonzero 0xca9 0c9c e403 | | Load 0x2,0x3 0c9d 0217 | | Execute Heap_Access,All_Reference 0c9e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0c9f 00d9 | | Load_Top At_Offset_1 0ca0 e602 | | Load 0x3,0x2 0ca1 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0ca2 01d6 | | Execute Vector,Field_Write 0ca3 e403 | | Load 0x2,0x3 0ca4 0217 | | Execute Heap_Access,All_Reference 0ca5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0ca6 a403 | | Store_Unchecked 0x2,0x3 0ca7 00c8 | | Action Pop_Auxiliary_Range 0ca8 3ff3 |? | Loop_Increasing 0xc9c 0ca9 00ce | | Action Pop_Auxiliary 0caa e5ff | | Load 0x2,-0x1 0cab 0217 | | Execute Heap_Access,All_Reference 0cac 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0cad 00d9 | | Load_Top At_Offset_1 0cae 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0caf 00d8 | | Load_Top At_Offset_0 0cb0 00cb | | Action Pop_Block_With_Result 0cb1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0cb2 0000 0000 | | .BLANK 0000[0x6] 0cb8 ; -------------------------------------------------------------------------------------- 0cb8 ; SUBPROGRAM 0cb8 ; -------------------------------------------------------------------------------------- 0cb8 0cc2 | | .CONST 0x0cc2 ; Address of begin 0cb9 0004 | | .CONST 0x0004 ; Address of exception handler 0cba 0002 | | .CONST 0x0002 ; Number of locals 0cbb INIT_0cb8: 0cbb e5ff | | Load 0x2,-0x1 0cbc 0217 | | Execute Heap_Access,All_Reference 0cbd 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0cbe e002 | | Load 0x0,0x2 0cbf 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0cc0 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0cc1 1c08 | | Execute_Immediate Run_Utility,0x8 0cc2 BODY_0cb8: 0cc2 e402 | | Load 0x2,0x2 0cc3 0217 | | Execute Heap_Access,All_Reference 0cc4 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0cc5 a403 | | Store_Unchecked 0x2,0x3 0cc6 00cf | | Action Mark_Auxiliary 0cc7 00d9 | | Load_Top At_Offset_1 0cc8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0cc9 01d9 | | Execute Vector,Reverse_Bounds 0cca 0263 | c | Execute Discrete,Above_Bound 0ccb 7017 |p | Jump_Nonzero 0xce3 0ccc e403 | | Load 0x2,0x3 0ccd 7008 |p | Jump_Nonzero 0xcd6 0cce e402 | | Load 0x2,0x2 0ccf 0217 | | Execute Heap_Access,All_Reference 0cd0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0cd1 a402 | | Store_Unchecked 0x2,0x2 0cd2 e402 | | Load 0x2,0x2 0cd3 0217 | | Execute Heap_Access,All_Reference 0cd4 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0cd5 a403 | | Store_Unchecked 0x2,0x3 0cd6 e403 | | Load 0x2,0x3 0cd7 0217 | | Execute Heap_Access,All_Reference 0cd8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0cd9 00d9 | | Load_Top At_Offset_1 0cda e602 | | Load 0x3,0x2 0cdb 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0cdc 01d6 | | Execute Vector,Field_Write 0cdd e403 | | Load 0x2,0x3 0cde 0217 | | Execute Heap_Access,All_Reference 0cdf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0ce0 a403 | | Store_Unchecked 0x2,0x3 0ce1 00c8 | | Action Pop_Auxiliary_Range 0ce2 3fe9 |? | Loop_Increasing 0xccc 0ce3 00ce | | Action Pop_Auxiliary 0ce4 e5ff | | Load 0x2,-0x1 0ce5 0217 | | Execute Heap_Access,All_Reference 0ce6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0ce7 00d9 | | Load_Top At_Offset_1 0ce8 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0ce9 00d8 | | Load_Top At_Offset_0 0cea 00cb | | Action Pop_Block_With_Result 0ceb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0cec 0000 0000 | | .BLANK 0000[0x4] 0cf0 ; -------------------------------------------------------------------------------------- 0cf0 ; SUBPROGRAM 0cf0 ; -------------------------------------------------------------------------------------- 0cf0 0d0e | | .CONST 0x0d0e ; Address of begin 0cf1 0004 | | .CONST 0x0004 ; Address of exception handler 0cf2 001a | | .CONST 0x001a ; Number of locals 0cf3 INIT_0cf0: 0cf3 029a 0d13 | | Declare_Subprogram INIT_0d10,For_Outer_Call,Visible,Unelaborated 0cf5 029a 0d2b | +| Declare_Subprogram INIT_0d28,For_Outer_Call,Visible,Unelaborated 0cf7 00bf | | Action Accept_Activation 0cf8 e001 | | Load 0x0,0x1 0cf9 1919 | | Execute Package,Field_Reference,Field_Number 0x19 0cfa 00c6 | | Action Check_Subprogram_Elaborated 0cfb e20f | | Load 0x1,0xf 0cfc e210 | | Load 0x1,0x10 0cfd e002 | | Load 0x0,0x2 0cfe e003 | | Load 0x0,0x3 0cff 4800 |H | Short_Literal 0x0 0d00 0007 | | Action Break_Optional 0d01 e004 | | Load 0x0,0x4 0d02 e005 | | Load 0x0,0x5 0d03 e20f | | Load 0x1,0xf 0d04 e210 | | Load 0x1,0x10 0d05 e001 | | Load 0x0,0x1 0d06 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0d07 0387 | | Declare_Variable Package 0d08 00d8 | | Load_Top At_Offset_0 0d09 020f | | Execute Module,Activate 0d0a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0d0b 00c7 | | Action Elaborate_Subprogram 0d0c 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0d0d 00c7 | | Action Elaborate_Subprogram 0d0e BODY_0cf0: 0d0e 00bc | | Action Signal_Activated 0d0f 00bb | | Action Signal_Completion 0d10 ; -------------------------------------------------------------------------------------- 0d10 ; SUBPROGRAM 0d10 ; -------------------------------------------------------------------------------------- 0d10 0d13 | | .CONST 0x0d13 ; Address of begin 0d11 0d20 | | .CONST 0x0d20 ; Address of exception handler 0d12 0001 | | .CONST 0x0001 ; Number of locals 0d13 BODY_0d10: 0d13 INIT_0d10: 0d13 00da | | Load_Top At_Offset_2 0d14 0217 | | Execute Heap_Access,All_Reference 0d15 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0d16 e006 | | Load 0x0,0x6 0d17 180d | | Execute Package,Field_Execute,Field_Number 0xd 0d18 e215 | | Load 0x1,0x15 0d19 e216 | | Load 0x1,0x16 0d1a 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0d1b e001 | | Load 0x0,0x1 0d1c 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0d1d e210 | | Load 0x1,0x10 0d1e 0213 | | Execute Heap_Access,Check_In_Type 0d1f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0d20 TRAP_0d10: 0d20 486b |Hk | Short_Literal 0x6b 0d21 010f | | Execute Exception,Equal 0d22 6802 |h | Jump_Zero 0xd25 0d23 e210 | | Load 0x1,0x10 0d24 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0d25 0100 | | Execute Exception,Raise 0d26 0000 0000 | | .XXX[0x2] 0d28 ; -------------------------------------------------------------------------------------- 0d28 ; SUBPROGRAM 0d28 ; -------------------------------------------------------------------------------------- 0d28 0d32 | 2 | .CONST 0x0d32 ; Address of begin 0d29 0004 | | .CONST 0x0004 ; Address of exception handler 0d2a 0002 | | .CONST 0x0002 ; Number of locals 0d2b INIT_0d28: 0d2b 00db | | Load_Top At_Offset_3 0d2c e20f | | Load 0x1,0xf 0d2d 0119 | | Execute Any,Check_In_Formal_Type 0d2e e210 | | Load 0x1,0x10 0d2f e006 | | Load 0x0,0x6 0d30 180d | | Execute Package,Field_Execute,Field_Number 0xd 0d31 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0d32 BODY_0d28: 0d32 00d8 | | Load_Top At_Offset_0 0d33 e210 | | Load 0x1,0x10 0d34 0213 | | Execute Heap_Access,Check_In_Type 0d35 e21a | | Load 0x1,0x1a 0d36 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0d37 e5ff | | Load 0x2,-0x1 0d38 0217 | | Execute Heap_Access,All_Reference 0d39 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 0d3a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0d3b ; -------------------------------------------------------------------------------------- 0d3b ; STRING TABLE 0d3b ; -------------------------------------------------------------------------------------- 0d3b 0020 | | .STRTAB 0x0020->0x0d4b ; "!IO" 0d3c 0021 | ! | .STRTAB 0x0021->0x0d4c ; "!LRM" 0d3d 0023 | # | .STRTAB 0x0023->0x0d4e ; "<NONE>" 0d3e 0027 | ' | .STRTAB 0x0027->0x0d51 ; "Domain for \x22" 0d3f 0031 | 1 | .STRTAB 0x0031->0x0d57 ; "\x22 has been opened." 0d40 0041 | A | .STRTAB 0x0041->0x0d60 ; "State " 0d41 0045 | E | .STRTAB 0x0045->0x0d63 ; " is being removed from the domain." 0d42 0065 | e | .STRTAB 0x0065->0x0d74 ; "[_" 0d43 0065 | e | .STRTAB 0x0065->0x0d75 ; "]'C(~Spec_View)" 0d44 0072 | r | .STRTAB 0x0072->0x0d7d ; "Can't remove (or find) " 0d45 0087 | | .STRTAB 0x0087->0x0d88 ; " from the domain." 0d46 0096 | | .STRTAB 0x0096->0x0d91 ; "the specified domain" 0d47 00a8 | | .STRTAB 0x00a8->0x0d9b ; "Activated" 0d48 00af | | .STRTAB 0x00af->0x0d9f ; " units." 0d49 00b4 | | .STRTAB 0x00b4->0x0da3 ; "Deactivated" 0d4a 00bd | | .STREND 0x00bd->0x0da8 0d4b 2149 4f21 |!IO!| .STRTAB_STRINGS 0da9 0000 0000 | | .BLANK 0000[0x7] 0db0 ; -------------------------------------------------------------------------------------- 0db0 ; Debug Table 0db0 ; -------------------------------------------------------------------------------------- 0db0 0004 000d | | .DEBUG4 0x0004,0x000d,0xd911,0x0000,0x0001,0x0000 0db6 8000 0005 | | .XXX[0x2] 0db8 0000 0000 | | .BLANK 0000[0x48]