|
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_6148f2
└─⟦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 01e8 | | .CONST 0x01e8 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00de | | .CONST 0x00de ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0042 | B | .CONST 0x0042 ; Number of locals 000b INIT_0008: 000b 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 000d 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 000f 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 0011 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0013 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0015 a002 | | Store_Unchecked 0x0,0x2 0016 00c6 | | Action Check_Subprogram_Elaborated 0017 e003 | | Load 0x0,0x3 0018 0129 | ) | Execute Any,Make_Visible 0019 e004 | | Load 0x0,0x4 001a 0320 | | Declare_Variable Record,Duplicate 001b 00cd | | Action Spare6_Action 001c 0129 | ) | Execute Any,Make_Visible 001d e005 | | Load 0x0,0x5 001e 0129 | ) | Execute Any,Make_Visible 001f 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0020 0129 | ) | Execute Any,Make_Visible 0021 0093 0000 | | push_full_address 0x0 0023 60d8 |` | Indirect_Literal Discrete,0xfc,{0x80000000, 0x00060000} 0024 0273 | s | Execute Discrete,Plus 0025 e006 | | Load 0x0,0x6 0026 0273 | s | Execute Discrete,Plus 0027 e007 | | Load 0x0,0x7 0028 0273 | s | Execute Discrete,Plus 0029 0129 | ) | Execute Any,Make_Visible 002a 4800 |H | Short_Literal 0x0 002b 0129 | ) | Execute Any,Make_Visible 002c a008 | | Store_Unchecked 0x0,0x8 002d 00c6 | | Action Check_Subprogram_Elaborated 002e e003 | | Load 0x0,0x3 002f 0129 | ) | Execute Any,Make_Visible 0030 e004 | | Load 0x0,0x4 0031 0320 | | Declare_Variable Record,Duplicate 0032 00cd | | Action Spare6_Action 0033 0129 | ) | Execute Any,Make_Visible 0034 e005 | | Load 0x0,0x5 0035 0129 | ) | Execute Any,Make_Visible 0036 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0037 0129 | ) | Execute Any,Make_Visible 0038 0093 0000 | | push_full_address 0x0 003a 60bd |` | Indirect_Literal Discrete,0xf8,{0x80000000, 0x00050000} 003b 0273 | s | Execute Discrete,Plus 003c e006 | | Load 0x0,0x6 003d 0273 | s | Execute Discrete,Plus 003e e009 | | Load 0x0,0x9 003f 0273 | s | Execute Discrete,Plus 0040 0129 | ) | Execute Any,Make_Visible 0041 4800 |H | Short_Literal 0x0 0042 0129 | ) | Execute Any,Make_Visible 0043 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0045 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0047 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0049 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 004b 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 004d 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 004f a002 | | Store_Unchecked 0x0,0x2 0050 00c6 | | Action Check_Subprogram_Elaborated 0051 e003 | | Load 0x0,0x3 0052 0129 | ) | Execute Any,Make_Visible 0053 e00a | | Load 0x0,0xa 0054 0320 | | Declare_Variable Record,Duplicate 0055 00cd | | Action Spare6_Action 0056 0129 | ) | Execute Any,Make_Visible 0057 e00b | | Load 0x0,0xb 0058 0129 | ) | Execute Any,Make_Visible 0059 1d20 | | Execute_Immediate Reference_Lex_1,0x20 005a 0129 | ) | Execute Any,Make_Visible 005b 0093 0000 | | push_full_address 0x0 005d 6096 |` | Indirect_Literal Discrete,0xf4,{0x80000000, 0x00040000} 005e 0273 | s | Execute Discrete,Plus 005f e006 | | Load 0x0,0x6 0060 0273 | s | Execute Discrete,Plus 0061 e00c | | Load 0x0,0xc 0062 0273 | s | Execute Discrete,Plus 0063 0129 | ) | Execute Any,Make_Visible 0064 4800 |H | Short_Literal 0x0 0065 0129 | ) | Execute Any,Make_Visible 0066 a008 | | Store_Unchecked 0x0,0x8 0067 00c6 | | Action Check_Subprogram_Elaborated 0068 e003 | | Load 0x0,0x3 0069 0129 | ) | Execute Any,Make_Visible 006a e00a | | Load 0x0,0xa 006b 0320 | | Declare_Variable Record,Duplicate 006c 00cd | | Action Spare6_Action 006d 0129 | ) | Execute Any,Make_Visible 006e e00b | | Load 0x0,0xb 006f 0129 | ) | Execute Any,Make_Visible 0070 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0071 0129 | ) | Execute Any,Make_Visible 0072 0093 0000 | | push_full_address 0x0 0074 607b |`{ | Indirect_Literal Discrete,0xf0,{0x80000000, 0x00030000} 0075 0273 | s | Execute Discrete,Plus 0076 e006 | | Load 0x0,0x6 0077 0273 | s | Execute Discrete,Plus 0078 e00d | | Load 0x0,0xd 0079 0273 | s | Execute Discrete,Plus 007a 0129 | ) | Execute Any,Make_Visible 007b 4800 |H | Short_Literal 0x0 007c 0129 | ) | Execute Any,Make_Visible 007d 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 007f 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 0081 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 0083 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 0085 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 0087 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 0089 a002 | | Store_Unchecked 0x0,0x2 008a 00c6 | | Action Check_Subprogram_Elaborated 008b e003 | | Load 0x0,0x3 008c 0129 | ) | Execute Any,Make_Visible 008d e00e | | Load 0x0,0xe 008e 0320 | | Declare_Variable Record,Duplicate 008f 00cd | | Action Spare6_Action 0090 0129 | ) | Execute Any,Make_Visible 0091 e00f | | Load 0x0,0xf 0092 0129 | ) | Execute Any,Make_Visible 0093 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 0094 0129 | ) | Execute Any,Make_Visible 0095 0093 0000 | | push_full_address 0x0 0097 6054 |`T | Indirect_Literal Discrete,0xec,{0x80000000, 0x00020000} 0098 0273 | s | Execute Discrete,Plus 0099 e006 | | Load 0x0,0x6 009a 0273 | s | Execute Discrete,Plus 009b e010 | | Load 0x0,0x10 009c 0273 | s | Execute Discrete,Plus 009d 0129 | ) | Execute Any,Make_Visible 009e 4800 |H | Short_Literal 0x0 009f 0129 | ) | Execute Any,Make_Visible 00a0 a008 | | Store_Unchecked 0x0,0x8 00a1 00c6 | | Action Check_Subprogram_Elaborated 00a2 e003 | | Load 0x0,0x3 00a3 0129 | ) | Execute Any,Make_Visible 00a4 e00e | | Load 0x0,0xe 00a5 0320 | | Declare_Variable Record,Duplicate 00a6 00cd | | Action Spare6_Action 00a7 0129 | ) | Execute Any,Make_Visible 00a8 e00f | | Load 0x0,0xf 00a9 0129 | ) | Execute Any,Make_Visible 00aa 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 00ab 0129 | ) | Execute Any,Make_Visible 00ac 0093 0000 | | push_full_address 0x0 00ae 6039 |`9 | Indirect_Literal Discrete,0xe8,{0x80000000, 0x00010000} 00af 0273 | s | Execute Discrete,Plus 00b0 e006 | | Load 0x0,0x6 00b1 0273 | s | Execute Discrete,Plus 00b2 e011 | | Load 0x0,0x11 00b3 0273 | s | Execute Discrete,Plus 00b4 0129 | ) | Execute Any,Make_Visible 00b5 4800 |H | Short_Literal 0x0 00b6 0129 | ) | Execute Any,Make_Visible 00b7 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 00b9 00bf | | Action Accept_Activation 00ba 1d0d | | Execute_Immediate Reference_Lex_1,0xd 00bb 00c7 | | Action Elaborate_Subprogram 00bc 1d0e | | Execute_Immediate Reference_Lex_1,0xe 00bd 00c7 | | Action Elaborate_Subprogram 00be 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00bf 00c7 | | Action Elaborate_Subprogram 00c0 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00c1 00c7 | | Action Elaborate_Subprogram 00c2 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00c3 00c7 | | Action Elaborate_Subprogram 00c4 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00c5 00c7 | | Action Elaborate_Subprogram 00c6 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00c7 00c7 | | Action Elaborate_Subprogram 00c8 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00c9 00c7 | | Action Elaborate_Subprogram 00ca 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00cb 00c7 | | Action Elaborate_Subprogram 00cc 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00cd 00c7 | | Action Elaborate_Subprogram 00ce 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00cf 00c7 | | Action Elaborate_Subprogram 00d0 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 00d1 00c7 | | Action Elaborate_Subprogram 00d2 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31 00d3 00c7 | | Action Elaborate_Subprogram 00d4 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 00d5 00c7 | | Action Elaborate_Subprogram 00d6 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 00d7 00c7 | | Action Elaborate_Subprogram 00d8 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 00d9 00c7 | | Action Elaborate_Subprogram 00da 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 00db 00c7 | | Action Elaborate_Subprogram 00dc 1d42 | B | Execute_Immediate Reference_Lex_1,0x42 00dd 00c7 | | Action Elaborate_Subprogram 00de BODY_0008: 00de 00bc | | Action Signal_Activated 00df 00bb | | Action Signal_Completion 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 00da | | Load_Top At_Offset_2 00e4 8012 | | Call 0x0,0x12 00e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e6 0000 0000 | | .XXX[0x2] 00e8 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 00ec 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 00f0 8000 0000 | | .LITERAL {0x80000000, 0x00030000} 00f4 8000 0000 | | .LITERAL {0x80000000, 0x00040000} 00f8 8000 0000 | | .LITERAL {0x80000000, 0x00050000} 00fc 8000 0000 | | .LITERAL {0x80000000, 0x00060000} 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00db | | Load_Top At_Offset_3 0104 00db | | Load_Top At_Offset_3 0105 8013 | | Call 0x0,0x13 0106 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0107 0000 | | .XXX[0x1] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010f | | .CONST 0x010f ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0002 | | .CONST 0x0002 ; Number of locals 010b INIT_0108: 010b e003 | | Load 0x0,0x3 010c 0322 | " | Declare_Variable Record 010d 00d8 | | Load_Top At_Offset_0 010e 1c00 | | Execute_Immediate Run_Utility,0x0 010f BODY_0108: 010f 00d8 | | Load_Top At_Offset_0 0110 e014 | | Load 0x0,0x14 0111 e5fe | | Load 0x2,-0x2 0112 e5ff | | Load 0x2,-0x1 0113 8015 | | Call 0x0,0x15 0114 c5fd | | Store 0x2,-0x3 0115 00d1 | | Pop_Control Pop_Count_1 0116 00d8 | | Load_Top At_Offset_0 0117 e5fc | | Load 0x2,-0x4 0118 017d | } | Execute Record,Structure_Write 0119 4503 |E | Exit_Suprogram New_Top_Offset 0x3 011a 0000 0000 | | .BLANK 0000[0x6] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 00da | | Load_Top At_Offset_2 0124 8016 | | Call 0x0,0x16 0125 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0126 0000 0000 | | .XXX[0x2] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012f | / | .CONST 0x012f ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0002 | | .CONST 0x0002 ; Number of locals 012b INIT_0128: 012b e003 | | Load 0x0,0x3 012c 0322 | " | Declare_Variable Record 012d 00d8 | | Load_Top At_Offset_0 012e 1c00 | | Execute_Immediate Run_Utility,0x0 012f BODY_0128: 012f 00d8 | | Load_Top At_Offset_0 0130 e5fe | | Load 0x2,-0x2 0131 e5ff | | Load 0x2,-0x1 0132 8017 | | Call 0x0,0x17 0133 c5fe | | Store 0x2,-0x2 0134 00d1 | | Pop_Control Pop_Count_1 0135 00d8 | | Load_Top At_Offset_0 0136 e5fd | | Load 0x2,-0x3 0137 017d | } | Execute Record,Structure_Write 0138 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0139 0000 0000 | | .BLANK 0000[0x7] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 8018 | | Call 0x0,0x18 0144 00ca | | Action Exit_Nullary_Function 0145 0000 0000 | | .XXX[0x3] 0147 0000 | | 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b 00da | | Load_Top At_Offset_2 014c 8012 | | Call 0x0,0x12 014d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 014e 0000 0000 | | .XXX[0x2] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 00db | | Load_Top At_Offset_3 0154 00db | | Load_Top At_Offset_3 0155 8013 | | Call 0x0,0x13 0156 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0157 0000 | | .XXX[0x1] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015f | _ | .CONST 0x015f ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0002 | | .CONST 0x0002 ; Number of locals 015b INIT_0158: 015b e003 | | Load 0x0,0x3 015c 0322 | " | Declare_Variable Record 015d 00d8 | | Load_Top At_Offset_0 015e 1c00 | | Execute_Immediate Run_Utility,0x0 015f BODY_0158: 015f 00d8 | | Load_Top At_Offset_0 0160 e014 | | Load 0x0,0x14 0161 e5fe | | Load 0x2,-0x2 0162 e5ff | | Load 0x2,-0x1 0163 8015 | | Call 0x0,0x15 0164 c5fd | | Store 0x2,-0x3 0165 00d1 | | Pop_Control Pop_Count_1 0166 00d8 | | Load_Top At_Offset_0 0167 e5fc | | Load 0x2,-0x4 0168 017d | } | Execute Record,Structure_Write 0169 4503 |E | Exit_Suprogram New_Top_Offset 0x3 016a 0000 0000 | | .BLANK 0000[0x6] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 00da | | Load_Top At_Offset_2 0174 8016 | | Call 0x0,0x16 0175 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0176 0000 0000 | | .XXX[0x2] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017f | | .CONST 0x017f ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0002 | | .CONST 0x0002 ; Number of locals 017b INIT_0178: 017b e003 | | Load 0x0,0x3 017c 0322 | " | Declare_Variable Record 017d 00d8 | | Load_Top At_Offset_0 017e 1c00 | | Execute_Immediate Run_Utility,0x0 017f BODY_0178: 017f 00d8 | | Load_Top At_Offset_0 0180 e5fe | | Load 0x2,-0x2 0181 e5ff | | Load 0x2,-0x1 0182 8017 | | Call 0x0,0x17 0183 c5fe | | Store 0x2,-0x2 0184 00d1 | | Pop_Control Pop_Count_1 0185 00d8 | | Load_Top At_Offset_0 0186 e5fd | | Load 0x2,-0x3 0187 017d | } | Execute Record,Structure_Write 0188 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0189 0000 0000 | | .BLANK 0000[0x7] 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 8018 | | Call 0x0,0x18 0194 00ca | | Action Exit_Nullary_Function 0195 0000 0000 | | .XXX[0x3] 0197 0000 | | 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 00da | | Load_Top At_Offset_2 019c 8012 | | Call 0x0,0x12 019d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 019e 0000 0000 | | .XXX[0x2] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 00db | | Load_Top At_Offset_3 01a4 00db | | Load_Top At_Offset_3 01a5 8013 | | Call 0x0,0x13 01a6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01a7 0000 | | .XXX[0x1] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01af | | .CONST 0x01af ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0002 | | .CONST 0x0002 ; Number of locals 01ab INIT_01a8: 01ab e003 | | Load 0x0,0x3 01ac 0322 | " | Declare_Variable Record 01ad 00d8 | | Load_Top At_Offset_0 01ae 1c00 | | Execute_Immediate Run_Utility,0x0 01af BODY_01a8: 01af 00d8 | | Load_Top At_Offset_0 01b0 e014 | | Load 0x0,0x14 01b1 e5fe | | Load 0x2,-0x2 01b2 e5ff | | Load 0x2,-0x1 01b3 8015 | | Call 0x0,0x15 01b4 c5fd | | Store 0x2,-0x3 01b5 00d1 | | Pop_Control Pop_Count_1 01b6 00d8 | | Load_Top At_Offset_0 01b7 e5fc | | Load 0x2,-0x4 01b8 017d | } | Execute Record,Structure_Write 01b9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01ba 0000 0000 | | .BLANK 0000[0x6] 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 00da | | Load_Top At_Offset_2 01c4 8016 | | Call 0x0,0x16 01c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c6 0000 0000 | | .XXX[0x2] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cf | | .CONST 0x01cf ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0002 | | .CONST 0x0002 ; Number of locals 01cb INIT_01c8: 01cb e003 | | Load 0x0,0x3 01cc 0322 | " | Declare_Variable Record 01cd 00d8 | | Load_Top At_Offset_0 01ce 1c00 | | Execute_Immediate Run_Utility,0x0 01cf BODY_01c8: 01cf 00d8 | | Load_Top At_Offset_0 01d0 e5fe | | Load 0x2,-0x2 01d1 e5ff | | Load 0x2,-0x1 01d2 8017 | | Call 0x0,0x17 01d3 c5fe | | Store 0x2,-0x2 01d4 00d1 | | Pop_Control Pop_Count_1 01d5 00d8 | | Load_Top At_Offset_0 01d6 e5fd | | Load 0x2,-0x3 01d7 017d | } | Execute Record,Structure_Write 01d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01d9 0000 0000 | | .BLANK 0000[0x7] 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 8018 | | Call 0x0,0x18 01e4 00ca | | Action Exit_Nullary_Function 01e5 0000 0000 | | .XXX[0x3] 01e7 0000 | | 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; Debug Table 01e8 ; -------------------------------------------------------------------------------------- 01e8 0004 0000 | | .DEBUG4 0x0004,0x0000,0x680a,0x0000,0x0001,0x0014 01ee 000b 023e | >| .DBG4T 0x000b,0x023e,0x8000,0x0000 01f2 00ba 0258 | X| .DBG4T 0x00ba,0x0258,0x8000,0x0000 01f6 00e3 026c | l| .DBG4T 0x00e3,0x026c,0x0002,0x0000 01fa 0103 026f | o| .DBG4T 0x0103,0x026f,0x0002,0x0000 01fe 010b 0272 | r| .DBG4T 0x010b,0x0272,0x0001,0x0000 0202 0123 0277 | # w| .DBG4T 0x0123,0x0277,0x0002,0x0000 0206 012b 027a | + z| .DBG4T 0x012b,0x027a,0x0001,0x0000 020a 0143 027f | C | .DBG4T 0x0143,0x027f,0x0002,0x0000 020e 014b 0282 | K | .DBG4T 0x014b,0x0282,0x0002,0x0000 0212 0153 0285 | S | .DBG4T 0x0153,0x0285,0x0002,0x0000 0216 015b 0288 | [ | .DBG4T 0x015b,0x0288,0x0001,0x0000 021a 0173 028d | s | .DBG4T 0x0173,0x028d,0x0002,0x0000 021e 017b 0290 | { | .DBG4T 0x017b,0x0290,0x0001,0x0000 0222 0193 0295 | | .DBG4T 0x0193,0x0295,0x0002,0x0000 0226 019b 0298 | | .DBG4T 0x019b,0x0298,0x0002,0x0000 022a 01a3 029b | | .DBG4T 0x01a3,0x029b,0x0002,0x0000 022e 01ab 029e | | .DBG4T 0x01ab,0x029e,0x0001,0x0000 0232 01c3 02a3 | | .DBG4T 0x01c3,0x02a3,0x0002,0x0000 0236 01cb 02a6 | | .DBG4T 0x01cb,0x02a6,0x0001,0x0000 023a 01e3 02ab | | .DBG4T 0x01e3,0x02ab,0x0002,0x0000 023e ; -------------------------------------------------------------------------------------- 023e ; Debug chain 023e ; -------------------------------------------------------------------------------------- 023e 0018 0000 | | .DBGLEN 0x0018,0x0000 0240 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x002c,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0066,0x007d,0x007f,0x0081,0x0083,0x0085,0x0087,0x0089,0x00a0,0x00b7 0258 ; -------------------------------------------------------------------------------------- 0258 ; Debug chain 0258 ; -------------------------------------------------------------------------------------- 0258 0012 0000 | | .DBGLEN 0x0012,0x0000 025a 00ba 00bc | | .DBGLNO 0x00ba,0x00bc,0x00be,0x00c0,0x00c2,0x00c4,0x00c6,0x00c8,0x00ca,0x00cc,0x00ce,0x00d0,0x00d2,0x00d4,0x00d6,0x00d8,0x00da,0x00dc 026c ; -------------------------------------------------------------------------------------- 026c ; Debug chain 026c ; -------------------------------------------------------------------------------------- 026c 0000 0001 | | .DBGLEN 0x0000,0x0001 026e 00e3 | | .DBGLNO 0x00e3 026f ; -------------------------------------------------------------------------------------- 026f ; Debug chain 026f ; -------------------------------------------------------------------------------------- 026f 0000 0001 | | .DBGLEN 0x0000,0x0001 0271 0103 | | .DBGLNO 0x0103 0272 ; -------------------------------------------------------------------------------------- 0272 ; Debug chain 0272 ; -------------------------------------------------------------------------------------- 0272 0001 0002 | | .DBGLEN 0x0001,0x0002 0274 010b 010f | | .DBGLNO 0x010b,0x010f,0x0116 0277 ; -------------------------------------------------------------------------------------- 0277 ; Debug chain 0277 ; -------------------------------------------------------------------------------------- 0277 0000 0001 | | .DBGLEN 0x0000,0x0001 0279 0123 | # | .DBGLNO 0x0123 027a ; -------------------------------------------------------------------------------------- 027a ; Debug chain 027a ; -------------------------------------------------------------------------------------- 027a 0001 0002 | | .DBGLEN 0x0001,0x0002 027c 012b 012f | + /| .DBGLNO 0x012b,0x012f,0x0135 027f ; -------------------------------------------------------------------------------------- 027f ; Debug chain 027f ; -------------------------------------------------------------------------------------- 027f 0000 0001 | | .DBGLEN 0x0000,0x0001 0281 0143 | C | .DBGLNO 0x0143 0282 ; -------------------------------------------------------------------------------------- 0282 ; Debug chain 0282 ; -------------------------------------------------------------------------------------- 0282 0000 0001 | | .DBGLEN 0x0000,0x0001 0284 014b | K | .DBGLNO 0x014b 0285 ; -------------------------------------------------------------------------------------- 0285 ; Debug chain 0285 ; -------------------------------------------------------------------------------------- 0285 0000 0001 | | .DBGLEN 0x0000,0x0001 0287 0153 | S | .DBGLNO 0x0153 0288 ; -------------------------------------------------------------------------------------- 0288 ; Debug chain 0288 ; -------------------------------------------------------------------------------------- 0288 0001 0002 | | .DBGLEN 0x0001,0x0002 028a 015b 015f | [ _| .DBGLNO 0x015b,0x015f,0x0166 028d ; -------------------------------------------------------------------------------------- 028d ; Debug chain 028d ; -------------------------------------------------------------------------------------- 028d 0000 0001 | | .DBGLEN 0x0000,0x0001 028f 0173 | s | .DBGLNO 0x0173 0290 ; -------------------------------------------------------------------------------------- 0290 ; Debug chain 0290 ; -------------------------------------------------------------------------------------- 0290 0001 0002 | | .DBGLEN 0x0001,0x0002 0292 017b 017f | { | .DBGLNO 0x017b,0x017f,0x0185 0295 ; -------------------------------------------------------------------------------------- 0295 ; Debug chain 0295 ; -------------------------------------------------------------------------------------- 0295 0000 0001 | | .DBGLEN 0x0000,0x0001 0297 0193 | | .DBGLNO 0x0193 0298 ; -------------------------------------------------------------------------------------- 0298 ; Debug chain 0298 ; -------------------------------------------------------------------------------------- 0298 0000 0001 | | .DBGLEN 0x0000,0x0001 029a 019b | | .DBGLNO 0x019b 029b ; -------------------------------------------------------------------------------------- 029b ; Debug chain 029b ; -------------------------------------------------------------------------------------- 029b 0000 0001 | | .DBGLEN 0x0000,0x0001 029d 01a3 | | .DBGLNO 0x01a3 029e ; -------------------------------------------------------------------------------------- 029e ; Debug chain 029e ; -------------------------------------------------------------------------------------- 029e 0001 0002 | | .DBGLEN 0x0001,0x0002 02a0 01ab 01af | | .DBGLNO 0x01ab,0x01af,0x01b6 02a3 ; -------------------------------------------------------------------------------------- 02a3 ; Debug chain 02a3 ; -------------------------------------------------------------------------------------- 02a3 0000 0001 | | .DBGLEN 0x0000,0x0001 02a5 01c3 | | .DBGLNO 0x01c3 02a6 ; -------------------------------------------------------------------------------------- 02a6 ; Debug chain 02a6 ; -------------------------------------------------------------------------------------- 02a6 0001 0002 | | .DBGLEN 0x0001,0x0002 02a8 01cb 01cf | | .DBGLNO 0x01cb,0x01cf,0x01d5 02ab ; -------------------------------------------------------------------------------------- 02ab ; Debug chain 02ab ; -------------------------------------------------------------------------------------- 02ab 0000 0001 | | .DBGLEN 0x0000,0x0001 02ad 01e3 | | .DBGLNO 0x01e3 02ae 0000 0000 | | .BLANK 0000[0x152]