|
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: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 04d0 | | .CONST 0x04d0 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0042 | B | .CONST 0x0042 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0020 | | .CONST 0x0020 ; Number of locals 000b INIT_0008: 000b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 000d 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 000f 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 0011 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 0013 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 0015 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 0017 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated 0019 00bf | | Action Accept_Activation 001a 0092 0460 | `| Action Push_String_Extended,0x460 ; "Non-existent stack frame" 001c 0092 0461 | a| Action Push_String_Extended,0x461 ; "Not in scope" 001e 0092 0462 | b| Action Push_String_Extended,0x462 ; "Temporarily not accessible" 0020 0092 0463 | c| Action Push_String_Extended,0x463 ; "Unknown exception: " 0022 0092 0464 | d| Action Push_String_Extended,0x464 ; "Nonexistent task" 0024 0092 0465 | e| Action Push_String_Extended,0x465 ; "Program has been recompiled since debugger started" 0026 00e1 | | Load_Encached Boolean_Cache 0027 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0028 029d 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call 002a 1d0d | | Execute_Immediate Reference_Lex_1,0xd 002b 00c7 | | Action Elaborate_Subprogram 002c 029d 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call 002e 1d0f | | Execute_Immediate Reference_Lex_1,0xf 002f 00c7 | | Action Elaborate_Subprogram 0030 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0031 00c7 | | Action Elaborate_Subprogram 0032 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0033 00c7 | | Action Elaborate_Subprogram 0034 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0035 00c7 | | Action Elaborate_Subprogram 0036 029d 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call 0038 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0039 00c7 | | Action Elaborate_Subprogram 003a 029d 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call 003c 029d 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call 003e 029d 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call 0040 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0041 00c7 | | Action Elaborate_Subprogram 0042 BODY_0008: 0042 821b | | Call 0x1,0x1b 0043 00bc | | Action Signal_Activated 0044 00bb | | Action Signal_Completion 0045 0000 0000 | | .XXX[0x3] 0047 0000 | | 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 0053 | S | .CONST 0x0053 ; Address of begin 0049 007a | z | .CONST 0x007a ; Address of exception handler 004a 0003 | | .CONST 0x0003 ; Number of locals 004b INIT_0048: 004b 00e2 | | Load_Encached Integer_Cache 004c e002 | | Load 0x0,0x2 004d 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 004e 02c7 | | Declare_Variable Any 004f e5ff | | Load 0x2,-0x1 0050 e003 | | Load 0x0,0x3 0051 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0052 a403 | | Store_Unchecked 0x2,0x3 0053 BODY_0048: 0053 4800 |H | Short_Literal 0x0 0054 a5fe | | Store_Unchecked 0x2,-0x2 0055 e5ff | | Load 0x2,-0x1 0056 e002 | | Load 0x0,0x2 0057 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0058 7006 |p | Jump_Nonzero 0x5f 0059 e5fd | | Load 0x2,-0x3 005a e218 | | Load 0x1,0x18 005b e004 | | Load 0x0,0x4 005c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 005d c5fd | | Store 0x2,-0x3 005e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 005f e5ff | | Load 0x2,-0x1 0060 8005 | | Call 0x0,0x5 0061 0f01 | | Execute_Immediate Equal,0x1 0062 700a |p | Jump_Nonzero 0x6d 0063 e5ff | | Load 0x2,-0x1 0064 8006 | | Call 0x0,0x6 0065 8007 | | Call 0x0,0x7 0066 e003 | | Load 0x0,0x3 0067 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0068 00da | | Load_Top At_Offset_2 0069 e002 | | Load 0x0,0x2 006a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 006b 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 006c 7802 |x | Jump 0x6f 006d 4800 |H | Short_Literal 0x0 006e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 006f 00d8 | | Load_Top At_Offset_0 0070 e002 | | Load 0x0,0x2 0071 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 0072 00da | | Load_Top At_Offset_2 0073 0272 | r | Execute Discrete,Minus 0074 0a01 | | Execute_Immediate Plus,0x1 0075 c5fe | | Store 0x2,-0x2 0076 e004 | | Load 0x0,0x4 0077 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0078 c5fd | | Store 0x2,-0x3 0079 4502 |E | Exit_Suprogram New_Top_Offset 0x2 007a TRAP_0048: 007a 0007 | | Action Break_Optional 007b e217 | | Load 0x1,0x17 007c e008 | | Load 0x0,0x8 007d 180d | | Execute Package,Field_Execute,Field_Number 0xd 007e 01cc | | Execute Vector,Catenate 007f e004 | | Load 0x0,0x4 0080 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0081 c5fd | | Store 0x2,-0x3 0082 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0083 0000 0000 | | .BLANK 0000[0x5] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 00a4 | | .CONST 0x00a4 ; Address of begin 0089 017f | | .CONST 0x017f ; Address of exception handler 008a 000c | | .CONST 0x000c ; Number of locals 008b INIT_0088: 008b e002 | | Load 0x0,0x2 008c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 008d e002 | | Load 0x0,0x2 008e 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 008f 00e3 | | Load_Encached Natural_Cache 0090 e002 | | Load 0x0,0x2 0091 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51 0092 e002 | | Load 0x0,0x2 0093 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0094 00e3 | | Load_Encached Natural_Cache 0095 00e2 | | Load_Encached Integer_Cache 0096 00e2 | | Load_Encached Integer_Cache 0097 e002 | | Load 0x0,0x2 0098 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0099 02c7 | | Declare_Variable Any 009a e5ff | | Load 0x2,-0x1 009b e003 | | Load 0x0,0x3 009c 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 009d a40a | | Store_Unchecked 0x2,0xa 009e e009 | | Load 0x0,0x9 009f 0322 | " | Declare_Variable Record 00a0 00d8 | | Load_Top At_Offset_0 00a1 1c00 | | Execute_Immediate Run_Utility,0x0 00a2 029f 0423 | #| Declare_Subprogram INIT_0420,For_Call 00a4 BODY_0088: 00a4 e00a | | Load 0x0,0xa 00a5 e5fd | | Load 0x2,-0x3 00a6 017d | } | Execute Record,Structure_Write 00a7 e00b | | Load 0x0,0xb 00a8 e5fc | | Load 0x2,-0x4 00a9 017d | } | Execute Record,Structure_Write 00aa 4800 |H | Short_Literal 0x0 00ab a5fb | | Store_Unchecked 0x2,-0x5 00ac 4800 |H | Short_Literal 0x0 00ad a5fa | | Store_Unchecked 0x2,-0x6 00ae e002 | | Load 0x0,0x2 00af 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 00b0 c5f9 | | Store 0x2,-0x7 00b1 4800 |H | Short_Literal 0x0 00b2 a5f8 | | Store_Unchecked 0x2,-0x8 00b3 e002 | | Load 0x0,0x2 00b4 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 00b5 c5f7 | | Store 0x2,-0x9 00b6 4800 |H | Short_Literal 0x0 00b7 a5f6 | | Store_Unchecked 0x2,-0xa 00b8 4800 |H | Short_Literal 0x0 00b9 a5f5 | | Store_Unchecked 0x2,-0xb 00ba 60d9 |` | Indirect_Literal Discrete,0x194,{0x00000000, 0x7fffffff} 00bb a5f4 | | Store_Unchecked 0x2,-0xc 00bc 4805 |H | Short_Literal 0x5 00bd a5f3 | | Store_Unchecked 0x2,-0xd 00be e5ff | | Load 0x2,-0x1 00bf e002 | | Load 0x0,0x2 00c0 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 00c1 7006 |p | Jump_Nonzero 0xc8 00c2 e5f2 | | Load 0x2,-0xe 00c3 e218 | | Load 0x1,0x18 00c4 e004 | | Load 0x0,0x4 00c5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00c6 c5f2 | | Store 0x2,-0xe 00c7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00c8 e5ff | | Load 0x2,-0x1 00c9 8005 | | Call 0x0,0x5 00ca 4603 |F | Jump_Case 0x4 00cb 7808 |x | Jump 0xd4 ; case 0x0 00cc 7802 |x | Jump 0xcf ; case 0x1 00cd 7812 |x | Jump 0xe0 ; case 0x2 00ce 7800 |x | Jump 0xcf ; case 0x3 00cf 4800 |H | Short_Literal 0x0 00d0 a408 | | Store_Unchecked 0x2,0x8 00d1 4fff |O | Short_Literal -0x1 00d2 a409 | | Store_Unchecked 0x2,0x9 00d3 7810 |x | Jump 0xe4 00d4 e5ff | | Load 0x2,-0x1 00d5 8006 | | Call 0x0,0x6 00d6 8007 | | Call 0x0,0x7 00d7 e003 | | Load 0x0,0x3 00d8 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 00d9 e40a | | Load 0x2,0xa 00da e002 | | Load 0x0,0x2 00db 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00dc a408 | | Store_Unchecked 0x2,0x8 00dd 4800 |H | Short_Literal 0x0 00de a409 | | Store_Unchecked 0x2,0x9 00df 7804 |x | Jump 0xe4 00e0 4800 |H | Short_Literal 0x0 00e1 a408 | | Store_Unchecked 0x2,0x8 00e2 4800 |H | Short_Literal 0x0 00e3 a409 | | Store_Unchecked 0x2,0x9 00e4 e5fe | | Load 0x2,-0x2 00e5 0aff | | Execute_Immediate Plus,-0x1 00e6 e408 | | Load 0x2,0x8 00e7 0273 | s | Execute Discrete,Plus 00e8 c407 | | Store 0x2,0x7 00e9 e407 | | Load 0x2,0x7 00ea a5f4 | | Store_Unchecked 0x2,-0xc 00eb e002 | | Load 0x0,0x2 00ec 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51 00ed 00e3 | | Load_Encached Natural_Cache 00ee e002 | | Load 0x0,0x2 00ef 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 00f0 e002 | | Load 0x0,0x2 00f1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00f2 e002 | | Load 0x0,0x2 00f3 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 00f4 e407 | | Load 0x2,0x7 00f5 e003 | | Load 0x0,0x3 00f6 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 00f7 e40a | | Load 0x2,0xa 00f8 e002 | | Load 0x0,0x2 00f9 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 00fa c406 | | Store 0x2,0x6 00fb c402 | | Store 0x2,0x2 00fc c403 | | Store 0x2,0x3 00fd c404 | | Store 0x2,0x4 00fe c405 | | Store 0x2,0x5 00ff e405 | | Load 0x2,0x5 0100 4603 |F | Jump_Case 0x4 0101 7808 |x | Jump 0x10a ; case 0x0 0102 780e |x | Jump 0x111 ; case 0x1 0103 7812 |x | Jump 0x116 ; case 0x2 0104 7800 |x | Jump 0x105 ; case 0x3 0105 e216 | | Load 0x1,0x16 0106 e004 | | Load 0x0,0x4 0107 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0108 c5f2 | | Store 0x2,-0xe 0109 4503 |E | Exit_Suprogram New_Top_Offset 0x3 010a e214 | | Load 0x1,0x14 010b e004 | | Load 0x0,0x4 010c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 010d c5f2 | | Store 0x2,-0xe 010e 4801 |H | Short_Literal 0x1 010f a5f6 | | Store_Unchecked 0x2,-0xa 0110 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0111 e215 | | Load 0x1,0x15 0112 e004 | | Load 0x0,0x4 0113 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0114 c5f2 | | Store 0x2,-0xe 0115 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0116 e402 | | Load 0x2,0x2 0117 a5fa | | Store_Unchecked 0x2,-0x6 0118 e403 | | Load 0x2,0x3 0119 e002 | | Load 0x0,0x2 011a 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 011b c5f9 | | Store 0x2,-0x7 011c e404 | | Load 0x2,0x4 011d a5f8 | | Store_Unchecked 0x2,-0x8 011e e406 | | Load 0x2,0x6 011f e002 | | Load 0x0,0x2 0120 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0121 c5f7 | | Store 0x2,-0x9 0122 e402 | | Load 0x2,0x2 0123 e002 | | Load 0x0,0x2 0124 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0125 0f04 | | Execute_Immediate Equal,0x4 0126 6806 |h | Jump_Zero 0x12d 0127 e5fe | | Load 0x2,-0x2 0128 0f01 | | Execute_Immediate Equal,0x1 0129 6803 |h | Jump_Zero 0x12d 012a e5ff | | Load 0x2,-0x1 012b 800c | | Call 0x0,0xc 012c a402 | | Store_Unchecked 0x2,0x2 012d e5fe | | Load 0x2,-0x2 012e 0c02 | | Execute_Immediate Greater_Equal,0x2 012f 6812 |h | Jump_Zero 0x142 0130 e402 | | Load 0x2,0x2 0131 e002 | | Load 0x0,0x2 0132 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0133 0aff | | Execute_Immediate Plus,-0x1 0134 e002 | | Load 0x0,0x2 0135 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0136 00d9 | | Load_Top At_Offset_1 0137 00d0 | | Action Swap_Control 0138 0260 | ` | Execute Discrete,In_Type 0139 7001 |p | Jump_Nonzero 0x13b 013a 0801 | | Execute_Immediate Raise,0x1 013b e402 | | Load 0x2,0x2 013c e002 | | Load 0x0,0x2 013d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 013e e002 | | Load 0x0,0x2 013f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0140 a402 | | Store_Unchecked 0x2,0x2 0141 7811 |x | Jump 0x153 0142 e402 | | Load 0x2,0x2 0143 e002 | | Load 0x0,0x2 0144 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0145 e409 | | Load 0x2,0x9 0146 0273 | s | Execute Discrete,Plus 0147 00d8 | | Load_Top At_Offset_0 0148 e002 | | Load 0x0,0x2 0149 1b11 | | Execute Package,Field_Read,Field_Number 0x11 014a 0260 | ` | Execute Discrete,In_Type 014b 7001 |p | Jump_Nonzero 0x14d 014c 0801 | | Execute_Immediate Raise,0x1 014d e402 | | Load 0x2,0x2 014e e002 | | Load 0x0,0x2 014f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0150 e002 | | Load 0x0,0x2 0151 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0152 a402 | | Store_Unchecked 0x2,0x2 0153 e402 | | Load 0x2,0x2 0154 a5fa | | Store_Unchecked 0x2,-0x6 0155 e402 | | Load 0x2,0x2 0156 821c | | Call 0x1,0x1c 0157 00da | | Load_Top At_Offset_2 0158 017d | } | Execute Record,Structure_Write 0159 00d9 | | Load_Top At_Offset_1 015a 800d | | Call 0x0,0xd 015b a5f3 | | Store_Unchecked 0x2,-0xd 015c 00d9 | | Load_Top At_Offset_1 015d 800e | | Call 0x0,0xe 015e 7012 |p | Jump_Nonzero 0x171 015f 00d9 | | Load_Top At_Offset_1 0160 e406 | | Load 0x2,0x6 0161 e002 | | Load 0x0,0x2 0162 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0163 800f | | Call 0x0,0xf 0164 00d1 | | Pop_Control Pop_Count_1 0165 e5fd | | Load 0x2,-0x3 0166 00da | | Load_Top At_Offset_2 0167 8010 | | Call 0x0,0x10 0168 00d2 | | Pop_Control Pop_Count_2 0169 00d9 | | Load_Top At_Offset_1 016a 8011 | | Call 0x0,0x11 016b e5fc | | Load 0x2,-0x4 016c 017d | } | Execute Record,Structure_Write 016d 00d9 | | Load_Top At_Offset_1 016e 8012 | | Call 0x0,0x12 016f a5fb | | Store_Unchecked 0x2,-0x5 0170 7808 |x | Jump 0x179 0171 e00a | | Load 0x0,0xa 0172 e5fd | | Load 0x2,-0x3 0173 017d | } | Execute Record,Structure_Write 0174 e00b | | Load 0x0,0xb 0175 e5fc | | Load 0x2,-0x4 0176 017d | } | Execute Record,Structure_Write 0177 4800 |H | Short_Literal 0x0 0178 a5fb | | Store_Unchecked 0x2,-0x5 0179 840c | | Call 0x2,0xc 017a a5f6 | | Store_Unchecked 0x2,-0xa 017b e004 | | Load 0x0,0x4 017c 1819 | | Execute Package,Field_Execute,Field_Number 0x19 017d c5f2 | | Store 0x2,-0xe 017e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 017f TRAP_0088: 017f e013 | | Load 0x0,0x13 0180 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0181 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0182 010f | | Execute Exception,Equal 0183 6805 |h | Jump_Zero 0x189 0184 e219 | | Load 0x1,0x19 0185 e004 | | Load 0x0,0x4 0186 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0187 c5f2 | | Store 0x2,-0xe 0188 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0189 e217 | | Load 0x1,0x17 018a e008 | | Load 0x0,0x8 018b 180d | | Execute Package,Field_Execute,Field_Number 0xd 018c 01cc | | Execute Vector,Catenate 018d e004 | | Load 0x0,0x4 018e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 018f c5f2 | | Store 0x2,-0xe 0190 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0191 0000 0000 | | .XXX[0x3] 0193 0000 | | 0194 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019f | | .CONST 0x019f ; Address of begin 0199 01b1 | | .CONST 0x01b1 ; Address of exception handler 019a 0002 | | .CONST 0x0002 ; Number of locals 019b INIT_0198: 019b e009 | | Load 0x0,0x9 019c 0322 | " | Declare_Variable Record 019d 00d8 | | Load_Top At_Offset_0 019e 1c00 | | Execute_Immediate Run_Utility,0x0 019f BODY_0198: 019f 00db | | Load_Top At_Offset_3 01a0 821c | | Call 0x1,0x1c 01a1 00d9 | | Load_Top At_Offset_1 01a2 017d | } | Execute Record,Structure_Write 01a3 e00a | | Load 0x0,0xa 01a4 e5fe | | Load 0x2,-0x2 01a5 017d | } | Execute Record,Structure_Write 01a6 00d8 | | Load_Top At_Offset_0 01a7 8011 | | Call 0x0,0x11 01a8 e5fd | | Load 0x2,-0x3 01a9 017d | } | Execute Record,Structure_Write 01aa 00d8 | | Load_Top At_Offset_0 01ab 8012 | | Call 0x0,0x12 01ac a5fc | | Store_Unchecked 0x2,-0x4 01ad e004 | | Load 0x0,0x4 01ae 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01af c5fb | | Store 0x2,-0x5 01b0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01b1 TRAP_0198: 01b1 e013 | | Load 0x0,0x13 01b2 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01b3 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01b4 010f | | Execute Exception,Equal 01b5 6805 |h | Jump_Zero 0x1bb 01b6 e219 | | Load 0x1,0x19 01b7 e004 | | Load 0x0,0x4 01b8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01b9 c5fb | | Store 0x2,-0x5 01ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01bb e00a | | Load 0x0,0xa 01bc e5fe | | Load 0x2,-0x2 01bd 017d | } | Execute Record,Structure_Write 01be e00b | | Load 0x0,0xb 01bf e5fd | | Load 0x2,-0x3 01c0 017d | } | Execute Record,Structure_Write 01c1 4800 |H | Short_Literal 0x0 01c2 a5fc | | Store_Unchecked 0x2,-0x4 01c3 e004 | | Load 0x0,0x4 01c4 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01c5 c5fb | | Store 0x2,-0x5 01c6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01c7 0000 | | .XXX[0x1] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cd | | .CONST 0x01cd ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0002 | | .CONST 0x0002 ; Number of locals 01cb INIT_01c8: 01cb e014 | | Load 0x0,0x14 01cc 0007 | | Action Break_Optional 01cd BODY_01c8: 01cd e5fc | | Load 0x2,-0x4 01ce e014 | | Load 0x0,0x14 01cf e5fd | | Load 0x2,-0x3 01d0 e5fe | | Load 0x2,-0x2 01d1 480b |H | Short_Literal 0xb 01d2 e5ff | | Load 0x2,-0x1 01d3 e002 | | Load 0x0,0x2 01d4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01d5 820f | | Call 0x1,0xf 01d6 00d2 | | Pop_Control Pop_Count_2 01d7 005a | Z | Store_Top Discrete,At_Offset_2 01d8 c5fc | | Store 0x2,-0x4 01d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01da 0000 0000 | | .BLANK 0000[0x6] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e7 | | .CONST 0x01e7 ; Address of begin 01e1 0228 | ( | .CONST 0x0228 ; Address of exception handler 01e2 0003 | | .CONST 0x0003 ; Number of locals 01e3 INIT_01e0: 01e3 e002 | | Load 0x0,0x2 01e4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01e5 029f 044b | K| Declare_Subprogram INIT_0448,For_Call 01e7 BODY_01e0: 01e7 e5fa | | Load 0x2,-0x6 01e8 4820 |H | Short_Literal 0x20 01e9 4800 |H | Short_Literal 0x0 01ea e015 | | Load 0x0,0x15 01eb 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 01ec 00d1 | | Pop_Control Pop_Count_1 01ed e00a | | Load 0x0,0xa 01ee e5fe | | Load 0x2,-0x2 01ef 017d | } | Execute Record,Structure_Write 01f0 e00b | | Load 0x0,0xb 01f1 e5fd | | Load 0x2,-0x3 01f2 017d | } | Execute Record,Structure_Write 01f3 4800 |H | Short_Literal 0x0 01f4 a5fc | | Store_Unchecked 0x2,-0x4 01f5 4800 |H | Short_Literal 0x0 01f6 a5fb | | Store_Unchecked 0x2,-0x5 01f7 e5ff | | Load 0x2,-0x1 01f8 e002 | | Load 0x0,0x2 01f9 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 01fa 7006 |p | Jump_Nonzero 0x201 01fb e5f9 | | Load 0x2,-0x7 01fc e218 | | Load 0x1,0x18 01fd e004 | | Load 0x0,0x4 01fe 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01ff c5f9 | | Store 0x2,-0x7 0200 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0201 e5ff | | Load 0x2,-0x1 0202 8005 | | Call 0x0,0x5 0203 0f02 | | Execute_Immediate Equal,0x2 0204 7019 |p | Jump_Nonzero 0x21e 0205 7800 |x | Jump 0x206 0206 e5ff | | Load 0x2,-0x1 0207 e002 | | Load 0x0,0x2 0208 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0209 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 020a 00d9 | | Load_Top At_Offset_1 020b 8016 | | Call 0x0,0x16 020c a5fb | | Store_Unchecked 0x2,-0x5 020d e5f9 | | Load 0x2,-0x7 020e e014 | | Load 0x0,0x14 020f e5fd | | Load 0x2,-0x3 0210 e5fe | | Load 0x2,-0x2 0211 e402 | | Load 0x2,0x2 0212 820f | | Call 0x1,0xf 0213 00d2 | | Pop_Control Pop_Count_2 0214 c5fc | | Store 0x2,-0x4 0215 c5f9 | | Store 0x2,-0x7 0216 4802 |H | Short_Literal 0x2 0217 e5f9 | | Load 0x2,-0x7 0218 e004 | | Load 0x0,0x4 0219 1810 | | Execute Package,Field_Execute,Field_Number 0x10 021a 6801 |h | Jump_Zero 0x21c 021b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 021c 8403 | | Call 0x2,0x3 021d 7806 |x | Jump 0x224 021e e5fa | | Load 0x2,-0x6 021f 0092 0466 | f| Action Push_String_Extended,0x466 ; "Wierd state" 0221 e015 | | Load 0x0,0x15 0222 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0223 00d1 | | Pop_Control Pop_Count_1 0224 e004 | | Load 0x0,0x4 0225 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0226 c5f9 | | Store 0x2,-0x7 0227 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0228 TRAP_01e0: 0228 e013 | | Load 0x0,0x13 0229 1b11 | | Execute Package,Field_Read,Field_Number 0x11 022a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 022b 010f | | Execute Exception,Equal 022c 6805 |h | Jump_Zero 0x232 022d e219 | | Load 0x1,0x19 022e e004 | | Load 0x0,0x4 022f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0230 c5f9 | | Store 0x2,-0x7 0231 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0232 e217 | | Load 0x1,0x17 0233 e008 | | Load 0x0,0x8 0234 180d | | Execute Package,Field_Execute,Field_Number 0xd 0235 01cc | | Execute Vector,Catenate 0236 e004 | | Load 0x0,0x4 0237 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0238 c5f9 | | Store 0x2,-0x7 0239 4502 |E | Exit_Suprogram New_Top_Offset 0x2 023a 0000 0000 | | .BLANK 0000[0x6] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 024d | M | .CONST 0x024d ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0003 | | .CONST 0x0003 ; Number of locals 0243 INIT_0240: 0243 e002 | | Load 0x0,0x2 0244 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0245 02c7 | | Declare_Variable Any 0246 00db | | Load_Top At_Offset_3 0247 e003 | | Load 0x0,0x3 0248 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0249 a402 | | Store_Unchecked 0x2,0x2 024a e002 | | Load 0x0,0x2 024b 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 024c 0322 | " | Declare_Variable Record 024d BODY_0240: 024d 8017 | | Call 0x0,0x17 024e a5fc | | Store_Unchecked 0x2,-0x4 024f 4801 |H | Short_Literal 0x1 0250 a5fd | | Store_Unchecked 0x2,-0x3 0251 e5ff | | Load 0x2,-0x1 0252 e002 | | Load 0x0,0x2 0253 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0254 7006 |p | Jump_Nonzero 0x25b 0255 e5fb | | Load 0x2,-0x5 0256 e218 | | Load 0x1,0x18 0257 e004 | | Load 0x0,0x4 0258 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0259 c5fb | | Store 0x2,-0x5 025a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 025b e5fe | | Load 0x2,-0x2 025c 7006 |p | Jump_Nonzero 0x263 025d e5ff | | Load 0x2,-0x1 025e 821d | | Call 0x1,0x1d 025f e002 | | Load 0x0,0x2 0260 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0261 a5fe | | Store_Unchecked 0x2,-0x2 0262 7803 |x | Jump 0x266 0263 e5fe | | Load 0x2,-0x2 0264 0aff | | Execute_Immediate Plus,-0x1 0265 c5fe | | Store 0x2,-0x2 0266 00cf | | Action Mark_Auxiliary 0267 e5fe | | Load 0x2,-0x2 0268 681d |h | Jump_Zero 0x286 0269 e5fe | | Load 0x2,-0x2 026a 00db | | Load_Top At_Offset_3 026b e002 | | Load 0x0,0x2 026c 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 026d 00da | | Load_Top At_Offset_2 026e 017d | } | Execute Record,Structure_Write 026f 00d9 | | Load_Top At_Offset_1 0270 e002 | | Load 0x0,0x2 0271 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 0272 0f5f | _ | Execute_Immediate Equal,0x5f 0273 7001 |p | Jump_Nonzero 0x275 0274 780c |x | Jump 0x281 0275 e002 | | Load 0x0,0x2 0276 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 0277 00da | | Load_Top At_Offset_2 0278 e003 | | Load 0x0,0x3 0279 181c | | Execute Package,Field_Execute,Field_Number 0x1c 027a c5fc | | Store 0x2,-0x4 027b 4800 |H | Short_Literal 0x0 027c a5fd | | Store_Unchecked 0x2,-0x3 027d e004 | | Load 0x0,0x4 027e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 027f c5fb | | Store 0x2,-0x5 0280 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0281 e5fe | | Load 0x2,-0x2 0282 0aff | | Execute_Immediate Plus,-0x1 0283 c5fe | | Store 0x2,-0x2 0284 00c9 | | Action Pop_Auxiliary_Loop 0285 7fe1 | | Jump 0x267 0286 00ce | | Action Pop_Auxiliary 0287 e004 | | Load 0x0,0x4 0288 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0289 c5fb | | Store 0x2,-0x5 028a 4801 |H | Short_Literal 0x1 028b a5fd | | Store_Unchecked 0x2,-0x3 028c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 028d 0000 0000 | | .XXX[0x3] 028f 0000 | | 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 02a8 | | .CONST 0x02a8 ; Address of begin 0291 0336 | 6 | .CONST 0x0336 ; Address of exception handler 0292 0007 | | .CONST 0x0007 ; Number of locals 0293 INIT_0290: 0293 00e5 | | Load_Encached Long_Integer_Cache 0294 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0295 e002 | | Load 0x0,0x2 0296 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0297 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0298 e002 | | Load 0x0,0x2 0299 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 029a 02c7 | | Declare_Variable Any 029b e5ff | | Load 0x2,-0x1 029c e003 | | Load 0x0,0x3 029d 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 029e a404 | | Store_Unchecked 0x2,0x4 029f e002 | | Load 0x0,0x2 02a0 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 02a1 0322 | " | Declare_Variable Record 02a2 e009 | | Load 0x0,0x9 02a3 0322 | " | Declare_Variable Record 02a4 00d8 | | Load_Top At_Offset_0 02a5 1c00 | | Execute_Immediate Run_Utility,0x0 02a6 00e1 | | Load_Encached Boolean_Cache 02a7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 02a8 BODY_0290: 02a8 4801 |H | Short_Literal 0x1 02a9 a5fd | | Store_Unchecked 0x2,-0x3 02aa 4800 |H | Short_Literal 0x0 02ab a5fc | | Store_Unchecked 0x2,-0x4 02ac 4800 |H | Short_Literal 0x0 02ad a5fa | | Store_Unchecked 0x2,-0x6 02ae 4800 |H | Short_Literal 0x0 02af a5f9 | | Store_Unchecked 0x2,-0x7 02b0 e00a | | Load 0x0,0xa 02b1 e5f8 | | Load 0x2,-0x8 02b2 017d | } | Execute Record,Structure_Write 02b3 e00b | | Load 0x0,0xb 02b4 e5f7 | | Load 0x2,-0x9 02b5 017d | } | Execute Record,Structure_Write 02b6 4800 |H | Short_Literal 0x0 02b7 a5f6 | | Store_Unchecked 0x2,-0xa 02b8 4805 |H | Short_Literal 0x5 02b9 a5f5 | | Store_Unchecked 0x2,-0xb 02ba e5ff | | Load 0x2,-0x1 02bb e002 | | Load 0x0,0x2 02bc 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 02bd 7006 |p | Jump_Nonzero 0x2c4 02be e5f4 | | Load 0x2,-0xc 02bf e218 | | Load 0x1,0x18 02c0 e004 | | Load 0x0,0x4 02c1 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02c2 c5f4 | | Store 0x2,-0xc 02c3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02c4 e5fe | | Load 0x2,-0x2 02c5 7006 |p | Jump_Nonzero 0x2cc 02c6 e5ff | | Load 0x2,-0x1 02c7 821d | | Call 0x1,0x1d 02c8 e002 | | Load 0x0,0x2 02c9 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 02ca a5fe | | Store_Unchecked 0x2,-0x2 02cb 7803 |x | Jump 0x2cf 02cc e5fe | | Load 0x2,-0x2 02cd 0aff | | Execute_Immediate Plus,-0x1 02ce c5fe | | Store 0x2,-0x2 02cf 00cf | | Action Mark_Auxiliary 02d0 e5fe | | Load 0x2,-0x2 02d1 685d |h] | Jump_Zero 0x32f 02d2 e5fe | | Load 0x2,-0x2 02d3 e404 | | Load 0x2,0x4 02d4 e002 | | Load 0x0,0x2 02d5 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 02d6 e405 | | Load 0x2,0x5 02d7 017d | } | Execute Record,Structure_Write 02d8 00db | | Load_Top At_Offset_3 02d9 e002 | | Load 0x0,0x2 02da 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 02db 0f7e | ~ | Execute_Immediate Equal,0x7e 02dc 7001 |p | Jump_Nonzero 0x2de 02dd 784c |xL | Jump 0x32a 02de e002 | | Load 0x0,0x2 02df 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02e0 00e5 | | Load_Encached Long_Integer_Cache 02e1 e405 | | Load 0x2,0x5 02e2 8220 | | Call 0x1,0x20 02e3 c402 | | Store 0x2,0x2 02e4 c403 | | Store 0x2,0x3 02e5 e403 | | Load 0x2,0x3 02e6 8016 | | Call 0x0,0x16 02e7 6813 |h | Jump_Zero 0x2fb 02e8 e403 | | Load 0x2,0x3 02e9 e5ff | | Load 0x2,-0x1 02ea 8018 | | Call 0x0,0x18 02eb 027f | | Execute Discrete,Equal 02ec 680e |h | Jump_Zero 0x2fb 02ed e402 | | Load 0x2,0x2 02ee 8019 | | Call 0x0,0x19 02ef e5ff | | Load 0x2,-0x1 02f0 801a | | Call 0x0,0x1a 02f1 027f | | Execute Discrete,Equal 02f2 6808 |h | Jump_Zero 0x2fb 02f3 e403 | | Load 0x2,0x3 02f4 a5fb | | Store_Unchecked 0x2,-0x5 02f5 e5ff | | Load 0x2,-0x1 02f6 801b | | Call 0x0,0x1b 02f7 a403 | | Store_Unchecked 0x2,0x3 02f8 4801 |H | Short_Literal 0x1 02f9 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 02fa 7802 |x | Jump 0x2fd 02fb e403 | | Load 0x2,0x3 02fc a5fb | | Store_Unchecked 0x2,-0x5 02fd e403 | | Load 0x2,0x3 02fe 821c | | Call 0x1,0x1c 02ff 00db | | Load_Top At_Offset_3 0300 017d | } | Execute Record,Structure_Write 0301 00da | | Load_Top At_Offset_2 0302 800d | | Call 0x0,0xd 0303 a5f5 | | Store_Unchecked 0x2,-0xb 0304 00da | | Load_Top At_Offset_2 0305 800e | | Call 0x0,0xe 0306 7015 |p | Jump_Nonzero 0x31c 0307 e5f8 | | Load 0x2,-0x8 0308 00db | | Load_Top At_Offset_3 0309 8010 | | Call 0x0,0x10 030a 00d2 | | Pop_Control Pop_Count_2 030b 00da | | Load_Top At_Offset_2 030c 8011 | | Call 0x0,0x11 030d e5f7 | | Load 0x2,-0x9 030e 017d | } | Execute Record,Structure_Write 030f 00db | | Load_Top At_Offset_3 0310 e402 | | Load 0x2,0x2 0311 821f | | Call 0x1,0x1f 0312 6806 |h | Jump_Zero 0x319 0313 00d9 | | Load_Top At_Offset_1 0314 7004 |p | Jump_Nonzero 0x319 0315 602e |`. | Indirect_Literal Discrete,0x344,{0x00000000, 0x7fffffff} 0316 801c | | Call 0x0,0x1c 0317 a5f6 | | Store_Unchecked 0x2,-0xa 0318 7803 |x | Jump 0x31c 0319 00da | | Load_Top At_Offset_2 031a 8012 | | Call 0x0,0x12 031b a5f6 | | Store_Unchecked 0x2,-0xa 031c e403 | | Load 0x2,0x3 031d a5fa | | Store_Unchecked 0x2,-0x6 031e e402 | | Load 0x2,0x2 031f a5f9 | | Store_Unchecked 0x2,-0x7 0320 00db | | Load_Top At_Offset_3 0321 821e | | Call 0x1,0x1e 0322 a5fc | | Store_Unchecked 0x2,-0x4 0323 4800 |H | Short_Literal 0x0 0324 a5fd | | Store_Unchecked 0x2,-0x3 0325 e5f4 | | Load 0x2,-0xc 0326 e004 | | Load 0x0,0x4 0327 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0328 c5f4 | | Store 0x2,-0xc 0329 4502 |E | Exit_Suprogram New_Top_Offset 0x2 032a e5fe | | Load 0x2,-0x2 032b 0aff | | Execute_Immediate Plus,-0x1 032c c5fe | | Store 0x2,-0x2 032d 00c9 | | Action Pop_Auxiliary_Loop 032e 7fa1 | | Jump 0x2d0 032f 00ce | | Action Pop_Auxiliary 0330 e004 | | Load 0x0,0x4 0331 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0332 c5f4 | | Store 0x2,-0xc 0333 4801 |H | Short_Literal 0x1 0334 a5fd | | Store_Unchecked 0x2,-0x3 0335 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0336 TRAP_0290: 0336 e013 | | Load 0x0,0x13 0337 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0338 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0339 010f | | Execute Exception,Equal 033a 6805 |h | Jump_Zero 0x340 033b e219 | | Load 0x1,0x19 033c e004 | | Load 0x0,0x4 033d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 033e c5f4 | | Store 0x2,-0xc 033f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0340 0100 | | Execute Exception,Raise 0341 0000 0000 | | .XXX[0x3] 0343 0000 | | 0344 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 0357 | W | .CONST 0x0357 ; Address of begin 0349 036b | k | .CONST 0x036b ; Address of exception handler 034a 0007 | | .CONST 0x0007 ; Number of locals 034b INIT_0348: 034b e01d | | Load 0x0,0x1d 034c 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 034d 02c7 | | Declare_Variable Any 034e 00d8 | | Load_Top At_Offset_0 034f 1c00 | | Execute_Immediate Run_Utility,0x0 0350 00e3 | | Load_Encached Natural_Cache 0351 00e3 | | Load_Encached Natural_Cache 0352 e01d | | Load 0x0,0x1d 0353 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0354 0337 | 7 | Declare_Variable Array 0355 00e3 | | Load_Encached Natural_Cache 0356 00e3 | | Load_Encached Natural_Cache 0357 BODY_0348: 0357 e01d | | Load 0x0,0x1d 0358 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0359 c402 | | Store 0x2,0x2 035a 00e3 | | Load_Encached Natural_Cache 035b 00e3 | | Load_Encached Natural_Cache 035c e405 | | Load 0x2,0x5 035d 00e3 | | Load_Encached Natural_Cache 035e 00e3 | | Load_Encached Natural_Cache 035f e402 | | Load 0x2,0x2 0360 e01d | | Load 0x0,0x1d 0361 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0362 c403 | | Store 0x2,0x3 0363 c404 | | Store 0x2,0x4 0364 00d1 | | Pop_Control Pop_Count_1 0365 005b | [ | Store_Top Discrete,At_Offset_3 0366 0059 | Y | Store_Top Discrete,At_Offset_1 0367 e403 | | Load 0x2,0x3 0368 0d06 | | Execute_Immediate Less,0x6 0369 a21a | | Store_Unchecked 0x1,0x1a 036a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 036b TRAP_0348: 036b 0007 | | Action Break_Optional 036c 4801 |H | Short_Literal 0x1 036d a21a | | Store_Unchecked 0x1,0x1a 036e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 036f 0000 | | .XXX[0x1] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0377 | w | .CONST 0x0377 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0002 | | .CONST 0x0002 ; Number of locals 0373 INIT_0370: 0373 e009 | | Load 0x0,0x9 0374 0322 | " | Declare_Variable Record 0375 00d8 | | Load_Top At_Offset_0 0376 1c00 | | Execute_Immediate Run_Utility,0x0 0377 BODY_0370: 0377 00d8 | | Load_Top At_Offset_0 0378 e5ff | | Load 0x2,-0x1 0379 801e | | Call 0x0,0x1e 037a 00d1 | | Pop_Control Pop_Count_1 037b 00d8 | | Load_Top At_Offset_0 037c 801f | | Call 0x0,0x1f 037d 00d1 | | Pop_Control Pop_Count_1 037e 00d8 | | Load_Top At_Offset_0 037f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 038c | | .CONST 0x038c ; Address of begin 0381 0004 | | .CONST 0x0004 ; Address of exception handler 0382 0006 | | .CONST 0x0006 ; Number of locals 0383 INIT_0380: 0383 e002 | | Load 0x0,0x2 0384 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0385 e002 | | Load 0x0,0x2 0386 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0387 00e3 | | Load_Encached Natural_Cache 0388 e002 | | Load 0x0,0x2 0389 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51 038a e002 | | Load 0x0,0x2 038b 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 038c BODY_0380: 038c e5ff | | Load 0x2,-0x1 038d 8005 | | Call 0x0,0x5 038e 7017 |p | Jump_Nonzero 0x3a6 038f e002 | | Load 0x0,0x2 0390 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51 0391 00e3 | | Load_Encached Natural_Cache 0392 e002 | | Load 0x0,0x2 0393 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0394 e002 | | Load 0x0,0x2 0395 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0396 e002 | | Load 0x0,0x2 0397 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0398 4801 |H | Short_Literal 0x1 0399 e003 | | Load 0x0,0x3 039a 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 039b e5ff | | Load 0x2,-0x1 039c e003 | | Load 0x0,0x3 039d 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 039e e002 | | Load 0x0,0x2 039f 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 03a0 c406 | | Store 0x2,0x6 03a1 c402 | | Store 0x2,0x2 03a2 c403 | | Store 0x2,0x3 03a3 c404 | | Store 0x2,0x4 03a4 005a | Z | Store_Top Discrete,At_Offset_2 03a5 7804 |x | Jump 0x3aa 03a6 e5ff | | Load 0x2,-0x1 03a7 e003 | | Load 0x0,0x3 03a8 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 03a9 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 03aa 00d8 | | Load_Top At_Offset_0 03ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03ac 0000 0000 | | .BLANK 0000[0x4] 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03b8 | | .CONST 0x03b8 ; Address of begin 03b1 0004 | | .CONST 0x0004 ; Address of exception handler 03b2 0002 | | .CONST 0x0002 ; Number of locals 03b3 INIT_03b0: 03b3 00da | | Load_Top At_Offset_2 03b4 e002 | | Load 0x0,0x2 03b5 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 03b6 00e5 | | Load_Encached Long_Integer_Cache 03b7 03f1 | | Declare_Variable Discrete,With_Value 03b8 BODY_03b0: 03b8 4830 |H0 | Short_Literal 0x30 03b9 00d9 | | Load_Top At_Offset_1 03ba e003 | | Load 0x0,0x3 03bb 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03bd 0000 0000 | | .XXX[0x3] 03bf 0000 | | 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; -------------------------------------------------------------------------------------- 03c0 03c3 | | .CONST 0x03c3 ; Address of begin 03c1 0004 | | .CONST 0x0004 ; Address of exception handler 03c2 0001 | | .CONST 0x0001 ; Number of locals 03c3 BODY_03c0: 03c3 INIT_03c0: 03c3 00da | | Load_Top At_Offset_2 03c4 8020 | | Call 0x0,0x20 03c5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03c6 0000 0000 | | .XXX[0x2] 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; -------------------------------------------------------------------------------------- 03c8 03cb | | .CONST 0x03cb ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0001 | | .CONST 0x0001 ; Number of locals 03cb BODY_03c8: 03cb INIT_03c8: 03cb 00da | | Load_Top At_Offset_2 03cc e002 | | Load 0x0,0x2 03cd 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 03ce 0e7e | ~ | Execute_Immediate Not_Equal,0x7e 03cf 6803 |h | Jump_Zero 0x3d3 03d0 e003 | | Load 0x0,0x3 03d1 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 03d2 0257 | W | Execute Discrete,Raise 03d3 00da | | Load_Top At_Offset_2 03d4 e002 | | Load 0x0,0x2 03d5 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 03d6 a5fe | | Store_Unchecked 0x2,-0x2 03d7 e21a | | Load 0x1,0x1a 03d8 701e |p | Jump_Nonzero 0x3f7 03d9 480f |H | Short_Literal 0xf 03da 482a |H* | Short_Literal 0x2a 03db e5ff | | Load 0x2,-0x1 03dc e002 | | Load 0x0,0x2 03dd 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 03de e003 | | Load 0x0,0x3 03df 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03e0 00d8 | | Load_Top At_Offset_0 03e1 e002 | | Load 0x0,0x2 03e2 1b11 | | Execute Package,Field_Read,Field_Number 0x11 03e3 0260 | ` | Execute Discrete,In_Type 03e4 7001 |p | Jump_Nonzero 0x3e6 03e5 0801 | | Execute_Immediate Raise,0x1 03e6 4818 |H | Short_Literal 0x18 03e7 4808 |H | Short_Literal 0x8 03e8 e5ff | | Load 0x2,-0x1 03e9 e002 | | Load 0x0,0x2 03ea 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 03eb e003 | | Load 0x0,0x3 03ec 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03ed 00d8 | | Load_Top At_Offset_0 03ee e021 | ! | Load 0x0,0x21 03ef 1b16 | | Execute Package,Field_Read,Field_Number 0x16 03f0 0260 | ` | Execute Discrete,In_Type 03f1 7001 |p | Jump_Nonzero 0x3f3 03f2 0801 | | Execute_Immediate Raise,0x1 03f3 e002 | | Load 0x0,0x2 03f4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03f5 a5fd | | Store_Unchecked 0x2,-0x3 03f6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03f7 4830 |H0 | Short_Literal 0x30 03f8 4800 |H | Short_Literal 0x0 03f9 e5fe | | Load 0x2,-0x2 03fa e003 | | Load 0x0,0x3 03fb 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03fc a5fe | | Store_Unchecked 0x2,-0x2 03fd 480f |H | Short_Literal 0xf 03fe 4831 |H1 | Short_Literal 0x31 03ff e5ff | | Load 0x2,-0x1 0400 e002 | | Load 0x0,0x2 0401 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0402 e003 | | Load 0x0,0x3 0403 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0404 00d8 | | Load_Top At_Offset_0 0405 e002 | | Load 0x0,0x2 0406 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0407 0260 | ` | Execute Discrete,In_Type 0408 7001 |p | Jump_Nonzero 0x40a 0409 0801 | | Execute_Immediate Raise,0x1 040a 4818 |H | Short_Literal 0x18 040b 4820 |H | Short_Literal 0x20 040c e5ff | | Load 0x2,-0x1 040d e002 | | Load 0x0,0x2 040e 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 040f e003 | | Load 0x0,0x3 0410 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0411 00d8 | | Load_Top At_Offset_0 0412 e021 | ! | Load 0x0,0x21 0413 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0414 0260 | ` | Execute Discrete,In_Type 0415 7001 |p | Jump_Nonzero 0x417 0416 0801 | | Execute_Immediate Raise,0x1 0417 e002 | | Load 0x0,0x2 0418 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0419 a5fd | | Store_Unchecked 0x2,-0x3 041a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 041b 0000 0000 | | .BLANK 0000[0x5] 0420 ; -------------------------------------------------------------------------------------- 0420 ; SUBPROGRAM 0420 ; -------------------------------------------------------------------------------------- 0420 0423 | # | .CONST 0x0423 ; Address of begin 0421 0004 | | .CONST 0x0004 ; Address of exception handler 0422 0001 | | .CONST 0x0001 ; Number of locals 0423 BODY_0420: 0423 INIT_0420: 0423 e002 | | Load 0x0,0x2 0424 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51 0425 00e3 | | Load_Encached Natural_Cache 0426 e002 | | Load 0x0,0x2 0427 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0428 e002 | | Load 0x0,0x2 0429 1b0e | | Execute Package,Field_Read,Field_Number 0xe 042a e002 | | Load 0x0,0x2 042b 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 042c e407 | | Load 0x2,0x7 042d 0a01 | | Execute_Immediate Plus,0x1 042e 00d8 | | Load_Top At_Offset_0 042f 00e3 | | Load_Encached Natural_Cache 0430 0260 | ` | Execute Discrete,In_Type 0431 7001 |p | Jump_Nonzero 0x433 0432 0801 | | Execute_Immediate Raise,0x1 0433 e003 | | Load 0x0,0x3 0434 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0435 e40a | | Load 0x2,0xa 0436 e002 | | Load 0x0,0x2 0437 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 0438 c406 | | Store 0x2,0x6 0439 c402 | | Store 0x2,0x2 043a c403 | | Store 0x2,0x3 043b c404 | | Store 0x2,0x4 043c c405 | | Store 0x2,0x5 043d e405 | | Load 0x2,0x5 043e 6802 |h | Jump_Zero 0x441 043f 4800 |H | Short_Literal 0x0 0440 00ca | | Action Exit_Nullary_Function 0441 4801 |H | Short_Literal 0x1 0442 00ca | | Action Exit_Nullary_Function 0443 0000 0000 | | .BLANK 0000[0x5] 0448 ; -------------------------------------------------------------------------------------- 0448 ; SUBPROGRAM 0448 ; -------------------------------------------------------------------------------------- 0448 044b | K | .CONST 0x044b ; Address of begin 0449 0459 | Y | .CONST 0x0459 ; Address of exception handler 044a 0001 | | .CONST 0x0001 ; Number of locals 044b BODY_0448: 044b INIT_0448: 044b e5ff | | Load 0x2,-0x1 044c 8005 | | Call 0x0,0x5 044d 4801 |H | Short_Literal 0x1 044e 4803 |H | Short_Literal 0x3 044f 0262 | b | Execute Discrete,In_Range 0450 7007 |p | Jump_Nonzero 0x458 0451 7800 |x | Jump 0x452 0452 e5fa | | Load 0x2,-0x6 0453 0092 0467 | g| Action Push_String_Extended,0x467 ; "Stopped in debugger" 0455 e015 | | Load 0x0,0x15 0456 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0457 00d1 | | Pop_Control Pop_Count_1 0458 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0459 TRAP_0448: 0459 0007 | | Action Break_Optional 045a e5fa | | Load 0x2,-0x6 045b 0092 0468 | h| Action Push_String_Extended,0x468 ; "Task is unknown" 045d e015 | | Load 0x0,0x15 045e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 045f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0460 ; -------------------------------------------------------------------------------------- 0460 ; STRING TABLE 0460 ; -------------------------------------------------------------------------------------- 0460 0014 | | .STRTAB 0x0014->0x046a ; "Non-existent stack frame" 0461 002a | * | .STRTAB 0x002a->0x0476 ; "Not in scope" 0462 0034 | 4 | .STRTAB 0x0034->0x047c ; "Temporarily not accessible" 0463 004c | L | .STRTAB 0x004c->0x0489 ; "Unknown exception: " 0464 005d | ] | .STRTAB 0x005d->0x0492 ; "Nonexistent task" 0465 006b | k | .STRTAB 0x006b->0x049a ; "Program has been recompiled since debugger started" 0466 009b | | .STRTAB 0x009b->0x04b3 ; "Wierd state" 0467 00a4 | | .STRTAB 0x00a4->0x04b9 ; "Stopped in debugger" 0468 00b5 | | .STRTAB 0x00b5->0x04c2 ; "Task is unknown" 0469 00c2 | | .STREND 0x00c2->0x04ca 046a 4e6f 6e2d |Non-| .STRTAB_STRINGS 04ca 0000 0000 | | .BLANK 0000[0x6] 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; Debug Table 04d0 ; -------------------------------------------------------------------------------------- 04d0 0004 0007 | | .DEBUG4 0x0004,0x0007,0x818f,0x0000,0x0001,0x0000 04d6 0606 ead5 | | .XXX[0x12a] 04d8 0000 0002 | | 04da aeb1 0a06 | | 04dc 06ed 3600 | 6 | 04de 0000 02ae | | 04e0 b10a 0606 | | 04e2 ef97 0000 | | 04e4 0002 aeb1 | | 04e6 0a06 06f1 | | 04e8 9000 0000 | | 04ea 02ae b10a | | 04ec 0606 f268 | h| 04ee 106d c902 | m | 04f0 aeb1 0a06 | | 04f2 06f3 9810 | | 04f4 6e21 02ae |n! | 04f6 b10a 0606 | | 04f8 f4d0 106e | n| 04fa 7902 aeb1 |y | 04fc 0a06 06f6 | | 04fe 6010 6ed1 |` n | 0500 02ae b10a | | 0502 0606 f7d0 | | 0504 106f 2902 | o) | 0506 aeb1 0a06 | | 0508 06f9 4010 | @ | 050a 6f81 02ae |o | 050c b10a 0606 | | 050e fa50 106f | P o| 0510 d902 aeb1 | | 0512 0a06 06fd | | 0514 4100 0000 |A | 0516 02ae b10a | | 0518 0606 ff62 | b| 051a 0000 0002 | | 051c aeb1 0a06 | | 051e 0700 2a10 | * | 0520 70e1 02ae |p | 0522 b10a 0607 | | 0524 0122 1071 | " q| 0526 3902 aeb1 |9 | 0528 0a06 0702 | | 052a 7a10 7191 |z q | 052c 02ae b10a | | 052e 0607 0352 | R| 0530 1071 e902 | q | 0532 aeb1 0a06 | | 0534 0704 2210 | " | 0536 7241 02ae |rA | 0538 b10a 0607 | | 053a 04f2 1072 | r| 053c 9902 aeb1 | | 053e 0a06 0705 | | 0540 9210 72f1 | r | 0542 02ae b10a | | 0544 0607 066a | j| 0546 1073 4902 | sI | 0548 aeb1 0a06 | | 054a 0708 1210 | | 054c 73a1 02ae |s | 054e b10a 0607 | | 0550 0922 1073 | " s| 0552 f902 aeb1 | | 0554 0a06 070a | | 0556 1a10 7451 | tQ| 0558 02ae b10a | | 055a 0607 0b22 | "| 055c 1074 a902 | t | 055e aeb1 0a06 | | 0560 070c 2a10 | * | 0562 7501 02ae |u | 0564 b10a 0607 | | 0566 0f63 0000 | c | 0568 0002 aeb1 | | 056a 0a06 0712 | | 056c 6400 0000 |d | 056e 02ae b10a | | 0570 0607 14ed | | 0572 0000 0002 | | 0574 aeb1 0a06 | | 0576 0717 3600 | 6 | 0578 0000 02ae | | 057a b10a 0607 | | 057c 195f 0000 | _ | 057e 0002 aeb1 | | 0580 0a06 071b | | 0582 7800 0000 |x | 0584 02ae b10a | | 0586 0607 1e41 | A| 0588 0000 0002 | | 058a aeb1 0a06 | | 058c 0720 aa00 | | 058e 0000 02ae | | 0590 b10a 0607 | | 0592 2363 0000 |#c | 0594 0002 aeb1 | | 0596 0a06 0726 | &| 0598 1c00 0000 | | 059a 02ae b10a | | 059c 0607 28d5 | ( | 059e 0000 0002 | | 05a0 aeb1 0a06 | | 05a2 072b 2e00 | +. | 05a4 0000 02ae | | 05a6 b10a 0607 | | 05a8 2dc7 0000 |- | 05aa 0002 aeb1 | | 05ac 0a06 0730 | 0| 05ae 1000 0000 | | 05b0 02ae b10a | | 05b2 0607 3329 | 3)| 05b4 0000 0002 | | 05b6 aeb1 0a06 | | 05b8 0735 5a00 | 5Z | 05ba 0000 02ae | | 05bc b10a 0607 | | 05be 3853 0000 |8S | 05c0 0002 aeb1 | | 05c2 0a06 073c | <| 05c4 2c00 0000 |, | 05c6 02ae b10a | | 05c8 0607 3fbd | ? | 05ca 0000 0002 | | 05cc aeb1 0a06 | | 05ce 0743 2600 | C& | 05d0 0000 02ae | | 05d2 b10a 0607 | | 05d4 46f7 0000 |F | 05d6 0002 aeb1 | | 05d8 0a06 0749 | I| 05da b800 0000 | | 05dc 02ae b10a | | 05de 0607 4ad8 | J | 05e0 107c e902 | | | 05e2 aeb1 0a06 | | 05e4 074b f810 | K | 05e6 7d41 02ae |}A | 05e8 b10a 0607 | | 05ea 4d68 107d |Mh }| 05ec 9902 aeb1 | | 05ee 0a06 074e | N| 05f0 c810 7df1 | } | 05f2 02ae b10a | | 05f4 0607 4fe0 | O | 05f6 107e 4902 | ~I | 05f8 aeb1 0a06 | | 05fa 0752 5100 | RQ | 05fc 0000 02ae | | 05fe b10a 0607 | |