|
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: 6144 (0x1800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_06e8fd
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0aa8 | | .CONST 0x0aa8 ; 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 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 01df | | .CONST 0x01df ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 006e | n | .CONST 0x006e ; Number of locals 000b INIT_0008: 000b 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 000d 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 000f 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated 0011 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated 0013 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated 0015 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated 0017 029a 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call,Visible,Unelaborated 0019 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated 001b 029a 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call,Visible,Unelaborated 001d 029a 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Visible,Unelaborated 001f 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated 0021 029a 041b | | Declare_Subprogram INIT_0418,For_Outer_Call,Visible,Unelaborated 0023 029a 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call,Visible,Unelaborated 0025 029a 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call,Visible,Unelaborated 0027 029a 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call,Visible,Unelaborated 0029 00bf | | Action Accept_Activation 002a 0092 0957 | W| Action Push_String_Extended,0x957 ; "Illegal item type" 002c 0092 0958 | X| Action Push_String_Extended,0x958 ; "No code generated for this statement" 002e 0092 0959 | Y| Action Push_String_Extended,0x959 ; "Item requires unimplemented facility" 0030 0092 095a | Z| Action Push_String_Extended,0x95a ; "Exception raised:" 0032 0092 095b | [| Action Push_String_Extended,0x95b ; "Task unknown or terminated" 0034 0092 095c | \| Action Push_String_Extended,0x95c ; "Too many action items" 0036 0092 095d | ]| Action Push_String_Extended,0x95d ; "Return stepping illegal from task body" 0038 0092 095e | ^| Action Push_String_Extended,0x95e ; "Illegal Pc value" 003a 0093 0000 | | push_full_address 0x0 003c 61db |a | Indirect_Literal Discrete,0x218,{0x80000000, 0x00010000} 003d 0273 | s | Execute Discrete,Plus 003e 0007 | | Action Break_Optional 003f 0093 0000 | | push_full_address 0x0 0041 61d2 |a | Indirect_Literal Discrete,0x214,{0x80000000, 0x00020000} 0042 0273 | s | Execute Discrete,Plus 0043 0007 | | Action Break_Optional 0044 0093 0000 | | push_full_address 0x0 0046 61c9 |a | Indirect_Literal Discrete,0x210,{0x80000000, 0x00030000} 0047 0273 | s | Execute Discrete,Plus 0048 0007 | | Action Break_Optional 0049 0093 0000 | | push_full_address 0x0 004b 61c0 |a | Indirect_Literal Discrete,0x20c,{0x80000000, 0x00040000} 004c 0273 | s | Execute Discrete,Plus 004d 0007 | | Action Break_Optional 004e e002 | | Load 0x0,0x2 004f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0050 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0051 e003 | | Load 0x0,0x3 0052 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 0053 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0054 e003 | | Load 0x0,0x3 0055 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0056 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0057 8004 | | Call 0x0,0x4 0058 e005 | | Load 0x0,0x5 0059 03f1 | | Declare_Variable Discrete,With_Value 005a 8006 | | Call 0x0,0x6 005b e005 | | Load 0x0,0x5 005c 03f1 | | Declare_Variable Discrete,With_Value 005d e007 | | Load 0x0,0x7 005e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 005f e008 | | Load 0x0,0x8 0060 0322 | " | Declare_Variable Record 0061 00d8 | | Load_Top At_Offset_0 0062 1c01 | | Execute_Immediate Run_Utility,0x1 0063 e009 | | Load 0x0,0x9 0064 00d9 | | Load_Top At_Offset_1 0065 017d | } | Execute Record,Structure_Write 0066 e003 | | Load 0x0,0x3 0067 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0068 02c7 | | Declare_Variable Any 0069 e00a | | Load 0x0,0xa 006a 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 006b a22f | / | Store_Unchecked 0x1,0x2f 006c e00b | | Load 0x0,0xb 006d 0322 | " | Declare_Variable Record 006e e00c | | Load 0x0,0xc 006f 00d9 | | Load_Top At_Offset_1 0070 017d | } | Execute Record,Structure_Write 0071 00e2 | | Load_Encached Integer_Cache 0072 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0073 4800 |H | Short_Literal 0x0 0074 4804 |H | Short_Literal 0x4 0075 e001 | | Load 0x0,0x1 0076 01d7 | | Execute Vector,Field_Read 0077 02a0 | | Declare_Subprogram Null_Subprogram 0078 038e | | Declare_Type Package,Defined 0079 e001 | | Load 0x0,0x1 007a 4803 |H | Short_Literal 0x3 007b e001 | | Load 0x0,0x1 007c 01d7 | | Execute Vector,Field_Read 007d e002 | | Load 0x0,0x2 007e 4803 |H | Short_Literal 0x3 007f e232 | 2 | Load 0x1,0x32 0080 020e | | Execute Module,Augment_Imports 0081 0387 | | Declare_Variable Package 0082 4800 |H | Short_Literal 0x0 0083 4802 |H | Short_Literal 0x2 0084 e001 | | Load 0x0,0x1 0085 01d7 | | Execute Vector,Field_Read 0086 02a0 | | Declare_Subprogram Null_Subprogram 0087 038e | | Declare_Type Package,Defined 0088 e001 | | Load 0x0,0x1 0089 4801 |H | Short_Literal 0x1 008a e001 | | Load 0x0,0x1 008b 01d7 | | Execute Vector,Field_Read 008c 4802 |H | Short_Literal 0x2 008d 00db | | Load_Top At_Offset_3 008e 020e | | Execute Module,Augment_Imports 008f 0387 | | Declare_Variable Package 0090 00e1 | | Load_Encached Boolean_Cache 0091 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0092 e228 | ( | Load 0x1,0x28 0093 0007 | | Action Break_Optional 0094 00e1 | | Load_Encached Boolean_Cache 0095 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0096 00e1 | | Load_Encached Boolean_Cache 0097 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0098 00e1 | | Load_Encached Boolean_Cache 0099 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 009a 00e1 | | Load_Encached Boolean_Cache 009b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 009c 800d | | Call 0x0,0xd 009d e00e | | Load 0x0,0xe 009e 1b15 | | Execute Package,Field_Read,Field_Number 0x15 009f 03f1 | | Declare_Variable Discrete,With_Value 00a0 029d 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call 00a2 029d 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call 00a4 029d 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call 00a6 029d 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call 00a8 029d 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call 00aa 029d 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call 00ac 029d 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call 00ae a00f | | Store_Unchecked 0x0,0xf 00af 00c6 | | Action Check_Subprogram_Elaborated 00b0 00e2 | | Load_Encached Integer_Cache 00b1 1d41 | A | Execute_Immediate Reference_Lex_1,0x41 00b2 4800 |H | Short_Literal 0x0 00b3 0093 0000 | | push_full_address 0x0 00b5 6152 |aR | Indirect_Literal Discrete,0x208,{0x80000000, 0x00040000} 00b6 0273 | s | Execute Discrete,Plus 00b7 e010 | | Load 0x0,0x10 00b8 0273 | s | Execute Discrete,Plus 00b9 e011 | | Load 0x0,0x11 00ba 0273 | s | Execute Discrete,Plus 00bb 4800 |H | Short_Literal 0x0 00bc 0007 | | Action Break_Optional 00bd 029d 056b | k| Declare_Subprogram INIT_0568,For_Outer_Call 00bf 029d 058b | | Declare_Subprogram INIT_0588,For_Outer_Call 00c1 029d 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call 00c3 029d 05c3 | | Declare_Subprogram INIT_05c0,For_Outer_Call 00c5 029d 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call 00c7 1d0d | | Execute_Immediate Reference_Lex_1,0xd 00c8 00c7 | | Action Elaborate_Subprogram 00c9 029d 06b3 | | Declare_Subprogram INIT_06b0,For_Outer_Call 00cb 029d 06e3 | | Declare_Subprogram INIT_06e0,For_Outer_Call 00cd 029d 071b | | Declare_Subprogram INIT_0718,For_Outer_Call 00cf 029d 074b | K| Declare_Subprogram INIT_0748,For_Outer_Call 00d1 029d 076b | k| Declare_Subprogram INIT_0768,For_Outer_Call 00d3 029d 077b | {| Declare_Subprogram INIT_0778,For_Outer_Call 00d5 029d 078b | | Declare_Subprogram INIT_0788,For_Outer_Call 00d7 029d 079b | | Declare_Subprogram INIT_0798,For_Outer_Call 00d9 029d 07ab | | Declare_Subprogram INIT_07a8,For_Outer_Call 00db 029d 07c3 | | Declare_Subprogram INIT_07c0,For_Outer_Call 00dd 029d 07f3 | | Declare_Subprogram INIT_07f0,For_Outer_Call 00df 029d 08b3 | | Declare_Subprogram INIT_08b0,For_Outer_Call 00e1 a00f | | Store_Unchecked 0x0,0xf 00e2 00c6 | | Action Check_Subprogram_Elaborated 00e3 e012 | | Load 0x0,0x12 00e4 1d57 | W | Execute_Immediate Reference_Lex_1,0x57 00e5 4800 |H | Short_Literal 0x0 00e6 0093 0000 | | push_full_address 0x0 00e8 611b |a | Indirect_Literal Discrete,0x204,{0x80000000, 0x00030000} 00e9 0273 | s | Execute Discrete,Plus 00ea e010 | | Load 0x0,0x10 00eb 0273 | s | Execute Discrete,Plus 00ec e013 | | Load 0x0,0x13 00ed 0273 | s | Execute Discrete,Plus 00ee 4800 |H | Short_Literal 0x0 00ef 0007 | | Action Break_Optional 00f0 029d 08b3 | | Declare_Subprogram INIT_08b0,For_Outer_Call 00f2 029d 08c3 | | Declare_Subprogram INIT_08c0,For_Outer_Call 00f4 a014 | | Store_Unchecked 0x0,0x14 00f5 00c6 | | Action Check_Subprogram_Elaborated 00f6 00e2 | | Load_Encached Integer_Cache 00f7 e012 | | Load 0x0,0x12 00f8 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d 00f9 1d5e | ^ | Execute_Immediate Reference_Lex_1,0x5e 00fa 0093 0000 | | push_full_address 0x0 00fc 6103 |a | Indirect_Literal Discrete,0x200,{0x80000000, 0x00020000} 00fd 0273 | s | Execute Discrete,Plus 00fe e010 | | Load 0x0,0x10 00ff 0273 | s | Execute Discrete,Plus 0100 e015 | | Load 0x0,0x15 0101 0273 | s | Execute Discrete,Plus 0102 4800 |H | Short_Literal 0x0 0103 0007 | | Action Break_Optional 0104 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0105 00c7 | | Action Elaborate_Subprogram 0106 029d 08db | | Declare_Subprogram INIT_08d8,For_Outer_Call 0108 029d 08eb | | Declare_Subprogram INIT_08e8,For_Outer_Call 010a 029d 08c3 | | Declare_Subprogram INIT_08c0,For_Outer_Call 010c a014 | | Store_Unchecked 0x0,0x14 010d 00c6 | | Action Check_Subprogram_Elaborated 010e 00e2 | | Load_Encached Integer_Cache 010f e002 | | Load 0x0,0x2 0110 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0111 1d66 | f | Execute_Immediate Reference_Lex_1,0x66 0112 1d67 | g | Execute_Immediate Reference_Lex_1,0x67 0113 0093 0000 | | push_full_address 0x0 0115 60e6 |` | Indirect_Literal Discrete,0x1fc,{0x80000000, 0x00010000} 0116 0273 | s | Execute Discrete,Plus 0117 e010 | | Load 0x0,0x10 0118 0273 | s | Execute Discrete,Plus 0119 e016 | | Load 0x0,0x16 011a 0273 | s | Execute Discrete,Plus 011b 4800 |H | Short_Literal 0x0 011c 0007 | | Action Break_Optional 011d 1d10 | | Execute_Immediate Reference_Lex_1,0x10 011e 00c7 | | Action Elaborate_Subprogram 011f 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0120 00c7 | | Action Elaborate_Subprogram 0121 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0122 00c7 | | Action Elaborate_Subprogram 0123 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0124 00c7 | | Action Elaborate_Subprogram 0125 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0126 00c7 | | Action Elaborate_Subprogram 0127 029d 0903 | | Declare_Subprogram INIT_0900,For_Outer_Call 0129 1d14 | | Execute_Immediate Reference_Lex_1,0x14 012a 00c7 | | Action Elaborate_Subprogram 012b 1d15 | | Execute_Immediate Reference_Lex_1,0x15 012c 00c7 | | Action Elaborate_Subprogram 012d 1d18 | | Execute_Immediate Reference_Lex_1,0x18 012e 00c7 | | Action Elaborate_Subprogram 012f 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0130 00c7 | | Action Elaborate_Subprogram 0131 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0132 00c7 | | Action Elaborate_Subprogram 0133 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0134 00c7 | | Action Elaborate_Subprogram 0135 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0136 00c7 | | Action Elaborate_Subprogram 0137 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0138 00c7 | | Action Elaborate_Subprogram 0139 a00f | | Store_Unchecked 0x0,0xf 013a e017 | | Load 0x0,0x17 013b e010 | | Load 0x0,0x10 013c e018 | | Load 0x0,0x18 013d e019 | | Load 0x0,0x19 013e e01a | | Load 0x0,0x1a 013f a014 | | Store_Unchecked 0x0,0x14 0140 e01b | | Load 0x0,0x1b 0141 e01c | | Load 0x0,0x1c 0142 e01d | | Load 0x0,0x1d 0143 e01e | | Load 0x0,0x1e 0144 e01f | | Load 0x0,0x1f 0145 e00b | | Load 0x0,0xb 0146 e008 | | Load 0x0,0x8 0147 e003 | | Load 0x0,0x3 0148 a020 | | Store_Unchecked 0x0,0x20 0149 e021 | ! | Load 0x0,0x21 014a e022 | " | Load 0x0,0x22 014b a023 | # | Store_Unchecked 0x0,0x23 014c a024 | $ | Store_Unchecked 0x0,0x24 014d a025 | % | Store_Unchecked 0x0,0x25 014e a026 | & | Store_Unchecked 0x0,0x26 014f a027 | ' | Store_Unchecked 0x0,0x27 0150 a028 | ( | Store_Unchecked 0x0,0x28 0151 e029 | ) | Load 0x0,0x29 0152 e007 | | Load 0x0,0x7 0153 a02a | * | Store_Unchecked 0x0,0x2a 0154 a02b | + | Store_Unchecked 0x0,0x2b 0155 a02c | , | Store_Unchecked 0x0,0x2c 0156 a02d | - | Store_Unchecked 0x0,0x2d 0157 a02e | . | Store_Unchecked 0x0,0x2e 0158 a02f | / | Store_Unchecked 0x0,0x2f 0159 a030 | 0 | Store_Unchecked 0x0,0x30 015a e031 | 1 | Load 0x0,0x31 015b a032 | 2 | Store_Unchecked 0x0,0x32 015c a033 | 3 | Store_Unchecked 0x0,0x33 015d 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 015e e034 | 4 | Load 0x0,0x34 015f e00e | | Load 0x0,0xe 0160 4827 |H' | Short_Literal 0x27 0161 e233 | 3 | Load 0x1,0x33 0162 020e | | Execute Module,Augment_Imports 0163 e233 | 3 | Load 0x1,0x33 0164 020f | | Execute Module,Activate 0165 e003 | | Load 0x0,0x3 0166 e008 | | Load 0x0,0x8 0167 e00b | | Load 0x0,0xb 0168 e007 | | Load 0x0,0x7 0169 e035 | 5 | Load 0x0,0x35 016a e005 | | Load 0x0,0x5 016b a02e | . | Store_Unchecked 0x0,0x2e 016c e01e | | Load 0x0,0x1e 016d a036 | 6 | Store_Unchecked 0x0,0x36 016e a037 | 7 | Store_Unchecked 0x0,0x37 016f a038 | 8 | Store_Unchecked 0x0,0x38 0170 a039 | 9 | Store_Unchecked 0x0,0x39 0171 e00c | | Load 0x0,0xc 0172 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0173 e03a | : | Load 0x0,0x3a 0174 a00f | | Store_Unchecked 0x0,0xf 0175 e010 | | Load 0x0,0x10 0176 e03b | ; | Load 0x0,0x3b 0177 a014 | | Store_Unchecked 0x0,0x14 0178 e03c | < | Load 0x0,0x3c 0179 e03d | = | Load 0x0,0x3d 017a e03e | > | Load 0x0,0x3e 017b e03f | ? | Load 0x0,0x3f 017c e040 | @ | Load 0x0,0x40 017d e00a | | Load 0x0,0xa 017e a041 | A | Store_Unchecked 0x0,0x41 017f 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 0180 a004 | | Store_Unchecked 0x0,0x4 0181 a042 | B | Store_Unchecked 0x0,0x42 0182 a043 | C | Store_Unchecked 0x0,0x43 0183 a044 | D | Store_Unchecked 0x0,0x44 0184 a045 | E | Store_Unchecked 0x0,0x45 0185 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 0186 e00e | | Load 0x0,0xe 0187 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d 0188 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0189 e046 | F | Load 0x0,0x46 018a e047 | G | Load 0x0,0x47 018b a048 | H | Store_Unchecked 0x0,0x48 018c a049 | I | Store_Unchecked 0x0,0x49 018d 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 018e 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 018f a04a | J | Store_Unchecked 0x0,0x4a 0190 a00d | | Store_Unchecked 0x0,0xd 0191 e04b | K | Load 0x0,0x4b 0192 e04c | L | Load 0x0,0x4c 0193 a04d | M | Store_Unchecked 0x0,0x4d 0194 a04e | N | Store_Unchecked 0x0,0x4e 0195 a04f | O | Store_Unchecked 0x0,0x4f 0196 a050 | P | Store_Unchecked 0x0,0x50 0197 a051 | Q | Store_Unchecked 0x0,0x51 0198 e052 | R | Load 0x0,0x52 0199 a053 | S | Store_Unchecked 0x0,0x53 019a e054 | T | Load 0x0,0x54 019b e034 | 4 | Load 0x0,0x34 019c 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b 019d a055 | U | Store_Unchecked 0x0,0x55 019e a056 | V | Store_Unchecked 0x0,0x56 019f 1d47 | G | Execute_Immediate Reference_Lex_1,0x47 01a0 1d49 | I | Execute_Immediate Reference_Lex_1,0x49 01a1 a057 | W | Store_Unchecked 0x0,0x57 01a2 e058 | X | Load 0x0,0x58 01a3 e059 | Y | Load 0x0,0x59 01a4 e05a | Z | Load 0x0,0x5a 01a5 e05b | [ | Load 0x0,0x5b 01a6 e05c | \ | Load 0x0,0x5c 01a7 e05d | ] | Load 0x0,0x5d 01a8 e05e | ^ | Load 0x0,0x5e 01a9 a05f | _ | Store_Unchecked 0x0,0x5f 01aa a060 | ` | Store_Unchecked 0x0,0x60 01ab 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36 01ac 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 01ad 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 01ae a061 | a | Store_Unchecked 0x0,0x61 01af e062 | b | Load 0x0,0x62 01b0 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 01b1 a063 | c | Store_Unchecked 0x0,0x63 01b2 a064 | d | Store_Unchecked 0x0,0x64 01b3 a065 | e | Store_Unchecked 0x0,0x65 01b4 a066 | f | Store_Unchecked 0x0,0x66 01b5 a067 | g | Store_Unchecked 0x0,0x67 01b6 a068 | h | Store_Unchecked 0x0,0x68 01b7 a069 | i | Store_Unchecked 0x0,0x69 01b8 a06a | j | Store_Unchecked 0x0,0x6a 01b9 a06b | k | Store_Unchecked 0x0,0x6b 01ba a06c | l | Store_Unchecked 0x0,0x6c 01bb 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f 01bc e06d | m | Load 0x0,0x6d 01bd e22e | . | Load 0x1,0x2e 01be a06e | n | Store_Unchecked 0x0,0x6e 01bf a06f | o | Store_Unchecked 0x0,0x6f 01c0 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e 01c1 a070 | p | Store_Unchecked 0x0,0x70 01c2 e230 | 0 | Load 0x1,0x30 01c3 a071 | q | Store_Unchecked 0x0,0x71 01c4 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 01c5 a072 | r | Store_Unchecked 0x0,0x72 01c6 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c 01c7 a073 | s | Store_Unchecked 0x0,0x73 01c8 a074 | t | Store_Unchecked 0x0,0x74 01c9 a075 | u | Store_Unchecked 0x0,0x75 01ca a076 | v | Store_Unchecked 0x0,0x76 01cb 1d48 | H | Execute_Immediate Reference_Lex_1,0x48 01cc a077 | w | Store_Unchecked 0x0,0x77 01cd a025 | % | Store_Unchecked 0x0,0x25 01ce a078 | x | Store_Unchecked 0x0,0x78 01cf a079 | y | Store_Unchecked 0x0,0x79 01d0 a07a | z | Store_Unchecked 0x0,0x7a 01d1 e0a0 | | Load 0x0,0xa0 01d2 a0a1 | | Store_Unchecked 0x0,0xa1 01d3 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 01d4 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 01d5 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 01d6 a0a2 | | Store_Unchecked 0x0,0xa2 01d7 e0a3 | | Load 0x0,0xa3 01d8 a02b | + | Store_Unchecked 0x0,0x2b 01d9 a0a4 | | Store_Unchecked 0x0,0xa4 01da 4875 |Hu | Short_Literal 0x75 01db e232 | 2 | Load 0x1,0x32 01dc 020e | | Execute Module,Augment_Imports 01dd e232 | 2 | Load 0x1,0x32 01de 020f | | Execute Module,Activate 01df BODY_0008: 01df e232 | 2 | Load 0x1,0x32 01e0 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 01e1 e233 | 3 | Load 0x1,0x33 01e2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01e3 e232 | 2 | Load 0x1,0x32 01e4 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 01e5 00bc | | Action Signal_Activated 01e6 00bb | | Action Signal_Completion 01e7 0000 | | .XXX[0x1] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 4800 |H | Short_Literal 0x0 01ec a236 | 6 | Store_Unchecked 0x1,0x36 01ed 4800 |H | Short_Literal 0x0 01ee a234 | 4 | Store_Unchecked 0x1,0x34 01ef 4800 |H | Short_Literal 0x0 01f0 a237 | 7 | Store_Unchecked 0x1,0x37 01f1 4800 |H | Short_Literal 0x0 01f2 a238 | 8 | Store_Unchecked 0x1,0x38 01f3 4800 |H | Short_Literal 0x0 01f4 a239 | 9 | Store_Unchecked 0x1,0x39 01f5 e232 | 2 | Load 0x1,0x32 01f6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 01f7 807b | { | Call 0x0,0x7b 01f8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01f9 0000 0000 | | .XXX[0x3] 01fb 0000 | | 01fc 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0200 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 0204 8000 0000 | | .LITERAL {0x80000000, 0x00030000} 0208 8000 0000 | | .LITERAL {0x80000000, 0x00040000} 020c 8000 0000 | | .LITERAL {0x80000000, 0x00040000} 0210 8000 0000 | | .LITERAL {0x80000000, 0x00030000} 0214 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 0218 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 021c 0000 0000 | | .BLANK 0000[0x4] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 022a | * | .CONST 0x022a ; Address of begin 0221 02ea | | .CONST 0x02ea ; Address of exception handler 0222 0003 | | .CONST 0x0003 ; Number of locals 0223 INIT_0220: 0223 e00e | | Load 0x0,0xe 0224 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0225 e012 | | Load 0x0,0x12 0226 0322 | " | Declare_Variable Record 0227 e5ff | | Load 0x2,-0x1 0228 00d9 | | Load_Top At_Offset_1 0229 017d | } | Execute Record,Structure_Write 022a BODY_0220: 022a e5ff | | Load 0x2,-0x1 022b 807c | | | Call 0x0,0x7c 022c 0f04 | | Execute_Immediate Equal,0x4 022d 6803 |h | Jump_Zero 0x231 022e 4801 |H | Short_Literal 0x1 022f a238 | 8 | Store_Unchecked 0x1,0x38 0230 78aa |x | Jump 0x2db 0231 e5ff | | Load 0x2,-0x1 0232 807c | | | Call 0x0,0x7c 0233 0f05 | | Execute_Immediate Equal,0x5 0234 6803 |h | Jump_Zero 0x238 0235 4801 |H | Short_Literal 0x1 0236 a239 | 9 | Store_Unchecked 0x1,0x39 0237 78a3 |x | Jump 0x2db 0238 e5ff | | Load 0x2,-0x1 0239 807d | } | Call 0x0,0x7d 023a 8039 | 9 | Call 0x0,0x39 023b 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 023c e5ff | | Load 0x2,-0x1 023d 8255 | U | Call 0x1,0x55 023e 00d9 | | Load_Top At_Offset_1 023f e229 | ) | Load 0x1,0x29 0240 027f | | Execute Discrete,Equal 0241 6891 |h | Jump_Zero 0x2d3 0242 e5ff | | Load 0x2,-0x1 0243 824d | M | Call 0x1,0x4d 0244 6805 |h | Jump_Zero 0x24a 0245 e5ff | | Load 0x2,-0x1 0246 807c | | | Call 0x0,0x7c 0247 e232 | 2 | Load 0x1,0x32 0248 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0249 7891 |x | Jump 0x2db 024a e5ff | | Load 0x2,-0x1 024b 824e | N | Call 0x1,0x4e 024c 6802 |h | Jump_Zero 0x24f 024d e224 | $ | Load 0x1,0x24 024e 0257 | W | Execute Discrete,Raise 024f e5ff | | Load 0x2,-0x1 0250 824f | O | Call 0x1,0x4f 0251 6833 |h3 | Jump_Zero 0x285 0252 e5ff | | Load 0x2,-0x1 0253 807e | ~ | Call 0x0,0x7e 0254 807f | | Call 0x0,0x7f 0255 681a |h | Jump_Zero 0x270 0256 e5ff | | Load 0x2,-0x1 0257 807c | | | Call 0x0,0x7c 0258 e5ff | | Load 0x2,-0x1 0259 8080 | | Call 0x0,0x80 025a 0f00 | | Execute_Immediate Equal,0x0 025b e5ff | | Load 0x2,-0x1 025c 8081 | | Call 0x0,0x81 025d 00d8 | | Load_Top At_Offset_0 025e 00e4 | | Load_Encached Positive_Cache 025f 0260 | ` | Execute Discrete,In_Type 0260 7001 |p | Jump_Nonzero 0x262 0261 0801 | | Execute_Immediate Raise,0x1 0262 e5ff | | Load 0x2,-0x1 0263 8082 | | Call 0x0,0x82 0264 e5ff | | Load 0x2,-0x1 0265 8083 | | Call 0x0,0x83 0266 e5ff | | Load 0x2,-0x1 0267 8084 | | Call 0x0,0x84 0268 e5ff | | Load 0x2,-0x1 0269 8085 | | Call 0x0,0x85 026a 8086 | | Call 0x0,0x86 026b 8049 | I | Call 0x0,0x49 026c e402 | | Load 0x2,0x2 026d e232 | 2 | Load 0x1,0x32 026e 180f | | Execute Package,Field_Execute,Field_Number 0xf 026f 786b |xk | Jump 0x2db 0270 e5ff | | Load 0x2,-0x1 0271 807c | | | Call 0x0,0x7c 0272 e5ff | | Load 0x2,-0x1 0273 8080 | | Call 0x0,0x80 0274 0f00 | | Execute_Immediate Equal,0x0 0275 e5ff | | Load 0x2,-0x1 0276 8081 | | Call 0x0,0x81 0277 00d8 | | Load_Top At_Offset_0 0278 00e4 | | Load_Encached Positive_Cache 0279 0260 | ` | Execute Discrete,In_Type 027a 7001 |p | Jump_Nonzero 0x27c 027b 0801 | | Execute_Immediate Raise,0x1 027c e5ff | | Load 0x2,-0x1 027d 8082 | | Call 0x0,0x82 027e e5ff | | Load 0x2,-0x1 027f 807e | ~ | Call 0x0,0x7e 0280 8037 | 7 | Call 0x0,0x37 0281 e402 | | Load 0x2,0x2 0282 e232 | 2 | Load 0x1,0x32 0283 180f | | Execute Package,Field_Execute,Field_Number 0xf 0284 7856 |xV | Jump 0x2db 0285 e5ff | | Load 0x2,-0x1 0286 8254 | T | Call 0x1,0x54 0287 6812 |h | Jump_Zero 0x29a 0288 e5ff | | Load 0x2,-0x1 0289 807c | | | Call 0x0,0x7c 028a e5ff | | Load 0x2,-0x1 028b 8087 | | Call 0x0,0x87 028c e5ff | | Load 0x2,-0x1 028d 8088 | | Call 0x0,0x88 028e e5ff | | Load 0x2,-0x1 028f 8083 | | Call 0x0,0x83 0290 e5ff | | Load 0x2,-0x1 0291 8084 | | Call 0x0,0x84 0292 e5ff | | Load 0x2,-0x1 0293 8082 | | Call 0x0,0x82 0294 e5ff | | Load 0x2,-0x1 0295 8089 | | Call 0x0,0x89 0296 e402 | | Load 0x2,0x2 0297 e232 | 2 | Load 0x1,0x32 0298 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0299 7841 |xA | Jump 0x2db 029a e5ff | | Load 0x2,-0x1 029b 8250 | P | Call 0x1,0x50 029c 680a |h | Jump_Zero 0x2a7 029d 00d8 | | Load_Top At_Offset_0 029e e231 | 1 | Load 0x1,0x31 029f e25f | _ | Load 0x1,0x5f 02a0 e260 | ` | Load 0x1,0x60 02a1 1d61 | a | Execute_Immediate Reference_Lex_1,0x61 02a2 1d62 | b | Execute_Immediate Reference_Lex_1,0x62 02a3 1d63 | c | Execute_Immediate Reference_Lex_1,0x63 02a4 8014 | | Call 0x0,0x14 02a5 00d1 | | Pop_Control Pop_Count_1 02a6 7834 |x4 | Jump 0x2db 02a7 e5ff | | Load 0x2,-0x1 02a8 8251 | Q | Call 0x1,0x51 02a9 6811 |h | Jump_Zero 0x2bb 02aa e5ff | | Load 0x2,-0x1 02ab 807c | | | Call 0x0,0x7c 02ac e5ff | | Load 0x2,-0x1 02ad 8085 | | Call 0x0,0x85 02ae 8086 | | Call 0x0,0x86 02af e5ff | | Load 0x2,-0x1 02b0 8083 | | Call 0x0,0x83 02b1 e5ff | | Load 0x2,-0x1 02b2 8084 | | Call 0x0,0x84 02b3 e5ff | | Load 0x2,-0x1 02b4 8082 | | Call 0x0,0x82 02b5 e5ff | | Load 0x2,-0x1 02b6 808a | | Call 0x0,0x8a 02b7 e402 | | Load 0x2,0x2 02b8 e232 | 2 | Load 0x1,0x32 02b9 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02ba 7820 |x | Jump 0x2db 02bb e5ff | | Load 0x2,-0x1 02bc 8252 | R | Call 0x1,0x52 02bd 7003 |p | Jump_Nonzero 0x2c1 02be e5ff | | Load 0x2,-0x1 02bf 8253 | S | Call 0x1,0x53 02c0 6810 |h | Jump_Zero 0x2d1 02c1 e5ff | | Load 0x2,-0x1 02c2 807c | | | Call 0x0,0x7c 02c3 e5ff | | Load 0x2,-0x1 02c4 8087 | | Call 0x0,0x87 02c5 e5ff | | Load 0x2,-0x1 02c6 8083 | | Call 0x0,0x83 02c7 e5ff | | Load 0x2,-0x1 02c8 8084 | | Call 0x0,0x84 02c9 e5ff | | Load 0x2,-0x1 02ca 8082 | | Call 0x0,0x82 02cb e5ff | | Load 0x2,-0x1 02cc 8089 | | Call 0x0,0x89 02cd e402 | | Load 0x2,0x2 02ce e232 | 2 | Load 0x1,0x32 02cf 181e | | Execute Package,Field_Execute,Field_Number 0x1e 02d0 780a |x | Jump 0x2db 02d1 e226 | & | Load 0x1,0x26 02d2 0257 | W | Execute Discrete,Raise 02d3 00d8 | | Load_Top At_Offset_0 02d4 00da | | Load_Top At_Offset_2 02d5 e258 | X | Load 0x1,0x58 02d6 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59 02d7 e25a | Z | Load 0x1,0x5a 02d8 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b 02d9 800f | | Call 0x0,0xf 02da 00d1 | | Pop_Control Pop_Count_1 02db e5fe | | Load 0x2,-0x2 02dc e01e | | Load 0x0,0x1e 02dd 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02de c5fe | | Store 0x2,-0x2 02df e5fe | | Load 0x2,-0x2 02e0 0120 | | Execute Any,Is_Value 02e1 6803 |h | Jump_Zero 0x2e5 02e2 e01e | | Load 0x0,0x1e 02e3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 02e4 7801 |x | Jump 0x2e6 02e5 e5fe | | Load 0x2,-0x2 02e6 e5ff | | Load 0x2,-0x1 02e7 808b | | Call 0x0,0x8b 02e8 c5fe | | Store 0x2,-0x2 02e9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02ea TRAP_0220: 02ea e224 | $ | Load 0x1,0x24 02eb 010f | | Execute Exception,Equal 02ec 6806 |h | Jump_Zero 0x2f3 02ed e5fe | | Load 0x2,-0x2 02ee e21c | | Load 0x1,0x1c 02ef e01e | | Load 0x0,0x1e 02f0 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02f1 c5fe | | Store 0x2,-0x2 02f2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02f3 e227 | ' | Load 0x1,0x27 02f4 010f | | Execute Exception,Equal 02f5 6806 |h | Jump_Zero 0x2fc 02f6 e5fe | | Load 0x2,-0x2 02f7 e21e | | Load 0x1,0x1e 02f8 e01e | | Load 0x0,0x1e 02f9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02fa c5fe | | Store 0x2,-0x2 02fb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02fc e052 | R | Load 0x0,0x52 02fd 010f | | Execute Exception,Equal 02fe 6806 |h | Jump_Zero 0x305 02ff e5fe | | Load 0x2,-0x2 0300 e220 | | Load 0x1,0x20 0301 e01e | | Load 0x0,0x1e 0302 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0303 c5fe | | Store 0x2,-0x2 0304 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0305 e232 | 2 | Load 0x1,0x32 0306 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0307 010f | | Execute Exception,Equal 0308 7004 |p | Jump_Nonzero 0x30d 0309 e232 | 2 | Load 0x1,0x32 030a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 030b 010f | | Execute Exception,Equal 030c 6806 |h | Jump_Zero 0x313 030d e5fe | | Load 0x2,-0x2 030e e221 | ! | Load 0x1,0x21 030f e01e | | Load 0x0,0x1e 0310 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0311 c5fe | | Store 0x2,-0x2 0312 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0313 e225 | % | Load 0x1,0x25 0314 010f | | Execute Exception,Equal 0315 6806 |h | Jump_Zero 0x31c 0316 e5fe | | Load 0x2,-0x2 0317 e222 | " | Load 0x1,0x22 0318 e01e | | Load 0x0,0x1e 0319 1815 | | Execute Package,Field_Execute,Field_Number 0x15 031a c5fe | | Store 0x2,-0x2 031b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 031c e232 | 2 | Load 0x1,0x32 031d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 031e 010f | | Execute Exception,Equal 031f 6806 |h | Jump_Zero 0x326 0320 e5fe | | Load 0x2,-0x2 0321 e223 | # | Load 0x1,0x23 0322 e01e | | Load 0x0,0x1e 0323 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0324 c5fe | | Store 0x2,-0x2 0325 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0326 e08c | | Load 0x0,0x8c 0327 010f | | Execute Exception,Equal 0328 6806 |h | Jump_Zero 0x32f 0329 e5fe | | Load 0x2,-0x2 032a e21d | | Load 0x1,0x1d 032b e01e | | Load 0x0,0x1e 032c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 032d c5fe | | Store 0x2,-0x2 032e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 032f e5fe | | Load 0x2,-0x2 0330 e21f | | Load 0x1,0x1f 0331 e034 | 4 | Load 0x0,0x34 0332 180d | | Execute Package,Field_Execute,Field_Number 0xd 0333 01cc | | Execute Vector,Catenate 0334 e01e | | Load 0x0,0x1e 0335 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0336 c5fe | | Store 0x2,-0x2 0337 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 033f | ? | .CONST 0x033f ; Address of begin 0339 035c | \ | .CONST 0x035c ; Address of exception handler 033a 0002 | | .CONST 0x0002 ; Number of locals 033b INIT_0338: 033b 00da | | Load_Top At_Offset_2 033c e002 | | Load 0x0,0x2 033d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 033e 03f1 | | Declare_Variable Discrete,With_Value 033f BODY_0338: 033f 00db | | Load_Top At_Offset_3 0340 0f04 | | Execute_Immediate Equal,0x4 0341 6803 |h | Jump_Zero 0x345 0342 4800 |H | Short_Literal 0x0 0343 a238 | 8 | Store_Unchecked 0x1,0x38 0344 7809 |x | Jump 0x34e 0345 00db | | Load_Top At_Offset_3 0346 0f05 | | Execute_Immediate Equal,0x5 0347 6803 |h | Jump_Zero 0x34b 0348 4800 |H | Short_Literal 0x0 0349 a239 | 9 | Store_Unchecked 0x1,0x39 034a 7803 |x | Jump 0x34e 034b 00db | | Load_Top At_Offset_3 034c e232 | 2 | Load 0x1,0x32 034d 181f | | Execute Package,Field_Execute,Field_Number 0x1f 034e e01e | | Load 0x0,0x1e 034f 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0350 c5fe | | Store 0x2,-0x2 0351 e5fe | | Load 0x2,-0x2 0352 0120 | | Execute Any,Is_Value 0353 6803 |h | Jump_Zero 0x357 0354 e01e | | Load 0x0,0x1e 0355 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0356 7801 |x | Jump 0x358 0357 e5fe | | Load 0x2,-0x2 0358 e5ff | | Load 0x2,-0x1 0359 808d | | Call 0x0,0x8d 035a c5fe | | Store 0x2,-0x2 035b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 035c TRAP_0338: 035c 0007 | | Action Break_Optional 035d e21f | | Load 0x1,0x1f 035e e034 | 4 | Load 0x0,0x34 035f 180d | | Execute Package,Field_Execute,Field_Number 0xd 0360 01cc | | Execute Vector,Catenate 0361 e01e | | Load 0x0,0x1e 0362 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0363 c5fe | | Store 0x2,-0x2 0364 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0365 0000 0000 | | .XXX[0x3] 0367 0000 | | 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 036f | o | .CONST 0x036f ; Address of begin 0369 0004 | | .CONST 0x0004 ; Address of exception handler 036a 0002 | | .CONST 0x0002 ; Number of locals 036b INIT_0368: 036b 00da | | Load_Top At_Offset_2 036c e002 | | Load 0x0,0x2 036d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 036e 03f1 | | Declare_Variable Discrete,With_Value 036f BODY_0368: 036f 00db | | Load_Top At_Offset_3 0370 e232 | 2 | Load 0x1,0x32 0371 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0372 7009 |p | Jump_Nonzero 0x37c 0373 00db | | Load_Top At_Offset_3 0374 e5fe | | Load 0x2,-0x2 0375 e232 | 2 | Load 0x1,0x32 0376 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0377 e5fd | | Load 0x2,-0x3 0378 e01e | | Load 0x0,0x1e 0379 181a | | Execute Package,Field_Execute,Field_Number 0x1a 037a c5fd | | Store 0x2,-0x3 037b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 037c 00db | | Load_Top At_Offset_3 037d a235 | 5 | Store_Unchecked 0x1,0x35 037e 4801 |H | Short_Literal 0x1 037f a234 | 4 | Store_Unchecked 0x1,0x34 0380 00d8 | | Load_Top At_Offset_0 0381 e231 | 1 | Load 0x1,0x31 0382 e268 | h | Load 0x1,0x68 0383 e269 | i | Load 0x1,0x69 0384 1d6a | j | Execute_Immediate Reference_Lex_1,0x6a 0385 1d6b | k | Execute_Immediate Reference_Lex_1,0x6b 0386 1d6c | l | Execute_Immediate Reference_Lex_1,0x6c 0387 8014 | | Call 0x0,0x14 0388 0059 | Y | Store_Top Discrete,At_Offset_1 0389 00db | | Load_Top At_Offset_3 038a e232 | 2 | Load 0x1,0x32 038b 1820 | | Execute Package,Field_Execute,Field_Number 0x20 038c 00db | | Load_Top At_Offset_3 038d e5fe | | Load 0x2,-0x2 038e e232 | 2 | Load 0x1,0x32 038f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0390 e5fd | | Load 0x2,-0x3 0391 e01e | | Load 0x0,0x1e 0392 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0393 c5fd | | Store 0x2,-0x3 0394 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0395 0000 0000 | | .XXX[0x3] 0397 0000 | | 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 039b | | .CONST 0x039b ; Address of begin 0399 0004 | | .CONST 0x0004 ; Address of exception handler 039a 0001 | | .CONST 0x0001 ; Number of locals 039b BODY_0398: 039b INIT_0398: 039b e5fd | | Load 0x2,-0x3 039c e5fe | | Load 0x2,-0x2 039d e5ff | | Load 0x2,-0x1 039e e233 | 3 | Load 0x1,0x33 039f 180e | | Execute Package,Field_Execute,Field_Number 0xe 03a0 c5fd | | Store 0x2,-0x3 03a1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03a2 0000 0000 | | .BLANK 0000[0x6] 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; SUBPROGRAM 03a8 ; -------------------------------------------------------------------------------------- 03a8 03ab | | .CONST 0x03ab ; Address of begin 03a9 03b2 | | .CONST 0x03b2 ; Address of exception handler 03aa 0001 | | .CONST 0x0001 ; Number of locals 03ab BODY_03a8: 03ab INIT_03a8: 03ab 00da | | Load_Top At_Offset_2 03ac e232 | 2 | Load 0x1,0x32 03ad 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 03ae e01e | | Load 0x0,0x1e 03af 1819 | | Execute Package,Field_Execute,Field_Number 0x19 03b0 c5fe | | Store 0x2,-0x2 03b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03b2 TRAP_03a8: 03b2 0007 | | Action Break_Optional 03b3 0092 095f | _| Action Push_String_Extended,0x95f ; "Unable to set task interface subprogram" 03b5 e01e | | Load 0x0,0x1e 03b6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03b7 c5fe | | Store 0x2,-0x2 03b8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03b9 0000 0000 | | .BLANK 0000[0x7] 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; -------------------------------------------------------------------------------------- 03c0 03c5 | | .CONST 0x03c5 ; Address of begin 03c1 03d6 | | .CONST 0x03d6 ; Address of exception handler 03c2 0002 | | .CONST 0x0002 ; Number of locals 03c3 INIT_03c0: 03c3 029f 091b | | Declare_Subprogram INIT_0918,For_Call 03c5 BODY_03c0: 03c5 00db | | Load_Top At_Offset_3 03c6 808e | | Call 0x0,0x8e 03c7 6804 |h | Jump_Zero 0x3cc 03c8 e01e | | Load 0x0,0x1e 03c9 1819 | | Execute Package,Field_Execute,Field_Number 0x19 03ca c5fe | | Store 0x2,-0x2 03cb 7806 |x | Jump 0x3d2 03cc e5fe | | Load 0x2,-0x2 03cd 4801 |H | Short_Literal 0x1 03ce e5ff | | Load 0x2,-0x1 03cf e233 | 3 | Load 0x1,0x33 03d0 180e | | Execute Package,Field_Execute,Field_Number 0xe 03d1 c5fe | | Store 0x2,-0x2 03d2 00db | | Load_Top At_Offset_3 03d3 808f | | Call 0x0,0x8f 03d4 8402 | | Call 0x2,0x2 03d5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03d6 TRAP_03c0: 03d6 0007 | | Action Break_Optional 03d7 e5fe | | Load 0x2,-0x2 03d8 00ea | | Load_Encached Null_String_Cache 03d9 e034 | 4 | Load 0x0,0x34 03da 180d | | Execute Package,Field_Execute,Field_Number 0xd 03db 0092 0960 | `| Action Push_String_Extended,0x960 ; "Disable_Debugging exception" 03dd e01e | | Load 0x0,0x1e 03de 1817 | | Execute Package,Field_Execute,Field_Number 0x17 03df c5fe | | Store 0x2,-0x2 03e0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03e1 0000 0000 | | .BLANK 0000[0x7] 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03eb | | .CONST 0x03eb ; Address of begin 03e9 0004 | | .CONST 0x0004 ; Address of exception handler 03ea 0001 | | .CONST 0x0001 ; Number of locals 03eb BODY_03e8: 03eb INIT_03e8: 03eb e5fd | | Load 0x2,-0x3 03ec e228 | ( | Load 0x1,0x28 03ed 4801 |H | Short_Literal 0x1 03ee e5fe | | Load 0x2,-0x2 03ef e5ff | | Load 0x2,-0x1 03f0 826e | n | Call 0x1,0x6e 03f1 c5fd | | Store 0x2,-0x3 03f2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 a237 | 7 | Store_Unchecked 0x1,0x37 03fd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03fe 0000 0000 | | .XXX[0x2] 0400 ; -------------------------------------------------------------------------------------- 0400 ; SUBPROGRAM 0400 ; -------------------------------------------------------------------------------------- 0400 0403 | | .CONST 0x0403 ; Address of begin 0401 0004 | | .CONST 0x0004 ; Address of exception handler 0402 0001 | | .CONST 0x0001 ; Number of locals 0403 BODY_0400: 0403 INIT_0400: 0403 00e5 | | Load_Encached Long_Integer_Cache 0404 00e5 | | Load_Encached Long_Integer_Cache 0405 00e5 | | Load_Encached Long_Integer_Cache 0406 00e5 | | Load_Encached Long_Integer_Cache 0407 e232 | 2 | Load 0x1,0x32 0408 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0409 c5ff | | Store 0x2,-0x1 040a c5fe | | Store 0x2,-0x2 040b c5fd | | Store 0x2,-0x3 040c c5fc | | Store 0x2,-0x4 040d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 040e 0000 0000 | | .XXX[0x2] 0410 ; -------------------------------------------------------------------------------------- 0410 ; SUBPROGRAM 0410 ; -------------------------------------------------------------------------------------- 0410 0413 | | .CONST 0x0413 ; Address of begin 0411 0004 | | .CONST 0x0004 ; Address of exception handler 0412 0001 | | .CONST 0x0001 ; Number of locals 0413 BODY_0410: 0413 INIT_0410: 0413 00da | | Load_Top At_Offset_2 0414 e232 | 2 | Load 0x1,0x32 0415 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0416 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0417 0000 | | .XXX[0x1] 0418 ; -------------------------------------------------------------------------------------- 0418 ; SUBPROGRAM 0418 ; -------------------------------------------------------------------------------------- 0418 041b | | .CONST 0x041b ; Address of begin 0419 0004 | | .CONST 0x0004 ; Address of exception handler 041a 0001 | | .CONST 0x0001 ; Number of locals 041b BODY_0418: 041b INIT_0418: 041b e5fa | | Load 0x2,-0x6 041c e5fb | | Load 0x2,-0x5 041d 00e3 | | Load_Encached Natural_Cache 041e e5fd | | Load 0x2,-0x3 041f e5fe | | Load 0x2,-0x2 0420 e5ff | | Load 0x2,-0x1 0421 e232 | 2 | Load 0x1,0x32 0422 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0423 c5fc | | Store 0x2,-0x4 0424 00d1 | | Pop_Control Pop_Count_1 0425 c5fa | | Store 0x2,-0x6 0426 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0427 0000 | | .XXX[0x1] 0428 ; -------------------------------------------------------------------------------------- 0428 ; SUBPROGRAM 0428 ; -------------------------------------------------------------------------------------- 0428 042b | + | .CONST 0x042b ; Address of begin 0429 0004 | | .CONST 0x0004 ; Address of exception handler 042a 0001 | | .CONST 0x0001 ; Number of locals 042b BODY_0428: 042b INIT_0428: 042b 00da | | Load_Top At_Offset_2 042c e232 | 2 | Load 0x1,0x32 042d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 042e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 042f 0000 | | .XXX[0x1] 0430 ; -------------------------------------------------------------------------------------- 0430 ; SUBPROGRAM 0430 ; -------------------------------------------------------------------------------------- 0430 0433 | 3 | .CONST 0x0433 ; Address of begin 0431 0004 | | .CONST 0x0004 ; Address of exception handler 0432 0001 | | .CONST 0x0001 ; Number of locals 0433 BODY_0430: 0433 INIT_0430: 0433 e5fd | | Load 0x2,-0x3 0434 00e3 | | Load_Encached Natural_Cache 0435 e5ff | | Load 0x2,-0x1 0436 e232 | 2 | Load 0x1,0x32 0437 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0438 c5fe | | Store 0x2,-0x2 0439 c5fd | | Store 0x2,-0x3 043a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 043b 0000 0000 | | .BLANK 0000[0x5] 0440 ; -------------------------------------------------------------------------------------- 0440 ; SUBPROGRAM 0440 ; -------------------------------------------------------------------------------------- 0440 0443 | C | .CONST 0x0443 ; Address of begin 0441 0004 | | .CONST 0x0004 ; Address of exception handler 0442 0001 | | .CONST 0x0001 ; Number of locals 0443 BODY_0440: 0443 INIT_0440: 0443 e23a | : | Load 0x1,0x3a 0444 00ca | | Action Exit_Nullary_Function 0445 0000 0000 | | .XXX[0x3] 0447 0000 | | 0448 ; -------------------------------------------------------------------------------------- 0448 ; SUBPROGRAM 0448 ; -------------------------------------------------------------------------------------- 0448 044d | M | .CONST 0x044d ; Address of begin 0449 0004 | | .CONST 0x0004 ; Address of exception handler 044a 0002 | | .CONST 0x0002 ; Number of locals 044b INIT_0448: 044b 029f 0933 | 3| Declare_Subprogram INIT_0930,For_Call 044d BODY_0448: 044d 0092 0961 | a| Action Push_String_Extended,0x961 ; "*** Internal Error: " 044f e5ff | | Load 0x2,-0x1 0450 01cc | | Execute Vector,Catenate 0451 8090 | | Call 0x0,0x90 0452 8402 | | Call 0x2,0x2 0453 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0454 0000 0000 | | .BLANK 0000[0x4] 0458 ; -------------------------------------------------------------------------------------- 0458 ; SUBPROGRAM 0458 ; -------------------------------------------------------------------------------------- 0458 045b | [ | .CONST 0x045b ; Address of begin 0459 0004 | | .CONST 0x0004 ; Address of exception handler 045a 0001 | | .CONST 0x0001 ; Number of locals 045b BODY_0458: 045b INIT_0458: 045b 4801 |H | Short_Literal 0x1 045c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 045d 0000 0000 | | .XXX[0x3] 045f 0000 | | 0460 ; -------------------------------------------------------------------------------------- 0460 ; SUBPROGRAM 0460 ; -------------------------------------------------------------------------------------- 0460 0463 | c | .CONST 0x0463 ; Address of begin 0461 0004 | | .CONST 0x0004 ; Address of exception handler 0462 0001 | | .CONST 0x0001 ; Number of locals 0463 BODY_0460: 0463 INIT_0460: 0463 00da | | Load_Top At_Offset_2 0464 808e | | Call 0x0,0x8e 0465 0e02 | | Execute_Immediate Not_Equal,0x2 0466 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0467 0000 | | .XXX[0x1] 0468 ; -------------------------------------------------------------------------------------- 0468 ; SUBPROGRAM 0468 ; -------------------------------------------------------------------------------------- 0468 0472 | r | .CONST 0x0472 ; Address of begin 0469 0004 | | .CONST 0x0004 ; Address of exception handler 046a 0004 | | .CONST 0x0004 ; Number of locals 046b INIT_0468: 046b e012 | | Load 0x0,0x12 046c 0322 | " | Declare_Variable Record 046d 00d8 | | Load_Top At_Offset_0 046e 1c00 | | Execute_Immediate Run_Utility,0x0 046f 00e1 | | Load_Encached Boolean_Cache 0470 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0471 00e3 | | Load_Encached Natural_Cache 0472 BODY_0468: 0472 4801 |H | Short_Literal 0x1 0473 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0474 e5fc | | Load 0x2,-0x4 0475 e5ff | | Load 0x2,-0x1 0476 8091 | | Call 0x0,0x91 0477 00cf | | Action Mark_Auxiliary 0478 00d9 | | Load_Top At_Offset_1 0479 e5fd | | Load 0x2,-0x3 047a 027d | } | Execute Discrete,Greater 047b 704e |pN | Jump_Nonzero 0x4ca 047c 00db | | Load_Top At_Offset_3 047d 00da | | Load_Top At_Offset_2 047e e5fe | | Load 0x2,-0x2 047f 01d7 | | Execute Vector,Field_Read 0480 8092 | | Call 0x0,0x92 0481 00d1 | | Pop_Control Pop_Count_1 0482 00d9 | | Load_Top At_Offset_1 0483 e5fe | | Load 0x2,-0x2 0484 01d7 | | Execute Vector,Field_Read 0485 e5ff | | Load 0x2,-0x1 0486 8093 | | Call 0x0,0x93 0487 00db | | Load_Top At_Offset_3 0488 8094 | | Call 0x0,0x94 0489 4602 |F | Jump_Case 0x3 048a 7807 |x | Jump 0x492 ; case 0x0 048b 7835 |x5 | Jump 0x4c1 ; case 0x1 048c 7800 |x | Jump 0x48d ; case 0x2 048d 0092 0962 | b| Action Push_String_Extended,0x962 ; "Process: Special item on control list" 048f e095 | | Load 0x0,0x95 0490 180f | | Execute Package,Field_Execute,Field_Number 0xf 0491 7833 |x3 | Jump 0x4c5 0492 00db | | Load_Top At_Offset_3 0493 8087 | | Call 0x0,0x87 0494 4605 |F | Jump_Case 0x6 0495 780a |x | Jump 0x4a0 ; case 0x0 0496 7810 |x | Jump 0x4a7 ; case 0x1 0497 781d |x | Jump 0x4b5 ; case 0x2 0498 7823 |x# | Jump 0x4bc ; case 0x3 0499 7812 |x | Jump 0x4ac ; case 0x4 049a 7800 |x | Jump 0x49b ; case 0x5 049b 0092 0963 | c| Action Push_String_Extended,0x963 ; "Process: unknown class" 049d e095 | | Load 0x0,0x95 049e 180f | | Execute Package,Field_Execute,Field_Number 0xf 049f 7825 |x% | Jump 0x4c5 04a0 00e1 | | Load_Encached Boolean_Cache 04a1 4800 |H | Short_Literal 0x0 04a2 e5ff | | Load 0x2,-0x1 04a3 e233 | 3 | Load 0x1,0x33 04a4 180d | | Execute Package,Field_Execute,Field_Number 0xd 04a5 005b | [ | Store_Top Discrete,At_Offset_3 04a6 781e |x | Jump 0x4c5 04a7 0092 0964 | d| Action Push_String_Extended,0x964 ; "Profile unimplemented" 04a9 e095 | | Load 0x0,0x95 04aa 180f | | Execute Package,Field_Execute,Field_Number 0xf 04ab 7819 |x | Jump 0x4c5 04ac 00da | | Load_Top At_Offset_2 04ad 7017 |p | Jump_Nonzero 0x4c5 04ae 00e1 | | Load_Encached Boolean_Cache 04af 4801 |H | Short_Literal 0x1 04b0 e5ff | | Load 0x2,-0x1 04b1 e233 | 3 | Load 0x1,0x33 04b2 180d | | Execute Package,Field_Execute,Field_Number 0xd 04b3 005b | [ | Store_Top Discrete,At_Offset_3 04b4 7810 |x | Jump 0x4c5 04b5 00e1 | | Load_Encached Boolean_Cache 04b6 4800 |H | Short_Literal 0x0 04b7 e5ff | | Load 0x2,-0x1 04b8 e233 | 3 | Load 0x1,0x33 04b9 180d | | Execute Package,Field_Execute,Field_Number 0xd 04ba 005b | [ | Store_Top Discrete,At_Offset_3 04bb 7809 |x | Jump 0x4c5 04bc 0092 0965 | e| Action Push_String_Extended,0x965 ; "Continue unexpected" 04be e095 | | Load 0x0,0x95 04bf 180f | | Execute Package,Field_Execute,Field_Number 0xf 04c0 7804 |x | Jump 0x4c5 04c1 0092 0966 | f| Action Push_String_Extended,0x966 ; "Process: Exception item on control list" 04c3 e095 | | Load 0x0,0x95 04c4 180f | | Execute Package,Field_Execute,Field_Number 0xf 04c5 00d9 | | Load_Top At_Offset_1 04c6 0a01 | | Execute_Immediate Plus,0x1 04c7 005a | Z | Store_Top Discrete,At_Offset_2 04c8 00c9 | | Action Pop_Auxiliary_Loop 04c9 7fae | | Jump 0x478 04ca 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04cb 0000 0000 | | .BLANK 0000[0x5] 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; SUBPROGRAM 04d0 ; -------------------------------------------------------------------------------------- 04d0 04de | | .CONST 0x04de ; Address of begin 04d1 0004 | | .CONST 0x0004 ; Address of exception handler 04d2 0005 | | .CONST 0x0005 ; Number of locals 04d3 INIT_04d0: 04d3 e012 | | Load 0x0,0x12 04d4 0322 | " | Declare_Variable Record 04d5 00d8 | | Load_Top At_Offset_0 04d6 1c00 | | Execute_Immediate Run_Utility,0x0 04d7 e232 | 2 | Load 0x1,0x32 04d8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 04d9 e5fe | | Load 0x2,-0x2 04da e005 | | Load 0x0,0x5 04db 03f1 | | Declare_Variable Discrete,With_Value 04dc 00e1 | | Load_Encached Boolean_Cache 04dd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 04de BODY_04d0: 04de 4801 |H | Short_Literal 0x1 04df 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 04e0 e5fb | | Load 0x2,-0x5 04e1 e5ff | | Load 0x2,-0x1 04e2 8091 | | Call 0x0,0x91 04e3 e5fb | | Load 0x2,-0x5 04e4 8023 | # | Call 0x0,0x23 04e5 e5fe | | Load 0x2,-0x2 04e6 e5ff | | Load 0x2,-0x1 04e7 8096 | | Call 0x0,0x96 04e8 00cf | | Action Mark_Auxiliary 04e9 00db | | Load_Top At_Offset_3 04ea e5fc | | Load 0x2,-0x4 04eb 027d | } | Execute Discrete,Greater 04ec 704c |pL | Jump_Nonzero 0x539 04ed e402 | | Load 0x2,0x2 04ee e403 | | Load 0x2,0x3 04ef e5fd | | Load 0x2,-0x3 04f0 01d7 | | Execute Vector,Field_Read 04f1 8092 | | Call 0x0,0x92 04f2 00d1 | | Pop_Control Pop_Count_1 04f3 00db | | Load_Top At_Offset_3 04f4 e5fd | | Load 0x2,-0x3 04f5 01d7 | | Execute Vector,Field_Read 04f6 e5ff | | Load 0x2,-0x1 04f7 8093 | | Call 0x0,0x93 04f8 e402 | | Load 0x2,0x2 04f9 8094 | | Call 0x0,0x94 04fa 4602 |F | Jump_Case 0x3 04fb 7807 |x | Jump 0x503 ; case 0x0 04fc 780b |x | Jump 0x508 ; case 0x1 04fd 7800 |x | Jump 0x4fe ; case 0x2 04fe 0092 0967 | g| Action Push_String_Extended,0x967 ; "Process: Special item on exception list" 0500 e095 | | Load 0x0,0x95 0501 180f | | Execute Package,Field_Execute,Field_Number 0xf 0502 7831 |x1 | Jump 0x534 0503 0092 0968 | h| Action Push_String_Extended,0x968 ; "Process: Control item on exception list" 0505 e095 | | Load 0x0,0x95 0506 180f | | Execute Package,Field_Execute,Field_Number 0xf 0507 782c |x, | Jump 0x534 0508 e402 | | Load 0x2,0x2 0509 8087 | | Call 0x0,0x87 050a 4605 |F | Jump_Case 0x6 050b 780a |x | Jump 0x516 ; case 0x0 050c 7810 |x | Jump 0x51d ; case 0x1 050d 7814 |x | Jump 0x522 ; case 0x2 050e 7821 |x! | Jump 0x530 ; case 0x3 050f 7819 |x | Jump 0x529 ; case 0x4 0510 7800 |x | Jump 0x511 ; case 0x5 0511 0092 0969 | i| Action Push_String_Extended,0x969 ; "Process: Other_Action undefined" 0513 e095 | | Load 0x0,0x95 0514 180f | | Execute Package,Field_Execute,Field_Number 0xf 0515 781e |x | Jump 0x534 0516 00e1 | | Load_Encached Boolean_Cache 0517 4800 |H | Short_Literal 0x0 0518 e5ff | | Load 0x2,-0x1 0519 e233 | 3 | Load 0x1,0x33 051a 180d | | Execute Package,Field_Execute,Field_Number 0xd 051b 005a | Z | Store_Top Discrete,At_Offset_2 051c 7817 |x | Jump 0x534 051d 0092 0964 | d| Action Push_String_Extended,0x964 ; "Profile unimplemented" 051f e095 | | Load 0x0,0x95 0520 180f | | Execute Package,Field_Execute,Field_Number 0xf 0521 7812 |x | Jump 0x534 0522 00e1 | | Load_Encached Boolean_Cache 0523 4800 |H | Short_Literal 0x0 0524 e5ff | | Load 0x2,-0x1 0525 e233 | 3 | Load 0x1,0x33 0526 180d | | Execute Package,Field_Execute,Field_Number 0xd 0527 005a | Z | Store_Top Discrete,At_Offset_2 0528 780b |x | Jump 0x534 0529 00e1 | | Load_Encached Boolean_Cache 052a 4801 |H | Short_Literal 0x1 052b e5ff | | Load 0x2,-0x1 052c e233 | 3 | Load 0x1,0x33 052d 180d | | Execute Package,Field_Execute,Field_Number 0xd 052e 005a | Z | Store_Top Discrete,At_Offset_2 052f 7804 |x | Jump 0x534 0530 0092 096a | j| Action Push_String_Extended,0x96a ; "Process: Continue unexpected" 0532 e095 | | Load 0x0,0x95 0533 180f | | Execute Package,Field_Execute,Field_Number 0xf 0534 00db | | Load_Top At_Offset_3 0535 0a01 | | Execute_Immediate Plus,0x1 0536 c403 | | Store 0x2,0x3 0537 00c9 | | Action Pop_Auxiliary_Loop 0538 7fb0 | | Jump 0x4e9 0539 4505 |E | Exit_Suprogram New_Top_Offset 0x5 053a 0000 0000 | | .BLANK 0000[0x6] 0540 ; -------------------------------------------------------------------------------------- 0540 ; SUBPROGRAM 0540 ; -------------------------------------------------------------------------------------- 0540 0543 | C | .CONST 0x0543 ; Address of begin 0541 0004 | | .CONST 0x0004 ; Address of exception handler 0542 0001 | | .CONST 0x0001 ; Number of locals 0543 BODY_0540: 0543 INIT_0540: 0543 e236 | 6 | Load 0x1,0x36 0544 e5fe | | Load 0x2,-0x2 0545 380e |8 | Execute Record,Field_Write,Field_Number 0xe 0546 e235 | 5 | Load 0x1,0x35 0547 e5fe | | Load 0x2,-0x2 0548 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0549 e234 | 4 | Load 0x1,0x34 054a e5fe | | Load 0x2,-0x2 054b 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 054c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 054d 0000 0000 | | .XXX[0x3] 054f 0000 | | 0550 ; -------------------------------------------------------------------------------------- 0550 ; SUBPROGRAM 0550 ; -------------------------------------------------------------------------------------- 0550 0553 | S | .CONST 0x0553 ; Address of begin 0551 0004 | | .CONST 0x0004 ; Address of exception handler 0552 0001 | | .CONST 0x0001 ; Number of locals 0553 BODY_0550: 0553 INIT_0550: 0553 e5fd | | Load 0x2,-0x3 0554 00e2 | | Load_Encached Integer_Cache 0555 025e | ^ | Execute Discrete,Convert 0556 e5fe | | Load 0x2,-0x2 0557 e5ff | | Load 0x2,-0x1 0558 e00e | | Load 0x0,0xe 0559 1b15 | | Execute Package,Field_Read,Field_Number 0x15 055a 00d9 | | Load_Top At_Offset_1 055b 00d0 | | Action Swap_Control 055c 0260 | ` | Execute Discrete,In_Type 055d 7001 |p | Jump_Nonzero 0x55f 055e 0801 | | Execute_Immediate Raise,0x1 055f 8240 | @ | Call 0x1,0x40 0560 00d1 | | Pop_Control Pop_Count_1 0561 c5fd | | Store 0x2,-0x3 0562 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0563 0000 0000 | | .BLANK 0000[0x5] 0568 ; -------------------------------------------------------------------------------------- 0568 ; SUBPROGRAM 0568 ; -------------------------------------------------------------------------------------- 0568 056d | m | .CONST 0x056d ; Address of begin 0569 0004 | | .CONST 0x0004 ; Address of exception handler 056a 0002 | | .CONST 0x0002 ; Number of locals 056b INIT_0568: 056b 029f 0943 | C| Declare_Subprogram INIT_0940,For_Call 056d BODY_0568: 056d 8402 | | Call 0x2,0x2 056e e234 | 4 | Load 0x1,0x34 056f e236 | 6 | Load 0x1,0x36 0570 0278 | x | Execute Discrete,Or 0571 6808 |h | Jump_Zero 0x57a 0572 e231 | 1 | Load 0x1,0x31 0573 e5ff | | Load 0x2,-0x1 0574 e242 | B | Load 0x1,0x42 0575 1d43 | C | Execute_Immediate Reference_Lex_1,0x43 0576 e244 | D | Load 0x1,0x44 0577 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 0578 800f | | Call 0x0,0xf 0579 c231 | 1 | Store 0x1,0x31 057a 00db | | Load_Top At_Offset_3 057b e232 | 2 | Load 0x1,0x32 057c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 057d e5fe | | Load 0x2,-0x2 057e e05b | [ | Load 0x0,0x5b 057f 017f | | Execute Record,Equal 0580 7006 |p | Jump_Nonzero 0x587 0581 e5fe | | Load 0x2,-0x2 0582 8069 | i | Call 0x0,0x69 0583 00d1 | | Pop_Control Pop_Count_1 0584 e5fe | | Load 0x2,-0x2 0585 e5ff | | Load 0x2,-0x1 0586 8091 | | Call 0x0,0x91 0587 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0588 ; -------------------------------------------------------------------------------------- 0588 ; SUBPROGRAM 0588 ; -------------------------------------------------------------------------------------- 0588 058c | | .CONST 0x058c ; Address of begin 0589 0004 | | .CONST 0x0004 ; Address of exception handler 058a 0002 | | .CONST 0x0002 ; Number of locals 058b INIT_0588: 058b 00e1 | | Load_Encached Boolean_Cache 058c BODY_0588: 058c e238 | 8 | Load 0x1,0x38 058d 680a |h | Jump_Zero 0x598 058e 4804 |H | Short_Literal 0x4 058f e5ff | | Load 0x2,-0x1 0590 8093 | | Call 0x0,0x93 0591 00e1 | | Load_Encached Boolean_Cache 0592 4801 |H | Short_Literal 0x1 0593 e5ff | | Load 0x2,-0x1 0594 e233 | 3 | Load 0x1,0x33 0595 180d | | Execute Package,Field_Execute,Field_Number 0xd 0596 0059 | Y | Store_Top Discrete,At_Offset_1 0597 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0598 e239 | 9 | Load 0x1,0x39 0599 680a |h | Jump_Zero 0x5a4 059a 4805 |H | Short_Literal 0x5 059b e5ff | | Load 0x2,-0x1 059c 8093 | | Call 0x0,0x93 059d 00e1 | | Load_Encached Boolean_Cache 059e 4800 |H | Short_Literal 0x0 059f e5ff | | Load 0x2,-0x1 05a0 e233 | 3 | Load 0x1,0x33 05a1 180d | | Execute Package,Field_Execute,Field_Number 0xd 05a2 0059 | Y | Store_Top Discrete,At_Offset_1 05a3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05a4 e237 | 7 | Load 0x1,0x37 05a5 6809 |h | Jump_Zero 0x5af 05a6 4804 |H | Short_Literal 0x4 05a7 e5ff | | Load 0x2,-0x1 05a8 8093 | | Call 0x0,0x93 05a9 00e1 | | Load_Encached Boolean_Cache 05aa 4801 |H | Short_Literal 0x1 05ab e5ff | | Load 0x2,-0x1 05ac e233 | 3 | Load 0x1,0x33 05ad 180d | | Execute Package,Field_Execute,Field_Number 0xd 05ae 0059 | Y | Store_Top Discrete,At_Offset_1 05af 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05b0 ; -------------------------------------------------------------------------------------- 05b0 ; SUBPROGRAM 05b0 ; -------------------------------------------------------------------------------------- 05b0 05b3 | | .CONST 0x05b3 ; Address of begin 05b1 0004 | | .CONST 0x0004 ; Address of exception handler 05b2 0001 | | .CONST 0x0001 ; Number of locals 05b3 BODY_05b0: 05b3 INIT_05b0: 05b3 e238 | 8 | Load 0x1,0x38 05b4 e239 | 9 | Load 0x1,0x39 05b5 e237 | 7 | Load 0x1,0x37 05b6 0278 | x | Execute Discrete,Or 05b7 0278 | x | Execute Discrete,Or 05b8 00ca | | Action Exit_Nullary_Function 05b9 0000 0000 | | .BLANK 0000[0x7] 05c0 ; -------------------------------------------------------------------------------------- 05c0 ; SUBPROGRAM 05c0 ; -------------------------------------------------------------------------------------- 05c0 05c3 | | .CONST 0x05c3 ; Address of begin 05c1 0004 | | .CONST 0x0004 ; Address of exception handler 05c2 0001 | | .CONST 0x0001 ; Number of locals 05c3 BODY_05c0: 05c3 INIT_05c0: 05c3 00da | | Load_Top At_Offset_2 05c4 e003 | | Load 0x0,0x3 05c5 1817 | | Execute Package,Field_Execute,Field_Number 0x17 05c6 0aff | | Execute_Immediate Plus,-0x1 05c7 e003 | | Load 0x0,0x3 05c8 1b11 | | Execute Package,Field_Read,Field_Number 0x11 05c9 00d9 | | Load_Top At_Offset_1 05ca 00d0 | | Action Swap_Control 05cb 0260 | ` | Execute Discrete,In_Type 05cc 7001 |p | Jump_Nonzero 0x5ce 05cd 0801 | | Execute_Immediate Raise,0x1 05ce 00db | | Load_Top At_Offset_3 05cf e003 | | Load 0x0,0x3 05d0 1816 | | Execute Package,Field_Execute,Field_Number 0x16 05d1 e003 | | Load 0x0,0x3 05d2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 05d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 05d4 0000 0000 | | .BLANK 0000[0x4] 05d8 ; -------------------------------------------------------------------------------------- 05d8 ; SUBPROGRAM 05d8 ; -------------------------------------------------------------------------------------- 05d8 05eb | | .CONST 0x05eb ; Address of begin 05d9 0004 | | .CONST 0x0004 ; Address of exception handler 05da 0008 | | .CONST 0x0008 ; Number of locals 05db INIT_05d8: 05db e003 | | Load 0x0,0x3 05dc 1b10 | | Execute Package,Field_Read,Field_Number 0x10 05dd 00e1 | | Load_Encached Boolean_Cache 05de e054 | T | Load 0x0,0x54 05df 0322 | " | Declare_Variable Record 05e0 00d8 | | Load_Top At_Offset_0 05e1 1c00 | | Execute_Immediate Run_Utility,0x0 05e2 e003 | | Load 0x0,0x3 05e3 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 05e4 02c7 | | Declare_Variable Any 05e5 00d8 | | Load_Top At_Offset_0 05e6 1c00 | | Execute_Immediate Run_Utility,0x0 05e7 e097 | | Load 0x0,0x97 05e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05e9 00e3 | | Load_Encached Natural_Cache 05ea 00e1 | | Load_Encached Boolean_Cache 05eb BODY_05d8: 05eb 4800 |H | Short_Literal 0x0 05ec e5ff | | Load 0x2,-0x1 05ed 806b | k | Call 0x0,0x6b 05ee e5fc | | Load 0x2,-0x4 05ef e003 | | Load 0x0,0x3 05f0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 05f1 0afe | | Execute_Immediate Plus,-0x2 05f2 e003 | | Load 0x0,0x3 05f3 1b11 | | Execute Package,Field_Read,Field_Number 0x11 05f4 00d9 | | Load_Top At_Offset_1 05f5 00d0 | | Action Swap_Control 05f6 0260 | ` | Execute Discrete,In_Type 05f7 7001 |p | Jump_Nonzero 0x5f9 05f8 0801 | | Execute_Immediate Raise,0x1 05f9 e5fc | | Load 0x2,-0x4 05fa e003 | | Load 0x0,0x3 05fb 1816 | | Execute Package,Field_Execute,Field_Number 0x16 05fc e003 | | Load 0x0,0x3 05fd 1814 | | Execute Package,Field_Execute,Field_Number 0x14 05fe a402 | | Store_Unchecked 0x2,0x2 05ff e402 | | Load 0x2,0x2 0600 0f07 | | Execute_Immediate Equal,0x7 0601 6811 |h | Jump_Zero 0x613 0602 e5fc | | Load 0x2,-0x4 0603 e003 | | Load 0x0,0x3 0604 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0605 0afd | | Execute_Immediate Plus,-0x3 0606 e003 | | Load 0x0,0x3 0607 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0608 00d9 | | Load_Top At_Offset_1 0609 00d0 | | Action Swap_Control 060a 0260 | ` | Execute Discrete,In_Type 060b 7001 |p | Jump_Nonzero 0x60d 060c 0801 | | Execute_Immediate Raise,0x1 060d e5fc | | Load 0x2,-0x4 060e e003 | | Load 0x0,0x3 060f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0610 e003 | | Load 0x0,0x3 0611 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0612 a402 | | Store_Unchecked 0x2,0x2 0613 e402 | | Load 0x2,0x2 0614 00d8 | | Load_Top At_Offset_0 0615 0c09 | | Execute_Immediate Greater_Equal,0x9 0616 703f |p? | Jump_Nonzero 0x656 0617 4608 |F | Jump_Case 0x9 0618 7846 |xF | Jump 0x65f ; case 0x0 0619 7807 |x | Jump 0x621 ; case 0x1 061a 7867 |xg | Jump 0x682 ; case 0x2 061b 7879 |xy | Jump 0x695 ; case 0x3 061c 783a |x: | Jump 0x657 ; case 0x4 061d 7839 |x9 | Jump 0x657 ; case 0x5 061e 7838 |x8 | Jump 0x657 ; case 0x6 061f 7837 |x7 | Jump 0x657 ; case 0x7 0620 7800 |x | Jump 0x621 ; case 0x8 0621 e5fd | | Load 0x2,-0x3 0622 e00a | | Load 0x0,0xa 0623 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0624 e5fe | | Load 0x2,-0x2 0625 e003 | | Load 0x0,0x3 0626 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 0627 c405 | | Store 0x2,0x5 0628 00db | | Load_Top At_Offset_3 0629 e00a | | Load 0x0,0xa 062a 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 062b e5fe | | Load 0x2,-0x2 062c e003 | | Load 0x0,0x3 062d 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 062e c405 | | Store 0x2,0x5 062f 00db | | Load_Top At_Offset_3 0630 e00a | | Load 0x0,0xa 0631 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0632 e5fe | | Load 0x2,-0x2 0633 e003 | | Load 0x0,0x3 0634 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 0635 c405 | | Store 0x2,0x5 0636 e404 | | Load 0x2,0x4 0637 e405 | | Load 0x2,0x5 0638 e22f | / | Load 0x1,0x2f 0639 e5fe | | Load 0x2,-0x2 063a e003 | | Load 0x0,0x3 063b 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 063c 824a | J | Call 0x1,0x4a 063d 8055 | U | Call 0x0,0x55 063e 00d1 | | Pop_Control Pop_Count_1 063f e404 | | Load 0x2,0x4 0640 e405 | | Load 0x2,0x5 0641 8056 | V | Call 0x0,0x56 0642 00d1 | | Pop_Control Pop_Count_1 0643 e404 | | Load 0x2,0x4 0644 8069 | i | Call 0x0,0x69 0645 00d1 | | Pop_Control Pop_Count_1 0646 e404 | | Load 0x2,0x4 0647 806a | j | Call 0x0,0x6a 0648 00d1 | | Pop_Control Pop_Count_1 0649 e404 | | Load 0x2,0x4 064a e5ff | | Load 0x2,-0x1 064b 8091 | | Call 0x0,0x91 064c 4809 |H | Short_Literal 0x9 064d e5ff | | Load 0x2,-0x1 064e 8093 | | Call 0x0,0x93 064f 00e1 | | Load_Encached Boolean_Cache 0650 4801 |H | Short_Literal 0x1 0651 e5ff | | Load 0x2,-0x1 0652 e233 | 3 | Load 0x1,0x33 0653 180d | | Execute Package,Field_Execute,Field_Number 0xd 0654 c403 | | Store 0x2,0x3 0655 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0656 00d1 | | Pop_Control Pop_Count_1 0657 0092 096b | k| Action Push_String_Extended,0x96b ; "Illegal internal call: " 0659 e402 | | Load 0x2,0x2 065a 00e0 | | Load_Encached Standard_Cache 065b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 065c 01cc | | Execute Vector,Catenate 065d 8090 | | Call 0x0,0x90 065e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 065f e5ff | | Load 0x2,-0x1 0660 a23a | : | Store_Unchecked 0x1,0x3a 0661 e5fd | | Load 0x2,-0x3 0662 c405 | | Store 0x2,0x5 0663 e404 | | Load 0x2,0x4 0664 e405 | | Load 0x2,0x5 0665 e22f | / | Load 0x1,0x2f 0666 e5fe | | Load 0x2,-0x2 0667 e003 | | Load 0x0,0x3 0668 1855 | U | Execute Package,Field_Execute,Field_Number 0x55 0669 8055 | U | Call 0x0,0x55 066a 00d1 | | Pop_Control Pop_Count_1 066b e404 | | Load 0x2,0x4 066c e405 | | Load 0x2,0x5 066d 8056 | V | Call 0x0,0x56 066e 00d1 | | Pop_Control Pop_Count_1 066f e404 | | Load 0x2,0x4 0670 8069 | i | Call 0x0,0x69 0671 00d1 | | Pop_Control Pop_Count_1 0672 e404 | | Load 0x2,0x4 0673 806a | j | Call 0x0,0x6a 0674 00d1 | | Pop_Control Pop_Count_1 0675 e404 | | Load 0x2,0x4 0676 e5ff | | Load 0x2,-0x1 0677 8091 | | Call 0x0,0x91 0678 4804 |H | Short_Literal 0x4 0679 e5ff | | Load 0x2,-0x1 067a 8093 | | Call 0x0,0x93 067b 00e1 | | Load_Encached Boolean_Cache 067c 4801 |H | Short_Literal 0x1 067d e5ff | | Load 0x2,-0x1 067e e233 | 3 | Load 0x1,0x33 067f 180d | | Execute Package,Field_Execute,Field_Number 0xd 0680 c403 | | Store 0x2,0x3 0681 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0682 00e1 | | Load_Encached Boolean_Cache 0683 00e3 | | Load_Encached Natural_Cache 0684 e097 | | Load 0x0,0x97 0685 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0686 e5fc | | Load 0x2,-0x4 0687 e003 | | Load 0x0,0x3 0688 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0689 8098 | | Call 0x0,0x98 068a c406 | | Store 0x2,0x6 068b 005b | [ | Store_Top Discrete,At_Offset_3 068c 0059 | Y | Store_Top Discrete,At_Offset_1 068d 00d9 | | Load_Top At_Offset_1 068e 00db | | Load_Top At_Offset_3 068f e5fd | | Load 0x2,-0x3 0690 e5fc | | Load 0x2,-0x4 0691 e003 | | Load 0x0,0x3 0692 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0693 8099 | | Call 0x0,0x99 0694 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0695 e5fd | | Load 0x2,-0x3 0696 e00a | | Load 0x0,0xa 0697 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0698 e5fe | | Load 0x2,-0x2 0699 e003 | | Load 0x0,0x3 069a 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 069b c405 | | Store 0x2,0x5 069c 00e1 | | Load_Encached Boolean_Cache 069d 00e3 | | Load_Encached Natural_Cache 069e e097 | | Load 0x0,0x97 069f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06a0 e5fc | | Load 0x2,-0x4 06a1 e003 | | Load 0x0,0x3 06a2 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06a3 8098 | | Call 0x0,0x98 06a4 c406 | | Store 0x2,0x6 06a5 005b | [ | Store_Top Discrete,At_Offset_3 06a6 0059 | Y | Store_Top Discrete,At_Offset_1 06a7 00d9 | | Load_Top At_Offset_1 06a8 00db | | Load_Top At_Offset_3 06a9 e405 | | Load 0x2,0x5 06aa e5fc | | Load 0x2,-0x4 06ab e003 | | Load 0x0,0x3 06ac 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06ad 809a | | Call 0x0,0x9a 06ae 4505 |E | Exit_Suprogram New_Top_Offset 0x5 06af 0000 | | .XXX[0x1] 06b0 ; -------------------------------------------------------------------------------------- 06b0 ; SUBPROGRAM 06b0 ; -------------------------------------------------------------------------------------- 06b0 06b5 | | .CONST 0x06b5 ; Address of begin 06b1 0004 | | .CONST 0x0004 ; Address of exception handler 06b2 0002 | | .CONST 0x0002 ; Number of locals 06b3 INIT_06b0: 06b3 e003 | | Load 0x0,0x3 06b4 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 06b5 BODY_06b0: 06b5 e5fe | | Load 0x2,-0x2 06b6 809b | | Call 0x0,0x9b 06b7 4603 |F | Jump_Case 0x4 06b8 7806 |x | Jump 0x6bf ; case 0x0 06b9 780f |x | Jump 0x6c9 ; case 0x1 06ba 7801 |x | Jump 0x6bc ; case 0x2 06bb 7800 |x | Jump 0x6bc ; case 0x3 06bc 601b |` | Indirect_Literal Discrete,0x6d8,{0x00000000, 0x000fffff} 06bd 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 06be 7814 |x | Jump 0x6d3 06bf 00db | | Load_Top At_Offset_3 06c0 8030 | 0 | Call 0x0,0x30 06c1 809c | | Call 0x0,0x9c 06c2 e003 | | Load 0x0,0x3 06c3 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 06c4 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 06c5 00d8 | | Load_Top At_Offset_0 06c6 0a01 | | Execute_Immediate Plus,0x1 06c7 0059 | Y | Store_Top Discrete,At_Offset_1 06c8 780a |x | Jump 0x6d3 06c9 00db | | Load_Top At_Offset_3 06ca 8030 | 0 | Call 0x0,0x30 06cb 809c | | Call 0x0,0x9c 06cc e003 | | Load 0x0,0x3 06cd 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 06ce 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 06cf 00d8 | | Load_Top At_Offset_0 06d0 7002 |p | Jump_Nonzero 0x6d3 06d1 e225 | % | Load 0x1,0x25 06d2 0257 | W | Execute Discrete,Raise 06d3 00d8 | | Load_Top At_Offset_0 06d4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 06d5 0000 0000 | | .XXX[0x3] 06d7 0000 | | 06d8 0000 0000 | | .LITERAL {0x00000000, 0x000fffff} 06dc 0000 0000 | | .BLANK 0000[0x4] 06e0 ; -------------------------------------------------------------------------------------- 06e0 ; SUBPROGRAM 06e0 ; -------------------------------------------------------------------------------------- 06e0 06e3 | | .CONST 0x06e3 ; Address of begin 06e1 0004 | | .CONST 0x0004 ; Address of exception handler 06e2 0001 | | .CONST 0x0001 ; Number of locals 06e3 BODY_06e0: 06e3 INIT_06e0: 06e3 00da | | Load_Top At_Offset_2 06e4 8094 | | Call 0x0,0x94 06e5 702a |p* | Jump_Nonzero 0x710 06e6 00da | | Load_Top At_Offset_2 06e7 8087 | | Call 0x0,0x87 06e8 0f04 | | Execute_Immediate Equal,0x4 06e9 6824 |h$ | Jump_Zero 0x70e 06ea 00da | | Load_Top At_Offset_2 06eb 8082 | | Call 0x0,0x82 06ec e22e | . | Load 0x1,0x2e 06ed 017f | | Execute Record,Equal 06ee 681d |h | Jump_Zero 0x70c 06ef 00da | | Load_Top At_Offset_2 06f0 8084 | | Call 0x0,0x84 06f1 e230 | 0 | Load 0x1,0x30 06f2 017f | | Execute Record,Equal 06f3 6816 |h | Jump_Zero 0x70a 06f4 00da | | Load_Top At_Offset_2 06f5 8083 | | Call 0x0,0x83 06f6 e22d | - | Load 0x1,0x2d 06f7 027f | | Execute Discrete,Equal 06f8 680f |h | Jump_Zero 0x708 06f9 00da | | Load_Top At_Offset_2 06fa 8081 | | Call 0x0,0x81 06fb 0f01 | | Execute_Immediate Equal,0x1 06fc 6809 |h | Jump_Zero 0x706 06fd 00da | | Load_Top At_Offset_2 06fe 809b | | Call 0x0,0x9b 06ff 0f02 | | Execute_Immediate Equal,0x2 0700 6803 |h | Jump_Zero 0x704 0701 00da | | Load_Top At_Offset_2 0702 809d | | Call 0x0,0x9d 0703 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0704 4800 |H | Short_Literal 0x0 0705 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0706 4800 |H | Short_Literal 0x0 0707 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0708 4800 |H | Short_Literal 0x0 0709 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 070a 4800 |H | Short_Literal 0x0 070b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 070c 4800 |H | Short_Literal 0x0 070d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 070e 4800 |H | Short_Literal 0x0 070f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0710 4800 |H | Short_Literal 0x0 0711 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0712 0000 0000 | | .BLANK 0000[0x6] 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 8094 | | Call 0x0,0x94 071d 7025 |p% | Jump_Nonzero 0x743 071e 00da | | Load_Top At_Offset_2 071f 8087 | | Call 0x0,0x87 0720 0f04 | | Execute_Immediate Equal,0x4 0721 681f |h | Jump_Zero 0x741 0722 00da | | Load_Top At_Offset_2 0723 8082 | | Call 0x0,0x82 0724 e22e | . | Load 0x1,0x2e 0725 017f | | Execute Record,Equal 0726 6818 |h | Jump_Zero 0x73f 0727 00da | | Load_Top At_Offset_2 0728 8084 | | Call 0x0,0x84 0729 e230 | 0 | Load 0x1,0x30 072a 017f | | Execute Record,Equal 072b 6811 |h | Jump_Zero 0x73d 072c 00da | | Load_Top At_Offset_2 072d 8083 | | Call 0x0,0x83 072e e22d | - | Load 0x1,0x2d 072f 027f | | Execute Discrete,Equal 0730 680a |h | Jump_Zero 0x73b 0731 00da | | Load_Top At_Offset_2 0732 807e | ~ | Call 0x0,0x7e 0733 807f | | Call 0x0,0x7f 0734 6804 |h | Jump_Zero 0x739 0735 00da | | Load_Top At_Offset_2 0736 809d | | Call 0x0,0x9d 0737 0f00 | | Execute_Immediate Equal,0x0 0738 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0739 4800 |H | Short_Literal 0x0 073a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 073b 4800 |H | Short_Literal 0x0 073c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 073d 4800 |H | Short_Literal 0x0 073e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 073f 4800 |H | Short_Literal 0x0 0740 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0741 4800 |H | Short_Literal 0x0 0742 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0743 4800 |H | Short_Literal 0x0 0744 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0745 0000 0000 | | .XXX[0x3] 0747 0000 | | 0748 ; -------------------------------------------------------------------------------------- 0748 ; SUBPROGRAM 0748 ; -------------------------------------------------------------------------------------- 0748 074b | K | .CONST 0x074b ; Address of begin 0749 0004 | | .CONST 0x0004 ; Address of exception handler 074a 0001 | | .CONST 0x0001 ; Number of locals 074b BODY_0748: 074b INIT_0748: 074b 00da | | Load_Top At_Offset_2 074c 8094 | | Call 0x0,0x94 074d 7017 |p | Jump_Nonzero 0x765 074e 00da | | Load_Top At_Offset_2 074f 8087 | | Call 0x0,0x87 0750 0f04 | | Execute_Immediate Equal,0x4 0751 6811 |h | Jump_Zero 0x763 0752 00da | | Load_Top At_Offset_2 0753 8084 | | Call 0x0,0x84 0754 e230 | 0 | Load 0x1,0x30 0755 017e | ~ | Execute Record,Not_Equal 0756 6805 |h | Jump_Zero 0x75c 0757 00da | | Load_Top At_Offset_2 0758 8083 | | Call 0x0,0x83 0759 e22d | - | Load 0x1,0x2d 075a 027e | ~ | Execute Discrete,Not_Equal 075b 7005 |p | Jump_Nonzero 0x761 075c 00da | | Load_Top At_Offset_2 075d 807e | ~ | Call 0x0,0x7e 075e 807f | | Call 0x0,0x7f 075f 0f00 | | Execute_Immediate Equal,0x0 0760 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0761 4801 |H | Short_Literal 0x1 0762 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0763 4800 |H | Short_Literal 0x0 0764 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0765 4800 |H | Short_Literal 0x0 0766 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0767 0000 | | .XXX[0x1] 0768 ; -------------------------------------------------------------------------------------- 0768 ; SUBPROGRAM 0768 ; -------------------------------------------------------------------------------------- 0768 076b | k | .CONST 0x076b ; Address of begin 0769 0004 | | .CONST 0x0004 ; Address of exception handler 076a 0001 | | .CONST 0x0001 ; Number of locals 076b BODY_0768: 076b INIT_0768: 076b 00da | | Load_Top At_Offset_2 076c 8094 | | Call 0x0,0x94 076d 7004 |p | Jump_Nonzero 0x772 076e 00da | | Load_Top At_Offset_2 076f 8087 | | Call 0x0,0x87 0770 0f02 | | Execute_Immediate Equal,0x2 0771 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0772 4800 |H | Short_Literal 0x0 0773 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0774 0000 0000 | | .BLANK 0000[0x4] 0778 ; -------------------------------------------------------------------------------------- 0778 ; SUBPROGRAM 0778 ; -------------------------------------------------------------------------------------- 0778 077b | { | .CONST 0x077b ; Address of begin 0779 0004 | | .CONST 0x0004 ; Address of exception handler 077a 0001 | | .CONST 0x0001 ; Number of locals 077b BODY_0778: 077b INIT_0778: 077b 00da | | Load_Top At_Offset_2 077c 8094 | | Call 0x0,0x94 077d 7004 |p | Jump_Nonzero 0x782 077e 00da | | Load_Top At_Offset_2 077f 8087 | | Call 0x0,0x87 0780 0f00 | | Execute_Immediate Equal,0x0 0781 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0782 4800 |H | Short_Literal 0x0 0783 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0784 0000 0000 | | .BLANK 0000[0x4] 0788 ; -------------------------------------------------------------------------------------- 0788 ; SUBPROGRAM 0788 ; -------------------------------------------------------------------------------------- 0788 078b | | .CONST 0x078b ; Address of begin 0789 0004 | | .CONST 0x0004 ; Address of exception handler 078a 0001 | | .CONST 0x0001 ; Number of locals 078b BODY_0788: 078b INIT_0788: 078b 00da | | Load_Top At_Offset_2 078c 8094 | | Call 0x0,0x94 078d 0f01 | | Execute_Immediate Equal,0x1 078e 6804 |h | Jump_Zero 0x793 078f 00da | | Load_Top At_Offset_2 0790 8087 | | Call 0x0,0x87 0791 0f02 | | Execute_Immediate Equal,0x2 0792 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0793 4800 |H | Short_Literal 0x0 0794 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0795 0000 0000 | | .XXX[0x3] 0797 0000 | | 0798 ; -------------------------------------------------------------------------------------- 0798 ; SUBPROGRAM 0798 ; -------------------------------------------------------------------------------------- 0798 079b | | .CONST 0x079b ; Address of begin 0799 0004 | | .CONST 0x0004 ; Address of exception handler 079a 0001 | | .CONST 0x0001 ; Number of locals 079b BODY_0798: 079b INIT_0798: 079b 00da | | Load_Top At_Offset_2 079c 8094 | | Call 0x0,0x94 079d 0f01 | | Execute_Immediate Equal,0x1 079e 6804 |h | Jump_Zero 0x7a3 079f 00da | | Load_Top At_Offset_2 07a0 8087 | | Call 0x0,0x87 07a1 0f00 | | Execute_Immediate Equal,0x0 07a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07a3 4800 |H | Short_Literal 0x0 07a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07a5 0000 0000 | | .XXX[0x3] 07a7 0000 | | 07a8 ; -------------------------------------------------------------------------------------- 07a8 ; SUBPROGRAM 07a8 ; -------------------------------------------------------------------------------------- 07a8 07ab | | .CONST 0x07ab ; Address of begin 07a9 0004 | | .CONST 0x0004 ; Address of exception handler 07aa 0001 | | .CONST 0x0001 ; Number of locals 07ab BODY_07a8: 07ab INIT_07a8: 07ab 00da | | Load_Top At_Offset_2 07ac 8094 | | Call 0x0,0x94 07ad 0f01 | | Execute_Immediate Equal,0x1 07ae 680a |h | Jump_Zero 0x7b9 07af 00da | | Load_Top At_Offset_2 07b0 8087 | | Call 0x0,0x87 07b1 0f04 | | Execute_Immediate Equal,0x4 07b2 7004 |p | Jump_Nonzero 0x7b7 07b3 00da | | Load_Top At_Offset_2 07b4 8087 | | Call 0x0,0x87 07b5 0f03 | | Execute_Immediate Equal,0x3 07b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07b7 4801 |H | Short_Literal 0x1 07b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07b9 4800 |H | Short_Literal 0x0 07ba 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07bb 0000 0000 | | .BLANK 0000[0x5] 07c0 ; -------------------------------------------------------------------------------------- 07c0 ; SUBPROGRAM 07c0 ; -------------------------------------------------------------------------------------- 07c0 07c3 | | .CONST 0x07c3 ; Address of begin 07c1 0004 | | .CONST 0x0004 ; Address of exception handler 07c2 0001 | | .CONST 0x0001 ; Number of locals 07c3 BODY_07c0: 07c3 INIT_07c0: 07c3 00da | | Load_Top At_Offset_2 07c4 8087 | | Call 0x0,0x87 07c5 0f01 | | Execute_Immediate Equal,0x1 07c6 7001 |p | Jump_Nonzero 0x7c8 07c7 7802 |x | Jump 0x7ca 07c8 e227 | ' | Load 0x1,0x27 07c9 0257 | W | Execute Discrete,Raise 07ca 00da | | Load_Top At_Offset_2 07cb 8094 | | Call 0x0,0x94 07cc 4801 |H | Short_Literal 0x1 07cd 4802 |H | Short_Literal 0x2 07ce 0262 | b | Execute Discrete,In_Range 07cf 7019 |p | Jump_Nonzero 0x7e9 07d0 7800 |x | Jump 0x7d1 07d1 00da | | Load_Top At_Offset_2 07d2 808a | | Call 0x0,0x8a 07d3 460a |F | Jump_Case 0xb 07d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x0 07d5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1 07d6 780a |x | Jump 0x7e1 ; case 0x2 07d7 7807 |x | Jump 0x7df ; case 0x3 07d8 7806 |x | Jump 0x7df ; case 0x4 07d9 7809 |x | Jump 0x7e3 ; case 0x5 07da 780a |x | Jump 0x7e5 ; case 0x6 07db 7803 |x | Jump 0x7df ; case 0x7 07dc 780a |x | Jump 0x7e7 ; case 0x8 07dd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x9 07de 7800 |x | Jump 0x7df ; case 0xa 07df e227 | ' | Load 0x1,0x27 07e0 0257 | W | Execute Discrete,Raise 07e1 e227 | ' | Load 0x1,0x27 07e2 0257 | W | Execute Discrete,Raise 07e3 e227 | ' | Load 0x1,0x27 07e4 0257 | W | Execute Discrete,Raise 07e5 e227 | ' | Load 0x1,0x27 07e6 0257 | W | Execute Discrete,Raise 07e7 e227 | ' | Load 0x1,0x27 07e8 0257 | W | Execute Discrete,Raise 07e9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07ea 0000 0000 | | .BLANK 0000[0x6] 07f0 ; -------------------------------------------------------------------------------------- 07f0 ; SUBPROGRAM 07f0 ; -------------------------------------------------------------------------------------- 07f0 07f8 | | .CONST 0x07f8 ; Address of begin 07f1 0004 | | .CONST 0x0004 ; Address of exception handler 07f2 0002 | | .CONST 0x0002 ; Number of locals 07f3 INIT_07f0: 07f3 e5fd | | Load 0x2,-0x3 07f4 807c | | | Call 0x0,0x7c 07f5 e002 | | Load 0x0,0x2 07f6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 07f7 03f1 | | Declare_Variable Discrete,With_Value 07f8 BODY_07f0: 07f8 e5fd | | Load 0x2,-0x3 07f9 824e | N | Call 0x1,0x4e 07fa 6821 |h! | Jump_Zero 0x81c 07fb e5fd | | Load 0x2,-0x3 07fc 808a | | Call 0x0,0x8a 07fd 0f09 | | Execute_Immediate Equal,0x9 07fe 680c |h | Jump_Zero 0x80b 07ff 00d8 | | Load_Top At_Offset_0 0800 e5fd | | Load 0x2,-0x3 0801 8081 | | Call 0x0,0x81 0802 00d8 | | Load_Top At_Offset_0 0803 00e4 | | Load_Encached Positive_Cache 0804 0260 | ` | Execute Discrete,In_Type 0805 7001 |p | Jump_Nonzero 0x807 0806 0801 | | Execute_Immediate Raise,0x1 0807 e5ff | | Load 0x2,-0x1 0808 e232 | 2 | Load 0x1,0x32 0809 181a | | Execute Package,Field_Execute,Field_Number 0x1a 080a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 080b e5fe | | Load 0x2,-0x2 080c 00d9 | | Load_Top At_Offset_1 080d e5fd | | Load 0x2,-0x3 080e e5ff | | Load 0x2,-0x1 080f 824c | L | Call 0x1,0x4c 0810 e5fd | | Load 0x2,-0x3 0811 8081 | | Call 0x0,0x81 0812 00d8 | | Load_Top At_Offset_0 0813 00e4 | | Load_Encached Positive_Cache 0814 0260 | ` | Execute Discrete,In_Type 0815 7001 |p | Jump_Nonzero 0x817 0816 0801 | | Execute_Immediate Raise,0x1 0817 e5ff | | Load 0x2,-0x1 0818 e232 | 2 | Load 0x1,0x32 0819 1815 | | Execute Package,Field_Execute,Field_Number 0x15 081a 00d1 | | Pop_Control Pop_Count_1 081b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 081c e5fd | | Load 0x2,-0x3 081d 824d | M | Call 0x1,0x4d 081e 6808 |h | Jump_Zero 0x827 081f 00d8 | | Load_Top At_Offset_0 0820 e5fe | | Load 0x2,-0x2 0821 e5ff | | Load 0x2,-0x1 0822 e232 | 2 | Load 0x1,0x32 0823 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0824 00d1 | | Pop_Control Pop_Count_1 0825 0059 | Y | Store_Top Discrete,At_Offset_1 0826 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0827 e5fd | | Load 0x2,-0x3 0828 824f | O | Call 0x1,0x4f 0829 6831 |h1 | Jump_Zero 0x85b 082a e5fd | | Load 0x2,-0x3 082b 807e | ~ | Call 0x0,0x7e 082c 807f | | Call 0x0,0x7f 082d 6819 |h | Jump_Zero 0x847 082e 00d8 | | Load_Top At_Offset_0 082f e5fd | | Load 0x2,-0x3 0830 8080 | | Call 0x0,0x80 0831 0f00 | | Execute_Immediate Equal,0x0 0832 e5fd | | Load 0x2,-0x3 0833 8081 | | Call 0x0,0x81 0834 00d8 | | Load_Top At_Offset_0 0835 00e4 | | Load_Encached Positive_Cache 0836 0260 | ` | Execute Discrete,In_Type 0837 7001 |p | Jump_Nonzero 0x839 0838 0801 | | Execute_Immediate Raise,0x1 0839 e5fd | | Load 0x2,-0x3 083a 8082 | | Call 0x0,0x82 083b e5fd | | Load 0x2,-0x3 083c 8083 | | Call 0x0,0x83 083d e5fd | | Load 0x2,-0x3 083e 8084 | | Call 0x0,0x84 083f e5fd | | Load 0x2,-0x3 0840 8085 | | Call 0x0,0x85 0841 8086 | | Call 0x0,0x86 0842 8049 | I | Call 0x0,0x49 0843 e5ff | | Load 0x2,-0x1 0844 e232 | 2 | Load 0x1,0x32 0845 180f | | Execute Package,Field_Execute,Field_Number 0xf 0846 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0847 00d8 | | Load_Top At_Offset_0 0848 e5fd | | Load 0x2,-0x3 0849 8080 | | Call 0x0,0x80 084a 0f00 | | Execute_Immediate Equal,0x0 084b e5fd | | Load 0x2,-0x3 084c 8081 | | Call 0x0,0x81 084d 00d8 | | Load_Top At_Offset_0 084e 00e4 | | Load_Encached Positive_Cache 084f 0260 | ` | Execute Discrete,In_Type 0850 7001 |p | Jump_Nonzero 0x852 0851 0801 | | Execute_Immediate Raise,0x1 0852 e5fd | | Load 0x2,-0x3 0853 8082 | | Call 0x0,0x82 0854 e5fd | | Load 0x2,-0x3 0855 807e | ~ | Call 0x0,0x7e 0856 8037 | 7 | Call 0x0,0x37 0857 e5ff | | Load 0x2,-0x1 0858 e232 | 2 | Load 0x1,0x32 0859 180f | | Execute Package,Field_Execute,Field_Number 0xf 085a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 085b e5fd | | Load 0x2,-0x3 085c 8250 | P | Call 0x1,0x50 085d 6812 |h | Jump_Zero 0x870 085e e5fe | | Load 0x2,-0x2 085f e5fd | | Load 0x2,-0x3 0860 807d | } | Call 0x0,0x7d 0861 8036 | 6 | Call 0x0,0x36 0862 00da | | Load_Top At_Offset_2 0863 e5fd | | Load 0x2,-0x3 0864 8083 | | Call 0x0,0x83 0865 e5fd | | Load 0x2,-0x3 0866 8084 | | Call 0x0,0x84 0867 e5fd | | Load 0x2,-0x3 0868 8082 | | Call 0x0,0x82 0869 e5fd | | Load 0x2,-0x3 086a 808a | | Call 0x0,0x8a 086b e5ff | | Load 0x2,-0x1 086c e232 | 2 | Load 0x1,0x32 086d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 086e 00d1 | | Pop_Control Pop_Count_1 086f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0870 e5fd | | Load 0x2,-0x3 0871 8251 | Q | Call 0x1,0x51 0872 6810 |h | Jump_Zero 0x883 0873 00d8 | | Load_Top At_Offset_0 0874 e5fd | | Load 0x2,-0x3 0875 8085 | | Call 0x0,0x85 0876 8086 | | Call 0x0,0x86 0877 e5fd | | Load 0x2,-0x3 0878 8083 | | Call 0x0,0x83 0879 e5fd | | Load 0x2,-0x3 087a 8084 | | Call 0x0,0x84 087b e5fd | | Load 0x2,-0x3 087c 8082 | | Call 0x0,0x82 087d e5fd | | Load 0x2,-0x3 087e 808a | | Call 0x0,0x8a 087f e5ff | | Load 0x2,-0x1 0880 e232 | 2 | Load 0x1,0x32 0881 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0882 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0883 e5fd | | Load 0x2,-0x3 0884 8254 | T | Call 0x1,0x54 0885 6811 |h | Jump_Zero 0x897 0886 00d8 | | Load_Top At_Offset_0 0887 e5fd | | Load 0x2,-0x3 0888 8087 | | Call 0x0,0x87 0889 e5fd | | Load 0x2,-0x3 088a 8088 | | Call 0x0,0x88 088b e5fd | | Load 0x2,-0x3 088c 8083 | | Call 0x0,0x83 088d e5fd | | Load 0x2,-0x3 088e 8084 | | Call 0x0,0x84 088f e5fd | | Load 0x2,-0x3 0890 8082 | | Call 0x0,0x82 0891 e5fd | | Load 0x2,-0x3 0892 8089 | | Call 0x0,0x89 0893 e5ff | | Load 0x2,-0x1 0894 e232 | 2 | Load 0x1,0x32 0895 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0896 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0897 e5fd | | Load 0x2,-0x3 0898 8252 | R | Call 0x1,0x52 0899 7003 |p | Jump_Nonzero 0x89d 089a e5fd | | Load 0x2,-0x3 089b 8253 | S | Call 0x1,0x53 089c 680f |h | Jump_Zero 0x8ac 089d 00d8 | | Load_Top At_Offset_0 089e e5fd | | Load 0x2,-0x3 089f 8087 | | Call 0x0,0x87 08a0 e5fd | | Load 0x2,-0x3 08a1 8083 | | Call 0x0,0x83 08a2 e5fd | | Load 0x2,-0x3 08a3 8084 | | Call 0x0,0x84 08a4 e5fd | | Load 0x2,-0x3 08a5 8082 | | Call 0x0,0x82 08a6 e5fd | | Load 0x2,-0x3 08a7 8089 | | Call 0x0,0x89 08a8 e5ff | | Load 0x2,-0x1 08a9 e232 | 2 | Load 0x1,0x32 08aa 181e | | Execute Package,Field_Execute,Field_Number 0x1e 08ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08ac e226 | & | Load 0x1,0x26 08ad 0257 | W | Execute Discrete,Raise 08ae 0000 0000 | | .XXX[0x2] 08b0 ; -------------------------------------------------------------------------------------- 08b0 ; SUBPROGRAM 08b0 ; SUBPROGRAM 08b0 ; -------------------------------------------------------------------------------------- 08b0 08b3 | | .CONST 0x08b3 ; Address of begin 08b1 0004 | | .CONST 0x0004 ; Address of exception handler 08b2 0001 | | .CONST 0x0001 ; Number of locals 08b3 BODY_08b0: 08b3 BODY_08b0: 08b3 INIT_08b0: 08b3 INIT_08b0: 08b3 e5fd | | Load 0x2,-0x3 08b4 e5fe | | Load 0x2,-0x2 08b5 e5ff | | Load 0x2,-0x1 08b6 e00e | | Load 0x0,0xe 08b7 1b15 | | Execute Package,Field_Read,Field_Number 0x15 08b8 00d9 | | Load_Top At_Offset_1 08b9 00d0 | | Action Swap_Control 08ba 0260 | ` | Execute Discrete,In_Type 08bb 7001 |p | Jump_Nonzero 0x8bd 08bc 0801 | | Execute_Immediate Raise,0x1 08bd 8256 | V | Call 0x1,0x56 08be 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08bf 0000 | | .XXX[0x1] 08c0 ; -------------------------------------------------------------------------------------- 08c0 ; SUBPROGRAM 08c0 ; SUBPROGRAM 08c0 ; -------------------------------------------------------------------------------------- 08c0 08c3 | | .CONST 0x08c3 ; Address of begin 08c1 0004 | | .CONST 0x0004 ; Address of exception handler 08c2 0001 | | .CONST 0x0001 ; Number of locals 08c3 BODY_08c0: 08c3 BODY_08c0: 08c3 INIT_08c0: 08c3 INIT_08c0: 08c3 e5fd | | Load 0x2,-0x3 08c4 00d8 | | Load_Top At_Offset_0 08c5 00e2 | | Load_Encached Integer_Cache 08c6 0260 | ` | Execute Discrete,In_Type 08c7 7001 |p | Jump_Nonzero 0x8c9 08c8 0801 | | Execute_Immediate Raise,0x1 08c9 e5fe | | Load 0x2,-0x2 08ca e5ff | | Load 0x2,-0x1 08cb e00e | | Load 0x0,0xe 08cc 1b15 | | Execute Package,Field_Read,Field_Number 0x15 08cd 00d9 | | Load_Top At_Offset_1 08ce 00d0 | | Action Swap_Control 08cf 0260 | ` | Execute Discrete,In_Type 08d0 7001 |p | Jump_Nonzero 0x8d2 08d1 0801 | | Execute_Immediate Raise,0x1 08d2 823d | = | Call 0x1,0x3d 08d3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 08d4 0000 0000 | | .BLANK 0000[0x4] 08d8 ; -------------------------------------------------------------------------------------- 08d8 ; SUBPROGRAM 08d8 ; -------------------------------------------------------------------------------------- 08d8 08db | | .CONST 0x08db ; Address of begin 08d9 0004 | | .CONST 0x0004 ; Address of exception handler 08da 0001 | | .CONST 0x0001 ; Number of locals 08db BODY_08d8: 08db INIT_08d8: 08db e5fd | | Load 0x2,-0x3 08dc e5fe | | Load 0x2,-0x2 08dd e5ff | | Load 0x2,-0x1 08de e232 | 2 | Load 0x1,0x32 08df 1814 | | Execute Package,Field_Execute,Field_Number 0x14 08e0 00d1 | | Pop_Control Pop_Count_1 08e1 c5fd | | Store 0x2,-0x3 08e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08e3 0000 0000 | | .BLANK 0000[0x5] 08e8 ; -------------------------------------------------------------------------------------- 08e8 ; SUBPROGRAM 08e8 ; -------------------------------------------------------------------------------------- 08e8 08eb | | .CONST 0x08eb ; Address of begin 08e9 0004 | | .CONST 0x0004 ; Address of exception handler 08ea 0001 | | .CONST 0x0001 ; Number of locals 08eb BODY_08e8: 08eb INIT_08e8: 08eb e5fd | | Load 0x2,-0x3 08ec e002 | | Load 0x0,0x2 08ed 1b0e | | Execute Package,Field_Read,Field_Number 0xe 08ee 025e | ^ | Execute Discrete,Convert 08ef e5fe | | Load 0x2,-0x2 08f0 e5ff | | Load 0x2,-0x1 08f1 e00e | | Load 0x0,0xe 08f2 1b15 | | Execute Package,Field_Read,Field_Number 0x15 08f3 00d9 | | Load_Top At_Offset_1 08f4 00d0 | | Action Swap_Control 08f5 0260 | ` | Execute Discrete,In_Type 08f6 7001 |p | Jump_Nonzero 0x8f8 08f7 0801 | | Execute_Immediate Raise,0x1 08f8 8265 | e | Call 0x1,0x65 08f9 00d1 | | Pop_Control Pop_Count_1 08fa c5fd | | Store 0x2,-0x3 08fb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08fc 0000 0000 | | .BLANK 0000[0x4] 0900 ; -------------------------------------------------------------------------------------- 0900 ; SUBPROGRAM 0900 ; -------------------------------------------------------------------------------------- 0900 0903 | | .CONST 0x0903 ; Address of begin 0901 0004 | | .CONST 0x0004 ; Address of exception handler 0902 0001 | | .CONST 0x0001 ; Number of locals 0903 BODY_0900: 0903 INIT_0900: 0903 00db | | Load_Top At_Offset_3 0904 6806 |h | Jump_Zero 0x90b 0905 e5fc | | Load 0x2,-0x4 0906 e5fd | | Load 0x2,-0x3 0907 e5ff | | Load 0x2,-0x1 0908 e232 | 2 | Load 0x1,0x32 0909 181a | | Execute Package,Field_Execute,Field_Number 0x1a 090a 7803 |x | Jump 0x90e 090b e5fc | | Load 0x2,-0x4 090c e232 | 2 | Load 0x1,0x32 090d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 090e e01e | | Load 0x0,0x1e 090f 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0910 c5fb | | Store 0x2,-0x5 0911 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0912 0000 0000 | | .BLANK 0000[0x6] 0918 ; -------------------------------------------------------------------------------------- 0918 ; SUBPROGRAM 0918 ; -------------------------------------------------------------------------------------- 0918 091b | | .CONST 0x091b ; Address of begin 0919 0923 | # | .CONST 0x0923 ; Address of exception handler 091a 0001 | | .CONST 0x0001 ; Number of locals 091b BODY_0918: 091b INIT_0918: 091b e003 | | Load 0x0,0x3 091c 1b20 | | Execute Package,Field_Read,Field_Number 0x20 091d e5ff | | Load 0x2,-0x1 091e e00a | | Load 0x0,0xa 091f 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0920 e003 | | Load 0x0,0x3 0921 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0922 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0923 TRAP_0918: 0923 0007 | | Action Break_Optional 0924 0092 096c | l| Action Push_String_Extended,0x96c ; "Exception raised setting break mask" 0926 e01e | | Load 0x0,0x1e 0927 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0928 c5fe | | Store 0x2,-0x2 0929 4501 |E | Exit_Suprogram New_Top_Offset 0x1 092a 0000 0000 | | .BLANK 0000[0x6] 0930 ; -------------------------------------------------------------------------------------- 0930 ; SUBPROGRAM 0930 ; -------------------------------------------------------------------------------------- 0930 0933 | 3 | .CONST 0x0933 ; Address of begin 0931 0937 | 7 | .CONST 0x0937 ; Address of exception handler 0932 0001 | | .CONST 0x0001 ; Number of locals 0933 BODY_0930: 0933 INIT_0930: 0933 e5ff | | Load 0x2,-0x1 0934 e095 | | Load 0x0,0x95 0935 180f | | Execute Package,Field_Execute,Field_Number 0xf 0936 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0937 TRAP_0930: 0937 0007 | | Action Break_Optional 0938 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0939 0000 0000 | | .BLANK 0000[0x7] 0940 ; -------------------------------------------------------------------------------------- 0940 ; SUBPROGRAM 0940 ; -------------------------------------------------------------------------------------- 0940 0943 | C | .CONST 0x0943 ; Address of begin 0941 0947 | G | .CONST 0x0947 ; Address of exception handler 0942 0001 | | .CONST 0x0001 ; Number of locals 0943 BODY_0940: 0943 INIT_0940: 0943 e5fe | | Load 0x2,-0x2 0944 e5ff | | Load 0x2,-0x1 0945 8091 | | Call 0x0,0x91 0946 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0947 TRAP_0940: 0947 e052 | R | Load 0x0,0x52 0948 010f | | Execute Exception,Equal 0949 680c |h | Jump_Zero 0x956 094a 4801 |H | Short_Literal 0x1 094b 4801 |H | Short_Literal 0x1 094c e5ff | | Load 0x2,-0x1 094d 8045 | E | Call 0x0,0x45 094e 4800 |H | Short_Literal 0x0 094f 809e | | Call 0x0,0x9e 0950 e5ff | | Load 0x2,-0x1 0951 809f | | Call 0x0,0x9f 0952 e5fe | | Load 0x2,-0x2 0953 e5ff | | Load 0x2,-0x1 0954 8091 | | Call 0x0,0x91 0955 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0956 0100 | | Execute Exception,Raise 0957 ; -------------------------------------------------------------------------------------- 0957 ; STRING TABLE 0957 ; -------------------------------------------------------------------------------------- 0957 002e | . | .STRTAB 0x002e->0x096e ; "Illegal item type" 0958 003d | = | .STRTAB 0x003d->0x0976 ; "No code generated for this statement" 0959 005f | _ | .STRTAB 0x005f->0x0988 ; "Item requires unimplemented facility" 095a 0081 | | .STRTAB 0x0081->0x099a ; "Exception raised:" 095b 0090 | | .STRTAB 0x0090->0x09a3 ; "Task unknown or terminated" 095c 00a8 | | .STRTAB 0x00a8->0x09b0 ; "Too many action items" 095d 00bb | | .STRTAB 0x00bb->0x09ba ; "Return stepping illegal from task body" 095e 00df | | .STRTAB 0x00df->0x09cd ; "Illegal Pc value" 095f 00ed | | .STRTAB 0x00ed->0x09d5 ; "Unable to set task interface subprogram" 0960 0112 | | .STRTAB 0x0112->0x09e9 ; "Disable_Debugging exception" 0961 012b | + | .STRTAB 0x012b->0x09f6 ; "*** Internal Error: " 0962 013d | = | .STRTAB 0x013d->0x0a00 ; "Process: Special item on control list" 0963 0160 | ` | .STRTAB 0x0160->0x0a13 ; "Process: unknown class" 0964 0174 | t | .STRTAB 0x0174->0x0a1e ; "Profile unimplemented" 0965 0187 | | .STRTAB 0x0187->0x0a28 ; "Continue unexpected" 0966 0198 | | .STRTAB 0x0198->0x0a32 ; "Process: Exception item on control list" 0967 01bd | | .STRTAB 0x01bd->0x0a45 ; "Process: Special item on exception list" 0968 01e2 | | .STRTAB 0x01e2->0x0a59 ; "Process: Control item on exception list" 0969 0207 | | .STRTAB 0x0207->0x0a6c ; "Process: Other_Action undefined" 096a 0224 | $ | .STRTAB 0x0224->0x0a7c ; "Process: Continue unexpected" 096b 023e | > | .STRTAB 0x023e->0x0a8a ; "Illegal internal call: " 096c 0253 | S | .STRTAB 0x0253->0x0a95 ; "Exception raised setting break mask" 096d 0274 | t | .STREND 0x0274->0x0aa7 096e 496c 6c65 |Ille| .STRTAB_STRINGS 0aa7 0000 | | .XXX[0x1] 0aa8 ; -------------------------------------------------------------------------------------- 0aa8 ; Debug Table 0aa8 ; -------------------------------------------------------------------------------------- 0aa8 0004 0007 | | .DEBUG4 0x0004,0x0007,0x8197,0x0000,0x0001,0x0000 0aae 8081 85b9 | | .XXX[0xd6] 0ab0 9081 8481 | | 0ab2 b595 cdcd | | 0ab4 859d 9481 | | 0ab6 a5cc 8191 | | 0ab8 a5cd c1b1 | | 0aba 85e5 9590 | | 0abc 81a5 b881 | | 0abe d1a1 9481 | | 0ac0 1195 89d5 | | 0ac2 9d9d 95c8 | | 0ac4 81dd a5b9 | | 0ac6 91bd dcb8 | | 0ac8 8081 05b8 | | 0aca 8195 e185 | | 0acc b5c1 b194 | | 0ace 81bd 9828 | (| 0ad0 8081 d1a1 | | 0ad2 a5cc 81b5 | | 0ad4 95cd cd85 | | 0ad6 9d94 81a5 | | 0ad8 cce8 2880 | ( | 0ada 8080 8080 | | 0adc 8109 c995 | | 0ade 85ac 8080 | | 0ae0 c8e8 8080 | | 0ae2 b949 150d | I | 0ae4 5549 4d25 |UIM%| 0ae6 5915 7d0d |Y } | 0ae8 0531 314c | 11L| 0aea b8cd cc80 | | 0aec 816d 5185 | mQ | 0aee cdac 80e8 | | 0af0 8149 3d3d | I==| 0af2 517d 5105 |Q}Q | 0af4 4d2c b080 |M, | 0af6 8cd8 dcd1 | | 0af8 10e1 74b8 | t | 0afa 2880 8080 |( | 0afc 8080 8109 | | 0afe c995 85ad | | 0b00 c1bd a5b9 | | 0b02 d080 c881 | | 0b04 9195 858d | | 0b06 d1a5 d985 | | 0b08 d195 90b8 | | 0b0a 2828 8081 |(( | 0b0c 51a1 9481 |Q | 0b0e b595 cdcd | | 0b10 859d 9481 | | 0b12 cdc1 958d | | 0b14 a599 a595 | | 0b16 cc81 d1a1 | | 0b18 9481 89c9 | | 0b1a 9585 adc1 | | 0b1c bda5 b9d0 | | 0b1e 81b9 d5b5 | | 0b20 8995 c8b0 | | 0b22 81d1 a194 | | 0b24 81b1 bd8d | | 0b26 85d1 a5bd | | 0b28 b881 dda1 | | 0b2a 95c9 9428 | (| 0b2c 8081 d1a1 | | 0b2e 9481 d185 | | 0b30 cdac 81a1 | | 0b32 85cc 81cd | | 0b34 d1bd c1c1 | | 0b36 9590 b081 | | 0b38 85b9 9081 | | 0b3a d1a1 9481 | | 0b3c d185 cdac | | 0b3e 81b9 85b5 | | 0b40 94b8 8081 | | 0b42 25d0 8185 |% | 0b44 b1cd bc81 | | 0b46 a5b9 91a5 | | 0b48 8d85 d195 | | 0b4a cc81 d1a1 | | 0b4c 85d0 2880 | ( | 0b4e 8189 c995 | | 0b50 85ad c1bd | | 0b52 a5b9 d080 | | 0b54 c881 dd85 | | 0b56 cc81 d195 | | 0b58 b5c1 bdc9 | | 0b5a 85c9 e481 | | 0b5c 85b9 9081 | | 0b5e a185 cc81 | | 0b60 8995 95b8 | | 0b62 8191 9585 | | 0b64 8dd1 a5d9 | | 0b66 85d1 9590 | | 0b68 b828 8081 | ( | 0b6a 01b9 bd91 | | 0b6c 9480 850d | | 0b6e bdb5 b585 | | 0b70 b991 ccb9 | | 0b72 1195 89d5 | | 0b74 9cb9 0d85 | | 0b76 d18d a028 | (| 0b78 2880 81c1 |( | 0b7a c9bd 8d95 | | 0b7c 91d5 c994 | | 0b7e 810d 85d1 | | 0b80 8da0 80a1 | | 0b82 3985 b594 |9 | 0b84 8080 8080 | | .BLANK 8080[0x4] 0b88 e881 15e1 | | .XXX[0x12] 0b8a 8d95 c1d1 | | 0b8c a5bd b97d | }| 0b8e 3985 b594 |9 | 0b90 80e8 f480 | | 0b92 88f1 4d15 | M | 0b94 3115 0d51 |1 Q| 0b96 253d 38f8 |%=8 | 0b98 88ec 2880 | ( | 0b9a 8080 8080 | | .BLANK 8080[0x8] 0ba2 8125 b97d | % }| .XXX[0x13] 0ba4 5185 cdac |Q | 0ba6 8080 8080 | | 0ba8 80e8 8151 | Q| 0baa 85cd ad7d | }| 0bac 3985 b594 |9 | 0bae 8080 8080 | | 0bb0 8080 e8f4 | | 0bb2 8088 88ec | | 0bb4 2880 |( | 0bb5 8080 8080 | | .BLANK 8080[0x8] 0bbd 8105 d17d | }| .XXX[0x43] 0bbf 31bd 8d85 |1 | 0bc1 d1a5 bdb8 | | 0bc3 80e8 8141 | A| 0bc5 85d1 a17d | }| 0bc7 3985 b594 |9 | 0bc9 8080 8080 | | 0bcb 8080 e8f4 | | 0bcd 8088 88a4 | | 0bcf ec28 2880 | (( | 0bd1 814d d1bd | M | 0bd3 c1cc 8195 | | 0bd5 e195 8dd5 | | 0bd7 d1a5 bdb8 | | 0bd9 81dd a195 | | 0bdb b995 d995 | | 0bdd c881 d1a1 | | 0bdf 9481 b985 | | 0be1 b595 9081 | | 0be3 bdc8 81cd | | 0be5 95b1 958d | | 0be7 d195 9081 | | 0be9 95e1 8d95 | | 0beb c1d1 a5bd | | 0bed b881 a5cc | | 0bef 81c9 85a5 | | 0bf1 cd95 9028 | (| 0bf3 8081 a5b8 | | 0bf5 81d1 a194 | | 0bf7 81cd c195 | | 0bf9 8da5 99a5 | | 0bfb 9590 81d1 | | 0bfd 85cd aca1 | | 0bff cca4 | |