|
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_11cacfe
└─⟦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 0188 | | .CONST 0x0188 ; 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 0053 | S | .CONST 0x0053 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001b | | .CONST 0x001b ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 e001 | | Load 0x0,0x1 0017 0129 | ) | Execute Any,Make_Visible 0018 c212 | | Store 0x1,0x12 0019 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 001b c213 | | Store 0x1,0x13 001c 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 001e c214 | | Store 0x1,0x14 001f 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 0021 c215 | | Store 0x1,0x15 0022 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0024 c217 | | Store 0x1,0x17 0025 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 0027 c20f | | Store 0x1,0xf 0028 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 002a c210 | | Store 0x1,0x10 002b 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 002d c216 | | Store 0x1,0x16 002e 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0030 c211 | | Store 0x1,0x11 0031 00bf | | Action Accept_Activation 0032 4900 |I | Short_Literal 0x100 0033 e002 | | Load 0x0,0x2 0034 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0035 1c07 | | Execute_Immediate Run_Utility,0x7 0036 e003 | | Load 0x0,0x3 0037 e004 | | Load 0x0,0x4 0038 4864 |Hd | Short_Literal 0x64 0039 00db | | Load_Top At_Offset_3 003a 4801 |H | Short_Literal 0x1 003b e005 | | Load 0x0,0x5 003c 0387 | | Declare_Variable Package 003d 00d8 | | Load_Top At_Offset_0 003e 020f | | Execute Module,Activate 003f 00d8 | | Load_Top At_Offset_0 0040 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0041 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0042 00c7 | | Action Elaborate_Subprogram 0043 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0044 00c7 | | Action Elaborate_Subprogram 0045 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0046 00c7 | | Action Elaborate_Subprogram 0047 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call 0049 1d17 | | Execute_Immediate Reference_Lex_1,0x17 004a 00c7 | | Action Elaborate_Subprogram 004b 1d0f | | Execute_Immediate Reference_Lex_1,0xf 004c 00c7 | | Action Elaborate_Subprogram 004d 1d10 | | Execute_Immediate Reference_Lex_1,0x10 004e 00c7 | | Action Elaborate_Subprogram 004f 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0050 00c7 | | Action Elaborate_Subprogram 0051 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0052 00c7 | | Action Elaborate_Subprogram 0053 BODY_0008: 0053 00bc | | Action Signal_Activated 0054 00bb | | Action Signal_Completion 0055 0000 0000 | | .XXX[0x3] 0057 0000 | | 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b e219 | | Load 0x1,0x19 005c 1b12 | | Execute Package,Field_Read,Field_Number 0x12 005d e219 | | Load 0x1,0x19 005e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 005f c21a | | Store 0x1,0x1a 0060 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0061 0000 0000 | | .BLANK 0000[0x7] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 007c | | | .CONST 0x007c ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0006 | | .CONST 0x0006 ; Number of locals 006b INIT_0068: 006b 4801 |H | Short_Literal 0x1 006c 4a00 |J | Short_Literal 0x200 006d 00e9 | | Load_Encached String_Cache 006e 035b | [ | Declare_Type Array,Constrained 006f 0337 | 7 | Declare_Variable Array 0070 00e3 | | Load_Encached Natural_Cache 0071 4801 |H | Short_Literal 0x1 0072 4a00 |J | Short_Literal 0x200 0073 00e9 | | Load_Encached String_Cache 0074 035b | [ | Declare_Type Array,Constrained 0075 0337 | 7 | Declare_Variable Array 0076 00e3 | | Load_Encached Natural_Cache 0077 e006 | | Load 0x0,0x6 0078 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0079 02c7 | | Declare_Variable Any 007a 00d8 | | Load_Top At_Offset_0 007b 1c00 | | Execute_Immediate Run_Utility,0x0 007c BODY_0068: 007c 00be | | Action Activate_Tasks 007d 00d8 | | Load_Top At_Offset_0 007e 00ea | | Load_Encached Null_String_Cache 007f e5ff | | Load 0x2,-0x1 0080 4800 |H | Short_Literal 0x0 0081 e006 | | Load 0x0,0x6 0082 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0083 c406 | | Store 0x2,0x6 0084 e21a | | Load 0x1,0x1a 0085 e219 | | Load 0x1,0x19 0086 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0087 c21a | | Store 0x1,0x1a 0088 00cf | | Action Mark_Auxiliary 0089 7821 |x! | Jump 0xab 008a 00e3 | | Load_Encached Natural_Cache 008b e402 | | Load 0x2,0x2 008c 00db | | Load_Top At_Offset_3 008d e006 | | Load 0x0,0x6 008e 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 008f 00d1 | | Pop_Control Pop_Count_1 0090 c403 | | Store 0x2,0x3 0091 00e3 | | Load_Encached Natural_Cache 0092 e404 | | Load 0x2,0x4 0093 00db | | Load_Top At_Offset_3 0094 e006 | | Load 0x0,0x6 0095 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 0096 00d1 | | Pop_Control Pop_Count_1 0097 005b | [ | Store_Top Discrete,At_Offset_3 0098 e21a | | Load 0x1,0x1a 0099 4800 |H | Short_Literal 0x0 009a 4900 |I | Short_Literal 0x100 009b 4801 |H | Short_Literal 0x1 009c e405 | | Load 0x2,0x5 009d e404 | | Load 0x2,0x4 009e 01cf | | Execute Vector,Slice_Read 009f e002 | | Load 0x0,0x2 00a0 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00a1 e218 | | Load 0x1,0x18 00a2 0161 | a | Execute Variant_Record,Check_In_Formal_Type 00a3 4801 |H | Short_Literal 0x1 00a4 e403 | | Load 0x2,0x3 00a5 e402 | | Load 0x2,0x2 00a6 01cf | | Execute Vector,Slice_Read 00a7 e219 | | Load 0x1,0x19 00a8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00a9 c21a | | Store 0x1,0x1a 00aa 00c9 | | Action Pop_Auxiliary_Loop 00ab 00d9 | | Load_Top At_Offset_1 00ac e006 | | Load 0x0,0x6 00ad 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 00ae 6fdb |o | Jump_Zero 0x8a 00af 00ce | | Action Pop_Auxiliary 00b0 00d8 | | Load_Top At_Offset_0 00b1 e006 | | Load 0x0,0x6 00b2 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00b3 c406 | | Store 0x2,0x6 00b4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b5 0000 0000 | | .XXX[0x3] 00b7 0000 | | 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00c5 | | .CONST 0x00c5 ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0004 | | .CONST 0x0004 ; Number of locals 00bb INIT_00b8: 00bb e219 | | Load 0x1,0x19 00bc 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00bd 0322 | " | Declare_Variable Record 00be e006 | | Load 0x0,0x6 00bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c0 02c7 | | Declare_Variable Any 00c1 00d8 | | Load_Top At_Offset_0 00c2 1c00 | | Execute_Immediate Run_Utility,0x0 00c3 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call 00c5 BODY_00b8: 00c5 00be | | Action Activate_Tasks 00c6 00d9 | | Load_Top At_Offset_1 00c7 00ea | | Load_Encached Null_String_Cache 00c8 e5ff | | Load 0x2,-0x1 00c9 4801 |H | Short_Literal 0x1 00ca e006 | | Load 0x0,0x6 00cb 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00cc c403 | | Store 0x2,0x3 00cd 00da | | Load_Top At_Offset_2 00ce e21a | | Load 0x1,0x1a 00cf e219 | | Load 0x1,0x19 00d0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00d1 00d1 | | Pop_Control Pop_Count_1 00d2 00cf | | Action Mark_Auxiliary 00d3 7806 |x | Jump 0xda 00d4 8404 | | Call 0x2,0x4 00d5 00db | | Load_Top At_Offset_3 00d6 e219 | | Load 0x1,0x19 00d7 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00d8 00d1 | | Pop_Control Pop_Count_1 00d9 00c9 | | Action Pop_Auxiliary_Loop 00da 00db | | Load_Top At_Offset_3 00db e219 | | Load 0x1,0x19 00dc 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00dd 6ff6 |o | Jump_Zero 0xd4 00de 00ce | | Action Pop_Auxiliary 00df 00d9 | | Load_Top At_Offset_1 00e0 e006 | | Load 0x0,0x6 00e1 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00e2 c403 | | Store 0x2,0x3 00e3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00e4 0000 0000 | | .BLANK 0000[0x4] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 00fb | | .CONST 0x00fb ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 00da | | Load_Top At_Offset_2 00ec 821b | | Call 0x1,0x1b 00ed 680c |h | Jump_Zero 0xfa 00ee 4801 |H | Short_Literal 0x1 00ef e5fe | | Load 0x2,-0x2 00f0 e5ff | | Load 0x2,-0x1 00f1 e21a | | Load 0x1,0x1a 00f2 e219 | | Load 0x1,0x19 00f3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00f4 e002 | | Load 0x0,0x2 00f5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00f6 e007 | | Load 0x0,0x7 00f7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00f8 0f00 | | Execute_Immediate Equal,0x0 00f9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00fa 0831 | 1 | Execute_Immediate Raise,0x31 00fb TRAP_00e8: 00fb e219 | | Load 0x1,0x19 00fc 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00fd 010f | | Execute Exception,Equal 00fe 6802 |h | Jump_Zero 0x101 00ff 4800 |H | Short_Literal 0x0 0100 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0101 0100 | | Execute Exception,Raise 0102 0000 0000 | | .BLANK 0000[0x6] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 011b | | .CONST 0x011b ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 00da | | Load_Top At_Offset_2 010c 821b | | Call 0x1,0x1b 010d 680c |h | Jump_Zero 0x11a 010e e21a | | Load 0x1,0x1a 010f 4801 |H | Short_Literal 0x1 0110 4900 |I | Short_Literal 0x100 0111 e5fe | | Load 0x2,-0x2 0112 e002 | | Load 0x0,0x2 0113 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0114 e218 | | Load 0x1,0x18 0115 0161 | a | Execute Variant_Record,Check_In_Formal_Type 0116 e5ff | | Load 0x2,-0x1 0117 e219 | | Load 0x1,0x19 0118 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0119 c21a | | Store 0x1,0x1a 011a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 011b TRAP_0108: 011b e219 | | Load 0x1,0x19 011c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 011d 010f | | Execute Exception,Equal 011e 680e |h | Jump_Zero 0x12d 011f 4801 |H | Short_Literal 0x1 0120 e5fe | | Load 0x2,-0x2 0121 e5ff | | Load 0x2,-0x1 0122 e21a | | Load 0x1,0x1a 0123 e219 | | Load 0x1,0x19 0124 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0125 e002 | | Load 0x0,0x2 0126 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0127 e007 | | Load 0x0,0x7 0128 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0129 7002 |p | Jump_Nonzero 0x12c 012a e212 | | Load 0x1,0x12 012b 0257 | W | Execute Discrete,Raise 012c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 012d 0100 | | Execute Exception,Raise 012e 0000 0000 | | .XXX[0x2] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0139 | 9 | .CONST 0x0139 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 e21a | | Load 0x1,0x1a 0134 00db | | Load_Top At_Offset_3 0135 e219 | | Load 0x1,0x19 0136 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0137 c21a | | Store 0x1,0x1a 0138 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0139 TRAP_0130: 0139 e219 | | Load 0x1,0x19 013a 1b20 | | Execute Package,Field_Read,Field_Number 0x20 013b 010f | | Execute Exception,Equal 013c 6801 |h | Jump_Zero 0x13e 013d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 013e 0100 | | Execute Exception,Raise 013f 0000 | | .XXX[0x1] 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 e21a | | Load 0x1,0x1a 0144 e219 | | Load 0x1,0x19 0145 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0146 c21a | | Store 0x1,0x1a 0147 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0157 | W | .CONST 0x0157 ; 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 821b | | Call 0x1,0x1b 014d 6807 |h | Jump_Zero 0x155 014e 00da | | Load_Top At_Offset_2 014f e21a | | Load 0x1,0x1a 0150 e219 | | Load 0x1,0x19 0151 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0152 e002 | | Load 0x0,0x2 0153 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0154 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0155 00ea | | Load_Encached Null_String_Cache 0156 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0157 TRAP_0148: 0157 e219 | | Load 0x1,0x19 0158 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0159 010f | | Execute Exception,Equal 015a 6802 |h | Jump_Zero 0x15d 015b 00ea | | Load_Encached Null_String_Cache 015c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015d 0100 | | Execute Exception,Raise 015e 0000 0000 | | .XXX[0x2] 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 01db | | Execute Vector,Length 0165 0c01 | | Execute_Immediate Greater_Equal,0x1 0166 6806 |h | Jump_Zero 0x16d 0167 00da | | Load_Top At_Offset_2 0168 01dd | | Execute Vector,First 0169 00db | | Load_Top At_Offset_3 016a 01d7 | | Execute Vector,Field_Read 016b 0f21 | ! | Execute_Immediate Equal,0x21 016c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016d 4800 |H | Short_Literal 0x0 016e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016f 0000 | | .XXX[0x1] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0176 | v | .CONST 0x0176 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0002 | | .CONST 0x0002 ; Number of locals 0173 INIT_0170: 0173 e402 | | Load 0x2,0x2 0174 e219 | | Load 0x1,0x19 0175 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0176 BODY_0170: 0176 00d8 | | Load_Top At_Offset_0 0177 e403 | | Load 0x2,0x3 0178 e006 | | Load 0x0,0x6 0179 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 017a 00d8 | | Load_Top At_Offset_0 017b e21a | | Load 0x1,0x1a 017c e219 | | Load 0x1,0x19 017d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 017e e002 | | Load 0x0,0x2 017f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0180 e403 | | Load 0x2,0x3 0181 e006 | | Load 0x0,0x6 0182 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 0183 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0184 0000 0000 | | .BLANK 0000[0x4] 0188 ; -------------------------------------------------------------------------------------- 0188 ; Debug Table 0188 ; -------------------------------------------------------------------------------------- 0188 0004 0011 | | .DEBUG4 0x0004,0x0011,0x5699,0x0000,0x0001,0x0000 018e 0000 0000 | | .BLANK 0000[0x1f] 01ad 1002 8000 | | .XXX[0xb] 01af 0000 0000 | | 01b1 0020 0000 | | 01b3 0110 0000 | | 01b5 0000 8000 | | 01b7 0005 | | 01b8 0000 0000 | | .BLANK 0000[0x48]