|
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_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 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 4d41 150c |MA | .XXX[0x17a] 0288 2911 2505 |) % | 028a 3904 2885 |9 ( | 028c 2535 4131 |%5A1| 028e 1535 1539 | 5 9| 0290 5105 5125 |Q Q%| 0292 3d38 b911 |=8 | 0294 2505 3904 |% 9 | 0296 9d4d 4115 | MA | 0298 0c29 0d3d | ) =| 029a 3535 3d38 |55=8| 029c 2885 0d3d |( =| 029e 3535 0539 |55 9| 02a0 114c b90d | L | 02a2 3d35 353d |=55=| 02a4 389d 4d41 |8 MA| 02a6 150c 2828 | ((| 02a8 8551 3d3d | Q==| 02aa 314c b949 |1L I| 02ac 410c b949 |A I| 02ae 1558 e57c | X || 02b0 c57d 4d41 | }MA| 02b2 150c b94d | M| 02b4 5105 5114 |Q Q | 02b6 b90d 3d35 | =5| 02b8 4125 3115 |A%1 | 02ba 497d 4d5d |I}M]| 02bc 2551 0d21 |%Q !| 02be 154c 2885 | L( | 02c0 0d3d 3535 | =55| 02c2 0539 114c | 9 L| 02c4 b94d 654d | MeM| 02c6 5115 357d |Q 5}| 02c8 3505 2539 |5 %9| 02ca 5115 3905 |Q 9 | 02cc 390d 14b9 |9 | 02ce 4915 58c4 |I X | 02d0 c57c c4d1 | | | 02d2 7d4d 4115 |}MA | 02d4 0c29 5df1 | )] | 02d6 f1f0 80d4 | | 02d8 bcc0 d0bc | | 02da e4c4 80c8 | | 02dc c8e8 d0e4 | | 02de e8cc ddf1 | | 02e0 4d41 150d |MA | 02e2 7d59 2515 |}Y% | 02e4 5df1 f1f0 |] | 02e6 2905 3915 |) 9 | 02e8 515d 3d49 |Q]=I| 02ea 2d7d 4155 |-}AU| 02ec 0931 250c | 1% | 02ee f4f9 490d | I | 02f0 3d11 f111 |= | 02f2 3915 515d |9 Q]| 02f4 3d49 2d7d |=I-}| 02f6 4155 0931 |AU 1| 02f8 250c f4f9 |% | 02fa 495d f151 |I] Q| 02fc 48c4 c0c0 |H | 02fe c1f0 2885 | ( | 0300 0d3d 3535 | =55| 0302 0539 114c | 9 L| 0304 b94d 654d | MeM| 0306 5115 357d |Q 5}| 0308 3505 2539 |5 %9| 030a 5115 3905 |Q 9 | 030c 390d 14b9 |9 | 030e 4915 58c4 |I X | 0310 c57c c4d1 | | | 0312 7d4d 4115 |}MA | 0314 0c29 6428 | )d(| 0316 2951 4905 |)QI | 0318 394d 413d |9MA=| 031a 4951 7d39 |IQ}9| 031c 0535 1428 | 5 (| 031e 8551 3d3d | Q==| 0320 314c b939 |1L 9| 0322 1551 5d3d | Q]=| 0324 492d 2539 |I-%9| 0326 1cb9 5149 | QI| 0328 0539 4d41 | 9MA| 032a 3d49 517d |=IQ}| 032c 3905 3514 |9 5 | 032e 9d4d 4115 | MA | 0330 0c29 5115 | )Q | 0332 3139 1550 |19 P| 0334 2885 0d3d |( =| 0336 3535 0539 |55 9| 0338 114c b951 | L Q| 033a 1531 3915 | 19 | 033c 509d 4d41 |P MA| 033e 150c 294d | )M| 0340 213d 5d7d |!=]}| 0342 3551 4d7d |5QM}| 0344 4149 3d19 |AI= | 0346 2531 154c |%1 L| 0348 2885 0d3d |( =| 034a 3535 0539 |55 9| 034c 114c b94d | L M| 034e 654d 5115 |eMQ | 0350 357d 3505 |5}5 | 0352 2539 5115 |%9Q | 0354 3905 390d |9 9 | 0356 14b9 4915 | I | 0358 58c4 c57c |X || 035a c4d1 7d4d | }M| 035c 4115 0cb9 |A | 035e 5539 2551 |U9%Q| 0360 4cb9 4d21 |L M!| 0362 3d5d 7d35 |=]}5| 0364 514d 7d41 |QM}A| 0366 493d 1925 |I= %| 0368 3115 4c9d |1 L | 036a 4d41 150c |MA | 036c 294d 213d |)M!=| 036e 5d7d 293d |]})=| 0370 097d 3905 | }9 | 0372 3515 4c28 |5 L(| 0374 850d 3d35 | =5| 0376 3505 3911 |5 9 | 0378 4cb9 4d65 |L Me| 037a 4d51 1535 |MQ 5| 037c 7d35 0525 |}5 %| 037e 3951 1539 |9Q 9| 0380 0539 0d14 | 9 | 0382 b949 1558 | I X| 0384 c4c5 7cc4 | | | 0386 d17d 4d41 | }MA| 0388 150c b955 | U| 038a 3925 514c |9%QL| 038c b94d 213d | M!=| 038e 5d7d 293d |]})=| 0390 097d 3905 | }9 | 0392 3515 4c9d |5 L | 0394 4d41 150c |MA | 0396 2925 3951 |)%9Q| 0398 1549 0d21 | I !| 039a 0539 1d14 | 9 | 039c 2885 513d |( Q=| 039e 3d31 4cb9 |=1L | 03a0 3915 515d |9 Q]| 03a2 3d49 2d25 |=I-%| 03a4 391c b925 |9 %| 03a6 3951 1549 |9Q I| 03a8 0d21 0539 | ! 9| 03aa 1d14 9d4d | M| 03ac 4115 0c29 |A )| 03ae 1951 417d | QA}| 03b0 1115 194c | L| 03b2 2885 513d |( Q=| 03b4 3d31 4cb9 |=1L | 03b6 3915 515d |9 Q]| 03b8 3d49 2d25 |=I-%| 03ba 391c b919 |9 | 03bc 5141 7d11 |QA} | 03be 1519 4c9d | L | 03c0 4d41 150c |MA | 03c2 2911 2505 |) % | 03c4 3905 7d3d |9 }=| 03c6 0929 150d | ) | 03c8 517d 1511 |Q} | 03ca 2551 3d48 |%Q=H| 03cc 2885 513d |( Q=| 03ce 3d31 4cb9 |=1L | 03d0 1125 0539 | % 9| 03d2 057d 3d09 | }= | 03d4 2915 0d51 |) Q| 03d6 7d15 1125 |} %| 03d8 513d 489d |Q=H | 03da 4d41 150c |MA | 03dc 2951 4905 |)QI | 03de 394d 1915 |9M | 03e0 497d 1d15 |I} | 03e2 3915 4925 |9 I%| 03e4 0c28 8551 | ( Q| 03e6 3d3d 314c |==1L| 03e8 b939 1551 | 9 Q| 03ea 5d3d 492d |]=I-| 03ec 2539 1cb9 |%9 | 03ee 5149 0539 |QI 9| 03f0 4d19 1549 |M I| 03f2 7d1d 1539 |} 9| 03f4 1549 250c | I% | 03f6 9d4d 4115 | MA | 03f8 0c29 4941 | )IA| 03fa 0d7d 4149 | }AI| 03fc 3d11 550d |= U | 03fe 5028 8551 |P( Q|