|
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: 1024 (0x400) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0bf8df
└─⟦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 0148 | H | .CONST 0x0148 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 003f | ? | .CONST 0x003f ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0018 | | .CONST 0x0018 ; Number of locals 000b INIT_0008: 000b e002 | | Load 0x0,0x2 000c e003 | | Load 0x0,0x3 000d e20e | | Load 0x1,0xe 000e 1d0f | | Execute_Immediate Reference_Lex_1,0xf 000f e210 | | Load 0x1,0x10 0010 e004 | | Load 0x0,0x4 0011 0386 | | Declare_Variable Package,Visible 0012 00d8 | | Load_Top At_Offset_0 0013 020f | | Execute Module,Activate 0014 0093 0000 | | push_full_address 0x0 0016 604d |`M | Indirect_Literal Discrete,0x64,{0x80000000, 0x00010000} 0017 0273 | s | Execute Discrete,Plus 0018 e20d | | Load 0x1,0xd 0019 6046 |`F | Indirect_Literal Discrete,0x60,{0x00000000, 0x0000ffff} 001a 0279 | y | Execute Discrete,And 001b 0273 | s | Execute Discrete,Plus 001c 0129 | ) | Execute Any,Make_Visible 001d e005 | | Load 0x0,0x5 001e e006 | | Load 0x0,0x6 001f e210 | | Load 0x1,0x10 0020 e20e | | Load 0x1,0xe 0021 e211 | | Load 0x1,0x11 0022 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0023 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0024 e007 | | Load 0x0,0x7 0025 0386 | | Declare_Variable Package,Visible 0026 00d8 | | Load_Top At_Offset_0 0027 020f | | Execute Module,Activate 0028 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible 0029 00d9 | | Load_Top At_Offset_1 002a 1b13 | | Execute Package,Field_Read,Field_Number 0x13 002b 02a0 | | Declare_Subprogram Null_Subprogram 002c 4801 |H | Short_Literal 0x1 002d 032e | . | Declare_Type Record,Defined,Visible 002e 00d8 | | Load_Top At_Offset_0 002f 02a0 | | Declare_Subprogram Null_Subprogram 0030 00db | | Load_Top At_Offset_3 0031 03a3 | | Complete_Type Heap_Access,By_Defining 0032 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 0034 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 0036 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0038 00bf | | Action Accept_Activation 0039 1d16 | | Execute_Immediate Reference_Lex_1,0x16 003a 00c7 | | Action Elaborate_Subprogram 003b 1d17 | | Execute_Immediate Reference_Lex_1,0x17 003c 00c7 | | Action Elaborate_Subprogram 003d 1d18 | | Execute_Immediate Reference_Lex_1,0x18 003e 00c7 | | Action Elaborate_Subprogram 003f BODY_0008: 003f 00bc | | Action Signal_Activated 0040 00bb | | Action Signal_Completion 0041 0000 0000 | | .BLANK 0000[0x7] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004d | M | .CONST 0x004d ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0002 | | .CONST 0x0002 ; Number of locals 004b INIT_0048: 004b e214 | | Load 0x1,0x14 004c 0007 | | Action Break_Optional 004d BODY_0048: 004d e214 | | Load 0x1,0x14 004e e008 | | Load 0x0,0x8 004f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0050 e009 | | Load 0x0,0x9 0051 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0052 039c | | Declare_Variable Heap_Access,By_Allocation 0053 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0054 00d8 | | Load_Top At_Offset_0 0055 0219 | | Execute Heap_Access,All_Read 0056 e213 | | Load 0x1,0x13 0057 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0058 e213 | | Load 0x1,0x13 0059 181a | | Execute Package,Field_Execute,Field_Number 0x1a 005a 00d9 | | Load_Top At_Offset_1 005b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 005c 00d1 | | Pop_Control Pop_Count_1 005d 00d8 | | Load_Top At_Offset_0 005e a5ff | | Store_Unchecked 0x2,-0x1 005f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0060 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff} 0064 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006e | n | .CONST 0x006e ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0003 | | .CONST 0x0003 ; Number of locals 006b INIT_0068: 006b 00e1 | | Load_Encached Boolean_Cache 006c e211 | | Load 0x1,0x11 006d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 006e BODY_0068: 006e 00e1 | | Load_Encached Boolean_Cache 006f 00d9 | | Load_Top At_Offset_1 0070 e5fe | | Load 0x2,-0x2 0071 e20e | | Load 0x1,0xe 0072 0119 | | Execute Any,Check_In_Formal_Type 0073 e5ff | | Load 0x2,-0x1 0074 0217 | | Execute Heap_Access,All_Reference 0075 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0076 e213 | | Load 0x1,0x13 0077 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0078 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0079 005a | Z | Store_Top Discrete,At_Offset_2 007a 00d9 | | Load_Top At_Offset_1 007b 7017 |p | Jump_Nonzero 0x93 007c e211 | | Load 0x1,0x11 007d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 007e e008 | | Load 0x0,0x8 007f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0080 e009 | | Load 0x0,0x9 0081 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0082 e211 | | Load 0x1,0x11 0083 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0084 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0085 e5ff | | Load 0x2,-0x1 0086 0219 | | Execute Heap_Access,All_Read 0087 00d8 | | Load_Top At_Offset_0 0088 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0089 4800 |H | Short_Literal 0x0 008a 00db | | Load_Top At_Offset_3 008b e5fe | | Load 0x2,-0x2 008c e20e | | Load 0x1,0xe 008d 0119 | | Execute Any,Check_In_Formal_Type 008e e213 | | Load 0x1,0x13 008f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0090 00d9 | | Load_Top At_Offset_1 0091 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0092 00d1 | | Pop_Control Pop_Count_1 0093 00d8 | | Load_Top At_Offset_0 0094 e5fd | | Load 0x2,-0x3 0095 e20e | | Load 0x1,0xe 0096 0119 | | Execute Any,Check_In_Formal_Type 0097 e211 | | Load 0x1,0x11 0098 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0099 0031 | 1 | Store_Top Heap_Access,At_Offset_1 009a 00e1 | | Load_Encached Boolean_Cache 009b 00d9 | | Load_Top At_Offset_1 009c e5fd | | Load 0x2,-0x3 009d e20e | | Load 0x1,0xe 009e 0119 | | Execute Any,Check_In_Formal_Type 009f e5ff | | Load 0x2,-0x1 00a0 0217 | | Execute Heap_Access,All_Reference 00a1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00a2 e213 | | Load 0x1,0x13 00a3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00a4 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00a5 005a | Z | Store_Top Discrete,At_Offset_2 00a6 00d9 | | Load_Top At_Offset_1 00a7 7017 |p | Jump_Nonzero 0xbf 00a8 e211 | | Load 0x1,0x11 00a9 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00aa e008 | | Load 0x0,0x8 00ab 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00ac e009 | | Load 0x0,0x9 00ad 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00ae e211 | | Load 0x1,0x11 00af 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00b0 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00b1 e5ff | | Load 0x2,-0x1 00b2 0219 | | Execute Heap_Access,All_Read 00b3 00d8 | | Load_Top At_Offset_0 00b4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00b5 4800 |H | Short_Literal 0x0 00b6 00db | | Load_Top At_Offset_3 00b7 e5fd | | Load 0x2,-0x3 00b8 e20e | | Load 0x1,0xe 00b9 0119 | | Execute Any,Check_In_Formal_Type 00ba e213 | | Load 0x1,0x13 00bb 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00bc 00d9 | | Load_Top At_Offset_1 00bd 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00be 00d1 | | Pop_Control Pop_Count_1 00bf 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00cc | | .CONST 0x00cc ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0005 | | .CONST 0x0005 ; Number of locals 00c3 INIT_00c0: 00c3 e213 | | Load 0x1,0x13 00c4 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 00c5 0322 | " | Declare_Variable Record 00c6 e211 | | Load 0x1,0x11 00c7 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00c8 e211 | | Load 0x1,0x11 00c9 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00ca 029f 0103 | | Declare_Subprogram INIT_0100,For_Call 00cc BODY_00c0: 00cc e211 | | Load 0x1,0x11 00cd 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00ce e008 | | Load 0x0,0x8 00cf 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00d0 e009 | | Load 0x0,0x9 00d1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00d2 e211 | | Load 0x1,0x11 00d3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00d4 0033 | 3 | Store_Top Heap_Access,At_Offset_3 00d5 e211 | | Load 0x1,0x11 00d6 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00d7 e008 | | Load 0x0,0x8 00d8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00d9 e009 | | Load 0x0,0x9 00da 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00db e211 | | Load 0x1,0x11 00dc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00dd 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00de 00db | | Load_Top At_Offset_3 00df e5ff | | Load 0x2,-0x1 00e0 0217 | | Execute Heap_Access,All_Reference 00e1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00e2 e213 | | Load 0x1,0x13 00e3 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00e4 00d1 | | Pop_Control Pop_Count_1 00e5 00cf | | Action Mark_Auxiliary 00e6 780b |x | Jump 0xf2 00e7 e402 | | Load 0x2,0x2 00e8 e213 | | Load 0x1,0x13 00e9 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00ea e20e | | Load 0x1,0xe 00eb 0119 | | Execute Any,Check_In_Formal_Type 00ec 8405 | | Call 0x2,0x5 00ed e402 | | Load 0x2,0x2 00ee e213 | | Load 0x1,0x13 00ef 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00f0 00d1 | | Pop_Control Pop_Count_1 00f1 00c9 | | Action Pop_Auxiliary_Loop 00f2 e402 | | Load 0x2,0x2 00f3 e213 | | Load 0x1,0x13 00f4 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00f5 6ff1 |o | Jump_Zero 0xe7 00f6 00ce | | Action Pop_Auxiliary 00f7 00da | | Load_Top At_Offset_2 00f8 a5fe | | Store_Unchecked 0x2,-0x2 00f9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00fa 0000 0000 | | .BLANK 0000[0x6] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0108 | | .CONST 0x0108 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0002 | | .CONST 0x0002 ; Number of locals 0103 INIT_0100: 0103 e211 | | Load 0x1,0x11 0104 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0105 0322 | " | Declare_Variable Record 0106 00d8 | | Load_Top At_Offset_0 0107 1c00 | | Execute_Immediate Run_Utility,0x0 0108 BODY_0100: 0108 00db | | Load_Top At_Offset_3 0109 e20e | | Load 0x1,0xe 010a 0119 | | Execute Any,Check_In_Formal_Type 010b e403 | | Load 0x2,0x3 010c e211 | | Load 0x1,0x11 010d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 010e 6801 |h | Jump_Zero 0x110 010f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0110 00db | | Load_Top At_Offset_3 0111 e20e | | Load 0x1,0xe 0112 0119 | | Execute Any,Check_In_Formal_Type 0113 e404 | | Load 0x2,0x4 0114 e211 | | Load 0x1,0x11 0115 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0116 6802 |h | Jump_Zero 0x119 0117 e212 | | Load 0x1,0x12 0118 0257 | W | Execute Discrete,Raise 0119 00d8 | | Load_Top At_Offset_0 011a e7ff | | Load 0x3,-0x1 011b e20e | | Load 0x1,0xe 011c 0119 | | Execute Any,Check_In_Formal_Type 011d e5ff | | Load 0x2,-0x1 011e 0217 | | Execute Heap_Access,All_Reference 011f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0120 e213 | | Load 0x1,0x13 0121 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0122 e211 | | Load 0x1,0x11 0123 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0124 00d1 | | Pop_Control Pop_Count_1 0125 e404 | | Load 0x2,0x4 0126 e7ff | | Load 0x3,-0x1 0127 e20e | | Load 0x1,0xe 0128 0119 | | Execute Any,Check_In_Formal_Type 0129 e211 | | Load 0x1,0x11 012a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 012b c404 | | Store 0x2,0x4 012c 00cf | | Action Mark_Auxiliary 012d 780b |x | Jump 0x139 012e 00d9 | | Load_Top At_Offset_1 012f e211 | | Load 0x1,0x11 0130 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0131 e20e | | Load 0x1,0xe 0132 0119 | | Execute Any,Check_In_Formal_Type 0133 8405 | | Call 0x2,0x5 0134 00d9 | | Load_Top At_Offset_1 0135 e211 | | Load 0x1,0x11 0136 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0137 00d1 | | Pop_Control Pop_Count_1 0138 00c9 | | Action Pop_Auxiliary_Loop 0139 00d9 | | Load_Top At_Offset_1 013a e211 | | Load 0x1,0x11 013b 1820 | | Execute Package,Field_Execute,Field_Number 0x20 013c 6ff1 |o | Jump_Zero 0x12e 013d 00ce | | Action Pop_Auxiliary 013e e403 | | Load 0x2,0x3 013f e7ff | | Load 0x3,-0x1 0140 e20e | | Load 0x1,0xe 0141 0119 | | Execute Any,Check_In_Formal_Type 0142 e211 | | Load 0x1,0x11 0143 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0144 c403 | | Store 0x2,0x3 0145 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0146 0000 0000 | | .XXX[0x2] 0148 ; -------------------------------------------------------------------------------------- 0148 ; Debug Table 0148 ; -------------------------------------------------------------------------------------- 0148 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0b6a,0x0000,0x0001,0x0000 014e a194 8141 | A| .XXX[0xb2] 0150 c995 9195 | | 0152 99a5 b995 | | 0154 9081 55b9 | U | 0156 a5d9 95c9 | | 0158 cd95 f8f8 | | 015a a5f9 b195 | | 015c 99d1 7d99 | } | 015e bdbd d1a5 | | 0160 b99c a1f8 | | 0162 f9f8 f9f9 | | 0164 d985 b1d5 | | 0166 94a1 9185 | | 0168 d194 a4a5 | | 016a f9c9 a59d | | 016c a1d1 7d99 | } | 016e bdbd d1a5 | | 0170 b99c a1f8 | | 0172 f9f8 f9f9 | | 0174 d985 b1d5 | | 0176 94a1 9185 | | 0178 d194 a4a5 | | 017a f9b5 858d | | 017c c9bc a18d | | 017e 94f4 89f9 | | 0180 8dbd b1d5 | | 0182 b5b9 7d95 | } | 0184 b9d1 c9e4 | | 0186 a1f9 85c9 | | 0188 9dd5 b595 | | 018a b9d0 a1d1 | | 018c 95e1 d0a4 | | 018e a488 a5f9 | | 0190 4d95 d1d5 |M | 0192 c0a1 d185 | | 0194 89b1 957d | }| 0196 cdc1 858d | | 0198 957d 8599 | } | 019a d195 c8f4 | | 019c b8c4 d5a5 | | 019e b98d a195 | | 01a0 cca5 f94d | M| 01a2 95d1 d5c0 | | 01a4 a1d1 8589 | | 01a6 b195 7dcd | } | 01a8 c185 8d95 | | 01aa 7d89 9599 |} | 01ac bdc9 94f4 | | 01ae b8c4 d5a5 | | 01b0 b98d a195 | | 01b2 cca5 f94d | M| 01b4 95d1 d5c0 | | 01b6 a1d1 8589 | | 01b8 b195 7db1 | } | 01ba 9585 91a5 | | 01bc b99c f4c4 | | 01be a5f9 4d95 | M | 01c0 d1d5 c0a1 | | 01c2 2195 8591 |! | 01c4 95c9 7d4d | }M| 01c6 c185 8d95 | | 01c8 7d09 9599 |} | 01ca bdc9 94f4 | | 01cc b8cd a5b9 | | 01ce 8da1 95cc | | 01d0 a5f9 4d95 | M | 01d2 d1d5 c0a1 | | 01d4 2195 8591 |! | 01d6 95c9 7d4d | }M| 01d8 c185 8d95 | | 01da 7d85 99d1 |} | 01dc 95c8 f4b8 | | 01de cda5 b98d | | 01e0 a195 cca5 | | 01e2 f94d 95d1 | M | 01e4 d5c0 a199 | | 01e6 bdbd d195 | | 01e8 c97d 4dc1 | }M | 01ea 858d 957d | }| 01ec 8995 99bd | | 01ee c994 f4b8 | | 01f0 c5a5 b98d | | 01f2 a195 cca5 | | 01f4 f94d 95d1 | M | 01f6 d5c0 a199 | | 01f8 bdbd d195 | | 01fa c97d c1bd | } | 01fc a5b9 d0f4 | | 01fe c4c0 b8d5 | |