|
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_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0db8 | | .CONST 0x0db8 ; 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 8009 | | .CONST 0x8009 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0128 | ( | .CONST 0x0128 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0043 | C | .CONST 0x0043 ; Number of locals 000b INIT_0008: 000b e002 | | Load 0x0,0x2 000c 4809 |H | Short_Literal 0x9 000d 4800 |H | Short_Literal 0x0 000e 4801 |H | Short_Literal 0x1 000f 4810 |H | Short_Literal 0x10 0010 0319 | | Declare_Type Variant_Record,Incomplete,Visible 0011 029f 0ccb | | Declare_Subprogram INIT_0cc8,For_Call 0013 00d9 | | Load_Top At_Offset_1 0014 012a | * | Execute Any,Change_Utility 0015 0007 | | Action Break_Optional 0016 00d8 | | Load_Top At_Offset_0 0017 02a0 | | Declare_Subprogram Null_Subprogram 0018 03ae | | Declare_Type Heap_Access,Defined,Visible 0019 e003 | | Load 0x0,0x3 001a 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 001b e004 | | Load 0x0,0x4 001c e005 | | Load 0x0,0x5 001d 00db | | Load_Top At_Offset_3 001e e20e | | Load 0x1,0xe 001f e006 | | Load 0x0,0x6 0020 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0021 4801 |H | Short_Literal 0x1 0022 e007 | | Load 0x0,0x7 0023 4801 |H | Short_Literal 0x1 0024 e008 | | Load 0x0,0x8 0025 4801 |H | Short_Literal 0x1 0026 e009 | | Load 0x0,0x9 0027 4801 |H | Short_Literal 0x1 0028 e00a | | Load 0x0,0xa 0029 4801 |H | Short_Literal 0x1 002a e00b | | Load 0x0,0xb 002b 4801 |H | Short_Literal 0x1 002c e00c | | Load 0x0,0xc 002d 4801 |H | Short_Literal 0x1 002e e00d | | Load 0x0,0xd 002f 4801 |H | Short_Literal 0x1 0030 e00e | | Load 0x0,0xe 0031 4801 |H | Short_Literal 0x1 0032 e00f | | Load 0x0,0xf 0033 029f 0ccb | | Declare_Subprogram INIT_0cc8,For_Call 0035 4809 |H | Short_Literal 0x9 0036 4806 |H | Short_Literal 0x6 0037 e20d | | Load 0x1,0xd 0038 0307 | | Complete_Type Variant_Record,By_Defining 0039 00d8 | | Load_Top At_Offset_0 003a 03a0 | | Complete_Type Heap_Access,By_Component_Completion 003b 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 003d 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 003f 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 0041 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 0043 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 0045 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 0047 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 0049 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 004b 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 004d 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 004f 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated 0051 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 0053 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated 0055 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated 0057 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated 0059 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated 005b 029a 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call,Visible,Unelaborated 005d 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated 005f 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated 0061 029a 04db | | Declare_Subprogram INIT_04d8,For_Outer_Call,Visible,Unelaborated 0063 029a 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call,Visible,Unelaborated 0065 029a 058b | | Declare_Subprogram INIT_0588,For_Outer_Call,Visible,Unelaborated 0067 029a 05bb | | Declare_Subprogram INIT_05b8,For_Outer_Call,Visible,Unelaborated 0069 029a 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call,Visible,Unelaborated 006b 029a 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call,Visible,Unelaborated 006d 029a 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call,Visible,Unelaborated 006f 029a 06d3 | | Declare_Subprogram INIT_06d0,For_Outer_Call,Visible,Unelaborated 0071 029a 06eb | | Declare_Subprogram INIT_06e8,For_Outer_Call,Visible,Unelaborated 0073 029a 0703 | | Declare_Subprogram INIT_0700,For_Outer_Call,Visible,Unelaborated 0075 029a 071b | | Declare_Subprogram INIT_0718,For_Outer_Call,Visible,Unelaborated 0077 029a 0763 | c| Declare_Subprogram INIT_0760,For_Outer_Call,Visible,Unelaborated 0079 029a 07b3 | | Declare_Subprogram INIT_07b0,For_Outer_Call,Visible,Unelaborated 007b 029a 07cb | | Declare_Subprogram INIT_07c8,For_Outer_Call,Visible,Unelaborated 007d 029a 07f3 | | Declare_Subprogram INIT_07f0,For_Outer_Call,Visible,Unelaborated 007f 029a 081b | | Declare_Subprogram INIT_0818,For_Outer_Call,Visible,Unelaborated 0081 029a 084b | K| Declare_Subprogram INIT_0848,For_Outer_Call,Visible,Unelaborated 0083 029a 0863 | c| Declare_Subprogram INIT_0860,For_Outer_Call,Visible,Unelaborated 0085 029a 0883 | | Declare_Subprogram INIT_0880,For_Outer_Call,Visible,Unelaborated 0087 029a 089b | | Declare_Subprogram INIT_0898,For_Outer_Call,Visible,Unelaborated 0089 029a 08db | | Declare_Subprogram INIT_08d8,For_Outer_Call,Visible,Unelaborated 008b 029a 092b | +| Declare_Subprogram INIT_0928,For_Outer_Call,Visible,Unelaborated 008d 029a 0993 | | Declare_Subprogram INIT_0990,For_Outer_Call,Visible,Unelaborated 008f 029a 099b | | Declare_Subprogram INIT_0998,For_Outer_Call,Visible,Unelaborated 0091 029a 09bb | | Declare_Subprogram INIT_09b8,For_Outer_Call,Visible,Unelaborated 0093 029a 0a23 | #| Declare_Subprogram INIT_0a20,For_Outer_Call,Visible,Unelaborated 0095 029a 0a5b | [| Declare_Subprogram INIT_0a58,For_Outer_Call,Visible,Unelaborated 0097 029a 0ad3 | | Declare_Subprogram INIT_0ad0,For_Outer_Call,Visible,Unelaborated 0099 e002 | | Load 0x0,0x2 009a 4801 |H | Short_Literal 0x1 009b e010 | | Load 0x0,0x10 009c 4801 |H | Short_Literal 0x1 009d e011 | | Load 0x0,0x11 009e 4801 |H | Short_Literal 0x1 009f e012 | | Load 0x0,0x12 00a0 4801 |H | Short_Literal 0x1 00a1 e013 | | Load 0x0,0x13 00a2 4801 |H | Short_Literal 0x1 00a3 e014 | | Load 0x0,0x14 00a4 4801 |H | Short_Literal 0x1 00a5 e015 | | Load 0x0,0x15 00a6 4801 |H | Short_Literal 0x1 00a7 e016 | | Load 0x0,0x16 00a8 4801 |H | Short_Literal 0x1 00a9 e017 | | Load 0x0,0x17 00aa 4801 |H | Short_Literal 0x1 00ab e018 | | Load 0x0,0x18 00ac 029f 0c63 | c| Declare_Subprogram INIT_0c60,For_Call 00ae 4809 |H | Short_Literal 0x9 00af 4800 |H | Short_Literal 0x0 00b0 4809 |H | Short_Literal 0x9 00b1 4800 |H | Short_Literal 0x0 00b2 4801 |H | Short_Literal 0x1 00b3 031e | | Declare_Type Variant_Record,Defined,Visible 00b4 00bf | | Action Accept_Activation 00b5 0093 0000 | | push_full_address 0x0 00b7 6098 |` | Indirect_Literal Discrete,0x150,{0x80000000, 0x00010000} 00b8 0273 | s | Execute Discrete,Plus 00b9 e019 | | Load 0x0,0x19 00ba 0273 | s | Execute Discrete,Plus 00bb e01a | | Load 0x0,0x1a 00bc 0273 | s | Execute Discrete,Plus 00bd a01b | | Store_Unchecked 0x0,0x1b 00be e01c | | Load 0x0,0x1c 00bf 0387 | | Declare_Variable Package 00c0 00d8 | | Load_Top At_Offset_0 00c1 020f | | Execute Module,Activate 00c2 029d 0b1b | | Declare_Subprogram INIT_0b18,For_Outer_Call 00c4 029d 0b3b | ;| Declare_Subprogram INIT_0b38,For_Outer_Call 00c6 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00c7 00c7 | | Action Elaborate_Subprogram 00c8 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00c9 00c7 | | Action Elaborate_Subprogram 00ca 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00cb 00c7 | | Action Elaborate_Subprogram 00cc 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00cd 00c7 | | Action Elaborate_Subprogram 00ce 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00cf 00c7 | | Action Elaborate_Subprogram 00d0 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00d1 00c7 | | Action Elaborate_Subprogram 00d2 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00d3 00c7 | | Action Elaborate_Subprogram 00d4 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00d5 00c7 | | Action Elaborate_Subprogram 00d6 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00d7 00c7 | | Action Elaborate_Subprogram 00d8 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00d9 00c7 | | Action Elaborate_Subprogram 00da 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00db 00c7 | | Action Elaborate_Subprogram 00dc 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00dd 00c7 | | Action Elaborate_Subprogram 00de 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00df 00c7 | | Action Elaborate_Subprogram 00e0 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00e1 00c7 | | Action Elaborate_Subprogram 00e2 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00e3 00c7 | | Action Elaborate_Subprogram 00e4 029d 0b63 | c| Declare_Subprogram INIT_0b60,For_Outer_Call 00e6 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00e7 00c7 | | Action Elaborate_Subprogram 00e8 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00e9 00c7 | | Action Elaborate_Subprogram 00ea 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00eb 00c7 | | Action Elaborate_Subprogram 00ec 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00ed 00c7 | | Action Elaborate_Subprogram 00ee 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00ef 00c7 | | Action Elaborate_Subprogram 00f0 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00f1 00c7 | | Action Elaborate_Subprogram 00f2 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00f3 00c7 | | Action Elaborate_Subprogram 00f4 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00f5 00c7 | | Action Elaborate_Subprogram 00f6 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00f7 00c7 | | Action Elaborate_Subprogram 00f8 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00f9 00c7 | | Action Elaborate_Subprogram 00fa 029d 0c13 | | Declare_Subprogram INIT_0c10,For_Outer_Call 00fc 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 00fd 00c7 | | Action Elaborate_Subprogram 00fe 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 00ff 00c7 | | Action Elaborate_Subprogram 0100 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 0101 00c7 | | Action Elaborate_Subprogram 0102 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 0103 00c7 | | Action Elaborate_Subprogram 0104 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 0105 00c7 | | Action Elaborate_Subprogram 0106 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 0107 00c7 | | Action Elaborate_Subprogram 0108 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 0109 00c7 | | Action Elaborate_Subprogram 010a 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 010b 00c7 | | Action Elaborate_Subprogram 010c 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 010d 00c7 | | Action Elaborate_Subprogram 010e 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 010f 00c7 | | Action Elaborate_Subprogram 0110 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 0111 00c7 | | Action Elaborate_Subprogram 0112 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 0113 00c7 | | Action Elaborate_Subprogram 0114 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0115 00c7 | | Action Elaborate_Subprogram 0116 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 0117 00c7 | | Action Elaborate_Subprogram 0118 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 0119 00c7 | | Action Elaborate_Subprogram 011a 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 011b 00c7 | | Action Elaborate_Subprogram 011c 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a 011d 00c7 | | Action Elaborate_Subprogram 011e 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b 011f 00c7 | | Action Elaborate_Subprogram 0120 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c 0121 00c7 | | Action Elaborate_Subprogram 0122 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d 0123 00c7 | | Action Elaborate_Subprogram 0124 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 0125 00c7 | | Action Elaborate_Subprogram 0126 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 0127 00c7 | | Action Elaborate_Subprogram 0128 BODY_0008: 0128 00bc | | Action Signal_Activated 0129 00bb | | Action Signal_Completion 012a 0000 0000 | | .BLANK 0000[0x6] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0137 | 7 | .CONST 0x0137 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0003 | | .CONST 0x0003 ; Number of locals 0133 INIT_0130: 0133 e003 | | Load 0x0,0x3 0134 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0135 e20e | | Load 0x1,0xe 0136 0007 | | Action Break_Optional 0137 BODY_0130: 0137 00d9 | | Load_Top At_Offset_1 0138 00d9 | | Load_Top At_Offset_1 0139 e5fc | | Load 0x2,-0x4 013a e5fe | | Load 0x2,-0x2 013b 4801 |H | Short_Literal 0x1 013c 8241 | A | Call 0x1,0x41 013d 0032 | 2 | Store_Top Heap_Access,At_Offset_2 013e 0032 | 2 | Store_Top Heap_Access,At_Offset_2 013f 00d9 | | Load_Top At_Offset_1 0140 e5fd | | Load 0x2,-0x3 0141 e5ff | | Load 0x2,-0x1 0142 801d | | Call 0x0,0x1d 0143 00d9 | | Load_Top At_Offset_1 0144 0217 | | Execute Heap_Access,All_Reference 0145 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8 0146 00d8 | | Load_Top At_Offset_0 0147 e5ff | | Load 0x2,-0x1 0148 801e | | Call 0x0,0x1e 0149 8240 | @ | Call 0x1,0x40 014a 0031 | 1 | Store_Top Heap_Access,At_Offset_1 014b 00d8 | | Load_Top At_Offset_0 014c 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 014d 0000 0000 | | .XXX[0x3] 014f 0000 | | 0150 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0154 0000 0000 | | .BLANK 0000[0x4] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015f | _ | .CONST 0x015f ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0003 | | .CONST 0x0003 ; Number of locals 015b INIT_0158: 015b e003 | | Load 0x0,0x3 015c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 015d e20e | | Load 0x1,0xe 015e 0007 | | Action Break_Optional 015f BODY_0158: 015f 00d9 | | Load_Top At_Offset_1 0160 00d9 | | Load_Top At_Offset_1 0161 e5fc | | Load 0x2,-0x4 0162 e5fe | | Load 0x2,-0x2 0163 4802 |H | Short_Literal 0x2 0164 8241 | A | Call 0x1,0x41 0165 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0166 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0167 00d9 | | Load_Top At_Offset_1 0168 e5fd | | Load 0x2,-0x3 0169 e5ff | | Load 0x2,-0x1 016a 801f | | Call 0x0,0x1f 016b 00d9 | | Load_Top At_Offset_1 016c 0217 | | Execute Heap_Access,All_Reference 016d 2a09 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9 016e 00d8 | | Load_Top At_Offset_0 016f e5ff | | Load 0x2,-0x1 0170 8020 | | Call 0x0,0x20 0171 8021 | ! | Call 0x0,0x21 0172 8240 | @ | Call 0x1,0x40 0173 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0174 00d8 | | Load_Top At_Offset_0 0175 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0176 0000 0000 | | .XXX[0x2] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017f | | .CONST 0x017f ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0003 | | .CONST 0x0003 ; Number of locals 017b INIT_0178: 017b e003 | | Load 0x0,0x3 017c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 017d e20e | | Load 0x1,0xe 017e 0007 | | Action Break_Optional 017f BODY_0178: 017f 00d9 | | Load_Top At_Offset_1 0180 00d9 | | Load_Top At_Offset_1 0181 e5fb | | Load 0x2,-0x5 0182 e5fd | | Load 0x2,-0x3 0183 4804 |H | Short_Literal 0x4 0184 8241 | A | Call 0x1,0x41 0185 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0186 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0187 00d9 | | Load_Top At_Offset_1 0188 e5fc | | Load 0x2,-0x4 0189 e5fe | | Load 0x2,-0x2 018a e5ff | | Load 0x2,-0x1 018b 8022 | " | Call 0x0,0x22 018c 00d9 | | Load_Top At_Offset_1 018d 0217 | | Execute Heap_Access,All_Reference 018e 2a0b |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb 018f 00d8 | | Load_Top At_Offset_0 0190 e5fe | | Load 0x2,-0x2 0191 8023 | # | Call 0x0,0x23 0192 8240 | @ | Call 0x1,0x40 0193 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0194 00d8 | | Load_Top At_Offset_0 0195 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 0196 0000 0000 | | .XXX[0x2] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019f | | .CONST 0x019f ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0003 | | .CONST 0x0003 ; Number of locals 019b INIT_0198: 019b e003 | | Load 0x0,0x3 019c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 019d e20e | | Load 0x1,0xe 019e 0007 | | Action Break_Optional 019f BODY_0198: 019f 00d9 | | Load_Top At_Offset_1 01a0 00d9 | | Load_Top At_Offset_1 01a1 e5fc | | Load 0x2,-0x4 01a2 e5fe | | Load 0x2,-0x2 01a3 4803 |H | Short_Literal 0x3 01a4 8241 | A | Call 0x1,0x41 01a5 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01a6 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01a7 00d9 | | Load_Top At_Offset_1 01a8 e5fd | | Load 0x2,-0x3 01a9 e5ff | | Load 0x2,-0x1 01aa 8024 | $ | Call 0x0,0x24 01ab 00d9 | | Load_Top At_Offset_1 01ac 0217 | | Execute Heap_Access,All_Reference 01ad 2a0a |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa 01ae e006 | | Load 0x0,0x6 01af 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01b0 00d9 | | Load_Top At_Offset_1 01b1 0217 | | Execute Heap_Access,All_Reference 01b2 2807 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7 01b3 00d8 | | Load_Top At_Offset_0 01b4 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 01b5 0000 0000 | | .XXX[0x3] 01b7 0000 | | 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bf | | .CONST 0x01bf ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0003 | | .CONST 0x0003 ; Number of locals 01bb INIT_01b8: 01bb e003 | | Load 0x0,0x3 01bc 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 01bd e20e | | Load 0x1,0xe 01be 0007 | | Action Break_Optional 01bf BODY_01b8: 01bf 00d9 | | Load_Top At_Offset_1 01c0 00d9 | | Load_Top At_Offset_1 01c1 e5fc | | Load 0x2,-0x4 01c2 e5fe | | Load 0x2,-0x2 01c3 4805 |H | Short_Literal 0x5 01c4 8241 | A | Call 0x1,0x41 01c5 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01c6 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01c7 00d9 | | Load_Top At_Offset_1 01c8 e5fd | | Load 0x2,-0x3 01c9 e5ff | | Load 0x2,-0x1 01ca 8025 | % | Call 0x0,0x25 01cb 00d9 | | Load_Top At_Offset_1 01cc 0217 | | Execute Heap_Access,All_Reference 01cd 2a0c |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc 01ce 00d8 | | Load_Top At_Offset_0 01cf e5ff | | Load 0x2,-0x1 01d0 8026 | & | Call 0x0,0x26 01d1 8240 | @ | Call 0x1,0x40 01d2 0031 | 1 | Store_Top Heap_Access,At_Offset_1 01d3 00d8 | | Load_Top At_Offset_0 01d4 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 01d5 0000 0000 | | .XXX[0x3] 01d7 0000 | | 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 e003 | | Load 0x0,0x3 01dc 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 01dd e20e | | Load 0x1,0xe 01de 0007 | | Action Break_Optional 01df BODY_01d8: 01df 00d9 | | Load_Top At_Offset_1 01e0 00d9 | | Load_Top At_Offset_1 01e1 e5fc | | Load 0x2,-0x4 01e2 e5fe | | Load 0x2,-0x2 01e3 4806 |H | Short_Literal 0x6 01e4 8241 | A | Call 0x1,0x41 01e5 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01e6 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01e7 00d9 | | Load_Top At_Offset_1 01e8 e5fd | | Load 0x2,-0x3 01e9 e5ff | | Load 0x2,-0x1 01ea 8027 | ' | Call 0x0,0x27 01eb 00d9 | | Load_Top At_Offset_1 01ec 0217 | | Execute Heap_Access,All_Reference 01ed 2a0d |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd 01ee 00d8 | | Load_Top At_Offset_0 01ef e5ff | | Load 0x2,-0x1 01f0 8028 | ( | Call 0x0,0x28 01f1 8240 | @ | Call 0x1,0x40 01f2 0031 | 1 | Store_Top Heap_Access,At_Offset_1 01f3 00d8 | | Load_Top At_Offset_0 01f4 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 01f5 0000 0000 | | .XXX[0x3] 01f7 0000 | | 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01ff | | .CONST 0x01ff ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0003 | | .CONST 0x0003 ; Number of locals 01fb INIT_01f8: 01fb e003 | | Load 0x0,0x3 01fc 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 01fd e20e | | Load 0x1,0xe 01fe 0007 | | Action Break_Optional 01ff BODY_01f8: 01ff 00d9 | | Load_Top At_Offset_1 0200 00d9 | | Load_Top At_Offset_1 0201 e5fc | | Load 0x2,-0x4 0202 e5fe | | Load 0x2,-0x2 0203 4807 |H | Short_Literal 0x7 0204 8241 | A | Call 0x1,0x41 0205 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0206 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0207 00d9 | | Load_Top At_Offset_1 0208 e5fd | | Load 0x2,-0x3 0209 e5ff | | Load 0x2,-0x1 020a 8029 | ) | Call 0x0,0x29 020b 00d9 | | Load_Top At_Offset_1 020c 0217 | | Execute Heap_Access,All_Reference 020d 2a0e |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe 020e 00d8 | | Load_Top At_Offset_0 020f e5ff | | Load 0x2,-0x1 0210 8020 | | Call 0x0,0x20 0211 8021 | ! | Call 0x0,0x21 0212 8240 | @ | Call 0x1,0x40 0213 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0214 00d8 | | Load_Top At_Offset_0 0215 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0216 0000 0000 | | .XXX[0x2] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021f | | .CONST 0x021f ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0003 | | .CONST 0x0003 ; Number of locals 021b INIT_0218: 021b e003 | | Load 0x0,0x3 021c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 021d e20e | | Load 0x1,0xe 021e 0007 | | Action Break_Optional 021f BODY_0218: 021f 00d9 | | Load_Top At_Offset_1 0220 00d9 | | Load_Top At_Offset_1 0221 e5fc | | Load 0x2,-0x4 0222 e5fe | | Load 0x2,-0x2 0223 4807 |H | Short_Literal 0x7 0224 8241 | A | Call 0x1,0x41 0225 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0226 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0227 00d9 | | Load_Top At_Offset_1 0228 e5fd | | Load 0x2,-0x3 0229 e5ff | | Load 0x2,-0x1 022a 802a | * | Call 0x0,0x2a 022b 00d9 | | Load_Top At_Offset_1 022c 0217 | | Execute Heap_Access,All_Reference 022d 2a0e |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe 022e 00d8 | | Load_Top At_Offset_0 022f e5ff | | Load 0x2,-0x1 0230 801e | | Call 0x0,0x1e 0231 8240 | @ | Call 0x1,0x40 0232 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0233 00d8 | | Load_Top At_Offset_0 0234 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0235 0000 0000 | | .XXX[0x3] 0237 0000 | | 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023f | ? | .CONST 0x023f ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0003 | | .CONST 0x0003 ; Number of locals 023b INIT_0238: 023b e003 | | Load 0x0,0x3 023c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 023d e20e | | Load 0x1,0xe 023e 0007 | | Action Break_Optional 023f BODY_0238: 023f 00d9 | | Load_Top At_Offset_1 0240 00d9 | | Load_Top At_Offset_1 0241 e5fb | | Load 0x2,-0x5 0242 e5fd | | Load 0x2,-0x3 0243 4807 |H | Short_Literal 0x7 0244 8241 | A | Call 0x1,0x41 0245 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0246 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0247 00d9 | | Load_Top At_Offset_1 0248 e5fc | | Load 0x2,-0x4 0249 e5fe | | Load 0x2,-0x2 024a e5ff | | Load 0x2,-0x1 024b 802b | + | Call 0x0,0x2b 024c 00d9 | | Load_Top At_Offset_1 024d 0217 | | Execute Heap_Access,All_Reference 024e 2a0e |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe 024f 00d8 | | Load_Top At_Offset_0 0250 e5fe | | Load 0x2,-0x2 0251 8023 | # | Call 0x0,0x23 0252 8240 | @ | Call 0x1,0x40 0253 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0254 00d8 | | Load_Top At_Offset_0 0255 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 0256 0000 0000 | | .XXX[0x2] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025f | _ | .CONST 0x025f ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0003 | | .CONST 0x0003 ; Number of locals 025b INIT_0258: 025b e003 | | Load 0x0,0x3 025c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 025d e20e | | Load 0x1,0xe 025e 0007 | | Action Break_Optional 025f BODY_0258: 025f 00d9 | | Load_Top At_Offset_1 0260 00d9 | | Load_Top At_Offset_1 0261 e5fb | | Load 0x2,-0x5 0262 e5fe | | Load 0x2,-0x2 0263 4808 |H | Short_Literal 0x8 0264 8241 | A | Call 0x1,0x41 0265 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0266 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0267 00d9 | | Load_Top At_Offset_1 0268 e5fd | | Load 0x2,-0x3 0269 e5fc | | Load 0x2,-0x4 026a e5ff | | Load 0x2,-0x1 026b 802c | , | Call 0x0,0x2c 026c 00d9 | | Load_Top At_Offset_1 026d 0217 | | Execute Heap_Access,All_Reference 026e 2a0f |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf 026f 00d8 | | Load_Top At_Offset_0 0270 e5ff | | Load 0x2,-0x1 0271 801e | | Call 0x0,0x1e 0272 8240 | @ | Call 0x1,0x40 0273 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0274 00d8 | | Load_Top At_Offset_0 0275 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 0276 0000 0000 | | .XXX[0x2] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027f | | .CONST 0x027f ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0003 | | .CONST 0x0003 ; Number of locals 027b INIT_0278: 027b e003 | | Load 0x0,0x3 027c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 027d e20e | | Load 0x1,0xe 027e 0007 | | Action Break_Optional 027f BODY_0278: 027f 00d9 | | Load_Top At_Offset_1 0280 00d9 | | Load_Top At_Offset_1 0281 e5fc | | Load 0x2,-0x4 0282 e5fe | | Load 0x2,-0x2 0283 4809 |H | Short_Literal 0x9 0284 8241 | A | Call 0x1,0x41 0285 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0286 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0287 00d9 | | Load_Top At_Offset_1 0288 e5fd | | Load 0x2,-0x3 0289 e5ff | | Load 0x2,-0x1 028a 802d | - | Call 0x0,0x2d 028b 00d9 | | Load_Top At_Offset_1 028c 0217 | | Execute Heap_Access,All_Reference 028d 2a10 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x10 028e e006 | | Load 0x0,0x6 028f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0290 00d9 | | Load_Top At_Offset_1 0291 0217 | | Execute Heap_Access,All_Reference 0292 2807 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7 0293 00d8 | | Load_Top At_Offset_0 0294 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0295 0000 0000 | | .XXX[0x3] 0297 0000 | | 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b 00da | | Load_Top At_Offset_2 029c 6860 |h` | Jump_Zero 0x2fd 029d 00da | | Load_Top At_Offset_2 029e 0217 | | Execute Heap_Access,All_Reference 029f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 02a0 4609 |F | Jump_Case 0xa 02a1 785a |xZ | Jump 0x2fc ; case 0x0 02a2 7811 |x | Jump 0x2b4 ; case 0x1 02a3 7819 |x | Jump 0x2bd ; case 0x2 02a4 782a |x* | Jump 0x2cf ; case 0x3 02a5 7820 |x | Jump 0x2c6 ; case 0x4 02a6 7831 |x1 | Jump 0x2d8 ; case 0x5 02a7 7839 |x9 | Jump 0x2e1 ; case 0x6 02a8 7841 |xA | Jump 0x2ea ; case 0x7 02a9 7849 |xI | Jump 0x2f3 ; case 0x8 02aa 7800 |x | Jump 0x2ab ; case 0x9 02ab 00da | | Load_Top At_Offset_2 02ac 0219 | | Execute Heap_Access,All_Read 02ad 00d8 | | Load_Top At_Offset_0 02ae 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10 02af 802e | . | Call 0x0,0x2e 02b0 00d9 | | Load_Top At_Offset_1 02b1 2a10 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x10 02b2 00d1 | | Pop_Control Pop_Count_1 02b3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02b4 00da | | Load_Top At_Offset_2 02b5 0219 | | Execute Heap_Access,All_Read 02b6 00d8 | | Load_Top At_Offset_0 02b7 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 02b8 802f | / | Call 0x0,0x2f 02b9 00d9 | | Load_Top At_Offset_1 02ba 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8 02bb 00d1 | | Pop_Control Pop_Count_1 02bc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02bd 00da | | Load_Top At_Offset_2 02be 0219 | | Execute Heap_Access,All_Read 02bf 00d8 | | Load_Top At_Offset_0 02c0 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 02c1 8030 | 0 | Call 0x0,0x30 02c2 00d9 | | Load_Top At_Offset_1 02c3 2a09 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9 02c4 00d1 | | Pop_Control Pop_Count_1 02c5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02c6 00da | | Load_Top At_Offset_2 02c7 0219 | | Execute Heap_Access,All_Read 02c8 00d8 | | Load_Top At_Offset_0 02c9 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb 02ca 8031 | 1 | Call 0x0,0x31 02cb 00d9 | | Load_Top At_Offset_1 02cc 2a0b |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb 02cd 00d1 | | Pop_Control Pop_Count_1 02ce 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02cf 00da | | Load_Top At_Offset_2 02d0 0219 | | Execute Heap_Access,All_Read 02d1 00d8 | | Load_Top At_Offset_0 02d2 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 02d3 8032 | 2 | Call 0x0,0x32 02d4 00d9 | | Load_Top At_Offset_1 02d5 2a0a |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa 02d6 00d1 | | Pop_Control Pop_Count_1 02d7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02d8 00da | | Load_Top At_Offset_2 02d9 0219 | | Execute Heap_Access,All_Read 02da 00d8 | | Load_Top At_Offset_0 02db 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 02dc 8033 | 3 | Call 0x0,0x33 02dd 00d9 | | Load_Top At_Offset_1 02de 2a0c |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc 02df 00d1 | | Pop_Control Pop_Count_1 02e0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02e1 00da | | Load_Top At_Offset_2 02e2 0219 | | Execute Heap_Access,All_Read 02e3 00d8 | | Load_Top At_Offset_0 02e4 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 02e5 8034 | 4 | Call 0x0,0x34 02e6 00d9 | | Load_Top At_Offset_1 02e7 2a0d |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd 02e8 00d1 | | Pop_Control Pop_Count_1 02e9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02ea 00da | | Load_Top At_Offset_2 02eb 0219 | | Execute Heap_Access,All_Read 02ec 00d8 | | Load_Top At_Offset_0 02ed 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 02ee 8035 | 5 | Call 0x0,0x35 02ef 00d9 | | Load_Top At_Offset_1 02f0 2a0e |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe 02f1 00d1 | | Pop_Control Pop_Count_1 02f2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02f3 00da | | Load_Top At_Offset_2 02f4 0219 | | Execute Heap_Access,All_Read 02f5 00d8 | | Load_Top At_Offset_0 02f6 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf 02f7 8036 | 6 | Call 0x0,0x36 02f8 00d9 | | Load_Top At_Offset_1 02f9 2a0f |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf 02fa 00d1 | | Pop_Control Pop_Count_1 02fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02fc 0833 | 3 | Execute_Immediate Raise,0x33 02fd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02fe 0000 0000 | | .XXX[0x2] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0303 | | .CONST 0x0303 ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0001 | | .CONST 0x0001 ; Number of locals 0303 BODY_0300: 0303 INIT_0300: 0303 e20e | | Load 0x1,0xe 0304 00ca | | Action Exit_Nullary_Function 0305 0000 0000 | | .XXX[0x3] 0307 0000 | | 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030b | | .CONST 0x030b ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0001 | | .CONST 0x0001 ; Number of locals 030b BODY_0308: 030b INIT_0308: 030b 00da | | Load_Top At_Offset_2 030c 0217 | | Execute Heap_Access,All_Reference 030d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 030e 4609 |F | Jump_Case 0xa 030f 783f |x? | Jump 0x34f ; case 0x0 0310 780d |x | Jump 0x31e ; case 0x1 0311 7811 |x | Jump 0x323 ; case 0x2 0312 781a |x | Jump 0x32d ; case 0x3 0313 7814 |x | Jump 0x328 ; case 0x4 0314 7820 |x | Jump 0x335 ; case 0x5 0315 7827 |x' | Jump 0x33d ; case 0x6 0316 782e |x. | Jump 0x345 ; case 0x7 0317 7832 |x2 | Jump 0x34a ; case 0x8 0318 7800 |x | Jump 0x319 ; case 0x9 0319 00da | | Load_Top At_Offset_2 031a 0217 | | Execute Heap_Access,All_Reference 031b 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10 031c 8037 | 7 | Call 0x0,0x37 031d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 031e 00da | | Load_Top At_Offset_2 031f 0217 | | Execute Heap_Access,All_Reference 0320 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 0321 8038 | 8 | Call 0x0,0x38 0322 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0323 00da | | Load_Top At_Offset_2 0324 0217 | | Execute Heap_Access,All_Reference 0325 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 0326 8039 | 9 | Call 0x0,0x39 0327 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0328 00da | | Load_Top At_Offset_2 0329 0217 | | Execute Heap_Access,All_Reference 032a 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb 032b 803a | : | Call 0x0,0x3a 032c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 032d 00da | | Load_Top At_Offset_2 032e 0217 | | Execute Heap_Access,All_Reference 032f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0330 00db | | Load_Top At_Offset_3 0331 0217 | | Execute Heap_Access,All_Reference 0332 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 0333 803b | ; | Call 0x0,0x3b 0334 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0335 00da | | Load_Top At_Offset_2 0336 0217 | | Execute Heap_Access,All_Reference 0337 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0338 00db | | Load_Top At_Offset_3 0339 0217 | | Execute Heap_Access,All_Reference 033a 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 033b 803c | < | Call 0x0,0x3c 033c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 033d 00da | | Load_Top At_Offset_2 033e 0217 | | Execute Heap_Access,All_Reference 033f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0340 00db | | Load_Top At_Offset_3 0341 0217 | | Execute Heap_Access,All_Reference 0342 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 0343 803d | = | Call 0x0,0x3d 0344 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0345 00da | | Load_Top At_Offset_2 0346 0217 | | Execute Heap_Access,All_Reference 0347 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 0348 803e | > | Call 0x0,0x3e 0349 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 034a 00da | | Load_Top At_Offset_2 034b 0217 | | Execute Heap_Access,All_Reference 034c 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf 034d 803f | ? | Call 0x0,0x3f 034e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 034f 0833 | 3 | Execute_Immediate Raise,0x33 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0353 | S | .CONST 0x0353 ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0001 | | .CONST 0x0001 ; Number of locals 0353 BODY_0350: 0353 INIT_0350: 0353 00da | | Load_Top At_Offset_2 0354 0217 | | Execute Heap_Access,All_Reference 0355 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0356 4609 |F | Jump_Case 0xa 0357 7836 |x6 | Jump 0x38e ; case 0x0 0358 780d |x | Jump 0x366 ; case 0x1 0359 7811 |x | Jump 0x36b ; case 0x2 035a 781a |x | Jump 0x375 ; case 0x3 035b 7814 |x | Jump 0x370 ; case 0x4 035c 781d |x | Jump 0x37a ; case 0x5 035d 7821 |x! | Jump 0x37f ; case 0x6 035e 7825 |x% | Jump 0x384 ; case 0x7 035f 7829 |x) | Jump 0x389 ; case 0x8 0360 7800 |x | Jump 0x361 ; case 0x9 0361 00da | | Load_Top At_Offset_2 0362 0217 | | Execute Heap_Access,All_Reference 0363 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10 0364 8040 | @ | Call 0x0,0x40 0365 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0366 00da | | Load_Top At_Offset_2 0367 0217 | | Execute Heap_Access,All_Reference 0368 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 0369 8041 | A | Call 0x0,0x41 036a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 036b 00da | | Load_Top At_Offset_2 036c 0217 | | Execute Heap_Access,All_Reference 036d 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 036e 8042 | B | Call 0x0,0x42 036f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0370 00da | | Load_Top At_Offset_2 0371 0217 | | Execute Heap_Access,All_Reference 0372 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb 0373 8043 | C | Call 0x0,0x43 0374 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0375 00da | | Load_Top At_Offset_2 0376 0217 | | Execute Heap_Access,All_Reference 0377 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 0378 8044 | D | Call 0x0,0x44 0379 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 037a 00da | | Load_Top At_Offset_2 037b 0217 | | Execute Heap_Access,All_Reference 037c 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 037d 8045 | E | Call 0x0,0x45 037e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 037f 00da | | Load_Top At_Offset_2 0380 0217 | | Execute Heap_Access,All_Reference 0381 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 0382 8046 | F | Call 0x0,0x46 0383 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0384 00da | | Load_Top At_Offset_2 0385 0217 | | Execute Heap_Access,All_Reference 0386 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 0387 8047 | G | Call 0x0,0x47 0388 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0389 00da | | Load_Top At_Offset_2 038a 0217 | | Execute Heap_Access,All_Reference 038b 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf 038c 8048 | H | Call 0x0,0x48 038d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 038e 0833 | 3 | Execute_Immediate Raise,0x33 038f 0000 | | .XXX[0x1] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0393 | | .CONST 0x0393 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0001 | | .CONST 0x0001 ; Number of locals 0393 BODY_0390: 0393 INIT_0390: 0393 00da | | Load_Top At_Offset_2 0394 0217 | | Execute Heap_Access,All_Reference 0395 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0396 4609 |F | Jump_Case 0xa 0397 785a |xZ | Jump 0x3f2 ; case 0x0 0398 7811 |x | Jump 0x3aa ; case 0x1 0399 7819 |x | Jump 0x3b3 ; case 0x2 039a 782a |x* | Jump 0x3c5 ; case 0x3 039b 7820 |x | Jump 0x3bc ; case 0x4 039c 7831 |x1 | Jump 0x3ce ; case 0x5 039d 7839 |x9 | Jump 0x3d7 ; case 0x6 039e 7841 |xA | Jump 0x3e0 ; case 0x7 039f 7849 |xI | Jump 0x3e9 ; case 0x8 03a0 7800 |x | Jump 0x3a1 ; case 0x9 03a1 00e1 | | Load_Encached Boolean_Cache 03a2 e5fd | | Load 0x2,-0x3 03a3 e5fe | | Load 0x2,-0x2 03a4 e5ff | | Load 0x2,-0x1 03a5 0217 | | Execute Heap_Access,All_Reference 03a6 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10 03a7 8049 | I | Call 0x0,0x49 03a8 c5fc | | Store 0x2,-0x4 03a9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03aa 00e1 | | Load_Encached Boolean_Cache 03ab e5fd | | Load 0x2,-0x3 03ac e5fe | | Load 0x2,-0x2 03ad e5ff | | Load 0x2,-0x1 03ae 0217 | | Execute Heap_Access,All_Reference 03af 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 03b0 804a | J | Call 0x0,0x4a 03b1 c5fc | | Store 0x2,-0x4 03b2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03b3 00e1 | | Load_Encached Boolean_Cache 03b4 e5fd | | Load 0x2,-0x3 03b5 e5fe | | Load 0x2,-0x2 03b6 e5ff | | Load 0x2,-0x1 03b7 0217 | | Execute Heap_Access,All_Reference 03b8 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 03b9 804b | K | Call 0x0,0x4b 03ba c5fc | | Store 0x2,-0x4 03bb 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03bc 00e1 | | Load_Encached Boolean_Cache 03bd e5fd | | Load 0x2,-0x3 03be e5fe | | Load 0x2,-0x2 03bf e5ff | | Load 0x2,-0x1 03c0 0217 | | Execute Heap_Access,All_Reference 03c1 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb 03c2 804c | L | Call 0x0,0x4c 03c3 c5fc | | Store 0x2,-0x4 03c4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03c5 00e1 | | Load_Encached Boolean_Cache 03c6 e5fd | | Load 0x2,-0x3 03c7 e5fe | | Load 0x2,-0x2 03c8 e5ff | | Load 0x2,-0x1 03c9 0217 | | Execute Heap_Access,All_Reference 03ca 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 03cb 804d | M | Call 0x0,0x4d 03cc c5fc | | Store 0x2,-0x4 03cd 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03ce 00e1 | | Load_Encached Boolean_Cache 03cf e5fd | | Load 0x2,-0x3 03d0 e5fe | | Load 0x2,-0x2 03d1 e5ff | | Load 0x2,-0x1 03d2 0217 | | Execute Heap_Access,All_Reference 03d3 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 03d4 804e | N | Call 0x0,0x4e 03d5 c5fc | | Store 0x2,-0x4 03d6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03d7 00e1 | | Load_Encached Boolean_Cache 03d8 e5fd | | Load 0x2,-0x3 03d9 e5fe | | Load 0x2,-0x2 03da e5ff | | Load 0x2,-0x1 03db 0217 | | Execute Heap_Access,All_Reference 03dc 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 03dd 804f | O | Call 0x0,0x4f 03de c5fc | | Store 0x2,-0x4 03df 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03e0 00e1 | | Load_Encached Boolean_Cache 03e1 e5fd | | Load 0x2,-0x3 03e2 e5fe | | Load 0x2,-0x2 03e3 e5ff | | Load 0x2,-0x1 03e4 0217 | | Execute Heap_Access,All_Reference 03e5 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 03e6 8050 | P | Call 0x0,0x50 03e7 c5fc | | Store 0x2,-0x4 03e8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03e9 00e1 | | Load_Encached Boolean_Cache 03ea e5fd | | Load 0x2,-0x3 03eb e5fe | | Load 0x2,-0x2 03ec e5ff | | Load 0x2,-0x1 03ed 0217 | | Execute Heap_Access,All_Reference 03ee 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf 03ef 8051 | Q | Call 0x0,0x51 03f0 c5fc | | Store 0x2,-0x4 03f1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03f2 0833 | 3 | Execute_Immediate Raise,0x33 03f3 0000 0000 | | .BLANK 0000[0x5] 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 03fb | | .CONST 0x03fb ; Address of begin 03f9 0004 | | .CONST 0x0004 ; Address of exception handler 03fa 0001 | | .CONST 0x0001 ; Number of locals 03fb BODY_03f8: 03fb INIT_03f8: 03fb 00da | | Load_Top At_Offset_2 03fc 0217 | | Execute Heap_Access,All_Reference 03fd 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 03fe 00d1 | | Pop_Control Pop_Count_1 03ff 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0400 ; -------------------------------------------------------------------------------------- 0400 ; SUBPROGRAM 0400 ; -------------------------------------------------------------------------------------- 0400 0403 | | .CONST 0x0403 ; Address of begin 0401 0004 | | .CONST 0x0004 ; Address of exception handler 0402 0001 | | .CONST 0x0001 ; Number of locals 0403 BODY_0400: 0403 INIT_0400: 0403 00da | | Load_Top At_Offset_2 0404 0217 | | Execute Heap_Access,All_Reference 0405 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0406 4609 |F | Jump_Case 0xa 0407 7851 |xQ | Jump 0x459 ; case 0x0 0408 7810 |x | Jump 0x419 ; case 0x1 0409 7817 |x | Jump 0x421 ; case 0x2 040a 7826 |x& | Jump 0x431 ; case 0x3 040b 781d |x | Jump 0x429 ; case 0x4 040c 782c |x, | Jump 0x439 ; case 0x5 040d 7833 |x3 | Jump 0x441 ; case 0x6 040e 783a |x: | Jump 0x449 ; case 0x7 040f 7841 |xA | Jump 0x451 ; case 0x8 0410 7800 |x | Jump 0x411 ; case 0x9 0411 e5fd | | Load 0x2,-0x3 0412 e5fe | | Load 0x2,-0x2 0413 e5ff | | Load 0x2,-0x1 0414 0217 | | Execute Heap_Access,All_Reference 0415 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10 0416 8052 | R | Call 0x0,0x52 0417 00d1 | | Pop_Control Pop_Count_1 0418 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0419 e5fd | | Load 0x2,-0x3 041a e5fe | | Load 0x2,-0x2 041b e5ff | | Load 0x2,-0x1 041c 0217 | | Execute Heap_Access,All_Reference 041d 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 041e 8053 | S | Call 0x0,0x53 041f 00d1 | | Pop_Control Pop_Count_1 0420 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0421 e5fd | | Load 0x2,-0x3 0422 e5fe | | Load 0x2,-0x2 0423 e5ff | | Load 0x2,-0x1 0424 0217 | | Execute Heap_Access,All_Reference 0425 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 0426 8054 | T | Call 0x0,0x54 0427 00d1 | | Pop_Control Pop_Count_1 0428 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0429 e5fd | | Load 0x2,-0x3 042a e5fe | | Load 0x2,-0x2 042b e5ff | | Load 0x2,-0x1 042c 0217 | | Execute Heap_Access,All_Reference 042d 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb 042e 8055 | U | Call 0x0,0x55 042f 00d1 | | Pop_Control Pop_Count_1 0430 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0431 e5fd | | Load 0x2,-0x3 0432 e5fe | | Load 0x2,-0x2 0433 e5ff | | Load 0x2,-0x1 0434 0217 | | Execute Heap_Access,All_Reference 0435 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 0436 8056 | V | Call 0x0,0x56 0437 00d1 | | Pop_Control Pop_Count_1 0438 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0439 e5fd | | Load 0x2,-0x3 043a e5fe | | Load 0x2,-0x2 043b e5ff | | Load 0x2,-0x1 043c 0217 | | Execute Heap_Access,All_Reference 043d 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 043e 8057 | W | Call 0x0,0x57 043f 00d1 | | Pop_Control Pop_Count_1 0440 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0441 e5fd | | Load 0x2,-0x3 0442 e5fe | | Load 0x2,-0x2 0443 e5ff | | Load 0x2,-0x1 0444 0217 | | Execute Heap_Access,All_Reference 0445 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 0446 8058 | X | Call 0x0,0x58 0447 00d1 | | Pop_Control Pop_Count_1 0448 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0449 e5fd | | Load 0x2,-0x3 044a e5fe | | Load 0x2,-0x2 044b e5ff | | Load 0x2,-0x1 044c 0217 | | Execute Heap_Access,All_Reference 044d 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 044e 8059 | Y | Call 0x0,0x59 044f 00d1 | | Pop_Control Pop_Count_1 0450 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0451 e5fd | | Load 0x2,-0x3 0452 e5fe | | Load 0x2,-0x2 0453 e5ff | | Load 0x2,-0x1 0454 0217 | | Execute Heap_Access,All_Reference 0455 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf 0456 805a | Z | Call 0x0,0x5a 0457 00d1 | | Pop_Control Pop_Count_1 0458 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0459 0833 | 3 | Execute_Immediate Raise,0x33 045a 0000 0000 | | .BLANK 0000[0x6] 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 0469 | i | .CONST 0x0469 ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0003 | | .CONST 0x0003 ; Number of locals 0463 INIT_0460: 0463 e004 | | Load 0x0,0x4 0464 02ff | | Declare_Variable Variant_Record 0465 00d8 | | Load_Top At_Offset_0 0466 1c00 | | Execute_Immediate Run_Utility,0x0 0467 00e1 | | Load_Encached Boolean_Cache 0468 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0469 BODY_0460: 0469 e5ff | | Load 0x2,-0x1 046a 0217 | | Execute Heap_Access,All_Reference 046b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 046c 4609 |F | Jump_Case 0xa 046d 785a |xZ | Jump 0x4c8 ; case 0x0 046e 7811 |x | Jump 0x480 ; case 0x1 046f 7819 |x | Jump 0x489 ; case 0x2 0470 782a |x* | Jump 0x49b ; case 0x3 0471 7820 |x | Jump 0x492 ; case 0x4 0472 7831 |x1 | Jump 0x4a4 ; case 0x5 0473 7839 |x9 | Jump 0x4ad ; case 0x6 0474 7841 |xA | Jump 0x4b6 ; case 0x7 0475 7849 |xI | Jump 0x4bf ; case 0x8 0476 7800 |x | Jump 0x477 ; case 0x9 0477 00e1 | | Load_Encached Boolean_Cache 0478 00da | | Load_Top At_Offset_2 0479 e5ff | | Load 0x2,-0x1 047a 0217 | | Execute Heap_Access,All_Reference 047b 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10 047c 805b | [ | Call 0x0,0x5b 047d 00d1 | | Pop_Control Pop_Count_1 047e 0059 | Y | Store_Top Discrete,At_Offset_1 047f 7849 |xI | Jump 0x4c9 0480 00e1 | | Load_Encached Boolean_Cache 0481 00da | | Load_Top At_Offset_2 0482 e5ff | | Load 0x2,-0x1 0483 0217 | | Execute Heap_Access,All_Reference 0484 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 0485 805c | \ | Call 0x0,0x5c 0486 00d1 | | Pop_Control Pop_Count_1 0487 0059 | Y | Store_Top Discrete,At_Offset_1 0488 7840 |x@ | Jump 0x4c9 0489 00e1 | | Load_Encached Boolean_Cache 048a 00da | | Load_Top At_Offset_2 048b e5ff | | Load 0x2,-0x1 048c 0217 | | Execute Heap_Access,All_Reference 048d 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 048e 805d | ] | Call 0x0,0x5d 048f 00d1 | | Pop_Control Pop_Count_1 0490 0059 | Y | Store_Top Discrete,At_Offset_1 0491 7837 |x7 | Jump 0x4c9 0492 00e1 | | Load_Encached Boolean_Cache 0493 00da | | Load_Top At_Offset_2 0494 e5ff | | Load 0x2,-0x1 0495 0217 | | Execute Heap_Access,All_Reference 0496 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb 0497 805e | ^ | Call 0x0,0x5e 0498 00d1 | | Pop_Control Pop_Count_1 0499 0059 | Y | Store_Top Discrete,At_Offset_1 049a 782e |x. | Jump 0x4c9 049b 00e1 | | Load_Encached Boolean_Cache 049c 00da | | Load_Top At_Offset_2 049d e5ff | | Load 0x2,-0x1 049e 0217 | | Execute Heap_Access,All_Reference 049f 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 04a0 805f | _ | Call 0x0,0x5f 04a1 00d1 | | Pop_Control Pop_Count_1 04a2 0059 | Y | Store_Top Discrete,At_Offset_1 04a3 7825 |x% | Jump 0x4c9 04a4 00e1 | | Load_Encached Boolean_Cache 04a5 00da | | Load_Top At_Offset_2 04a6 e5ff | | Load 0x2,-0x1 04a7 0217 | | Execute Heap_Access,All_Reference 04a8 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 04a9 8060 | ` | Call 0x0,0x60 04aa 00d1 | | Pop_Control Pop_Count_1 04ab 0059 | Y | Store_Top Discrete,At_Offset_1 04ac 781c |x | Jump 0x4c9 04ad 00e1 | | Load_Encached Boolean_Cache 04ae 00da | | Load_Top At_Offset_2 04af e5ff | | Load 0x2,-0x1 04b0 0217 | | Execute Heap_Access,All_Reference 04b1 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 04b2 8061 | a | Call 0x0,0x61 04b3 00d1 | | Pop_Control Pop_Count_1 04b4 0059 | Y | Store_Top Discrete,At_Offset_1 04b5 7813 |x | Jump 0x4c9 04b6 00e1 | | Load_Encached Boolean_Cache 04b7 00da | | Load_Top At_Offset_2 04b8 e5ff | | Load 0x2,-0x1 04b9 0217 | | Execute Heap_Access,All_Reference 04ba 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 04bb 8062 | b | Call 0x0,0x62 04bc 00d1 | | Pop_Control Pop_Count_1 04bd 0059 | Y | Store_Top Discrete,At_Offset_1 04be 780a |x | Jump 0x4c9 04bf 00e1 | | Load_Encached Boolean_Cache 04c0 00da | | Load_Top At_Offset_2 04c1 e5ff | | Load 0x2,-0x1 04c2 0217 | | Execute Heap_Access,All_Reference 04c3 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf 04c4 8063 | c | Call 0x0,0x63 04c5 00d1 | | Pop_Control Pop_Count_1 04c6 0059 | Y | Store_Top Discrete,At_Offset_1 04c7 7801 |x | Jump 0x4c9 04c8 0833 | 3 | Execute_Immediate Raise,0x33 04c9 00d8 | | Load_Top At_Offset_0 04ca 6806 |h | Jump_Zero 0x4d1 04cb e5ff | | Load 0x2,-0x1 04cc 0217 | | Execute Heap_Access,All_Reference 04cd 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3 04ce e5fe | | Load 0x2,-0x2 04cf 016d | m | Execute Variant_Record,Structure_Write 04d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04d1 00d9 | | Load_Top At_Offset_1 04d2 e5fe | | Load 0x2,-0x2 04d3 016d | m | Execute Variant_Record,Structure_Write 04d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04d5 0000 0000 | | .XXX[0x3] 04d7 0000 | | 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; SUBPROGRAM 04d8 ; -------------------------------------------------------------------------------------- 04d8 04db | | .CONST 0x04db ; Address of begin 04d9 0004 | | .CONST 0x0004 ; Address of exception handler 04da 0001 | | .CONST 0x0001 ; Number of locals 04db BODY_04d8: 04db INIT_04d8: 04db 00da | | Load_Top At_Offset_2 04dc 0217 | | Execute Heap_Access,All_Reference 04dd 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 04de 4609 |F | Jump_Case 0xa 04df 7848 |xH | Jump 0x528 ; case 0x0 04e0 780f |x | Jump 0x4f0 ; case 0x1 04e1 7815 |x | Jump 0x4f7 ; case 0x2 04e2 7822 |x" | Jump 0x505 ; case 0x3 04e3 781a |x | Jump 0x4fe ; case 0x4 04e4 7827 |x' | Jump 0x50c ; case 0x5 04e5 782d |x- | Jump 0x513 ; case 0x6 04e6 7833 |x3 | Jump 0x51a ; case 0x7 04e7 7839 |x9 | Jump 0x521 ; case 0x8 04e8 7800 |x | Jump 0x4e9 ; case 0x9 04e9 e5fd | | Load 0x2,-0x3 04ea e5fe | | Load 0x2,-0x2 04eb e5ff | | Load 0x2,-0x1 04ec 0217 | | Execute Heap_Access,All_Reference 04ed 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10 04ee 8064 | d | Call 0x0,0x64 04ef 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04f0 e5fd | | Load 0x2,-0x3 04f1 e5fe | | Load 0x2,-0x2 04f2 e5ff | | Load 0x2,-0x1 04f3 0217 | | Execute Heap_Access,All_Reference 04f4 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 04f5 8065 | e | Call 0x0,0x65 04f6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04f7 e5fd | | Load 0x2,-0x3 04f8 e5fe | | Load 0x2,-0x2 04f9 e5ff | | Load 0x2,-0x1 04fa 0217 | | Execute Heap_Access,All_Reference 04fb 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 04fc 8066 | f | Call 0x0,0x66 04fd 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04fe e5fd | | Load 0x2,-0x3 04ff e5fe | | Load 0x2,-0x2 0500 e5ff | | Load 0x2,-0x1 0501 0217 | | Execute Heap_Access,All_Reference 0502 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb 0503 8067 | g | Call 0x0,0x67 0504 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0505 e5fd | | Load 0x2,-0x3 0506 e5fe | | Load 0x2,-0x2 0507 e5ff | | Load 0x2,-0x1 0508 0217 | | Execute Heap_Access,All_Reference 0509 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 050a 8068 | h | Call 0x0,0x68 050b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 050c e5fd | | Load 0x2,-0x3 050d e5fe | | Load 0x2,-0x2 050e e5ff | | Load 0x2,-0x1 050f 0217 | | Execute Heap_Access,All_Reference 0510 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 0511 8069 | i | Call 0x0,0x69 0512 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0513 e5fd | | Load 0x2,-0x3 0514 e5fe | | Load 0x2,-0x2 0515 e5ff | | Load 0x2,-0x1 0516 0217 | | Execute Heap_Access,All_Reference 0517 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 0518 806a | j | Call 0x0,0x6a 0519 4504 |E | Exit_Suprogram New_Top_Offset 0x4 051a e5fd | | Load 0x2,-0x3 051b e5fe | | Load 0x2,-0x2 051c e5ff | | Load 0x2,-0x1 051d 0217 | | Execute Heap_Access,All_Reference 051e 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 051f 806b | k | Call 0x0,0x6b 0520 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0521 e5fd | | Load 0x2,-0x3 0522 e5fe | | Load 0x2,-0x2 0523 e5ff | | Load 0x2,-0x1 0524 0217 | | Execute Heap_Access,All_Reference 0525 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf 0526 806c | l | Call 0x0,0x6c 0527 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0528 0833 | 3 | Execute_Immediate Raise,0x33 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 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0536 4609 |F | Jump_Case 0xa 0537 7848 |xH | Jump 0x580 ; case 0x0 0538 780f |x | Jump 0x548 ; case 0x1 0539 7815 |x | Jump 0x54f ; case 0x2 053a 7822 |x" | Jump 0x55d ; case 0x3 053b 781a |x | Jump 0x556 ; case 0x4 053c 7827 |x' | Jump 0x564 ; case 0x5 053d 782d |x- | Jump 0x56b ; case 0x6 053e 7833 |x3 | Jump 0x572 ; case 0x7 053f 7839 |x9 | Jump 0x579 ; case 0x8 0540 7800 |x | Jump 0x541 ; case 0x9 0541 e5fd | | Load 0x2,-0x3 0542 e5fe | | Load 0x2,-0x2 0543 e5ff | | Load 0x2,-0x1 0544 0217 | | Execute Heap_Access,All_Reference 0545 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10 0546 806d | m | Call 0x0,0x6d 0547 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0548 e5fd | | Load 0x2,-0x3 0549 e5fe | | Load 0x2,-0x2 054a e5ff | | Load 0x2,-0x1 054b 0217 | | Execute Heap_Access,All_Reference 054c 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 054d 806e | n | Call 0x0,0x6e 054e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 054f e5fd | | Load 0x2,-0x3 0550 e5fe | | Load 0x2,-0x2 0551 e5ff | | Load 0x2,-0x1 0552 0217 | | Execute Heap_Access,All_Reference 0553 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 0554 806f | o | Call 0x0,0x6f 0555 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0556 e5fd | | Load 0x2,-0x3 0557 e5fe | | Load 0x2,-0x2 0558 e5ff | | Load 0x2,-0x1 0559 0217 | | Execute Heap_Access,All_Reference 055a 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb 055b 8070 | p | Call 0x0,0x70 055c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 055d e5fd | | Load 0x2,-0x3 055e e5fe | | Load 0x2,-0x2 055f e5ff | | Load 0x2,-0x1 0560 0217 | | Execute Heap_Access,All_Reference 0561 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 0562 8071 | q | Call 0x0,0x71 0563 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0564 e5fd | | Load 0x2,-0x3 0565 e5fe | | Load 0x2,-0x2 0566 e5ff | | Load 0x2,-0x1 0567 0217 | | Execute Heap_Access,All_Reference 0568 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 0569 8072 | r | Call 0x0,0x72 056a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 056b e5fd | | Load 0x2,-0x3 056c e5fe | | Load 0x2,-0x2 056d e5ff | | Load 0x2,-0x1 056e 0217 | | Execute Heap_Access,All_Reference 056f 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 0570 8073 | s | Call 0x0,0x73 0571 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0572 e5fd | | Load 0x2,-0x3 0573 e5fe | | Load 0x2,-0x2 0574 e5ff | | Load 0x2,-0x1 0575 0217 | | Execute Heap_Access,All_Reference 0576 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 0577 8074 | t | Call 0x0,0x74 0578 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0579 e5fd | | Load 0x2,-0x3 057a e5fe | | Load 0x2,-0x2 057b e5ff | | Load 0x2,-0x1 057c 0217 | | Execute Heap_Access,All_Reference 057d 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf 057e 8075 | u | Call 0x0,0x75 057f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0580 0833 | 3 | Execute_Immediate Raise,0x33 0581 0000 0000 | | .BLANK 0000[0x7] 0588 ; -------------------------------------------------------------------------------------- 0588 ; SUBPROGRAM 0588 ; -------------------------------------------------------------------------------------- 0588 058b | | .CONST 0x058b ; Address of begin 0589 0004 | | .CONST 0x0004 ; Address of exception handler 058a 0001 | | .CONST 0x0001 ; Number of locals 058b BODY_0588: 058b INIT_0588: 058b 00db | | Load_Top At_Offset_3 058c 0217 | | Execute Heap_Access,All_Reference 058d 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 058e 681f |h | Jump_Zero 0x5ae 058f 00db | | Load_Top At_Offset_3 0590 0217 | | Execute Heap_Access,All_Reference 0591 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 0592 a5fe | | Store_Unchecked 0x2,-0x2 0593 00db | | Load_Top At_Offset_3 0594 0217 | | Execute Heap_Access,All_Reference 0595 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0596 4609 |F | Jump_Case 0xa 0597 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x0 0598 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1 0599 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2 059a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x3 059b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x4 059c 780b |x | Jump 0x5a8 ; case 0x5 059d 7804 |x | Jump 0x5a2 ; case 0x6 059e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7 059f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x8 05a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x9 05a1 4502 |E | .XXX[0x1] 05a2 00da | | Load_Top At_Offset_2 05a3 e5fe | | Load 0x2,-0x2 05a4 0217 | | Execute Heap_Access,All_Reference 05a5 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 05a6 8076 | v | Call 0x0,0x76 05a7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05a8 00da | | Load_Top At_Offset_2 05a9 e5fe | | Load 0x2,-0x2 05aa 0217 | | Execute Heap_Access,All_Reference 05ab 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 05ac 8077 | w | Call 0x0,0x77 05ad 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05ae 4800 |H | Short_Literal 0x0 05af 0092 0d5d | ]| Action Push_String_Extended,0xd5d ; "No previous Images for Undo" 05b1 801b | | Call 0x0,0x1b 05b2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05b3 0000 0000 | | .BLANK 0000[0x5] 05b8 ; -------------------------------------------------------------------------------------- 05b8 ; SUBPROGRAM 05b8 ; -------------------------------------------------------------------------------------- 05b8 05bb | | .CONST 0x05bb ; Address of begin 05b9 0004 | | .CONST 0x0004 ; Address of exception handler 05ba 0001 | | .CONST 0x0001 ; Number of locals 05bb BODY_05b8: 05bb INIT_05b8: 05bb 00db | | Load_Top At_Offset_3 05bc 0217 | | Execute Heap_Access,All_Reference 05bd 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6 05be 681f |h | Jump_Zero 0x5de 05bf 00db | | Load_Top At_Offset_3 05c0 0217 | | Execute Heap_Access,All_Reference 05c1 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6 05c2 a5fe | | Store_Unchecked 0x2,-0x2 05c3 00db | | Load_Top At_Offset_3 05c4 0217 | | Execute Heap_Access,All_Reference 05c5 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 05c6 4609 |F | Jump_Case 0xa 05c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x0 05c8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1 05c9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2 05ca 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x3 05cb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x4 05cc 780b |x | Jump 0x5d8 ; case 0x5 05cd 7804 |x | Jump 0x5d2 ; case 0x6 05ce 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7 05cf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x8 05d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x9 05d1 4502 |E | .XXX[0x1] 05d2 00da | | Load_Top At_Offset_2 05d3 e5fe | | Load 0x2,-0x2 05d4 0217 | | Execute Heap_Access,All_Reference 05d5 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 05d6 8078 | x | Call 0x0,0x78 05d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05d8 00da | | Load_Top At_Offset_2 05d9 e5fe | | Load 0x2,-0x2 05da 0217 | | Execute Heap_Access,All_Reference 05db 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 05dc 8079 | y | Call 0x0,0x79 05dd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05de 4800 |H | Short_Literal 0x0 05df 0092 0d5e | ^| Action Push_String_Extended,0xd5e ; "No more Images for Redo" 05e1 801b | | Call 0x0,0x1b 05e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05e3 0000 0000 | | .BLANK 0000[0x5] 05e8 ; -------------------------------------------------------------------------------------- 05e8 ; SUBPROGRAM 05e8 ; -------------------------------------------------------------------------------------- 05e8 05eb | | .CONST 0x05eb ; Address of begin 05e9 0004 | | .CONST 0x0004 ; Address of exception handler 05ea 0001 | | .CONST 0x0001 ; Number of locals 05eb BODY_05e8: 05eb INIT_05e8: 05eb 00db | | Load_Top At_Offset_3 05ec 0217 | | Execute Heap_Access,All_Reference 05ed 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 05ee 4609 |F | Jump_Case 0xa 05ef 7843 |xC | Jump 0x633 ; case 0x0 05f0 780e |x | Jump 0x5ff ; case 0x1 05f1 7813 |x | Jump 0x605 ; case 0x2 05f2 781e |x | Jump 0x611 ; case 0x3 05f3 7817 |x | Jump 0x60b ; case 0x4 05f4 7822 |x" | Jump 0x617 ; case 0x5 05f5 782b |x+ | Jump 0x621 ; case 0x6 05f6 7830 |x0 | Jump 0x627 ; case 0x7 05f7 7835 |x5 | Jump 0x62d ; case 0x8 05f8 7800 |x | Jump 0x5f9 ; case 0x9 05f9 00da | | Load_Top At_Offset_2 05fa e5fe | | Load 0x2,-0x2 05fb 0217 | | Execute Heap_Access,All_Reference 05fc 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10 05fd 807a | z | Call 0x0,0x7a 05fe 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05ff 00da | | Load_Top At_Offset_2 0600 e5fe | | Load 0x2,-0x2 0601 0217 | | Execute Heap_Access,All_Reference 0602 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 0603 807b | { | Call 0x0,0x7b 0604 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0605 00da | | Load_Top At_Offset_2 0606 e5fe | | Load 0x2,-0x2 0607 0217 | | Execute Heap_Access,All_Reference 0608 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 0609 807c | | | Call 0x0,0x7c 060a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 060b 00da | | Load_Top At_Offset_2 060c e5fe | | Load 0x2,-0x2 060d 0217 | | Execute Heap_Access,All_Reference 060e 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb 060f 807d | } | Call 0x0,0x7d 0610 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0611 00da | | Load_Top At_Offset_2 0612 e5fe | | Load 0x2,-0x2 0613 0217 | | Execute Heap_Access,All_Reference 0614 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 0615 807e | ~ | Call 0x0,0x7e 0616 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0617 00db | | Load_Top At_Offset_3 0618 0219 | | Execute Heap_Access,All_Read 0619 00d8 | | Load_Top At_Offset_0 061a 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 061b e5ff | | Load 0x2,-0x1 061c 807f | | Call 0x0,0x7f 061d 00d9 | | Load_Top At_Offset_1 061e 2a0c |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc 061f 00d1 | | Pop_Control Pop_Count_1 0620 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0621 00da | | Load_Top At_Offset_2 0622 e5fe | | Load 0x2,-0x2 0623 0217 | | Execute Heap_Access,All_Reference 0624 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 0625 8080 | | Call 0x0,0x80 0626 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0627 00da | | Load_Top At_Offset_2 0628 e5fe | | Load 0x2,-0x2 0629 0217 | | Execute Heap_Access,All_Reference 062a 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 062b 8081 | | Call 0x0,0x81 062c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 062d 00da | | Load_Top At_Offset_2 062e e5fe | | Load 0x2,-0x2 062f 0217 | | Execute Heap_Access,All_Reference 0630 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf 0631 8082 | | Call 0x0,0x82 0632 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0633 0833 | 3 | Execute_Immediate Raise,0x33 0634 0000 0000 | | .BLANK 0000[0x4] 0638 ; -------------------------------------------------------------------------------------- 0638 ; SUBPROGRAM 0638 ; -------------------------------------------------------------------------------------- 0638 063b | ; | .CONST 0x063b ; Address of begin 0639 0004 | | .CONST 0x0004 ; Address of exception handler 063a 0001 | | .CONST 0x0001 ; Number of locals 063b BODY_0638: 063b INIT_0638: 063b 00da | | Load_Top At_Offset_2 063c 0217 | | Execute Heap_Access,All_Reference 063d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 063e 4609 |F | Jump_Case 0xa 063f 783f |x? | Jump 0x67f ; case 0x0 0640 780e |x | Jump 0x64f ; case 0x1 0641 7813 |x | Jump 0x655 ; case 0x2 0642 781e |x | Jump 0x661 ; case 0x3 0643 7817 |x | Jump 0x65b ; case 0x4 0644 7822 |x" | Jump 0x667 ; case 0x5 0645 7827 |x' | Jump 0x66d ; case 0x6 0646 782c |x, | Jump 0x673 ; case 0x7 0647 7831 |x1 | Jump 0x679 ; case 0x8 0648 7800 |x | Jump 0x649 ; case 0x9 0649 00db | | Load_Top At_Offset_3 064a 00db | | Load_Top At_Offset_3 064b 0217 | | Execute Heap_Access,All_Reference 064c 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10 064d 8083 | | Call 0x0,0x83 064e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 064f 00db | | Load_Top At_Offset_3 0650 00db | | Load_Top At_Offset_3 0651 0217 | | Execute Heap_Access,All_Reference 0652 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 0653 8084 | | Call 0x0,0x84 0654 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0655 00db | | Load_Top At_Offset_3 0656 00db | | Load_Top At_Offset_3 0657 0217 | | Execute Heap_Access,All_Reference 0658 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 0659 8085 | | Call 0x0,0x85 065a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 065b 00db | | Load_Top At_Offset_3 065c 00db | | Load_Top At_Offset_3 065d 0217 | | Execute Heap_Access,All_Reference 065e 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb 065f 8086 | | Call 0x0,0x86 0660 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0661 00db | | Load_Top At_Offset_3 0662 00db | | Load_Top At_Offset_3 0663 0217 | | Execute Heap_Access,All_Reference 0664 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 0665 8087 | | Call 0x0,0x87 0666 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0667 00db | | Load_Top At_Offset_3 0668 00db | | Load_Top At_Offset_3 0669 0217 | | Execute Heap_Access,All_Reference 066a 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 066b 8088 | | Call 0x0,0x88 066c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 066d 00db | | Load_Top At_Offset_3 066e 00db | | Load_Top At_Offset_3 066f 0217 | | Execute Heap_Access,All_Reference 0670 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 0671 8089 | | Call 0x0,0x89 0672 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0673 00db | | Load_Top At_Offset_3 0674 00db | | Load_Top At_Offset_3 0675 0217 | | Execute Heap_Access,All_Reference 0676 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 0677 808a | | Call 0x0,0x8a 0678 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0679 00db | | Load_Top At_Offset_3 067a 00db | | Load_Top At_Offset_3 067b 0217 | | Execute Heap_Access,All_Reference 067c 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf 067d 808b | | Call 0x0,0x8b 067e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 067f 0833 | 3 | Execute_Immediate Raise,0x33 0680 ; -------------------------------------------------------------------------------------- 0680 ; SUBPROGRAM 0680 ; -------------------------------------------------------------------------------------- 0680 0683 | | .CONST 0x0683 ; Address of begin 0681 0004 | | .CONST 0x0004 ; Address of exception handler 0682 0001 | | .CONST 0x0001 ; Number of locals 0683 BODY_0680: 0683 INIT_0680: 0683 00da | | Load_Top At_Offset_2 0684 8243 | C | Call 0x1,0x43 0685 00da | | Load_Top At_Offset_2 0686 0217 | | Execute Heap_Access,All_Reference 0687 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0688 4609 |F | Jump_Case 0xa 0689 783f |x? | Jump 0x6c9 ; case 0x0 068a 780e |x | Jump 0x699 ; case 0x1 068b 7813 |x | Jump 0x69f ; case 0x2 068c 781e |x | Jump 0x6ab ; case 0x3 068d 7817 |x | Jump 0x6a5 ; case 0x4 068e 7822 |x" | Jump 0x6b1 ; case 0x5 068f 7827 |x' | Jump 0x6b7 ; case 0x6 0690 782c |x, | Jump 0x6bd ; case 0x7 0691 7831 |x1 | Jump 0x6c3 ; case 0x8 0692 7800 |x | Jump 0x693 ; case 0x9 0693 00db | | Load_Top At_Offset_3 0694 00db | | Load_Top At_Offset_3 0695 0217 | | Execute Heap_Access,All_Reference 0696 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10 0697 808c | | Call 0x0,0x8c 0698 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0699 00db | | Load_Top At_Offset_3 069a 00db | | Load_Top At_Offset_3 069b 0217 | | Execute Heap_Access,All_Reference 069c 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 069d 808d | | Call 0x0,0x8d 069e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 069f 00db | | Load_Top At_Offset_3 06a0 00db | | Load_Top At_Offset_3 06a1 0217 | | Execute Heap_Access,All_Reference 06a2 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 06a3 808e | | Call 0x0,0x8e 06a4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 06a5 00db | | Load_Top At_Offset_3 06a6 00db | | Load_Top At_Offset_3 06a7 0217 | | Execute Heap_Access,All_Reference 06a8 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb 06a9 808f | | Call 0x0,0x8f 06aa 4503 |E | Exit_Suprogram New_Top_Offset 0x3 06ab 00db | | Load_Top At_Offset_3 06ac 00db | | Load_Top At_Offset_3 06ad 0217 | | Execute Heap_Access,All_Reference 06ae 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 06af 8090 | | Call 0x0,0x90 06b0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 06b1 00db | | Load_Top At_Offset_3 06b2 00db | | Load_Top At_Offset_3 06b3 0217 | | Execute Heap_Access,All_Reference 06b4 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 06b5 8091 | | Call 0x0,0x91 06b6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 06b7 00db | | Load_Top At_Offset_3 06b8 00db | | Load_Top At_Offset_3 06b9 0217 | | Execute Heap_Access,All_Reference 06ba 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 06bb 8092 | | Call 0x0,0x92 06bc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 06bd 00db | | Load_Top At_Offset_3 06be 00db | | Load_Top At_Offset_3 06bf 0217 | | Execute Heap_Access,All_Reference 06c0 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 06c1 8093 | | Call 0x0,0x93 06c2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 06c3 00db | | Load_Top At_Offset_3 06c4 00db | | Load_Top At_Offset_3 06c5 0217 | | Execute Heap_Access,All_Reference 06c6 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf 06c7 8094 | | Call 0x0,0x94 06c8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 06c9 0833 | 3 | Execute_Immediate Raise,0x33 06ca 0000 0000 | | .BLANK 0000[0x6] 06d0 ; -------------------------------------------------------------------------------------- 06d0 ; SUBPROGRAM 06d0 ; -------------------------------------------------------------------------------------- 06d0 06d3 | | .CONST 0x06d3 ; Address of begin 06d1 0004 | | .CONST 0x0004 ; Address of exception handler 06d2 0001 | | .CONST 0x0001 ; Number of locals 06d3 BODY_06d0: 06d3 INIT_06d0: 06d3 00da | | Load_Top At_Offset_2 06d4 0217 | | Execute Heap_Access,All_Reference 06d5 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 06d6 0f05 | | Execute_Immediate Equal,0x5 06d7 6805 |h | Jump_Zero 0x6dd 06d8 00da | | Load_Top At_Offset_2 06d9 0217 | | Execute Heap_Access,All_Reference 06da 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 06db 8095 | | Call 0x0,0x95 06dc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06dd 00ea | | Load_Encached Null_String_Cache 06de 0092 0d5f | _| Action Push_String_Extended,0xd5f ; "Semanticize" 06e0 e096 | | Load 0x0,0x96 06e1 e23f | ? | Load 0x1,0x3f 06e2 0096 | | Execute Package,Entry 06e3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06e4 0000 0000 | | .BLANK 0000[0x4] 06e8 ; -------------------------------------------------------------------------------------- 06e8 ; SUBPROGRAM 06e8 ; -------------------------------------------------------------------------------------- 06e8 06eb | | .CONST 0x06eb ; Address of begin 06e9 0004 | | .CONST 0x0004 ; Address of exception handler 06ea 0001 | | .CONST 0x0001 ; Number of locals 06eb BODY_06e8: 06eb INIT_06e8: 06eb 00da | | Load_Top At_Offset_2 06ec 0217 | | Execute Heap_Access,All_Reference 06ed 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 06ee 0f05 | | Execute_Immediate Equal,0x5 06ef 7008 |p | Jump_Nonzero 0x6f8 06f0 00ea | | Load_Encached Null_String_Cache 06f1 0092 0d60 | `| Action Push_String_Extended,0xd60 ; "Edit" 06f3 e096 | | Load 0x0,0x96 06f4 e23f | ? | Load 0x1,0x3f 06f5 0096 | | Execute Package,Entry 06f6 00ea | | Load_Encached Null_String_Cache 06f7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06f8 00db | | Load_Top At_Offset_3 06f9 00db | | Load_Top At_Offset_3 06fa 0217 | | Execute Heap_Access,All_Reference 06fb 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 06fc 8097 | | Call 0x0,0x97 06fd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06fe 0000 0000 | | .XXX[0x2] 0700 ; -------------------------------------------------------------------------------------- 0700 ; SUBPROGRAM 0700 ; -------------------------------------------------------------------------------------- 0700 0703 | | .CONST 0x0703 ; Address of begin 0701 0004 | | .CONST 0x0004 ; Address of exception handler 0702 0001 | | .CONST 0x0001 ; Number of locals 0703 BODY_0700: 0703 INIT_0700: 0703 00da | | Load_Top At_Offset_2 0704 0217 | | Execute Heap_Access,All_Reference 0705 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0706 0f06 | | Execute_Immediate Equal,0x6 0707 7008 |p | Jump_Nonzero 0x710 0708 00ea | | Load_Encached Null_String_Cache 0709 0092 0d60 | `| Action Push_String_Extended,0xd60 ; "Edit" 070b e096 | | Load 0x0,0x96 070c e23f | ? | Load 0x1,0x3f 070d 0096 | | Execute Package,Entry 070e 00ea | | Load_Encached Null_String_Cache 070f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0710 00db | | Load_Top At_Offset_3 0711 00db | | Load_Top At_Offset_3 0712 0217 | | Execute Heap_Access,All_Reference 0713 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 0714 8098 | | Call 0x0,0x98 0715 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0716 0000 0000 | | .XXX[0x2] 0718 ; -------------------------------------------------------------------------------------- 0718 ; SUBPROGRAM 0718 ; -------------------------------------------------------------------------------------- 0718 071b | | .CONST 0x071b ; Address of begin 0719 0004 | | .CONST 0x0004 ; Address of exception handler 071a 0001 | | .CONST 0x0001 ; Number of locals 071b BODY_0718: 071b INIT_0718: 071b 00da | | Load_Top At_Offset_2 071c 0217 | | Execute Heap_Access,All_Reference 071d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 071e 4609 |F | Jump_Case 0xa 071f 783f |x? | Jump 0x75f ; case 0x0 0720 780e |x | Jump 0x72f ; case 0x1 0721 7813 |x | Jump 0x735 ; case 0x2 0722 781e |x | Jump 0x741 ; case 0x3 0723 7817 |x | Jump 0x73b ; case 0x4 0724 7822 |x" | Jump 0x747 ; case 0x5 0725 7827 |x' | Jump 0x74d ; case 0x6 0726 782c |x, | Jump 0x753 ; case 0x7 0727 7831 |x1 | Jump 0x759 ; case 0x8 0728 7800 |x | Jump 0x729 ; case 0x9 0729 00db | | Load_Top At_Offset_3 072a 00db | | Load_Top At_Offset_3 072b 0217 | | Execute Heap_Access,All_Reference 072c 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10 072d 8099 | | Call 0x0,0x99 072e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 072f 00db | | Load_Top At_Offset_3 0730 00db | | Load_Top At_Offset_3 0731 0217 | | Execute Heap_Access,All_Reference 0732 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 0733 809a | | Call 0x0,0x9a 0734 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0735 00db | | Load_Top At_Offset_3 0736 00db | | Load_Top At_Offset_3 0737 0217 | | Execute Heap_Access,All_Reference 0738 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 0739 809b | | Call 0x0,0x9b 073a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 073b 00db | | Load_Top At_Offset_3 073c 00db | | Load_Top At_Offset_3 073d 0217 | | Execute Heap_Access,All_Reference 073e 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb 073f 809c | | Call 0x0,0x9c 0740 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0741 00db | | Load_Top At_Offset_3 0742 00db | | Load_Top At_Offset_3 0743 0217 | | Execute Heap_Access,All_Reference 0744 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 0745 809d | | Call 0x0,0x9d 0746 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0747 00db | | Load_Top At_Offset_3 0748 00db | | Load_Top At_Offset_3 0749 0217 | | Execute Heap_Access,All_Reference 074a 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 074b 809e | | Call 0x0,0x9e 074c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 074d 00db | | Load_Top At_Offset_3 074e 00db | | Load_Top At_Offset_3 074f 0217 | | Execute Heap_Access,All_Reference 0750 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 0751 809f | | Call 0x0,0x9f 0752 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0753 00db | | Load_Top At_Offset_3 0754 00db | | Load_Top At_Offset_3 0755 0217 | | Execute Heap_Access,All_Reference 0756 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 0757 80a0 | | Call 0x0,0xa0 0758 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0759 00db | | Load_Top At_Offset_3 075a 00db | | Load_Top At_Offset_3 075b 0217 | | Execute Heap_Access,All_Reference 075c 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf 075d 80a1 | | Call 0x0,0xa1 075e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 075f 0833 | 3 | Execute_Immediate Raise,0x33 0760 ; -------------------------------------------------------------------------------------- 0760 ; SUBPROGRAM 0760 ; -------------------------------------------------------------------------------------- 0760 0763 | c | .CONST 0x0763 ; Address of begin 0761 0004 | | .CONST 0x0004 ; Address of exception handler 0762 0001 | | .CONST 0x0001 ; Number of locals 0763 BODY_0760: 0763 INIT_0760: 0763 00da | | Load_Top At_Offset_2 0764 8243 | C | Call 0x1,0x43 0765 00da | | Load_Top At_Offset_2 0766 0217 | | Execute Heap_Access,All_Reference 0767 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0768 4609 |F | Jump_Case 0xa 0769 783f |x? | Jump 0x7a9 ; case 0x0 076a 780e |x | Jump 0x779 ; case 0x1 076b 7813 |x | Jump 0x77f ; case 0x2 076c 781e |x | Jump 0x78b ; case 0x3 076d 7817 |x | Jump 0x785 ; case 0x4 076e 7822 |x" | Jump 0x791 ; case 0x5 076f 7827 |x' | Jump 0x797 ; case 0x6 0770 782c |x, | Jump 0x79d ; case 0x7 0771 7831 |x1 | Jump 0x7a3 ; case 0x8 0772 7800 |x | Jump 0x773 ; case 0x9 0773 00db | | Load_Top At_Offset_3 0774 00db | | Load_Top At_Offset_3 0775 0217 | | Execute Heap_Access,All_Reference 0776 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10 0777 80a2 | | Call 0x0,0xa2 0778 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0779 00db | | Load_Top At_Offset_3 077a 00db | | Load_Top At_Offset_3 077b 0217 | | Execute Heap_Access,All_Reference 077c 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 077d 80a3 | | Call 0x0,0xa3 077e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 077f 00db | | Load_Top At_Offset_3 0780 00db | | Load_Top At_Offset_3 0781 0217 | | Execute Heap_Access,All_Reference 0782 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 0783 80a4 | | Call 0x0,0xa4 0784 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0785 00db | | Load_Top At_Offset_3 0786 00db | | Load_Top At_Offset_3 0787 0217 | | Execute Heap_Access,All_Reference 0788 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb 0789 80a5 | | Call 0x0,0xa5 078a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 078b 00db | | Load_Top At_Offset_3 078c 00db | | Load_Top At_Offset_3 078d 0217 | | Execute Heap_Access,All_Reference 078e 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 078f 80a6 | | Call 0x0,0xa6 0790 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0791 00db | | Load_Top At_Offset_3 0792 00db | | Load_Top At_Offset_3 0793 0217 | | Execute Heap_Access,All_Reference 0794 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 0795 80a7 | | Call 0x0,0xa7 0796 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0797 00db | | Load_Top At_Offset_3 0798 00db | | Load_Top At_Offset_3 0799 0217 | | Execute Heap_Access,All_Reference 079a 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 079b 80a8 | | Call 0x0,0xa8 079c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 079d 00db | | Load_Top At_Offset_3 079e 00db | | Load_Top At_Offset_3 079f 0217 | | Execute Heap_Access,All_Reference 07a0 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 07a1 80a9 | | Call 0x0,0xa9 07a2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 07a3 00db | | Load_Top At_Offset_3 07a4 00db | | Load_Top At_Offset_3 07a5 0217 | | Execute Heap_Access,All_Reference 07a6 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf 07a7 80aa | | Call 0x0,0xaa 07a8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 07a9 0833 | 3 | Execute_Immediate Raise,0x33 07aa 0000 0000 | | .BLANK 0000[0x6] 07b0 ; -------------------------------------------------------------------------------------- 07b0 ; SUBPROGRAM 07b0 ; -------------------------------------------------------------------------------------- 07b0 07b3 | | .CONST 0x07b3 ; Address of begin 07b1 0004 | | .CONST 0x0004 ; Address of exception handler 07b2 0001 | | .CONST 0x0001 ; Number of locals 07b3 BODY_07b0: 07b3 INIT_07b0: 07b3 00da | | Load_Top At_Offset_2 07b4 0217 | | Execute Heap_Access,All_Reference 07b5 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 07b6 0f01 | | Execute_Immediate Equal,0x1 07b7 7007 |p | Jump_Nonzero 0x7bf 07b8 00ea | | Load_Encached Null_String_Cache 07b9 0092 0d61 | a| Action Push_String_Extended,0xd61 ; "Show_Differential" 07bb e096 | | Load 0x0,0x96 07bc e23f | ? | Load 0x1,0x3f 07bd 0096 | | Execute Package,Entry 07be 4503 |E | Exit_Suprogram New_Top_Offset 0x3 07bf e5fd | | Load 0x2,-0x3 07c0 e5fe | | Load 0x2,-0x2 07c1 e5ff | | Load 0x2,-0x1 07c2 0217 | | Execute Heap_Access,All_Reference 07c3 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 07c4 80ab | | Call 0x0,0xab 07c5 00d1 | | Pop_Control Pop_Count_1 07c6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 07c7 0000 | | .XXX[0x1] 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 00da | | Load_Top At_Offset_2 07cc 0217 | | Execute Heap_Access,All_Reference 07cd 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 07ce 4609 |F | Jump_Case 0xa 07cf 7809 |x | Jump 0x7d9 ; case 0x0 07d0 780f |x | Jump 0x7e0 ; case 0x1 07d1 7814 |x | Jump 0x7e6 ; case 0x2 07d2 7806 |x | Jump 0x7d9 ; case 0x3 07d3 7805 |x | Jump 0x7d9 ; case 0x4 07d4 7804 |x | Jump 0x7d9 ; case 0x5 07d5 7803 |x | Jump 0x7d9 ; case 0x6 07d6 7802 |x | Jump 0x7d9 ; case 0x7 07d7 7801 |x | Jump 0x7d9 ; case 0x8 07d8 7800 |x | Jump 0x7d9 ; case 0x9 07d9 00ea | | Load_Encached Null_String_Cache 07da 0092 0d62 | b| Action Push_String_Extended,0xd62 ; "Generate_Test_Set" 07dc e096 | | Load 0x0,0x96 07dd e23f | ? | Load 0x1,0x3f 07de 0096 | | Execute Package,Entry 07df 4503 |E | Exit_Suprogram New_Top_Offset 0x3 07e0 00db | | Load_Top At_Offset_3 07e1 00db | | Load_Top At_Offset_3 07e2 0217 | | Execute Heap_Access,All_Reference 07e3 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 07e4 80ac | | Call 0x0,0xac 07e5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 07e6 00db | | Load_Top At_Offset_3 07e7 00db | | Load_Top At_Offset_3 07e8 0217 | | Execute Heap_Access,All_Reference 07e9 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 07ea 80ad | | Call 0x0,0xad 07eb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 07ec 0000 0000 | | .BLANK 0000[0x4] 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 00da | | Load_Top At_Offset_2 07f4 0217 | | Execute Heap_Access,All_Reference 07f5 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 07f6 4609 |F | Jump_Case 0xa 07f7 7809 |x | Jump 0x801 ; case 0x0 07f8 7808 |x | Jump 0x801 ; case 0x1 07f9 7807 |x | Jump 0x801 ; case 0x2 07fa 7806 |x | Jump 0x801 ; case 0x3 07fb 7805 |x | Jump 0x801 ; case 0x4 07fc 780b |x | Jump 0x808 ; case 0x5 07fd 7810 |x | Jump 0x80e ; case 0x6 07fe 7802 |x | Jump 0x801 ; case 0x7 07ff 7801 |x | Jump 0x801 ; case 0x8 0800 7800 |x | Jump 0x801 ; case 0x9 0801 00ea | | Load_Encached Null_String_Cache 0802 0092 0d63 | c| Action Push_String_Extended,0xd63 ; "Save_As" 0804 e096 | | Load 0x0,0x96 0805 e23f | ? | Load 0x1,0x3f 0806 0096 | | Execute Package,Entry 0807 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0808 00db | | Load_Top At_Offset_3 0809 00db | | Load_Top At_Offset_3 080a 0217 | | Execute Heap_Access,All_Reference 080b 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 080c 80ae | | Call 0x0,0xae 080d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 080e 00db | | Load_Top At_Offset_3 080f 00db | | Load_Top At_Offset_3 0810 0217 | | Execute Heap_Access,All_Reference 0811 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 0812 80af | | Call 0x0,0xaf 0813 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0814 0000 0000 | | .BLANK 0000[0x4] 0818 ; -------------------------------------------------------------------------------------- 0818 ; SUBPROGRAM 0818 ; -------------------------------------------------------------------------------------- 0818 0825 | % | .CONST 0x0825 ; Address of begin 0819 0004 | | .CONST 0x0004 ; Address of exception handler 081a 0003 | | .CONST 0x0003 ; Number of locals 081b INIT_0818: 081b e0b0 | | Load 0x0,0xb0 081c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 081d 02c7 | | Declare_Variable Any 081e 00d8 | | Load_Top At_Offset_0 081f 1c00 | | Execute_Immediate Run_Utility,0x0 0820 00db | | Load_Top At_Offset_3 0821 0217 | | Execute Heap_Access,All_Reference 0822 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0823 e23e | > | Load 0x1,0x3e 0824 1c08 | | Execute_Immediate Run_Utility,0x8 0825 BODY_0818: 0825 00d9 | | Load_Top At_Offset_1 0826 00ea | | Load_Encached Null_String_Cache 0827 e5fe | | Load 0x2,-0x2 0828 4801 |H | Short_Literal 0x1 0829 e0b0 | | Load 0x0,0xb0 082a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 082b c402 | | Store 0x2,0x2 082c 00d8 | | Load_Top At_Offset_0 082d e5ff | | Load 0x2,-0x1 082e 823a | : | Call 0x1,0x3a 082f 00d1 | | Pop_Control Pop_Count_1 0830 00cf | | Action Mark_Auxiliary 0831 780a |x | Jump 0x83c 0832 00d9 | | Load_Top At_Offset_1 0833 823c | < | Call 0x1,0x3c 0834 80b1 | | Call 0x0,0xb1 0835 00db | | Load_Top At_Offset_3 0836 e0b0 | | Load 0x0,0xb0 0837 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0838 00d9 | | Load_Top At_Offset_1 0839 823d | = | Call 0x1,0x3d 083a 00d1 | | Pop_Control Pop_Count_1 083b 00c9 | | Action Pop_Auxiliary_Loop 083c 00d9 | | Load_Top At_Offset_1 083d 823b | ; | Call 0x1,0x3b 083e 6ff3 |o | Jump_Zero 0x832 083f 00ce | | Action Pop_Auxiliary 0840 00d9 | | Load_Top At_Offset_1 0841 e0b0 | | Load 0x0,0xb0 0842 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0843 c402 | | Store 0x2,0x2 0844 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0845 0000 0000 | | .XXX[0x3] 0847 0000 | | 0848 ; -------------------------------------------------------------------------------------- 0848 ; SUBPROGRAM 0848 ; -------------------------------------------------------------------------------------- 0848 084b | K | .CONST 0x084b ; Address of begin 0849 0004 | | .CONST 0x0004 ; Address of exception handler 084a 0001 | | .CONST 0x0001 ; Number of locals 084b BODY_0848: 084b INIT_0848: 084b 00da | | Load_Top At_Offset_2 084c 8243 | C | Call 0x1,0x43 084d 00da | | Load_Top At_Offset_2 084e 0217 | | Execute Heap_Access,All_Reference 084f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0850 0f06 | | Execute_Immediate Equal,0x6 0851 6807 |h | Jump_Zero 0x859 0852 e5fd | | Load 0x2,-0x3 0853 e5fe | | Load 0x2,-0x2 0854 e5ff | | Load 0x2,-0x1 0855 0217 | | Execute Heap_Access,All_Reference 0856 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 0857 80b2 | | Call 0x0,0xb2 0858 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0859 00ea | | Load_Encached Null_String_Cache 085a 0092 0d64 | d| Action Push_String_Extended,0xd64 ; "Set_Value" 085c e096 | | Load 0x0,0x96 085d e23f | ? | Load 0x1,0x3f 085e 0096 | | Execute Package,Entry 085f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0860 ; -------------------------------------------------------------------------------------- 0860 ; SUBPROGRAM 0860 ; -------------------------------------------------------------------------------------- 0860 0863 | c | .CONST 0x0863 ; Address of begin 0861 0004 | | .CONST 0x0004 ; Address of exception handler 0862 0001 | | .CONST 0x0001 ; Number of locals 0863 BODY_0860: 0863 INIT_0860: 0863 00da | | Load_Top At_Offset_2 0864 8243 | C | Call 0x1,0x43 0865 00da | | Load_Top At_Offset_2 0866 0217 | | Execute Heap_Access,All_Reference 0867 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0868 0f06 | | Execute_Immediate Equal,0x6 0869 680b |h | Jump_Zero 0x875 086a e5f9 | | Load 0x2,-0x7 086b e5fa | | Load 0x2,-0x6 086c e5fb | | Load 0x2,-0x5 086d e5fc | | Load 0x2,-0x4 086e e5fd | | Load 0x2,-0x3 086f e5fe | | Load 0x2,-0x2 0870 e5ff | | Load 0x2,-0x1 0871 0217 | | Execute Heap_Access,All_Reference 0872 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 0873 80b3 | | Call 0x0,0xb3 0874 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0875 00ea | | Load_Encached Null_String_Cache 0876 0092 0d65 | e| Action Push_String_Extended,0xd65 ; "Set_Term_Control_Value" 0878 e096 | | Load 0x0,0x96 0879 e23f | ? | Load 0x1,0x3f 087a 0096 | | Execute Package,Entry 087b 4508 |E | Exit_Suprogram New_Top_Offset 0x8 087c 0000 0000 | | .BLANK 0000[0x4] 0880 ; -------------------------------------------------------------------------------------- 0880 ; SUBPROGRAM 0880 ; -------------------------------------------------------------------------------------- 0880 0883 | | .CONST 0x0883 ; Address of begin 0881 0004 | | .CONST 0x0004 ; Address of exception handler 0882 0001 | | .CONST 0x0001 ; Number of locals 0883 BODY_0880: 0883 INIT_0880: 0883 00da | | Load_Top At_Offset_2 0884 8243 | C | Call 0x1,0x43 0885 00da | | Load_Top At_Offset_2 0886 0217 | | Execute Heap_Access,All_Reference 0887 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0888 0f05 | | Execute_Immediate Equal,0x5 0889 6807 |h | Jump_Zero 0x891 088a e5fd | | Load 0x2,-0x3 088b e5fe | | Load 0x2,-0x2 088c e5ff | | Load 0x2,-0x1 088d 0217 | | Execute Heap_Access,All_Reference 088e 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 088f 80b4 | | Call 0x0,0xb4 0890 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0891 00ea | | Load_Encached Null_String_Cache 0892 0092 0d66 | f| Action Push_String_Extended,0xd66 ; "Insert" 0894 e096 | | Load 0x0,0x96 0895 e23f | ? | Load 0x1,0x3f 0896 0096 | | Execute Package,Entry 0897 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0898 ; -------------------------------------------------------------------------------------- 0898 ; SUBPROGRAM 0898 ; -------------------------------------------------------------------------------------- 0898 089b | | .CONST 0x089b ; Address of begin 0899 0004 | | .CONST 0x0004 ; Address of exception handler 089a 0001 | | .CONST 0x0001 ; Number of locals 089b BODY_0898: 089b INIT_0898: 089b 00da | | Load_Top At_Offset_2 089c 0217 | | Execute Heap_Access,All_Reference 089d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 089e 4609 |F | Jump_Case 0xa 089f 7836 |x6 | Jump 0x8d6 ; case 0x0 08a0 780d |x | Jump 0x8ae ; case 0x1 08a1 7811 |x | Jump 0x8b3 ; case 0x2 08a2 781a |x | Jump 0x8bd ; case 0x3 08a3 7814 |x | Jump 0x8b8 ; case 0x4 08a4 781d |x | Jump 0x8c2 ; case 0x5 08a5 7821 |x! | Jump 0x8c7 ; case 0x6 08a6 7825 |x% | Jump 0x8cc ; case 0x7 08a7 7829 |x) | Jump 0x8d1 ; case 0x8 08a8 7800 |x | Jump 0x8a9 ; case 0x9 08a9 00da | | Load_Top At_Offset_2 08aa 0217 | | Execute Heap_Access,All_Reference 08ab 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10 08ac 80b5 | | Call 0x0,0xb5 08ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08ae 00da | | Load_Top At_Offset_2 08af 0217 | | Execute Heap_Access,All_Reference 08b0 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 08b1 80b6 | | Call 0x0,0xb6 08b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08b3 00da | | Load_Top At_Offset_2 08b4 0217 | | Execute Heap_Access,All_Reference 08b5 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 08b6 80b7 | | Call 0x0,0xb7 08b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08b8 00da | | Load_Top At_Offset_2 08b9 0217 | | Execute Heap_Access,All_Reference 08ba 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb 08bb 80b8 | | Call 0x0,0xb8 08bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08bd 00da | | Load_Top At_Offset_2 08be 0217 | | Execute Heap_Access,All_Reference 08bf 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 08c0 80b9 | | Call 0x0,0xb9 08c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08c2 00da | | Load_Top At_Offset_2 08c3 0217 | | Execute Heap_Access,All_Reference 08c4 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 08c5 80ba | | Call 0x0,0xba 08c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08c7 00da | | Load_Top At_Offset_2 08c8 0217 | | Execute Heap_Access,All_Reference 08c9 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 08ca 80bb | | Call 0x0,0xbb 08cb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08cc 00da | | Load_Top At_Offset_2 08cd 0217 | | Execute Heap_Access,All_Reference 08ce 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 08cf 80bc | | Call 0x0,0xbc 08d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08d1 00da | | Load_Top At_Offset_2 08d2 0217 | | Execute Heap_Access,All_Reference 08d3 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf 08d4 80bd | | Call 0x0,0xbd 08d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08d6 0833 | 3 | Execute_Immediate Raise,0x33 08d7 0000 | | .XXX[0x1] 08d8 ; -------------------------------------------------------------------------------------- 08d8 ; SUBPROGRAM 08d8 ; -------------------------------------------------------------------------------------- 08d8 08dd | | .CONST 0x08dd ; Address of begin 08d9 0004 | | .CONST 0x0004 ; Address of exception handler 08da 0002 | | .CONST 0x0002 ; Number of locals 08db INIT_08d8: 08db 029f 0c33 | 3| Declare_Subprogram INIT_0c30,For_Call 08dd BODY_08d8: 08dd 00db | | Load_Top At_Offset_3 08de 0217 | | Execute Heap_Access,All_Reference 08df 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 08e0 4609 |F | Jump_Case 0xa 08e1 783f |x? | Jump 0x921 ; case 0x0 08e2 780e |x | Jump 0x8f1 ; case 0x1 08e3 7813 |x | Jump 0x8f7 ; case 0x2 08e4 781e |x | Jump 0x903 ; case 0x3 08e5 7817 |x | Jump 0x8fd ; case 0x4 08e6 7822 |x" | Jump 0x909 ; case 0x5 08e7 7827 |x' | Jump 0x90f ; case 0x6 08e8 782c |x, | Jump 0x915 ; case 0x7 08e9 7831 |x1 | Jump 0x91b ; case 0x8 08ea 7800 |x | Jump 0x8eb ; case 0x9 08eb 00db | | Load_Top At_Offset_3 08ec 0217 | | Execute Heap_Access,All_Reference 08ed 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10 08ee 80be | | Call 0x0,0xbe 08ef 8402 | | Call 0x2,0x2 08f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08f1 00db | | Load_Top At_Offset_3 08f2 0217 | | Execute Heap_Access,All_Reference 08f3 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 08f4 80bf | | Call 0x0,0xbf 08f5 8402 | | Call 0x2,0x2 08f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08f7 00db | | Load_Top At_Offset_3 08f8 0217 | | Execute Heap_Access,All_Reference 08f9 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 08fa 80c0 | | Call 0x0,0xc0 08fb 8402 | | Call 0x2,0x2 08fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 08fd 00db | | Load_Top At_Offset_3 08fe 0217 | | Execute Heap_Access,All_Reference 08ff 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb 0900 80c1 | | Call 0x0,0xc1 0901 8402 | | Call 0x2,0x2 0902 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0903 00db | | Load_Top At_Offset_3 0904 0217 | | Execute Heap_Access,All_Reference 0905 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 0906 80c2 | | Call 0x0,0xc2 0907 8402 | | Call 0x2,0x2 0908 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0909 00db | | Load_Top At_Offset_3 090a 0217 | | Execute Heap_Access,All_Reference 090b 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 090c 80c3 | | Call 0x0,0xc3 090d 8402 | | Call 0x2,0x2 090e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 090f 00db | | Load_Top At_Offset_3 0910 0217 | | Execute Heap_Access,All_Reference 0911 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 0912 80c4 | | Call 0x0,0xc4 0913 8402 | | Call 0x2,0x2 0914 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0915 00db | | Load_Top At_Offset_3 0916 0217 | | Execute Heap_Access,All_Reference 0917 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 0918 80c5 | | Call 0x0,0xc5 0919 8402 | | Call 0x2,0x2 091a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 091b 00db | | Load_Top At_Offset_3 091c 0217 | | Execute Heap_Access,All_Reference 091d 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf 091e 80c6 | | Call 0x0,0xc6 091f 8402 | | Call 0x2,0x2 0920 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0921 0833 | 3 | Execute_Immediate Raise,0x33 0922 0000 0000 | | .BLANK 0000[0x6] 0928 ; -------------------------------------------------------------------------------------- 0928 ; SUBPROGRAM 0928 ; -------------------------------------------------------------------------------------- 0928 092b | + | .CONST 0x092b ; Address of begin 0929 0004 | | .CONST 0x0004 ; Address of exception handler 092a 0001 | | .CONST 0x0001 ; Number of locals 092b BODY_0928: 092b INIT_0928: 092b 00da | | Load_Top At_Offset_2 092c 0217 | | Execute Heap_Access,All_Reference 092d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 092e e5fe | | Load 0x2,-0x2 092f 0217 | | Execute Heap_Access,All_Reference 0930 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0931 027e | ~ | Execute Discrete,Not_Equal 0932 6802 |h | Jump_Zero 0x935 0933 4800 |H | Short_Literal 0x0 0934 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0935 00da | | Load_Top At_Offset_2 0936 0217 | | Execute Heap_Access,All_Reference 0937 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0938 4609 |F | Jump_Case 0xa 0939 7851 |xQ | Jump 0x98b ; case 0x0 093a 7810 |x | Jump 0x94b ; case 0x1 093b 7817 |x | Jump 0x953 ; case 0x2 093c 7826 |x& | Jump 0x963 ; case 0x3 093d 781d |x | Jump 0x95b ; case 0x4 093e 782c |x, | Jump 0x96b ; case 0x5 093f 7833 |x3 | Jump 0x973 ; case 0x6 0940 783a |x: | Jump 0x97b ; case 0x7 0941 7841 |xA | Jump 0x983 ; case 0x8 0942 7800 |x | Jump 0x943 ; case 0x9 0943 00db | | Load_Top At_Offset_3 0944 0217 | | Execute Heap_Access,All_Reference 0945 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10 0946 00db | | Load_Top At_Offset_3 0947 0217 | | Execute Heap_Access,All_Reference 0948 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10 0949 80c7 | | Call 0x0,0xc7 094a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 094b 00db | | Load_Top At_Offset_3 094c 0217 | | Execute Heap_Access,All_Reference 094d 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 094e 00db | | Load_Top At_Offset_3 094f 0217 | | Execute Heap_Access,All_Reference 0950 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 0951 80c8 | | Call 0x0,0xc8 0952 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0953 00db | | Load_Top At_Offset_3 0954 0217 | | Execute Heap_Access,All_Reference 0955 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 0956 00db | | Load_Top At_Offset_3 0957 0217 | | Execute Heap_Access,All_Reference 0958 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 0959 80c9 | | Call 0x0,0xc9 095a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 095b 00db | | Load_Top At_Offset_3 095c 0217 | | Execute Heap_Access,All_Reference 095d 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb 095e 00db | | Load_Top At_Offset_3 095f 0217 | | Execute Heap_Access,All_Reference 0960 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb 0961 80ca | | Call 0x0,0xca 0962 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0963 00db | | Load_Top At_Offset_3 0964 0217 | | Execute Heap_Access,All_Reference 0965 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 0966 00db | | Load_Top At_Offset_3 0967 0217 | | Execute Heap_Access,All_Reference 0968 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 0969 80cb | | Call 0x0,0xcb 096a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 096b 00db | | Load_Top At_Offset_3 096c 0217 | | Execute Heap_Access,All_Reference 096d 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 096e 00db | | Load_Top At_Offset_3 096f 0217 | | Execute Heap_Access,All_Reference 0970 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 0971 80cc | | Call 0x0,0xcc 0972 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0973 00db | | Load_Top At_Offset_3 0974 0217 | | Execute Heap_Access,All_Reference 0975 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 0976 00db | | Load_Top At_Offset_3 0977 0217 | | Execute Heap_Access,All_Reference 0978 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 0979 80cd | | Call 0x0,0xcd 097a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 097b 00db | | Load_Top At_Offset_3 097c 0217 | | Execute Heap_Access,All_Reference 097d 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 097e 00db | | Load_Top At_Offset_3 097f 0217 | | Execute Heap_Access,All_Reference 0980 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 0981 80ce | | Call 0x0,0xce 0982 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0983 00db | | Load_Top At_Offset_3 0984 0217 | | Execute Heap_Access,All_Reference 0985 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf 0986 00db | | Load_Top At_Offset_3 0987 0217 | | Execute Heap_Access,All_Reference 0988 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf 0989 80cf | | Call 0x0,0xcf 098a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 098b 0833 | 3 | Execute_Immediate Raise,0x33 098c 0000 0000 | | .BLANK 0000[0x4] 0990 ; -------------------------------------------------------------------------------------- 0990 ; SUBPROGRAM 0990 ; -------------------------------------------------------------------------------------- 0990 0993 | | .CONST 0x0993 ; Address of begin 0991 0004 | | .CONST 0x0004 ; Address of exception handler 0992 0001 | | .CONST 0x0001 ; Number of locals 0993 BODY_0990: 0993 INIT_0990: 0993 00da | | Load_Top At_Offset_2 0994 0217 | | Execute Heap_Access,All_Reference 0995 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0996 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0997 0000 | | .XXX[0x1] 0998 ; -------------------------------------------------------------------------------------- 0998 ; SUBPROGRAM 0998 ; -------------------------------------------------------------------------------------- 0998 099b | | .CONST 0x099b ; Address of begin 0999 0004 | | .CONST 0x0004 ; Address of exception handler 099a 0001 | | .CONST 0x0001 ; Number of locals 099b BODY_0998: 099b INIT_0998: 099b 00da | | Load_Top At_Offset_2 099c 0217 | | Execute Heap_Access,All_Reference 099d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 099e 4609 |F | Jump_Case 0xa 099f 7809 |x | Jump 0x9a9 ; case 0x0 09a0 7808 |x | Jump 0x9a9 ; case 0x1 09a1 7807 |x | Jump 0x9a9 ; case 0x2 09a2 7806 |x | Jump 0x9a9 ; case 0x3 09a3 7805 |x | Jump 0x9a9 ; case 0x4 09a4 7806 |x | Jump 0x9ab ; case 0x5 09a5 780a |x | Jump 0x9b0 ; case 0x6 09a6 7802 |x | Jump 0x9a9 ; case 0x7 09a7 7801 |x | Jump 0x9a9 ; case 0x8 09a8 7800 |x | Jump 0x9a9 ; case 0x9 09a9 4800 |H | Short_Literal 0x0 09aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 09ab 00da | | Load_Top At_Offset_2 09ac 0217 | | Execute Heap_Access,All_Reference 09ad 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 09ae 80d0 | | Call 0x0,0xd0 09af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 09b0 00da | | Load_Top At_Offset_2 09b1 0217 | | Execute Heap_Access,All_Reference 09b2 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 09b3 80d1 | | Call 0x0,0xd1 09b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 09b5 0000 0000 | | .XXX[0x3] 09b7 0000 | | 09b8 ; -------------------------------------------------------------------------------------- 09b8 ; SUBPROGRAM 09b8 ; -------------------------------------------------------------------------------------- 09b8 09bb | | .CONST 0x09bb ; Address of begin 09b9 0004 | | .CONST 0x0004 ; Address of exception handler 09ba 0001 | | .CONST 0x0001 ; Number of locals 09bb BODY_09b8: 09bb INIT_09b8: 09bb 00da | | Load_Top At_Offset_2 09bc 0217 | | Execute Heap_Access,All_Reference 09bd 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 09be 4609 |F | Jump_Case 0xa 09bf 785a |xZ | Jump 0xa1a ; case 0x0 09c0 7811 |x | Jump 0x9d2 ; case 0x1 09c1 7819 |x | Jump 0x9db ; case 0x2 09c2 782a |x* | Jump 0x9ed ; case 0x3 09c3 7820 |x | Jump 0x9e4 ; case 0x4 09c4 7831 |x1 | Jump 0x9f6 ; case 0x5 09c5 7839 |x9 | Jump 0x9ff ; case 0x6 09c6 7841 |xA | Jump 0xa08 ; case 0x7 09c7 7849 |xI | Jump 0xa11 ; case 0x8 09c8 7800 |x | Jump 0x9c9 ; case 0x9 09c9 00db | | Load_Top At_Offset_3 09ca 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 09cb 00db | | Load_Top At_Offset_3 09cc 0217 | | Execute Heap_Access,All_Reference 09cd 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10 09ce 80d2 | | Call 0x0,0xd2 09cf e5fe | | Load 0x2,-0x2 09d0 2a0a |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa 09d1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09d2 00db | | Load_Top At_Offset_3 09d3 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 09d4 00db | | Load_Top At_Offset_3 09d5 0217 | | Execute Heap_Access,All_Reference 09d6 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 09d7 80d3 | | Call 0x0,0xd3 09d8 e5fe | | Load 0x2,-0x2 09d9 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 09da 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09db 00db | | Load_Top At_Offset_3 09dc 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 09dd 00db | | Load_Top At_Offset_3 09de 0217 | | Execute Heap_Access,All_Reference 09df 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 09e0 80d4 | | Call 0x0,0xd4 09e1 e5fe | | Load 0x2,-0x2 09e2 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 09e3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09e4 00db | | Load_Top At_Offset_3 09e5 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 09e6 00db | | Load_Top At_Offset_3 09e7 0217 | | Execute Heap_Access,All_Reference 09e8 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb 09e9 80d5 | | Call 0x0,0xd5 09ea e5fe | | Load 0x2,-0x2 09eb 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 09ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09ed 00db | | Load_Top At_Offset_3 09ee 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 09ef 00db | | Load_Top At_Offset_3 09f0 0217 | | Execute Heap_Access,All_Reference 09f1 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 09f2 80d6 | | Call 0x0,0xd6 09f3 e5fe | | Load 0x2,-0x2 09f4 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 09f5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09f6 00db | | Load_Top At_Offset_3 09f7 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 09f8 00db | | Load_Top At_Offset_3 09f9 0217 | | Execute Heap_Access,All_Reference 09fa 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 09fb 80d7 | | Call 0x0,0xd7 09fc e5fe | | Load 0x2,-0x2 09fd 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 09fe 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09ff 00db | | Load_Top At_Offset_3 0a00 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 0a01 00db | | Load_Top At_Offset_3 0a02 0217 | | Execute Heap_Access,All_Reference 0a03 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 0a04 80d8 | | Call 0x0,0xd8 0a05 e5fe | | Load 0x2,-0x2 0a06 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7 0a07 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a08 00db | | Load_Top At_Offset_3 0a09 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 0a0a 00db | | Load_Top At_Offset_3 0a0b 0217 | | Execute Heap_Access,All_Reference 0a0c 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 0a0d 80d9 | | Call 0x0,0xd9 0a0e e5fe | | Load 0x2,-0x2 0a0f 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8 0a10 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a11 00db | | Load_Top At_Offset_3 0a12 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 0a13 00db | | Load_Top At_Offset_3 0a14 0217 | | Execute Heap_Access,All_Reference 0a15 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf 0a16 80da | | Call 0x0,0xda 0a17 e5fe | | Load 0x2,-0x2 0a18 2a09 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9 0a19 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a1a 0833 | 3 | Execute_Immediate Raise,0x33 0a1b 0000 0000 | | .BLANK 0000[0x5] 0a20 ; -------------------------------------------------------------------------------------- 0a20 ; SUBPROGRAM 0a20 ; -------------------------------------------------------------------------------------- 0a20 0a23 | # | .CONST 0x0a23 ; Address of begin 0a21 0004 | | .CONST 0x0004 ; Address of exception handler 0a22 0001 | | .CONST 0x0001 ; Number of locals 0a23 BODY_0a20: 0a23 INIT_0a20: 0a23 00da | | Load_Top At_Offset_2 0a24 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0a25 4609 |F | Jump_Case 0xa 0a26 782d |x- | Jump 0xa54 ; case 0x0 0a27 780c |x | Jump 0xa34 ; case 0x1 0a28 780f |x | Jump 0xa38 ; case 0x2 0a29 7816 |x | Jump 0xa40 ; case 0x3 0a2a 7811 |x | Jump 0xa3c ; case 0x4 0a2b 7818 |x | Jump 0xa44 ; case 0x5 0a2c 781b |x | Jump 0xa48 ; case 0x6 0a2d 781e |x | Jump 0xa4c ; case 0x7 0a2e 7821 |x! | Jump 0xa50 ; case 0x8 0a2f 7800 |x | Jump 0xa30 ; case 0x9 0a30 00da | | Load_Top At_Offset_2 0a31 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 0a32 80db | | Call 0x0,0xdb 0a33 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a34 00da | | Load_Top At_Offset_2 0a35 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 0a36 80dc | | Call 0x0,0xdc 0a37 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a38 00da | | Load_Top At_Offset_2 0a39 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0a3a 80dd | | Call 0x0,0xdd 0a3b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a3c 00da | | Load_Top At_Offset_2 0a3d 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 0a3e 80de | | Call 0x0,0xde 0a3f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a40 00da | | Load_Top At_Offset_2 0a41 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 0a42 80df | | Call 0x0,0xdf 0a43 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a44 00da | | Load_Top At_Offset_2 0a45 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 0a46 80e0 | | Call 0x0,0xe0 0a47 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a48 00da | | Load_Top At_Offset_2 0a49 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 0a4a 80e1 | | Call 0x0,0xe1 0a4b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a4c 00da | | Load_Top At_Offset_2 0a4d 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 0a4e 80e2 | | Call 0x0,0xe2 0a4f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a50 00da | | Load_Top At_Offset_2 0a51 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 0a52 80e3 | | Call 0x0,0xe3 0a53 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a54 0833 | 3 | Execute_Immediate Raise,0x33 0a55 0000 0000 | | .XXX[0x3] 0a57 0000 | | 0a58 ; -------------------------------------------------------------------------------------- 0a58 ; SUBPROGRAM 0a58 ; -------------------------------------------------------------------------------------- 0a58 0a5b | [ | .CONST 0x0a5b ; Address of begin 0a59 0004 | | .CONST 0x0004 ; Address of exception handler 0a5a 0001 | | .CONST 0x0001 ; Number of locals 0a5b BODY_0a58: 0a5b INIT_0a58: 0a5b 00da | | Load_Top At_Offset_2 0a5c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0a5d 4609 |F | Jump_Case 0xa 0a5e 786c |xl | Jump 0xacb ; case 0x0 0a5f 7813 |x | Jump 0xa73 ; case 0x1 0a60 781d |x | Jump 0xa7e ; case 0x2 0a61 7832 |x2 | Jump 0xa94 ; case 0x3 0a62 7826 |x& | Jump 0xa89 ; case 0x4 0a63 783b |x; | Jump 0xa9f ; case 0x5 0a64 7845 |xE | Jump 0xaaa ; case 0x6 0a65 784f |xO | Jump 0xab5 ; case 0x7 0a66 7859 |xY | Jump 0xac0 ; case 0x8 0a67 7800 |x | Jump 0xa68 ; case 0x9 0a68 4809 |H | Short_Literal 0x9 0a69 e0e4 | | Load 0x0,0xe4 0a6a 1c08 | | Execute_Immediate Run_Utility,0x8 0a6b 00db | | Load_Top At_Offset_3 0a6c 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 0a6d 80e5 | | Call 0x0,0xe5 0a6e 00d9 | | Load_Top At_Offset_1 0a6f 2a0a |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa 0a70 e0e6 | | Load 0x0,0xe6 0a71 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0a72 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a73 4801 |H | Short_Literal 0x1 0a74 e0e4 | | Load 0x0,0xe4 0a75 1c08 | | Execute_Immediate Run_Utility,0x8 0a76 00db | | Load_Top At_Offset_3 0a77 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 0a78 80e7 | | Call 0x0,0xe7 0a79 00d9 | | Load_Top At_Offset_1 0a7a 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 0a7b e0e6 | | Load 0x0,0xe6 0a7c 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0a7d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a7e 4802 |H | Short_Literal 0x2 0a7f e0e4 | | Load 0x0,0xe4 0a80 1c08 | | Execute_Immediate Run_Utility,0x8 0a81 00db | | Load_Top At_Offset_3 0a82 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0a83 80e8 | | Call 0x0,0xe8 0a84 00d9 | | Load_Top At_Offset_1 0a85 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 0a86 e0e6 | | Load 0x0,0xe6 0a87 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0a88 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a89 4804 |H | Short_Literal 0x4 0a8a e0e4 | | Load 0x0,0xe4 0a8b 1c08 | | Execute_Immediate Run_Utility,0x8 0a8c 00db | | Load_Top At_Offset_3 0a8d 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 0a8e 80e9 | | Call 0x0,0xe9 0a8f 00d9 | | Load_Top At_Offset_1 0a90 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 0a91 e0e6 | | Load 0x0,0xe6 0a92 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0a93 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a94 4803 |H | Short_Literal 0x3 0a95 e0e4 | | Load 0x0,0xe4 0a96 1c08 | | Execute_Immediate Run_Utility,0x8 0a97 00db | | Load_Top At_Offset_3 0a98 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 0a99 80ea | | Call 0x0,0xea 0a9a 00d9 | | Load_Top At_Offset_1 0a9b 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 0a9c e0e6 | | Load 0x0,0xe6 0a9d 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0a9e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0a9f 4805 |H | Short_Literal 0x5 0aa0 e0e4 | | Load 0x0,0xe4 0aa1 1c08 | | Execute_Immediate Run_Utility,0x8 0aa2 00db | | Load_Top At_Offset_3 0aa3 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 0aa4 80eb | | Call 0x0,0xeb 0aa5 00d9 | | Load_Top At_Offset_1 0aa6 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 0aa7 e0e6 | | Load 0x0,0xe6 0aa8 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0aa9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0aaa 4806 |H | Short_Literal 0x6 0aab e0e4 | | Load 0x0,0xe4 0aac 1c08 | | Execute_Immediate Run_Utility,0x8 0aad 00db | | Load_Top At_Offset_3 0aae 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 0aaf 80ec | | Call 0x0,0xec 0ab0 00d9 | | Load_Top At_Offset_1 0ab1 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7 0ab2 e0e6 | | Load 0x0,0xe6 0ab3 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0ab4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ab5 4807 |H | Short_Literal 0x7 0ab6 e0e4 | | Load 0x0,0xe4 0ab7 1c08 | | Execute_Immediate Run_Utility,0x8 0ab8 00db | | Load_Top At_Offset_3 0ab9 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 0aba 80ed | | Call 0x0,0xed 0abb 00d9 | | Load_Top At_Offset_1 0abc 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8 0abd e0e6 | | Load 0x0,0xe6 0abe 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0abf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0ac0 4808 |H | Short_Literal 0x8 0ac1 e0e4 | | Load 0x0,0xe4 0ac2 1c08 | | Execute_Immediate Run_Utility,0x8 0ac3 00db | | Load_Top At_Offset_3 0ac4 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 0ac5 80ee | | Call 0x0,0xee 0ac6 00d9 | | Load_Top At_Offset_1 0ac7 2a09 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9 0ac8 e0e6 | | Load 0x0,0xe6 0ac9 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0aca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0acb 0833 | 3 | Execute_Immediate Raise,0x33 0acc 0000 0000 | | .BLANK 0000[0x4] 0ad0 ; -------------------------------------------------------------------------------------- 0ad0 ; SUBPROGRAM 0ad0 ; -------------------------------------------------------------------------------------- 0ad0 0ad3 | | .CONST 0x0ad3 ; Address of begin 0ad1 0004 | | .CONST 0x0004 ; Address of exception handler 0ad2 0001 | | .CONST 0x0001 ; Number of locals 0ad3 BODY_0ad0: 0ad3 INIT_0ad0: 0ad3 00da | | Load_Top At_Offset_2 0ad4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0ad5 4609 |F | Jump_Case 0xa 0ad6 783f |x? | Jump 0xb16 ; case 0x0 0ad7 780e |x | Jump 0xae6 ; case 0x1 0ad8 7813 |x | Jump 0xaec ; case 0x2 0ad9 781e |x | Jump 0xaf8 ; case 0x3 0ada 7817 |x | Jump 0xaf2 ; case 0x4 0adb 7822 |x" | Jump 0xafe ; case 0x5 0adc 7827 |x' | Jump 0xb04 ; case 0x6 0add 782c |x, | Jump 0xb0a ; case 0x7 0ade 7831 |x1 | Jump 0xb10 ; case 0x8 0adf 7800 |x | Jump 0xae0 ; case 0x9 0ae0 00da | | Load_Top At_Offset_2 0ae1 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 0ae2 80ef | | Call 0x0,0xef 0ae3 00db | | Load_Top At_Offset_3 0ae4 2a0a |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa 0ae5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0ae6 00da | | Load_Top At_Offset_2 0ae7 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2 0ae8 80f0 | | Call 0x0,0xf0 0ae9 00db | | Load_Top At_Offset_3 0aea 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2 0aeb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0aec 00da | | Load_Top At_Offset_2 0aed 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0aee 80f1 | | Call 0x0,0xf1 0aef 00db | | Load_Top At_Offset_3 0af0 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 0af1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0af2 00da | | Load_Top At_Offset_2 0af3 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 0af4 80f2 | | Call 0x0,0xf2 0af5 00db | | Load_Top At_Offset_3 0af6 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 0af7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0af8 00da | | Load_Top At_Offset_2 0af9 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 0afa 80f3 | | Call 0x0,0xf3 0afb 00db | | Load_Top At_Offset_3 0afc 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 0afd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0afe 00da | | Load_Top At_Offset_2 0aff 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6 0b00 80f4 | | Call 0x0,0xf4 0b01 00db | | Load_Top At_Offset_3 0b02 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 0b03 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b04 00da | | Load_Top At_Offset_2 0b05 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7 0b06 80f5 | | Call 0x0,0xf5 0b07 00db | | Load_Top At_Offset_3 0b08 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7 0b09 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b0a 00da | | Load_Top At_Offset_2 0b0b 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 0b0c 80f6 | | Call 0x0,0xf6 0b0d 00db | | Load_Top At_Offset_3 0b0e 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8 0b0f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b10 00da | | Load_Top At_Offset_2 0b11 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 0b12 80f7 | | Call 0x0,0xf7 0b13 00db | | Load_Top At_Offset_3 0b14 2a09 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9 0b15 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b16 0833 | 3 | Execute_Immediate Raise,0x33 0b17 0000 | | .XXX[0x1] 0b18 ; -------------------------------------------------------------------------------------- 0b18 ; SUBPROGRAM 0b18 ; -------------------------------------------------------------------------------------- 0b18 0b28 | ( | .CONST 0x0b28 ; Address of begin 0b19 0b30 | 0 | .CONST 0x0b30 ; Address of exception handler 0b1a 0002 | | .CONST 0x0002 ; Number of locals 0b1b INIT_0b18: 0b1b e0f8 | | Load 0x0,0xf8 0b1c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b1d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b1e 02c7 | | Declare_Variable Any 0b1f 4801 |H | Short_Literal 0x1 0b20 e0f8 | | Load 0x0,0xf8 0b21 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b22 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0b23 e5ff | | Load 0x2,-0x1 0b24 e0f8 | | Load 0x0,0xf8 0b25 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b26 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0b27 a402 | | Store_Unchecked 0x2,0x2 0b28 BODY_0b18: 0b28 00d8 | | Load_Top At_Offset_0 0b29 e0f8 | | Load 0x0,0xf8 0b2a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0b2b 180f | | Execute Package,Field_Execute,Field_Number 0xf 0b2c e5fe | | Load 0x2,-0x2 0b2d 0217 | | Execute Heap_Access,All_Reference 0b2e 2807 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x7 0b2f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b30 TRAP_0b18: 0b30 0007 | | Action Break_Optional 0b31 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b32 0000 0000 | | .BLANK 0000[0x6] 0b38 ; -------------------------------------------------------------------------------------- 0b38 ; SUBPROGRAM 0b38 ; -------------------------------------------------------------------------------------- 0b38 0b3b | ; | .CONST 0x0b3b ; Address of begin 0b39 0004 | | .CONST 0x0004 ; Address of exception handler 0b3a 0001 | | .CONST 0x0001 ; Number of locals 0b3b BODY_0b38: 0b3b INIT_0b38: 0b3b e003 | | Load 0x0,0x3 0b3c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0b3d 4905 |I | Short_Literal 0x105 0b3e e0f9 | | Load 0x0,0xf9 0b3f 180d | | Execute Package,Field_Execute,Field_Number 0xd 0b40 c5fb | | Store 0x2,-0x5 0b41 00da | | Load_Top At_Offset_2 0b42 00d8 | | Load_Top At_Offset_0 0b43 e20d | | Load 0x1,0xd 0b44 1c06 | | Execute_Immediate Run_Utility,0x6 0b45 e20e | | Load 0x1,0xe 0b46 e5fb | | Load 0x2,-0x5 0b47 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint 0b48 00d8 | | Load_Top At_Offset_0 0b49 0217 | | Execute Heap_Access,All_Reference 0b4a 1c00 | | Execute_Immediate Run_Utility,0x0 0b4b a5fc | | Store_Unchecked 0x2,-0x4 0b4c e5fb | | Load 0x2,-0x5 0b4d e5fc | | Load 0x2,-0x4 0b4e 0217 | | Execute Heap_Access,All_Reference 0b4f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0b50 00db | | Load_Top At_Offset_3 0b51 e5fc | | Load 0x2,-0x4 0b52 0217 | | Execute Heap_Access,All_Reference 0b53 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0b54 e5fd | | Load 0x2,-0x3 0b55 e5fc | | Load 0x2,-0x4 0b56 0217 | | Execute Heap_Access,All_Reference 0b57 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4 0b58 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0b59 0000 0000 | | .BLANK 0000[0x7] 0b60 ; -------------------------------------------------------------------------------------- 0b60 ; SUBPROGRAM 0b60 ; -------------------------------------------------------------------------------------- 0b60 0b63 | c | .CONST 0x0b63 ; Address of begin 0b61 0004 | | .CONST 0x0004 ; Address of exception handler 0b62 0001 | | .CONST 0x0001 ; Number of locals 0b63 BODY_0b60: 0b63 INIT_0b60: 0b63 e5fd | | Load 0x2,-0x3 0b64 6800 |h | Jump_Zero 0xb65 0b65 00da | | Load_Top At_Offset_2 0b66 0217 | | Execute Heap_Access,All_Reference 0b67 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0b68 00d8 | | Load_Top At_Offset_0 0b69 e20d | | Load 0x1,0xd 0b6a 1c06 | | Execute_Immediate Run_Utility,0x6 0b6b e20e | | Load 0x1,0xe 0b6c e5fe | | Load 0x2,-0x2 0b6d 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint 0b6e 00d8 | | Load_Top At_Offset_0 0b6f 0217 | | Execute Heap_Access,All_Reference 0b70 1c00 | | Execute_Immediate Run_Utility,0x0 0b71 a5fd | | Store_Unchecked 0x2,-0x3 0b72 00db | | Load_Top At_Offset_3 0b73 e5fd | | Load 0x2,-0x3 0b74 0217 | | Execute Heap_Access,All_Reference 0b75 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0b76 00da | | Load_Top At_Offset_2 0b77 0217 | | Execute Heap_Access,All_Reference 0b78 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3 0b79 e5fd | | Load 0x2,-0x3 0b7a 0217 | | Execute Heap_Access,All_Reference 0b7b 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0b7c 00da | | Load_Top At_Offset_2 0b7d 0217 | | Execute Heap_Access,All_Reference 0b7e 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 0b7f e5fd | | Load 0x2,-0x3 0b80 0217 | | Execute Heap_Access,All_Reference 0b81 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5 0b82 00da | | Load_Top At_Offset_2 0b83 0217 | | Execute Heap_Access,All_Reference 0b84 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6 0b85 e5fd | | Load 0x2,-0x3 0b86 0217 | | Execute Heap_Access,All_Reference 0b87 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6 0b88 00da | | Load_Top At_Offset_2 0b89 0217 | | Execute Heap_Access,All_Reference 0b8a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0b8b 4609 |F | Jump_Case 0xa 0b8c 787e |x~ | Jump 0xc0b ; case 0x0 0b8d 7815 |x | Jump 0xba3 ; case 0x1 0b8e 7821 |x! | Jump 0xbb0 ; case 0x2 0b8f 783a |x: | Jump 0xbca ; case 0x3 0b90 782c |x, | Jump 0xbbd ; case 0x4 0b91 7845 |xE | Jump 0xbd7 ; case 0x5 0b92 7851 |xQ | Jump 0xbe4 ; case 0x6 0b93 785d |x] | Jump 0xbf1 ; case 0x7 0b94 7869 |xi | Jump 0xbfe ; case 0x8 0b95 7800 |x | Jump 0xb96 ; case 0x9 0b96 e5fd | | Load 0x2,-0x3 0b97 0219 | | Execute Heap_Access,All_Read 0b98 00d8 | | Load_Top At_Offset_0 0b99 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10 0b9a e5fe | | Load 0x2,-0x2 0b9b e5ff | | Load 0x2,-0x1 0b9c 0217 | | Execute Heap_Access,All_Reference 0b9d 2e10 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x10 0b9e 80fa | | Call 0x0,0xfa 0b9f 00d9 | | Load_Top At_Offset_1 0ba0 2a10 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x10 0ba1 00d1 | | Pop_Control Pop_Count_1 0ba2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0ba3 e5fd | | Load 0x2,-0x3 0ba4 0219 | | Execute Heap_Access,All_Read 0ba5 00d8 | | Load_Top At_Offset_0 0ba6 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 0ba7 e5fe | | Load 0x2,-0x2 0ba8 e5ff | | Load 0x2,-0x1 0ba9 0217 | | Execute Heap_Access,All_Reference 0baa 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8 0bab 80fb | | Call 0x0,0xfb 0bac 00d9 | | Load_Top At_Offset_1 0bad 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8 0bae 00d1 | | Pop_Control Pop_Count_1 0baf 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0bb0 e5fd | | Load 0x2,-0x3 0bb1 0219 | | Execute Heap_Access,All_Read 0bb2 00d8 | | Load_Top At_Offset_0 0bb3 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 0bb4 e5fe | | Load 0x2,-0x2 0bb5 e5ff | | Load 0x2,-0x1 0bb6 0217 | | Execute Heap_Access,All_Reference 0bb7 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9 0bb8 80fc | | Call 0x0,0xfc 0bb9 00d9 | | Load_Top At_Offset_1 0bba 2a09 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9 0bbb 00d1 | | Pop_Control Pop_Count_1 0bbc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0bbd e5fd | | Load 0x2,-0x3 0bbe 0219 | | Execute Heap_Access,All_Read 0bbf 00d8 | | Load_Top At_Offset_0 0bc0 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb 0bc1 e5fe | | Load 0x2,-0x2 0bc2 e5ff | | Load 0x2,-0x1 0bc3 0217 | | Execute Heap_Access,All_Reference 0bc4 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb 0bc5 80fd | | Call 0x0,0xfd 0bc6 00d9 | | Load_Top At_Offset_1 0bc7 2a0b |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb 0bc8 00d1 | | Pop_Control Pop_Count_1 0bc9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0bca e5fd | | Load 0x2,-0x3 0bcb 0219 | | Execute Heap_Access,All_Read 0bcc 00d8 | | Load_Top At_Offset_0 0bcd 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 0bce e5fe | | Load 0x2,-0x2 0bcf e5ff | | Load 0x2,-0x1 0bd0 0217 | | Execute Heap_Access,All_Reference 0bd1 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa 0bd2 80fe | | Call 0x0,0xfe 0bd3 00d9 | | Load_Top At_Offset_1 0bd4 2a0a |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa 0bd5 00d1 | | Pop_Control Pop_Count_1 0bd6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0bd7 e5fd | | Load 0x2,-0x3 0bd8 0219 | | Execute Heap_Access,All_Read 0bd9 00d8 | | Load_Top At_Offset_0 0bda 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 0bdb e5fe | | Load 0x2,-0x2 0bdc e5ff | | Load 0x2,-0x1 0bdd 0217 | | Execute Heap_Access,All_Reference 0bde 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc 0bdf 80ff | | Call 0x0,0xff 0be0 00d9 | | Load_Top At_Offset_1 0be1 2a0c |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc 0be2 00d1 | | Pop_Control Pop_Count_1 0be3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0be4 e5fd | | Load 0x2,-0x3 0be5 0219 | | Execute Heap_Access,All_Read 0be6 00d8 | | Load_Top At_Offset_0 0be7 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 0be8 e5fe | | Load 0x2,-0x2 0be9 e5ff | | Load 0x2,-0x1 0bea 0217 | | Execute Heap_Access,All_Reference 0beb 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd 0bec 8100 | | Call 0x0,-0x100 0bed 00d9 | | Load_Top At_Offset_1 0bee 2a0d |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd 0bef 00d1 | | Pop_Control Pop_Count_1 0bf0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0bf1 e5fd | | Load 0x2,-0x3 0bf2 0219 | | Execute Heap_Access,All_Read 0bf3 00d8 | | Load_Top At_Offset_0 0bf4 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 0bf5 e5fe | | Load 0x2,-0x2 0bf6 e5ff | | Load 0x2,-0x1 0bf7 0217 | | Execute Heap_Access,All_Reference 0bf8 2e0e |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xe 0bf9 8101 | | Call 0x0,-0xff 0bfa 00d9 | | Load_Top At_Offset_1 0bfb 2a0e |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe 0bfc 00d1 | | Pop_Control Pop_Count_1 0bfd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0bfe e5fd | | Load 0x2,-0x3 0bff 0219 | | Execute Heap_Access,All_Read 0c00 00d8 | | Load_Top At_Offset_0 0c01 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf 0c02 e5fe | | Load 0x2,-0x2 0c03 e5ff | | Load 0x2,-0x1 0c04 0217 | | Execute Heap_Access,All_Reference 0c05 2e0f |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xf 0c06 8102 | | Call 0x0,-0xfe 0c07 00d9 | | Load_Top At_Offset_1 0c08 2a0f |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xf 0c09 00d1 | | Pop_Control Pop_Count_1 0c0a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0c0b 0833 | 3 | Execute_Immediate Raise,0x33 0c0c 0000 0000 | | .BLANK 0000[0x4] 0c10 ; -------------------------------------------------------------------------------------- 0c10 ; SUBPROGRAM 0c10 ; -------------------------------------------------------------------------------------- 0c10 0c15 | | .CONST 0x0c15 ; Address of begin 0c11 0004 | | .CONST 0x0004 ; Address of exception handler 0c12 0002 | | .CONST 0x0002 ; Number of locals 0c13 INIT_0c10: 0c13 e20e | | Load 0x1,0xe 0c14 0007 | | Action Break_Optional 0c15 BODY_0c10: 0c15 00d8 | | Load_Top At_Offset_0 0c16 e5ff | | Load 0x2,-0x1 0c17 0217 | | Execute Heap_Access,All_Reference 0c18 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0c19 e5ff | | Load 0x2,-0x1 0c1a 8242 | B | Call 0x1,0x42 0c1b 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0c1c 00d8 | | Load_Top At_Offset_0 0c1d e5ff | | Load 0x2,-0x1 0c1e 0217 | | Execute Heap_Access,All_Reference 0c1f 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5 0c20 00d8 | | Load_Top At_Offset_0 0c21 0217 | | Execute Heap_Access,All_Reference 0c22 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6 0c23 e5ff | | Load 0x2,-0x1 0c24 0217 | | Execute Heap_Access,All_Reference 0c25 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6 0c26 00db | | Load_Top At_Offset_3 0c27 00d9 | | Load_Top At_Offset_1 0c28 0217 | | Execute Heap_Access,All_Reference 0c29 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6 0c2a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0c2b 0000 0000 | | .BLANK 0000[0x5] 0c30 ; -------------------------------------------------------------------------------------- 0c30 ; SUBPROGRAM 0c30 ; -------------------------------------------------------------------------------------- 0c30 0c35 | 5 | .CONST 0x0c35 ; Address of begin 0c31 0004 | | .CONST 0x0004 ; Address of exception handler 0c32 0002 | | .CONST 0x0002 ; Number of locals 0c33 INIT_0c30: 0c33 029f 0c43 | C| Declare_Subprogram INIT_0c40,For_Call 0c35 BODY_0c30: 0c35 00db | | Load_Top At_Offset_3 0c36 8103 | | Call 0x0,-0xfd 0c37 6802 |h | Jump_Zero 0xc3a 0c38 8602 | | Call 0x3,0x2 0c39 7802 |x | Jump 0xc3c 0c3a 00db | | Load_Top At_Offset_3 0c3b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c3c 0831 | 1 | Execute_Immediate Raise,0x31 0c3d 0000 0000 | | .XXX[0x3] 0c3f 0000 | | 0c40 ; -------------------------------------------------------------------------------------- 0c40 ; SUBPROGRAM 0c40 ; -------------------------------------------------------------------------------------- 0c40 0c47 | G | .CONST 0x0c47 ; Address of begin 0c41 0004 | | .CONST 0x0004 ; Address of exception handler 0c42 0002 | | .CONST 0x0002 ; Number of locals 0c43 INIT_0c40: 0c43 e5ff | | Load 0x2,-0x1 0c44 0217 | | Execute Heap_Access,All_Reference 0c45 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 0c46 8021 | ! | Call 0x0,0x21 0c47 BODY_0c40: 0c47 00d8 | | Load_Top At_Offset_0 0c48 01db | | Execute Vector,Length 0c49 680d |h | Jump_Zero 0xc57 0c4a 00d8 | | Load_Top At_Offset_0 0c4b 0092 0d67 | g| Action Push_String_Extended,0xd67 ; "'" 0c4d 01cc | | Execute Vector,Catenate 0c4e e5ff | | Load 0x2,-0x1 0c4f 0217 | | Execute Heap_Access,All_Reference 0c50 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0c51 e002 | | Load 0x0,0x2 0c52 011c | | Execute Any,Convert_Unchecked 0c53 1c01 | | Execute_Immediate Run_Utility,0x1 0c54 01cc | | Execute Vector,Catenate 0c55 00cb | | Action Pop_Block_With_Result 0c56 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c57 e5ff | | Load 0x2,-0x1 0c58 0217 | | Execute Heap_Access,All_Reference 0c59 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0c5a e002 | | Load 0x0,0x2 0c5b 011c | | Execute Any,Convert_Unchecked 0c5c 1c01 | | Execute_Immediate Run_Utility,0x1 0c5d 00cb | | Action Pop_Block_With_Result 0c5e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c5f 0000 | | .XXX[0x1] 0c60 ; -------------------------------------------------------------------------------------- 0c60 ; SUBPROGRAM 0c60 ; -------------------------------------------------------------------------------------- 0c60 0c63 | c | .CONST 0x0c63 ; Address of begin 0c61 0004 | | .CONST 0x0004 ; Address of exception handler 0c62 0001 | | .CONST 0x0001 ; Number of locals 0c63 BODY_0c60: 0c63 INIT_0c60: 0c63 4609 |F | Jump_Case 0xa 0c64 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0c65 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0c66 7808 |x | Jump 0xc6f ; case 0x2 0c67 780b |x | Jump 0xc73 ; case 0x3 0c68 785a |xZ | Jump 0xcc3 ; case 0x4 0c69 7859 |xY | Jump 0xcc3 ; case 0x5 0c6a 780e |x | Jump 0xc79 ; case 0x6 0c6b 782d |x- | Jump 0xc99 ; case 0x7 0c6c 784f |xO | Jump 0xcbc ; case 0x8 0c6d 7855 |xU | Jump 0xcc3 ; case 0x9 0c6e 4302 |C | .XXX[0x1] 0c6f 4801 |H | Short_Literal 0x1 0c70 480a |H | Short_Literal 0xa 0c71 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 0c72 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0c73 e5fd | | Load 0x2,-0x3 0c74 00db | | Load_Top At_Offset_3 0c75 1c07 | | Execute_Immediate Run_Utility,0x7 0c76 e5fe | | Load 0x2,-0x2 0c77 0306 | | Complete_Type Variant_Record,By_Renaming 0c78 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 0c79 00db | | Load_Top At_Offset_3 0c7a 4609 |F | Jump_Case 0xa 0c7b 781b |x | Jump 0xc97 ; case 0x0 0c7c 780a |x | Jump 0xc87 ; case 0x1 0c7d 780b |x | Jump 0xc89 ; case 0x2 0c7e 780e |x | Jump 0xc8d ; case 0x3 0c7f 780b |x | Jump 0xc8b ; case 0x4 0c80 780e |x | Jump 0xc8f ; case 0x5 0c81 780f |x | Jump 0xc91 ; case 0x6 0c82 7810 |x | Jump 0xc93 ; case 0x7 0c83 7811 |x | Jump 0xc95 ; case 0x8 0c84 7800 |x | Jump 0xc85 ; case 0x9 0c85 4809 |H | Short_Literal 0x9 0c86 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0c87 4801 |H | Short_Literal 0x1 0c88 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0c89 4802 |H | Short_Literal 0x2 0c8a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0c8b 4803 |H | Short_Literal 0x3 0c8c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0c8d 4804 |H | Short_Literal 0x4 0c8e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0c8f 4805 |H | Short_Literal 0x5 0c90 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0c91 4806 |H | Short_Literal 0x6 0c92 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0c93 4807 |H | Short_Literal 0x7 0c94 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0c95 4808 |H | Short_Literal 0x8 0c96 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0c97 48ff |H | Short_Literal 0xff 0c98 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0c99 00db | | Load_Top At_Offset_3 0c9a e5fe | | Load 0x2,-0x2 0c9b 4609 |F | Jump_Case 0xa 0c9c 781b |x | Jump 0xcb8 ; case 0x0 0c9d 780a |x | Jump 0xca8 ; case 0x1 0c9e 780b |x | Jump 0xcaa ; case 0x2 0c9f 780e |x | Jump 0xcae ; case 0x3 0ca0 780b |x | Jump 0xcac ; case 0x4 0ca1 780e |x | Jump 0xcb0 ; case 0x5 0ca2 780f |x | Jump 0xcb2 ; case 0x6 0ca3 7810 |x | Jump 0xcb4 ; case 0x7 0ca4 7811 |x | Jump 0xcb6 ; case 0x8 0ca5 7800 |x | Jump 0xca6 ; case 0x9 0ca6 4809 |H | Short_Literal 0x9 0ca7 7811 |x | Jump 0xcb9 0ca8 4801 |H | Short_Literal 0x1 0ca9 780f |x | Jump 0xcb9 0caa 4802 |H | Short_Literal 0x2 0cab 780d |x | Jump 0xcb9 0cac 4803 |H | Short_Literal 0x3 0cad 780b |x | Jump 0xcb9 0cae 4804 |H | Short_Literal 0x4 0caf 7809 |x | Jump 0xcb9 0cb0 4805 |H | Short_Literal 0x5 0cb1 7807 |x | Jump 0xcb9 0cb2 4806 |H | Short_Literal 0x6 0cb3 7805 |x | Jump 0xcb9 0cb4 4807 |H | Short_Literal 0x7 0cb5 7803 |x | Jump 0xcb9 0cb6 4808 |H | Short_Literal 0x8 0cb7 7801 |x | Jump 0xcb9 0cb8 48ff |H | Short_Literal 0xff 0cb9 e5ff | | Load 0x2,-0x1 0cba 031b | | Declare_Type Variant_Record,Constrained 0cbb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0cbc 00db | | Load_Top At_Offset_3 0cbd e5fe | | Load 0x2,-0x2 0cbe e5ff | | Load 0x2,-0x1 0cbf 1c06 | | Execute_Immediate Run_Utility,0x6 0cc0 e5ff | | Load 0x2,-0x1 0cc1 02fc | | Declare_Variable Variant_Record,With_Constraint 0cc2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0cc3 0869 | i | Execute_Immediate Raise,0x69 0cc4 0000 0000 | | .BLANK 0000[0x4] 0cc8 ; -------------------------------------------------------------------------------------- 0cc8 ; SUBPROGRAM 0cc8 ; SUBPROGRAM 0cc8 ; -------------------------------------------------------------------------------------- 0cc8 0ccb | | .CONST 0x0ccb ; Address of begin 0cc9 0004 | | .CONST 0x0004 ; Address of exception handler 0cca 0001 | | .CONST 0x0001 ; Number of locals 0ccb BODY_0cc8: 0ccb BODY_0cc8: 0ccb INIT_0cc8: 0ccb INIT_0cc8: 0ccb 4609 |F | Jump_Case 0xa 0ccc 7809 |x | Jump 0xcd6 ; case 0x0 0ccd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0cce 781d |x | Jump 0xcec ; case 0x2 0ccf 7820 |x | Jump 0xcf0 ; case 0x3 0cd0 7825 |x% | Jump 0xcf6 ; case 0x4 0cd1 782f |x/ | Jump 0xd01 ; case 0x5 0cd2 783f |x? | Jump 0xd12 ; case 0x6 0cd3 785e |x^ | Jump 0xd32 ; case 0x7 0cd4 7880 |x | Jump 0xd55 ; case 0x8 0cd5 7886 |x | Jump 0xd5c ; case 0x9 0cd6 00da | | Load_Top At_Offset_2 0cd7 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3 0cd8 1c00 | | Execute_Immediate Run_Utility,0x0 0cd9 00da | | Load_Top At_Offset_2 0cda 2207 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x7 0cdb 00da | | Load_Top At_Offset_2 0cdc 2407 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x7 0cdd 1c00 | | Execute_Immediate Run_Utility,0x0 0cde 00da | | Load_Top At_Offset_2 0cdf 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0ce0 4609 |F | Jump_Case 0xa 0ce1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0ce2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0ce3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 0ce4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0ce5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0ce6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 0ce7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 0ce8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 0ce9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 0cea 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x9 0ceb 4302 |C | .XXX[0x1] 0cec 4801 |H | Short_Literal 0x1 0ced 4810 |H | Short_Literal 0x10 0cee 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 0cef 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0cf0 e5fd | | Load 0x2,-0x3 0cf1 00db | | Load_Top At_Offset_3 0cf2 1c07 | | Execute_Immediate Run_Utility,0x7 0cf3 e5fe | | Load 0x2,-0x2 0cf4 0306 | | Complete_Type Variant_Record,By_Renaming 0cf5 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 0cf6 4801 |H | Short_Literal 0x1 0cf7 4810 |H | Short_Literal 0x10 0cf8 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 0cf9 e5fe | | Load 0x2,-0x2 0cfa 00d8 | | Load_Top At_Offset_0 0cfb e5ff | | Load 0x2,-0x1 0cfc 1c06 | | Execute_Immediate Run_Utility,0x6 0cfd e5ff | | Load 0x2,-0x1 0cfe 00db | | Load_Top At_Offset_3 0cff 0305 | | Complete_Type Variant_Record,By_Constraining_Incomplete 0d00 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0d01 4801 |H | Short_Literal 0x1 0d02 00db | | Load_Top At_Offset_3 0d03 0169 | i | Execute Variant_Record,Read_Discriminant_Constraint 0d04 4609 |F | Jump_Case 0xa 0d05 7809 |x | Jump 0xd0f ; case 0x0 0d06 7808 |x | Jump 0xd0f ; case 0x1 0d07 7807 |x | Jump 0xd0f ; case 0x2 0d08 7806 |x | Jump 0xd0f ; case 0x3 0d09 7805 |x | Jump 0xd0f ; case 0x4 0d0a 7804 |x | Jump 0xd0f ; case 0x5 0d0b 7803 |x | Jump 0xd0f ; case 0x6 0d0c 7802 |x | Jump 0xd0f ; case 0x7 0d0d 7801 |x | Jump 0xd0f ; case 0x8 0d0e 7800 |x | Jump 0xd0f ; case 0x9 0d0f e5ff | | Load 0x2,-0x1 0d10 0304 | | Complete_Type Variant_Record,By_Completing_Constraint 0d11 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0d12 00db | | Load_Top At_Offset_3 0d13 4609 |F | Jump_Case 0xa 0d14 781b |x | Jump 0xd30 ; case 0x0 0d15 780a |x | Jump 0xd20 ; case 0x1 0d16 780b |x | Jump 0xd22 ; case 0x2 0d17 780c |x | Jump 0xd24 ; case 0x3 0d18 780d |x | Jump 0xd26 ; case 0x4 0d19 780e |x | Jump 0xd28 ; case 0x5 0d1a 780f |x | Jump 0xd2a ; case 0x6 0d1b 7810 |x | Jump 0xd2c ; case 0x7 0d1c 7811 |x | Jump 0xd2e ; case 0x8 0d1d 7800 |x | Jump 0xd1e ; case 0x9 0d1e 4809 |H | Short_Literal 0x9 0d1f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0d20 4801 |H | Short_Literal 0x1 0d21 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0d22 4802 |H | Short_Literal 0x2 0d23 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0d24 4803 |H | Short_Literal 0x3 0d25 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0d26 4804 |H | Short_Literal 0x4 0d27 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0d28 4805 |H | Short_Literal 0x5 0d29 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0d2a 4806 |H | Short_Literal 0x6 0d2b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0d2c 4807 |H | Short_Literal 0x7 0d2d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0d2e 4808 |H | Short_Literal 0x8 0d2f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0d30 48ff |H | Short_Literal 0xff 0d31 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0d32 00db | | Load_Top At_Offset_3 0d33 e5fe | | Load 0x2,-0x2 0d34 4609 |F | Jump_Case 0xa 0d35 781b |x | Jump 0xd51 ; case 0x0 0d36 780a |x | Jump 0xd41 ; case 0x1 0d37 780b |x | Jump 0xd43 ; case 0x2 0d38 780c |x | Jump 0xd45 ; case 0x3 0d39 780d |x | Jump 0xd47 ; case 0x4 0d3a 780e |x | Jump 0xd49 ; case 0x5 0d3b 780f |x | Jump 0xd4b ; case 0x6 0d3c 7810 |x | Jump 0xd4d ; case 0x7 0d3d 7811 |x | Jump 0xd4f ; case 0x8 0d3e 7800 |x | Jump 0xd3f ; case 0x9 0d3f 4809 |H | Short_Literal 0x9 0d40 7811 |x | Jump 0xd52 0d41 4801 |H | Short_Literal 0x1 0d42 780f |x | Jump 0xd52 0d43 4802 |H | Short_Literal 0x2 0d44 780d |x | Jump 0xd52 0d45 4803 |H | Short_Literal 0x3 0d46 780b |x | Jump 0xd52 0d47 4804 |H | Short_Literal 0x4 0d48 7809 |x | Jump 0xd52 0d49 4805 |H | Short_Literal 0x5 0d4a 7807 |x | Jump 0xd52 0d4b 4806 |H | Short_Literal 0x6 0d4c 7805 |x | Jump 0xd52 0d4d 4807 |H | Short_Literal 0x7 0d4e 7803 |x | Jump 0xd52 0d4f 4808 |H | Short_Literal 0x8 0d50 7801 |x | Jump 0xd52 0d51 48ff |H | Short_Literal 0xff 0d52 e5ff | | Load 0x2,-0x1 0d53 031b | | Declare_Type Variant_Record,Constrained 0d54 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0d55 00db | | Load_Top At_Offset_3 0d56 e5fe | | Load 0x2,-0x2 0d57 e5ff | | Load 0x2,-0x1 0d58 1c06 | | Execute_Immediate Run_Utility,0x6 0d59 e5ff | | Load 0x2,-0x1 0d5a 02fc | | Declare_Variable Variant_Record,With_Constraint 0d5b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0d5c 0869 | i | Execute_Immediate Raise,0x69 0d5d ; -------------------------------------------------------------------------------------- 0d5d ; STRING TABLE 0d5d ; -------------------------------------------------------------------------------------- 0d5d 0018 | | .STRTAB 0x0018->0x0d69 ; "No previous Images for Undo" 0d5e 0031 | 1 | .STRTAB 0x0031->0x0d76 ; "No more Images for Redo" 0d5f 0046 | F | .STRTAB 0x0046->0x0d82 ; "Semanticize" 0d60 004f | O | .STRTAB 0x004f->0x0d87 ; "Edit" 0d61 0051 | Q | .STRTAB 0x0051->0x0d89 ; "Show_Differential" 0d62 0060 | ` | .STRTAB 0x0060->0x0d92 ; "Generate_Test_Set" 0d63 006f | o | .STRTAB 0x006f->0x0d9a ; "Save_As" 0d64 0074 | t | .STRTAB 0x0074->0x0d9e ; "Set_Value" 0d65 007b | { | .STRTAB 0x007b->0x0da2 ; "Set_Term_Control_Value" 0d66 008f | | .STRTAB 0x008f->0x0dad ; "Insert" 0d67 0093 | | .STRTAB 0x0093->0x0db0 ; "'" 0d68 0092 | | .STREND 0x0092->0x0db1 0d69 4e6f 2070 |No p| .STRTAB_STRINGS 0db1 0000 0000 | | .BLANK 0000[0x7] 0db8 ; -------------------------------------------------------------------------------------- 0db8 ; Debug Table 0db8 ; -------------------------------------------------------------------------------------- 0db8 0004 000a | | .DEBUG4 0x0004,0x000a,0x765a,0x0000,0x0001,0x0000 0dbe 0000 0000 | | .BLANK 0000[0x42]