|
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_779ce4
└─⟦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 0208 | | .CONST 0x0208 ; 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 0038 | 8 | .CONST 0x0038 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0018 | | .CONST 0x0018 ; Number of locals 000b INIT_0008: 000b 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 000d 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 000f 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 0011 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0013 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0015 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0017 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 0019 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 001b 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 001d 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 001f 00bf | | Action Accept_Activation 0020 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0021 00c7 | | Action Elaborate_Subprogram 0022 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0023 00c7 | | Action Elaborate_Subprogram 0024 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call 0026 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call 0028 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0029 00c7 | | Action Elaborate_Subprogram 002a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 002b 00c7 | | Action Elaborate_Subprogram 002c 1d11 | | Execute_Immediate Reference_Lex_1,0x11 002d 00c7 | | Action Elaborate_Subprogram 002e 1d12 | | Execute_Immediate Reference_Lex_1,0x12 002f 00c7 | | Action Elaborate_Subprogram 0030 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0031 00c7 | | Action Elaborate_Subprogram 0032 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0033 00c7 | | Action Elaborate_Subprogram 0034 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0035 00c7 | | Action Elaborate_Subprogram 0036 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0037 00c7 | | Action Elaborate_Subprogram 0038 BODY_0008: 0038 00bc | | Action Signal_Activated 0039 00bb | | Action Signal_Completion 003a 0000 0000 | | .BLANK 0000[0x6] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0045 | E | .CONST 0x0045 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0002 | | .CONST 0x0002 ; Number of locals 0043 INIT_0040: 0043 00e1 | | Load_Encached Boolean_Cache 0044 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0045 BODY_0040: 0045 00db | | Load_Top At_Offset_3 0046 01db | | Execute Vector,Length 0047 7003 |p | Jump_Nonzero 0x4b 0048 4800 |H | Short_Literal 0x0 0049 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 004a 7851 |xQ | Jump 0x9c 004b 00db | | Load_Top At_Offset_3 004c 01dd | | Execute Vector,First 004d e5ff | | Load 0x2,-0x1 004e 01dd | | Execute Vector,First 004f e5ff | | Load 0x2,-0x1 0050 01cf | | Execute Vector,Slice_Read 0051 8002 | | Call 0x0,0x2 0052 0f00 | | Execute_Immediate Equal,0x0 0053 e5ff | | Load 0x2,-0x1 0054 01dc | | Execute Vector,Last 0055 e5ff | | Load 0x2,-0x1 0056 01dc | | Execute Vector,Last 0057 e5ff | | Load 0x2,-0x1 0058 01cf | | Execute Vector,Slice_Read 0059 8003 | | Call 0x0,0x3 005a 0f00 | | Execute_Immediate Equal,0x0 005b 0278 | x | Execute Discrete,Or 005c 6803 |h | Jump_Zero 0x60 005d 4800 |H | Short_Literal 0x0 005e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 005f 783c |x< | Jump 0x9c 0060 00cf | | Action Mark_Auxiliary 0061 e5ff | | Load 0x2,-0x1 0062 01dc | | Execute Vector,Last 0063 0aff | | Execute_Immediate Plus,-0x1 0064 00d8 | | Load_Top At_Offset_0 0065 00e2 | | Load_Encached Integer_Cache 0066 0260 | ` | Execute Discrete,In_Type 0067 7001 |p | Jump_Nonzero 0x69 0068 0801 | | Execute_Immediate Raise,0x1 0069 e5ff | | Load 0x2,-0x1 006a 01dd | | Execute Vector,First 006b 0a01 | | Execute_Immediate Plus,0x1 006c 00d8 | | Load_Top At_Offset_0 006d 00e2 | | Load_Encached Integer_Cache 006e 0260 | ` | Execute Discrete,In_Type 006f 7001 |p | Jump_Nonzero 0x71 0070 0801 | | Execute_Immediate Raise,0x1 0071 0263 | c | Execute Discrete,Above_Bound 0072 7028 |p( | Jump_Nonzero 0x9b 0073 00d8 | | Load_Top At_Offset_0 0074 00d9 | | Load_Top At_Offset_1 0075 e5ff | | Load 0x2,-0x1 0076 01cf | | Execute Vector,Slice_Read 0077 8004 | | Call 0x0,0x4 0078 681a |h | Jump_Zero 0x93 0079 00d8 | | Load_Top At_Offset_0 007a e5ff | | Load 0x2,-0x1 007b 01d7 | | Execute Vector,Field_Read 007c 0f5f | _ | Execute_Immediate Equal,0x5f 007d 6817 |h | Jump_Zero 0x95 007e 00d8 | | Load_Top At_Offset_0 007f 0a01 | | Execute_Immediate Plus,0x1 0080 00d8 | | Load_Top At_Offset_0 0081 00e2 | | Load_Encached Integer_Cache 0082 0260 | ` | Execute Discrete,In_Type 0083 7001 |p | Jump_Nonzero 0x85 0084 0801 | | Execute_Immediate Raise,0x1 0085 00d9 | | Load_Top At_Offset_1 0086 0a01 | | Execute_Immediate Plus,0x1 0087 00d8 | | Load_Top At_Offset_0 0088 00e2 | | Load_Encached Integer_Cache 0089 0260 | ` | Execute Discrete,In_Type 008a 7001 |p | Jump_Nonzero 0x8c 008b 0801 | | Execute_Immediate Raise,0x1 008c e5ff | | Load 0x2,-0x1 008d 01cf | | Execute Vector,Slice_Read 008e 8003 | | Call 0x0,0x3 008f 7005 |p | Jump_Nonzero 0x95 0090 4800 |H | Short_Literal 0x0 0091 a402 | | Store_Unchecked 0x2,0x2 0092 7802 |x | Jump 0x95 0093 4800 |H | Short_Literal 0x0 0094 a402 | | Store_Unchecked 0x2,0x2 0095 00db | | Load_Top At_Offset_3 0096 7002 |p | Jump_Nonzero 0x99 0097 00d2 | | Pop_Control Pop_Count_2 0098 7802 |x | Jump 0x9b 0099 00c8 | | Action Pop_Auxiliary_Range 009a 3fd8 |? | Loop_Increasing 0x73 009b 00ce | | Action Pop_Auxiliary 009c 00d8 | | Load_Top At_Offset_0 009d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 009e 0000 0000 | | .XXX[0x2] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 00da | | Load_Top At_Offset_2 00a4 e005 | | Load 0x0,0x5 00a5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00a6 0092 01e2 | | Action Push_String_Extended,0x1e2 ; "<NULL>" 00a8 01df | | Execute Vector,Equal 00a9 00db | | Load_Top At_Offset_3 00aa 01db | | Execute Vector,Length 00ab 0f00 | | Execute_Immediate Equal,0x0 00ac 0278 | x | Execute Discrete,Or 00ad 6802 |h | Jump_Zero 0xb0 00ae 4801 |H | Short_Literal 0x1 00af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b0 4800 |H | Short_Literal 0x0 00b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b2 0000 0000 | | .BLANK 0000[0x6] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00c8 | | .CONST 0x00c8 ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0002 | | .CONST 0x0002 ; Number of locals 00bb INIT_00b8: 00bb e006 | | Load 0x0,0x6 00bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00be 02c7 | | Declare_Variable Any 00bf 4801 |H | Short_Literal 0x1 00c0 e006 | | Load 0x0,0x6 00c1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c3 e5ff | | Load 0x2,-0x1 00c4 e006 | | Load 0x0,0x6 00c5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c6 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 00c7 a402 | | Store_Unchecked 0x2,0x2 00c8 BODY_00b8: 00c8 00db | | Load_Top At_Offset_3 00c9 01db | | Execute Vector,Length 00ca 7002 |p | Jump_Nonzero 0xcd 00cb 4800 |H | Short_Literal 0x0 00cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00cd 00db | | Load_Top At_Offset_3 00ce e006 | | Load 0x0,0x6 00cf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d0 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00d1 7002 |p | Jump_Nonzero 0xd4 00d2 4800 |H | Short_Literal 0x0 00d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d4 00d8 | | Load_Top At_Offset_0 00d5 e006 | | Load 0x0,0x6 00d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d7 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 00d8 6802 |h | Jump_Zero 0xdb 00d9 4801 |H | Short_Literal 0x1 00da 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00db 4800 |H | Short_Literal 0x0 00dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00dd 0000 0000 | | .XXX[0x3] 00df 0000 | | 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00f0 | | .CONST 0x00f0 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0002 | | .CONST 0x0002 ; Number of locals 00e3 INIT_00e0: 00e3 e006 | | Load 0x0,0x6 00e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e6 02c7 | | Declare_Variable Any 00e7 4801 |H | Short_Literal 0x1 00e8 e006 | | Load 0x0,0x6 00e9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ea 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00eb e5ff | | Load 0x2,-0x1 00ec e006 | | Load 0x0,0x6 00ed 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ee 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 00ef a402 | | Store_Unchecked 0x2,0x2 00f0 BODY_00e0: 00f0 00d8 | | Load_Top At_Offset_0 00f1 e006 | | Load 0x0,0x6 00f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f3 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 00f4 6808 |h | Jump_Zero 0xfd 00f5 00d8 | | Load_Top At_Offset_0 00f6 e006 | | Load 0x0,0x6 00f7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f8 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00f9 0f01 | | Execute_Immediate Equal,0x1 00fa 6802 |h | Jump_Zero 0xfd 00fb 4801 |H | Short_Literal 0x1 00fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00fd 4800 |H | Short_Literal 0x0 00fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ff 0000 | | .XXX[0x1] 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 00da | | Load_Top At_Offset_2 0104 8210 | | Call 0x1,0x10 0105 680d |h | Jump_Zero 0x113 0106 00da | | Load_Top At_Offset_2 0107 e006 | | Load 0x0,0x6 0108 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0109 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 010a e006 | | Load 0x0,0x6 010b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 010c 1820 | | Execute Package,Field_Execute,Field_Number 0x20 010d 0092 01e3 | | Action Push_String_Extended,0x1e3 ; "WORLD" 010f 01df | | Execute Vector,Equal 0110 6802 |h | Jump_Zero 0x113 0111 4801 |H | Short_Literal 0x1 0112 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0113 4800 |H | Short_Literal 0x0 0114 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0115 0000 0000 | | .XXX[0x3] 0117 0000 | | 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 00da | | Load_Top At_Offset_2 011c 8210 | | Call 0x1,0x10 011d 680d |h | Jump_Zero 0x12b 011e 00da | | Load_Top At_Offset_2 011f e006 | | Load 0x0,0x6 0120 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0121 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0122 e006 | | Load 0x0,0x6 0123 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0124 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0125 0092 01e4 | | Action Push_String_Extended,0x1e4 ; "SPEC_VIEW" 0127 01df | | Execute Vector,Equal 0128 6802 |h | Jump_Zero 0x12b 0129 4801 |H | Short_Literal 0x1 012a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 012b 4800 |H | Short_Literal 0x0 012c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 012d 0000 0000 | | .XXX[0x3] 012f 0000 | | 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 00da | | Load_Top At_Offset_2 0134 8210 | | Call 0x1,0x10 0135 680d |h | Jump_Zero 0x143 0136 00da | | Load_Top At_Offset_2 0137 e006 | | Load 0x0,0x6 0138 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0139 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 013a e006 | | Load 0x0,0x6 013b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 013c 1820 | | Execute Package,Field_Execute,Field_Number 0x20 013d 0092 01e5 | | Action Push_String_Extended,0x1e5 ; "LOAD_VIEW" 013f 01df | | Execute Vector,Equal 0140 6802 |h | Jump_Zero 0x143 0141 4801 |H | Short_Literal 0x1 0142 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0143 4800 |H | Short_Literal 0x0 0144 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 8210 | | Call 0x1,0x10 014d 680d |h | Jump_Zero 0x15b 014e 00da | | Load_Top At_Offset_2 014f e006 | | Load 0x0,0x6 0150 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0151 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0152 e006 | | Load 0x0,0x6 0153 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0154 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0155 0092 01e6 | | Action Push_String_Extended,0x1e6 ; "COMBINED_VIEW" 0157 01df | | Execute Vector,Equal 0158 6802 |h | Jump_Zero 0x15b 0159 4801 |H | Short_Literal 0x1 015a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015b 4800 |H | Short_Literal 0x0 015c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015d 0000 0000 | | .XXX[0x3] 015f 0000 | | 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 00da | | Load_Top At_Offset_2 0164 8210 | | Call 0x1,0x10 0165 680d |h | Jump_Zero 0x173 0166 00da | | Load_Top At_Offset_2 0167 e006 | | Load 0x0,0x6 0168 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0169 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 016a e006 | | Load 0x0,0x6 016b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 016c 1820 | | Execute Package,Field_Execute,Field_Number 0x20 016d 0092 01e7 | | Action Push_String_Extended,0x1e7 ; "SYSTEM_VIEW" 016f 01df | | Execute Vector,Equal 0170 6802 |h | Jump_Zero 0x173 0171 4801 |H | Short_Literal 0x1 0172 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0173 4800 |H | Short_Literal 0x0 0174 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0175 0000 0000 | | .XXX[0x3] 0177 0000 | | 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b 00da | | Load_Top At_Offset_2 017c 8210 | | Call 0x1,0x10 017d 6811 |h | Jump_Zero 0x18f 017e 00da | | Load_Top At_Offset_2 017f 8211 | | Call 0x1,0x11 0180 00db | | Load_Top At_Offset_3 0181 8212 | | Call 0x1,0x12 0182 0278 | x | Execute Discrete,Or 0183 00db | | Load_Top At_Offset_3 0184 8213 | | Call 0x1,0x13 0185 0278 | x | Execute Discrete,Or 0186 00db | | Load_Top At_Offset_3 0187 8214 | | Call 0x1,0x14 0188 0278 | x | Execute Discrete,Or 0189 00db | | Load_Top At_Offset_3 018a 8215 | | Call 0x1,0x15 018b 0278 | x | Execute Discrete,Or 018c 6802 |h | Jump_Zero 0x18f 018d 4801 |H | Short_Literal 0x1 018e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018f 4800 |H | Short_Literal 0x0 0190 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0191 0000 0000 | | .BLANK 0000[0x7] 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 01db | | Execute Vector,Length 019d 7002 |p | Jump_Nonzero 0x1a0 019e 4800 |H | Short_Literal 0x0 019f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a0 00da | | Load_Top At_Offset_2 01a1 01dd | | Execute Vector,First 01a2 00db | | Load_Top At_Offset_3 01a3 01dd | | Execute Vector,First 01a4 e5ff | | Load 0x2,-0x1 01a5 01cf | | Execute Vector,Slice_Read 01a6 8002 | | Call 0x0,0x2 01a7 6810 |h | Jump_Zero 0x1b8 01a8 00da | | Load_Top At_Offset_2 01a9 01dd | | Execute Vector,First 01aa 0a01 | | Execute_Immediate Plus,0x1 01ab 00d8 | | Load_Top At_Offset_0 01ac 00e2 | | Load_Encached Integer_Cache 01ad 0260 | ` | Execute Discrete,In_Type 01ae 7001 |p | Jump_Nonzero 0x1b0 01af 0801 | | Execute_Immediate Raise,0x1 01b0 00db | | Load_Top At_Offset_3 01b1 01dc | | Execute Vector,Last 01b2 e5ff | | Load 0x2,-0x1 01b3 01cf | | Execute Vector,Slice_Read 01b4 8004 | | Call 0x0,0x4 01b5 6802 |h | Jump_Zero 0x1b8 01b6 4801 |H | Short_Literal 0x1 01b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b8 4800 |H | Short_Literal 0x0 01b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 01db | | Execute Vector,Length 01c5 7002 |p | Jump_Nonzero 0x1c8 01c6 4800 |H | Short_Literal 0x0 01c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c8 00da | | Load_Top At_Offset_2 01c9 01dd | | Execute Vector,First 01ca 00db | | Load_Top At_Offset_3 01cb 01dc | | Execute Vector,Last 01cc 0aff | | Execute_Immediate Plus,-0x1 01cd 00d8 | | Load_Top At_Offset_0 01ce 00e2 | | Load_Encached Integer_Cache 01cf 0260 | ` | Execute Discrete,In_Type 01d0 7001 |p | Jump_Nonzero 0x1d2 01d1 0801 | | Execute_Immediate Raise,0x1 01d2 e5ff | | Load 0x2,-0x1 01d3 01cf | | Execute Vector,Slice_Read 01d4 8004 | | Call 0x0,0x4 01d5 680a |h | Jump_Zero 0x1e0 01d6 00da | | Load_Top At_Offset_2 01d7 01dc | | Execute Vector,Last 01d8 00db | | Load_Top At_Offset_3 01d9 01dc | | Execute Vector,Last 01da e5ff | | Load 0x2,-0x1 01db 01cf | | Execute Vector,Slice_Read 01dc 8003 | | Call 0x0,0x3 01dd 6802 |h | Jump_Zero 0x1e0 01de 4801 |H | Short_Literal 0x1 01df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e0 4800 |H | Short_Literal 0x0 01e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e2 ; -------------------------------------------------------------------------------------- 01e2 ; STRING TABLE 01e2 ; -------------------------------------------------------------------------------------- 01e2 000e | | .STRTAB 0x000e->0x01e9 ; "<NULL>" 01e3 0012 | | .STRTAB 0x0012->0x01ec ; "WORLD" 01e4 0015 | | .STRTAB 0x0015->0x01ee ; "SPEC_VIEW" 01e5 001c | | .STRTAB 0x001c->0x01f3 ; "LOAD_VIEW" 01e6 0023 | # | .STRTAB 0x0023->0x01f7 ; "COMBINED_VIEW" 01e7 002e | . | .STRTAB 0x002e->0x01fe ; "SYSTEM_VIEW" 01e8 0037 | 7 | .STREND 0x0037->0x0203 01e9 3c4e 554c |<NUL| .STRTAB_STRINGS 0204 0000 0000 | | .BLANK 0000[0x4] 0208 ; -------------------------------------------------------------------------------------- 0208 ; Debug Table 0208 ; -------------------------------------------------------------------------------------- 0208 0004 000a | | .DEBUG4 0x0004,0x000a,0x72ca,0x0000,0x0001,0x0000 020e 0000 0000 | | .BLANK 0000[0x1f2]