|
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_03c0fe, 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 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 0000 0000 | | .BLANK 0000[0x12a]