|
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_02f8e7
└─⟦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 00c8 | | .CONST 0x00c8 ; 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 0014 | | .CONST 0x0014 ; Address of begin 0009 0037 | 7 | .CONST 0x0037 ; Address of exception handler 000a 0004 | | .CONST 0x0004 ; Number of locals 000b INIT_0008: 000b e01a | | Load 0x0,0x1a 000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000d 02c7 | | Declare_Variable Any 000e 00d8 | | Load_Top At_Offset_0 000f 1c00 | | Execute_Immediate Run_Utility,0x0 0010 e009 | | Load 0x0,0x9 0011 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0012 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call 0014 BODY_0008: 0014 e602 | | Load 0x3,0x2 0015 00ea | | Load_Encached Null_String_Cache 0016 e407 | | Load 0x2,0x7 0017 4800 |H | Short_Literal 0x0 0018 e01a | | Load 0x0,0x1a 0019 1815 | | Execute Package,Field_Execute,Field_Number 0x15 001a c602 | | Store 0x3,0x2 001b 4804 |H | Short_Literal 0x4 001c e602 | | Load 0x3,0x2 001d e01a | | Load 0x0,0x1a 001e 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 001f 00cf | | Action Mark_Auxiliary 0020 7802 |x | Jump 0x23 0021 8604 | | Call 0x3,0x4 0022 00c9 | | Action Pop_Auxiliary_Loop 0023 e602 | | Load 0x3,0x2 0024 e01a | | Load 0x0,0x1a 0025 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0026 6ffa |o | Jump_Zero 0x21 0027 00ce | | Action Pop_Auxiliary 0028 e602 | | Load 0x3,0x2 0029 e01a | | Load 0x0,0x1a 002a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 002b c602 | | Store 0x3,0x2 002c 0092 007d | }| Action Push_String_Extended,0x7d ; "Local Machine Name " 002e e7ff | | Load 0x3,-0x1 002f 01cc | | Execute Vector,Catenate 0030 0092 007e | ~| Action Push_String_Extended,0x7e ; " isn't known. Try again." 0032 01cc | | Execute Vector,Catenate 0033 e01a | | Load 0x0,0x1a 0034 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0035 4800 |H | Short_Literal 0x0 0036 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0037 TRAP_0008: 0037 0007 | | Action Break_Optional 0038 0092 007f | | Action Push_String_Extended,0x7f ; "The Site_Init_File is corrupted (illegal machine_id)." 003a e01a | | Load 0x0,0x1a 003b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 003c 0092 0080 | | Action Push_String_Extended,0x80 ; "Please report this to your System Manager." 003e e01a | | Load 0x0,0x1a 003f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0040 e602 | | Load 0x3,0x2 0041 e01a | | Load 0x0,0x1a 0042 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0043 6804 |h | Jump_Zero 0x48 0044 e602 | | Load 0x3,0x2 0045 e01a | | Load 0x0,0x1a 0046 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0047 c602 | | Store 0x3,0x2 0048 4800 |H | Short_Literal 0x0 0049 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 004a 0000 0000 | | .BLANK 0000[0x6] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0056 | V | .CONST 0x0056 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0002 | | .CONST 0x0002 ; Number of locals 0053 INIT_0050: 0053 e602 | | Load 0x3,0x2 0054 e01a | | Load 0x0,0x1a 0055 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0056 BODY_0050: 0056 4801 |H | Short_Literal 0x1 0057 4820 |H | Short_Literal 0x20 0058 4820 |H | Short_Literal 0x20 0059 e802 | | Load 0x4,0x2 005a e01f | | Load 0x0,0x1f 005b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 005c e01f | | Load 0x0,0x1f 005d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 005e 4820 |H | Short_Literal 0x20 005f 4820 |H | Short_Literal 0x20 0060 e7ff | | Load 0x3,-0x1 0061 e01f | | Load 0x0,0x1f 0062 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0063 e01f | | Load 0x0,0x1f 0064 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0065 e01f | | Load 0x0,0x1f 0066 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0067 6810 |h | Jump_Zero 0x78 0068 e602 | | Load 0x3,0x2 0069 e01a | | Load 0x0,0x1a 006a 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 006b e009 | | Load 0x0,0x9 006c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006d 0122 | " | Execute Any,Make_Root_Type 006e 00e0 | | Load_Encached Standard_Cache 006f 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0070 a603 | | Store_Unchecked 0x3,0x3 0071 e602 | | Load 0x3,0x2 0072 e01a | | Load 0x0,0x1a 0073 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0074 c602 | | Store 0x3,0x2 0075 e603 | | Load 0x3,0x3 0076 00cb | | Action Pop_Block_With_Result 0077 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0078 4801 |H | Short_Literal 0x1 0079 e602 | | Load 0x3,0x2 007a e01a | | Load 0x0,0x1a 007b 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 007c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 007d ; -------------------------------------------------------------------------------------- 007d ; STRING TABLE 007d ; -------------------------------------------------------------------------------------- 007d 000a | | .STRTAB 0x000a->0x0082 ; "Local Machine Name " 007e 001b | | .STRTAB 0x001b->0x008b ; " isn't known. Try again." 007f 0032 | 2 | .STRTAB 0x0032->0x0098 ; "The Site_Init_File is corrupted (illegal machine_id)." 0080 0065 | e | .STRTAB 0x0065->0x00b2 ; "Please report this to your System Manager." 0081 008d | | .STREND 0x008d->0x00c7 0082 4c6f 6361 |Loca| .STRTAB_STRINGS 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; Debug Table 00c8 ; -------------------------------------------------------------------------------------- 00c8 0004 0000 | | .DEBUG4 0x0004,0x0000,0x11f8,0x0000,0x0001,0x0000 00ce 029d 1e63 | c| .XXX[0x7e] 00d0 029d 1f13 | | 00d2 029d 2033 | 3| 00d4 1d6f 00c7 | o | 00d6 029d 21ab | ! | 00d8 1d70 00c7 | p | 00da 1d71 00c7 | q | 00dc 1d72 00c7 | r | 00de e00a 1b0e | | 00e0 02c7 4802 | H | 00e2 0092 3435 | 45| 00e4 e00b 1822 | "| 00e6 c280 029d | | 00e8 21db 1d69 |! i| 00ea 00c7 1d6a | j| 00ec 00c7 1d6b | k| 00ee 00c7 e00c | | 00f0 e005 e004 | | 00f2 e00d e00e | | 00f4 e008 e00f | | 00f6 e010 e009 | | 00f8 e011 e012 | | 00fa e013 e014 | | 00fc e24c 480e | LH | 00fe e273 020e | s | 0100 0007 e015 | | 0102 1d6a 4802 | jH | 0104 e215 020e | | 0106 e215 020f | | 0108 e001 1d61 | a| 010a e005 e25f | _| 010c e002 e25d | ]| 010e 1d6b 4807 | kH | 0110 e23d 020e | = | 0112 e23d 020f | = | 0114 e005 e016 | | 0116 4802 e23e |H >| 0118 020e e23e | >| 011a 020f e017 | | 011c e002 e010 | | 011e e013 e011 | | 0120 e018 e019 | | 0122 e01a e01b | | 0124 e009 e00d | | 0126 e014 e01c | | 0128 e001 e01d | | 012a e01e 4810 | H | 012c e23f 020e | ? | 012e e23f 020f | ? | 0130 00be 00bc | | 0132 00bb 0000 | | 0134 0056 940b | V | 0136 0002 fd30 | 0| 0138 0000 0000 | | 013a 0000 076d | m| 013c 0056 940b | V | 013e 0002 2b30 | +0| 0140 0056 940b | V | 0142 0002 abb0 | | 0144 0056 940b | V | 0146 0002 b330 | 0| 0148 0056 940b | V | 014a 0002 dbb0 | | 014c 0000 0000 | | .BLANK 0000[0x4] 0150 035e 0368 | ^ h| .XXX[0x22] 0152 0004 e010 | | 0154 1810 e010 | | 0156 1b0f 03f1 | | 0158 e018 180f | | 015a e010 1b14 | | 015c 03f1 00e3 | | 015e 00e3 00db | | 0160 00db 4803 | H | 0162 e273 170d | s | 0164 0059 4800 | YH | 0166 a5ff 4501 | E | 0168 0007 e001 | | 016a 1b0d e24a | J| 016c 0092 3436 | 46| 016e 01cc 826b | k| 0170 c5ff 4501 | E | 0172 0000 0000 | | .BLANK 0000[0x6] 0178 0381 038a | | .XXX[0x1c] 017a 0003 e018 | | 017c 180f e010 | | 017e 1b14 03f1 | | 0180 00e3 00e3 | | 0182 00da 4802 | H | 0184 e273 170e | s | 0186 0059 4800 | YH | 0188 a5ff 4501 | E | 018a 0007 e001 | | 018c 1b0d e24a | J| 018e 0092 3437 | 47| 0190 01cc 826b | k| 0192 c5ff 4501 | E | 0194 0000 0000 | | .BLANK 0000[0x4] 0198 03a0 03a7 | | .XXX[0x19] 019a 0002 e018 | | 019c 180f e010 | | 019e 1b14 03f1 | | 01a0 00d8 4801 | H | 01a2 e273 170f | s | 01a4 4800 a5ff |H | 01a6 4501 0007 |E | 01a8 e001 1b0d | | 01aa e24a 0092 | J | 01ac 3438 01cc |48 | 01ae 826b c5ff | k | 01b0 4501 |E | 01b1 0000 0000 | | .BLANK 0000[0x7] 01b8 03c3 03cb | | .XXX[0x48] 01ba 0004 e018 | | 01bc 180f e010 | | 01be 1b14 03f1 | | 01c0 00f0 e001 | | 01c2 1b0d 00f0 | | 01c4 00db 4802 | H | 01c6 e273 1710 | s | 01c8 0032 00d9 | 2 | 01ca 00ca 0007 | | 01cc e001 1b0d | | 01ce e24a 0092 | J | 01d0 3439 01cc |49 | 01d2 826b 005a | k Z| 01d4 00f0 00ca | | 01d6 0000 0000 | | 01d8 03dd 03e1 | | 01da 0002 e001 | | 01dc 1b0d e001 | | 01de 1b35 1817 | 5 | 01e0 00ca 0007 | | 01e2 e001 1b0d | | 01e4 e24a 0092 | J | 01e6 343a 01cc |4: | 01e8 826b 005a | k Z| 01ea 0007 00ec | | 01ec 00ca 0000 | | 01ee 0000 0000 | | 01f0 0404 044d | M| 01f2 0006 e018 | | 01f4 180f e010 | | 01f6 1b14 03f1 | | 01f8 e005 1b0d | | 01fa 02c7 00d8 | | 01fc 1c00 e005 | | 01fe 1b10 e004 | |