|
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: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦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 0280 | | .CONST 0x0280 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00b3 | | .CONST 0x00b3 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 003d | = | .CONST 0x003d ; Number of locals 000b INIT_0008: 000b 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 000d 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 000f 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0011 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0013 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0015 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0017 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 0019 00bf | | Action Accept_Activation 001a 0092 0264 | d| Action Push_String_Extended,0x264 ; "Task not stopped inside debugger" 001c 4800 |H | Short_Literal 0x0 001d e002 | | Load 0x0,0x2 001e 0a01 | | Execute_Immediate Plus,0x1 001f e001 | | Load 0x0,0x1 0020 01d7 | | Execute Vector,Field_Read 0021 00f5 | | Load_Encached Unused21 0022 037d | } | Declare_Type Task,Defined 0023 036f | o | Declare_Variable Task 0024 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call 0026 029d 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call 0028 a003 | | Store_Unchecked 0x0,0x3 0029 00c6 | | Action Check_Subprogram_Elaborated 002a e004 | | Load 0x0,0x4 002b 1d17 | | Execute_Immediate Reference_Lex_1,0x17 002c 4800 |H | Short_Literal 0x0 002d 0093 0000 | | push_full_address 0x0 002f 60c4 |` | Indirect_Literal Discrete,0xf4,{0x80000000, 0x00050000} 0030 0273 | s | Execute Discrete,Plus 0031 e005 | | Load 0x0,0x5 0032 0273 | s | Execute Discrete,Plus 0033 e006 | | Load 0x0,0x6 0034 0273 | s | Execute Discrete,Plus 0035 4800 |H | Short_Literal 0x0 0036 0007 | | Action Break_Optional 0037 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call 0039 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call 003b a003 | | Store_Unchecked 0x0,0x3 003c 00c6 | | Action Check_Subprogram_Elaborated 003d e007 | | Load 0x0,0x7 003e 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 003f 4800 |H | Short_Literal 0x0 0040 0093 0000 | | push_full_address 0x0 0042 60ad |` | Indirect_Literal Discrete,0xf0,{0x80000000, 0x00040000} 0043 0273 | s | Execute Discrete,Plus 0044 e005 | | Load 0x0,0x5 0045 0273 | s | Execute Discrete,Plus 0046 e008 | | Load 0x0,0x8 0047 0273 | s | Execute Discrete,Plus 0048 4800 |H | Short_Literal 0x0 0049 0007 | | Action Break_Optional 004a 1d0e | | Execute_Immediate Reference_Lex_1,0xe 004b 00c7 | | Action Elaborate_Subprogram 004c 1d0f | | Execute_Immediate Reference_Lex_1,0xf 004d 00c7 | | Action Elaborate_Subprogram 004e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 004f 00c7 | | Action Elaborate_Subprogram 0050 029d 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call 0052 029d 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call 0054 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call 0056 029d 021b | | Declare_Subprogram INIT_0218,For_Outer_Call 0058 029d 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call 005a a009 | | Store_Unchecked 0x0,0x9 005b 00c6 | | Action Check_Subprogram_Elaborated 005c 00e2 | | Load_Encached Integer_Cache 005d e004 | | Load 0x0,0x4 005e 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 005f 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 0060 0093 0000 | | push_full_address 0x0 0062 6089 |` | Indirect_Literal Discrete,0xec,{0x80000000, 0x00030000} 0063 0273 | s | Execute Discrete,Plus 0064 e005 | | Load 0x0,0x5 0065 0273 | s | Execute Discrete,Plus 0066 e00a | | Load 0x0,0xa 0067 0273 | s | Execute Discrete,Plus 0068 4800 |H | Short_Literal 0x0 0069 0007 | | Action Break_Optional 006a 029d 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call 006c 029d 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call 006e a009 | | Store_Unchecked 0x0,0x9 006f 00c6 | | Action Check_Subprogram_Elaborated 0070 00e2 | | Load_Encached Integer_Cache 0071 00e2 | | Load_Encached Integer_Cache 0072 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 0073 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 0074 0093 0000 | | push_full_address 0x0 0076 6071 |`q | Indirect_Literal Discrete,0xe8,{0x80000000, 0x00020000} 0077 0273 | s | Execute Discrete,Plus 0078 e005 | | Load 0x0,0x5 0079 0273 | s | Execute Discrete,Plus 007a e00b | | Load 0x0,0xb 007b 0273 | s | Execute Discrete,Plus 007c 4800 |H | Short_Literal 0x0 007d 0007 | | Action Break_Optional 007e 029d 021b | | Declare_Subprogram INIT_0218,For_Outer_Call 0080 a003 | | Store_Unchecked 0x0,0x3 0081 00c6 | | Action Check_Subprogram_Elaborated 0082 e004 | | Load 0x0,0x4 0083 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 0084 4800 |H | Short_Literal 0x0 0085 0093 0000 | | push_full_address 0x0 0087 605c |`\ | Indirect_Literal Discrete,0xe4,{0x80000000, 0x00010000} 0088 0273 | s | Execute Discrete,Plus 0089 e005 | | Load 0x0,0x5 008a 0273 | s | Execute Discrete,Plus 008b e00c | | Load 0x0,0xc 008c 0273 | s | Execute Discrete,Plus 008d 4800 |H | Short_Literal 0x0 008e 0007 | | Action Break_Optional 008f 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0090 00c7 | | Action Elaborate_Subprogram 0091 e00d | | Load 0x0,0xd 0092 e00e | | Load 0x0,0xe 0093 e00f | | Load 0x0,0xf 0094 e010 | | Load 0x0,0x10 0095 e011 | | Load 0x0,0x11 0096 a012 | | Store_Unchecked 0x0,0x12 0097 e013 | | Load 0x0,0x13 0098 e014 | | Load 0x0,0x14 0099 a015 | | Store_Unchecked 0x0,0x15 009a a016 | | Store_Unchecked 0x0,0x16 009b a017 | | Store_Unchecked 0x0,0x17 009c a018 | | Store_Unchecked 0x0,0x18 009d a019 | | Store_Unchecked 0x0,0x19 009e a01a | | Store_Unchecked 0x0,0x1a 009f e01b | | Load 0x0,0x1b 00a0 e01c | | Load 0x0,0x1c 00a1 a01d | | Store_Unchecked 0x0,0x1d 00a2 a01e | | Store_Unchecked 0x0,0x1e 00a3 a01f | | Store_Unchecked 0x0,0x1f 00a4 a020 | | Store_Unchecked 0x0,0x20 00a5 a021 | ! | Store_Unchecked 0x0,0x21 00a6 a022 | " | Store_Unchecked 0x0,0x22 00a7 4816 |H | Short_Literal 0x16 00a8 e215 | | Load 0x1,0x15 00a9 020e | | Execute Module,Augment_Imports 00aa 0007 | | Action Break_Optional 00ab 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00ac 00c7 | | Action Elaborate_Subprogram 00ad 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00ae 00c7 | | Action Elaborate_Subprogram 00af 029d 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call 00b1 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00b2 00c7 | | Action Elaborate_Subprogram 00b3 BODY_0008: 00b3 00be | | Action Activate_Tasks 00b4 00bc | | Action Signal_Activated 00b5 00bb | | Action Signal_Completion 00b6 0000 0000 | | .XXX[0x2] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00c2 | | .CONST 0x00c2 ; Address of begin 00b9 00e0 | | .CONST 0x00e0 ; Address of exception handler 00ba 0005 | | .CONST 0x0005 ; Number of locals 00bb INIT_00b8: 00bb e004 | | Load 0x0,0x4 00bc 0007 | | Action Break_Optional 00bd e5fe | | Load 0x2,-0x2 00be e007 | | Load 0x0,0x7 00bf 03f1 | | Declare_Variable Discrete,With_Value 00c0 00e1 | | Load_Encached Boolean_Cache 00c1 00e1 | | Load_Encached Boolean_Cache 00c2 BODY_00b8: 00c2 4800 |H | Short_Literal 0x0 00c3 a5fd | | Store_Unchecked 0x2,-0x3 00c4 00da | | Load_Top At_Offset_2 00c5 e5ff | | Load 0x2,-0x1 00c6 e21f | | Load 0x1,0x1f 00c7 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00c8 e221 | ! | Load 0x1,0x21 00c9 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00ca 8003 | | Call 0x0,0x3 00cb 005b | [ | Store_Top Discrete,At_Offset_3 00cc e5fe | | Load 0x2,-0x2 00cd 0f00 | | Execute_Immediate Equal,0x0 00ce 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00cf 00e1 | | Load_Encached Boolean_Cache 00d0 00da | | Load_Top At_Offset_2 00d1 e5ff | | Load 0x2,-0x1 00d2 8023 | # | Call 0x0,0x23 00d3 e5ff | | Load 0x2,-0x1 00d4 4804 |H | Short_Literal 0x4 00d5 e215 | | Load 0x1,0x15 00d6 170d | | Execute Task,Entry_Call,Field_Number 0xd 00d7 0059 | Y | Store_Top Discrete,At_Offset_1 00d8 00d8 | | Load_Top At_Offset_0 00d9 6802 |h | Jump_Zero 0xdc 00da e5ff | | Load 0x2,-0x1 00db 820f | | Call 0x1,0xf 00dc 4801 |H | Short_Literal 0x1 00dd e5ff | | Load 0x2,-0x1 00de 8024 | $ | Call 0x0,0x24 00df 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00e0 TRAP_00b8: 00e0 0007 | | Action Break_Optional 00e1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00e2 0000 0000 | | .XXX[0x2] 00e4 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 00e8 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 00ec 8000 0000 | | .LITERAL {0x80000000, 0x00030000} 00f0 8000 0000 | | .LITERAL {0x80000000, 0x00040000} 00f4 8000 0000 | | .LITERAL {0x80000000, 0x00050000} 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fd | | .CONST 0x00fd ; Address of begin 00f9 010f | | .CONST 0x010f ; Address of exception handler 00fa 0002 | | .CONST 0x0002 ; Number of locals 00fb INIT_00f8: 00fb e007 | | Load 0x0,0x7 00fc 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 00fd BODY_00f8: 00fd 00d8 | | Load_Top At_Offset_0 00fe e5ff | | Load 0x2,-0x1 00ff e21f | | Load 0x1,0x1f 0100 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0101 e221 | ! | Load 0x1,0x21 0102 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0103 8003 | | Call 0x0,0x3 0104 0059 | Y | Store_Top Discrete,At_Offset_1 0105 00e1 | | Load_Encached Boolean_Cache 0106 4800 |H | Short_Literal 0x0 0107 e5ff | | Load 0x2,-0x1 0108 8023 | # | Call 0x0,0x23 0109 e5ff | | Load 0x2,-0x1 010a 4804 |H | Short_Literal 0x4 010b e215 | | Load 0x1,0x15 010c 170d | | Execute Task,Entry_Call,Field_Number 0xd 010d c5fe | | Store 0x2,-0x2 010e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 010f TRAP_00f8: 010f 0007 | | Action Break_Optional 0110 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0111 0000 0000 | | .BLANK 0000[0x7] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011c | | .CONST 0x011c ; Address of begin 0119 0138 | 8 | .CONST 0x0138 ; Address of exception handler 011a 0002 | | .CONST 0x0002 ; Number of locals 011b INIT_0118: 011b e004 | | Load 0x0,0x4 011c BODY_0118: 011c 00cf | | Action Mark_Auxiliary 011d e025 | % | Load 0x0,0x25 011e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 011f 4802 |H | Short_Literal 0x2 0120 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0121 00d9 | | Load_Top At_Offset_1 0122 e5ff | | Load 0x2,-0x1 0123 e218 | | Load 0x1,0x18 0124 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0125 e21a | | Load 0x1,0x1a 0126 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0127 8003 | | Call 0x0,0x3 0128 005a | Z | Store_Top Discrete,At_Offset_2 0129 00d9 | | Load_Top At_Offset_1 012a 0f02 | | Execute_Immediate Equal,0x2 012b 7001 |p | Jump_Nonzero 0x12d 012c 7806 |x | Jump 0x133 012d 600e |` | Indirect_Literal Discrete,0x13c,{0x00000000, 0x00960000} 012e 4824 |H$ | Short_Literal 0x24 012f e025 | % | Load 0x0,0x25 0130 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0131 00c9 | | Action Pop_Auxiliary_Loop 0132 7fea | | Jump 0x11d 0133 00ce | | Action Pop_Auxiliary 0134 4801 |H | Short_Literal 0x1 0135 e5ff | | Load 0x2,-0x1 0136 8024 | $ | Call 0x0,0x24 0137 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0138 TRAP_0118: 0138 0007 | | Action Break_Optional 0139 4502 |E | Exit_Suprogram New_Top_Offset 0x2 013a 0000 0000 | | .XXX[0x2] 013c 0000 0000 | | .LITERAL {0x00000000, 0x00960000} 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0145 | E | .CONST 0x0145 ; Address of begin 0141 0173 | s | .CONST 0x0173 ; Address of exception handler 0142 0002 | | .CONST 0x0002 ; Number of locals 0143 INIT_0140: 0143 e004 | | Load 0x0,0x4 0144 0007 | | Action Break_Optional 0145 BODY_0140: 0145 e5fe | | Load 0x2,-0x2 0146 6803 |h | Jump_Zero 0x14a 0147 4801 |H | Short_Literal 0x1 0148 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0149 7802 |x | Jump 0x14c 014a 4800 |H | Short_Literal 0x0 014b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 014c 00db | | Load_Top At_Offset_3 014d 8026 | & | Call 0x0,0x26 014e 6813 |h | Jump_Zero 0x162 014f 00d8 | | Load_Top At_Offset_0 0150 e027 | ' | Load 0x0,0x27 0151 e229 | ) | Load 0x1,0x29 0152 e22a | * | Load 0x1,0x2a 0153 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 0154 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 0155 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 0156 8009 | | Call 0x0,0x9 0157 0059 | Y | Store_Top Discrete,At_Offset_1 0158 e027 | ' | Load 0x0,0x27 0159 00d8 | | Load_Top At_Offset_0 015a e231 | 1 | Load 0x1,0x31 015b e232 | 2 | Load 0x1,0x32 015c 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 015d 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 015e 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 015f 8009 | | Call 0x0,0x9 0160 c027 | ' | Store 0x0,0x27 0161 780c |x | Jump 0x16e 0162 00d8 | | Load_Top At_Offset_0 0163 e5ff | | Load 0x2,-0x1 0164 e238 | 8 | Load 0x1,0x38 0165 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 0166 e23a | : | Load 0x1,0x3a 0167 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b 0168 8003 | | Call 0x0,0x3 0169 0059 | Y | Store_Top Discrete,At_Offset_1 016a 4824 |H$ | Short_Literal 0x24 016b e5ff | | Load 0x2,-0x1 016c e025 | % | Load 0x0,0x25 016d 180f | | Execute Package,Field_Execute,Field_Number 0xf 016e e5fd | | Load 0x2,-0x3 016f e00d | | Load 0x0,0xd 0170 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0171 c5fd | | Store 0x2,-0x3 0172 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0173 TRAP_0140: 0173 0007 | | Action Break_Optional 0174 e5fd | | Load 0x2,-0x3 0175 00ea | | Load_Encached Null_String_Cache 0176 e028 | ( | Load 0x0,0x28 0177 180d | | Execute Package,Field_Execute,Field_Number 0xd 0178 0092 0265 | e| Action Push_String_Extended,0x265 ; "Exception raised:" 017a e00d | | Load 0x0,0xd 017b 1817 | | Execute Package,Field_Execute,Field_Number 0x17 017c c5fd | | Store 0x2,-0x3 017d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 017e 0000 0000 | | .XXX[0x2] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0184 0000 0000 | | .BLANK 0000[0x4] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b 4800 |H | Short_Literal 0x0 018c e215 | | Load 0x1,0x15 018d 170e | | Execute Task,Entry_Call,Field_Number 0xe 018e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 018f 0000 | | .XXX[0x1] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 4800 |H | Short_Literal 0x0 0194 e215 | | Load 0x1,0x15 0195 170f | | Execute Task,Entry_Call,Field_Number 0xf 0196 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0197 0000 | | .XXX[0x1] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 00db | | Load_Top At_Offset_3 019c 3c12 |< | Execute Record,Field_Read,Field_Number 0x12 019d 6807 |h | Jump_Zero 0x1a5 019e 00db | | Load_Top At_Offset_3 019f 3c14 |< | Execute Record,Field_Read,Field_Number 0x14 01a0 a5fd | | Store_Unchecked 0x2,-0x3 01a1 4800 |H | Short_Literal 0x0 01a2 e5fe | | Load 0x2,-0x2 01a3 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 01a4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01a5 4802 |H | Short_Literal 0x2 01a6 a5fd | | Store_Unchecked 0x2,-0x3 01a7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab e5fd | | Load 0x2,-0x3 01ac e004 | | Load 0x0,0x4 01ad 025e | ^ | Execute Discrete,Convert 01ae e5fe | | Load 0x2,-0x2 01af e5ff | | Load 0x2,-0x1 01b0 e029 | ) | Load 0x0,0x29 01b1 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01b2 00d9 | | Load_Top At_Offset_1 01b3 00d0 | | Action Swap_Control 01b4 0260 | ` | Execute Discrete,In_Type 01b5 7001 |p | Jump_Nonzero 0x1b7 01b6 0801 | | Execute_Immediate Raise,0x1 01b7 8216 | | Call 0x1,0x16 01b8 00d1 | | Pop_Control Pop_Count_1 01b9 c5fd | | Store 0x2,-0x3 01ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01bb 0000 0000 | | .BLANK 0000[0x5] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 e5fd | | Load 0x2,-0x3 01c4 e5fe | | Load 0x2,-0x2 01c5 3813 |8 | Execute Record,Field_Write,Field_Number 0x13 01c6 e5fd | | Load 0x2,-0x3 01c7 4800 |H | Short_Literal 0x0 01c8 4801 |H | Short_Literal 0x1 01c9 0262 | b | Execute Discrete,In_Range 01ca 7007 |p | Jump_Nonzero 0x1d2 01cb 4800 |H | Short_Literal 0x0 01cc e5fe | | Load 0x2,-0x2 01cd 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 01ce 4800 |H | Short_Literal 0x0 01cf e5fe | | Load 0x2,-0x2 01d0 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 01d1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01d2 4801 |H | Short_Literal 0x1 01d3 e5fe | | Load 0x2,-0x2 01d4 3811 |8 | Execute Record,Field_Write,Field_Number 0x11 01d5 4801 |H | Short_Literal 0x1 01d6 e5fe | | Load 0x2,-0x2 01d7 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 01d8 4800 |H | Short_Literal 0x0 01d9 e5fe | | Load 0x2,-0x2 01da 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 01db 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01dc 0000 0000 | | .BLANK 0000[0x4] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 e5fd | | Load 0x2,-0x3 01e4 e007 | | Load 0x0,0x7 01e5 025e | ^ | Execute Discrete,Convert 01e6 e5fe | | Load 0x2,-0x2 01e7 e5ff | | Load 0x2,-0x1 01e8 e029 | ) | Load 0x0,0x29 01e9 1b15 | | Execute Package,Field_Read,Field_Number 0x15 01ea 00d9 | | Load_Top At_Offset_1 01eb 00d0 | | Action Swap_Control 01ec 0260 | ` | Execute Discrete,In_Type 01ed 7001 |p | Jump_Nonzero 0x1ef 01ee 0801 | | Execute_Immediate Raise,0x1 01ef 821d | | Call 0x1,0x1d 01f0 00d1 | | Pop_Control Pop_Count_1 01f1 c5fd | | Store 0x2,-0x3 01f2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01f3 0000 0000 | | .BLANK 0000[0x5] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb 00db | | Load_Top At_Offset_3 01fc 3c10 |< | Execute Record,Field_Read,Field_Number 0x10 01fd 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01fe 0000 0000 | | .XXX[0x2] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 e5fd | | Load 0x2,-0x3 0204 e5fe | | Load 0x2,-0x2 0205 3814 |8 | Execute Record,Field_Write,Field_Number 0x14 0206 4801 |H | Short_Literal 0x1 0207 e5fe | | Load 0x2,-0x2 0208 3812 |8 | Execute Record,Field_Write,Field_Number 0x12 0209 4800 |H | Short_Literal 0x0 020a e5fe | | Load 0x2,-0x2 020b 3810 |8 | Execute Record,Field_Write,Field_Number 0x10 020c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 020d 0000 0000 | | .XXX[0x3] 020f 0000 | | 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 4824 |H$ | Short_Literal 0x24 0214 00db | | Load_Top At_Offset_3 0215 e025 | % | Load 0x0,0x25 0216 180f | | Execute Package,Field_Execute,Field_Number 0xf 0217 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b BODY_0218: 021b INIT_0218: 021b INIT_0218: 021b e5fd | | Load 0x2,-0x3 021c e004 | | Load 0x0,0x4 021d 025e | ^ | Execute Discrete,Convert 021e e5fe | | Load 0x2,-0x2 021f e5ff | | Load 0x2,-0x1 0220 e029 | ) | Load 0x0,0x29 0221 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0222 00d9 | | Load_Top At_Offset_1 0223 00d0 | | Action Swap_Control 0224 0260 | ` | Execute Discrete,In_Type 0225 7001 |p | Jump_Nonzero 0x227 0226 0801 | | Execute_Immediate Raise,0x1 0227 8225 | % | Call 0x1,0x25 0228 00d1 | | Pop_Control Pop_Count_1 0229 c5fd | | Store 0x2,-0x3 022a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 022b 0000 0000 | | .BLANK 0000[0x5] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 BODY_0230: 0233 INIT_0230: 0233 INIT_0230: 0233 e5fd | | Load 0x2,-0x3 0234 00d8 | | Load_Top At_Offset_0 0235 00e2 | | Load_Encached Integer_Cache 0236 0260 | ` | Execute Discrete,In_Type 0237 7001 |p | Jump_Nonzero 0x239 0238 0801 | | Execute_Immediate Raise,0x1 0239 e5fe | | Load 0x2,-0x2 023a e5ff | | Load 0x2,-0x1 023b e029 | ) | Load 0x0,0x29 023c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 023d 00d9 | | Load_Top At_Offset_1 023e 00d0 | | Action Swap_Control 023f 0260 | ` | Execute Discrete,In_Type 0240 7001 |p | Jump_Nonzero 0x242 0241 0801 | | Execute_Immediate Raise,0x1 0242 8224 | $ | Call 0x1,0x24 0243 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0244 0000 0000 | | .BLANK 0000[0x4] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b e5fd | | Load 0x2,-0x3 024c 00e2 | | Load_Encached Integer_Cache 024d 025e | ^ | Execute Discrete,Convert 024e e5fe | | Load 0x2,-0x2 024f e5ff | | Load 0x2,-0x1 0250 e029 | ) | Load 0x0,0x29 0251 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0252 00d9 | | Load_Top At_Offset_1 0253 00d0 | | Action Swap_Control 0254 0260 | ` | Execute Discrete,In_Type 0255 7001 |p | Jump_Nonzero 0x257 0256 0801 | | Execute_Immediate Raise,0x1 0257 8226 | & | Call 0x1,0x26 0258 00d1 | | Pop_Control Pop_Count_1 0259 c5fd | | Store 0x2,-0x3 025a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 025b 0000 0000 | | .BLANK 0000[0x5] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0263 | c | .CONST 0x0263 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0001 | | .CONST 0x0001 ; Number of locals 0263 BODY_0260: 0263 INIT_0260: 0263 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0264 ; -------------------------------------------------------------------------------------- 0264 ; STRING TABLE 0264 ; -------------------------------------------------------------------------------------- 0264 0006 | | .STRTAB 0x0006->0x0267 ; "Task not stopped inside debugger" 0265 0024 | $ | .STRTAB 0x0024->0x0277 ; "Exception raised:" 0266 0033 | 3 | .STREND 0x0033->0x027f 0267 5461 736b |Task| .STRTAB_STRINGS 0280 ; -------------------------------------------------------------------------------------- 0280 ; Debug Table 0280 ; -------------------------------------------------------------------------------------- 0280 0004 000c | | .DEBUG4 0x0004,0x000c,0xec90,0x0000,0x0001,0x0000 0286 0000 0000 | | .BLANK 0000[0x17a]