|
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_0ea8df
└─⟦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 0078 | x | .CONST 0x0078 ; 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 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 001d | | .CONST 0x001d ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0002 | | .CONST 0x0002 ; Number of locals 001b INIT_0018: 001b 029f 0033 | 3| Declare_Subprogram INIT_0030,For_Call 001d BODY_0018: 001d 0092 003e | >| Action Push_String_Extended,0x3e ; "!Machine" 001f 4801 |H | Short_Literal 0x1 0020 0092 003f | ?| Action Push_String_Extended,0x3f ; "?" 0022 0092 0040 | @| Action Push_String_Extended,0x40 ; "Install_Subsystems" 0024 e002 | | Load 0x0,0x2 0025 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0026 6801 |h | Jump_Zero 0x28 0027 8402 | | Call 0x2,0x2 0028 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0029 0000 0000 | | .BLANK 0000[0x7] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0033 | 3 | .CONST 0x0033 ; Address of begin 0031 003c | < | .CONST 0x003c ; Address of exception handler 0032 0001 | | .CONST 0x0001 ; Number of locals 0033 BODY_0030: 0033 INIT_0030: 0033 0092 0041 | A| Action Push_String_Extended,0x41 ; "<PROFILE>" 0035 0092 0042 | B| Action Push_String_Extended,0x42 ; "$" 0037 0092 0043 | C| Action Push_String_Extended,0x43 ; "\x22!Machine'L.Install_Subsystems$\x22.Install_Subsystems;" 0039 e003 | | Load 0x0,0x3 003a 180f | | Execute Package,Field_Execute,Field_Number 0xf 003b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 003c TRAP_0030: 003c 0007 | | Action Break_Optional 003d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 003e ; -------------------------------------------------------------------------------------- 003e ; STRING TABLE 003e ; -------------------------------------------------------------------------------------- 003e 000e | | .STRTAB 0x000e->0x0045 ; "!Machine" 003f 0014 | | .STRTAB 0x0014->0x0049 ; "?" 0040 0013 | | .STRTAB 0x0013->0x0049 ; "Install_Subsystems" 0041 0023 | # | .STRTAB 0x0023->0x0052 ; "<PROFILE>" 0042 002a | * | .STRTAB 0x002a->0x0057 ; "$" 0043 0029 | ) | .STRTAB 0x0029->0x0057 ; "\x22!Machine'L.Install_Subsystems$\x22.Install_Subsystems;" 0044 005b | [ | .STREND 0x005b->0x0071 0045 214d 6163 |!Mac| .STRTAB_STRINGS 0072 0000 0000 | | .BLANK 0000[0x6] 0078 ; -------------------------------------------------------------------------------------- 0078 ; Debug Table 0078 ; -------------------------------------------------------------------------------------- 0078 0004 0002 | | .DEBUG4 0x0004,0x0002,0x06d3,0x0000,0x0001,0x0000 007e 0003 0803 | | .XXX[0x182] 0080 cc1b 1800 | | 0082 0800 0001 | | 0084 68bc 1400 |h | 0086 0003 5804 | X | 0088 ec1b 9800 | | 008a 0800 0001 | | 008c 68bc 1400 |h | 008e 0006 1005 | | 0090 8c1b f000 | | 0092 0800 0001 | | 0094 68bc 1400 |h | 0096 0007 9c06 | | 0098 6c1c 7800 |l x | 009a 0800 0001 | | 009c 68bc 1400 |h | 009e 0009 6406 | d | 00a0 ac1c 8800 | | 00a2 0800 0001 | | 00a4 68bc 1400 |h | 00a6 0009 ec06 | | 00a8 ec1c 9800 | | 00aa 0800 0001 | | 00ac 68bc 1400 |h | 00ae 000a 7408 | t | 00b0 6c1d 8000 |l | 00b2 0800 0001 | | 00b4 68bc 1400 |h | 00b6 000c 2c08 | , | 00b8 ac1d 9000 | | 00ba 0800 0001 | | 00bc 68bc 1400 |h | 00be 000c b40a | | 00c0 6c1e 9000 |l | 00c2 0800 0001 | | 00c4 68bc 1400 |h | 00c6 000e 780a | x | 00c8 cc1e a000 | | 00ca 0400 0001 | | 00cc 68bc 1400 |h | 00ce 000f 1c0d | | 00d0 4c20 1800 |L | 00d2 0800 0001 | | 00d4 68bc 1400 |h | 00d6 0013 880e | | 00d8 6c20 6000 |l ` | 00da 0800 0001 | | 00dc 68bc 1400 |h | 00de 0015 4c0e | L | 00e0 cc20 8800 | | 00e2 0800 0001 | | 00e4 68bc 1400 |h | 00e6 0016 300f | 0 | 00e8 6c20 b800 |l | 00ea 0800 0001 | | 00ec 68bc 1400 |h | 00ee 0017 a412 | | 00f0 2c22 6000 |,"` | 00f2 0800 0001 | | 00f4 68bc 1400 |h | 00f6 001b c012 | | 00f8 8c22 8800 | " | 00fa 0800 0001 | | 00fc 68bc 1400 |h | 00fe 001c 9013 | | 0100 ec22 e000 | " | 0102 0800 0001 | | 0104 68bc 1400 |h | 0106 001e e014 | | 0108 6c23 0800 |l# | 010a 0800 0001 | | 010c 68bc 1400 |h | 010e 001f d400 | | 0110 0400 0000 | | 0112 2fff fc00 |/ | 0114 8800 0000 | | 0116 3bff fc00 |; | 0118 3fff f800 |? | 011a 43ff f400 |C | 011c 47ff f000 |G | 011e 4bff ec00 |K | 0120 4fff e800 |O | 0122 53ff e400 |S | 0124 5fff e000 |_ | 0126 6bff dc00 |k | 0128 6fff d800 |o | 012a 83ff d400 | | 012c 8bff d000 | | 012e 93ff cc00 | | 0130 9bff c800 | | 0132 a3ff c400 | | 0134 abff c000 | | 0136 b3ff bc00 | | 0138 bbff b800 | | 013a c3ff b400 | | 013c cbff b000 | | 013e d3ff ac00 | | 0140 dbff a800 | | 0142 e3ff a400 | | 0144 ebff a000 | | 0146 f3ff 9c00 | | 0148 fbff 9801 | | 014a 03ff 9401 | | 014c 0bff 9001 | | 014e 13ff 8c01 | | 0150 1bff 8801 | | 0152 23ff 8401 |# | 0154 2bff 8001 |+ | 0156 33ff 7c01 |3 | | 0158 3bff 7800 |; x | 015a 0000 1801 | | 015c 6c00 0401 |l | 015e 7800 0801 |x | 0160 9000 0c01 | | 0162 9410 0401 | | 0164 9800 0c01 | | 0166 9c00 1000 | | 0168 0000 0000 | | 016a 0000 3402 | 4 | 016c 2c00 0402 |, | 016e 3010 0402 |0 | 0170 3810 0802 |8 | 0172 3c10 0c02 |< | 0174 4010 1002 |@ | 0176 4400 0402 |D | 0178 7400 2002 |t | 017a 7c00 0802 || | 017c 9000 0c02 | | 017e 9800 1002 | | 0180 a400 1402 | | 0182 b000 1802 | | 0184 bc00 1c00 | | 0186 0800 1002 | | 0188 efff fc02 | | 018a f3ff f803 | | 018c 0400 0403 | | 018e 2000 0803 | | 0190 2800 0c03 |( | 0192 3800 1000 |8 | 0194 0000 0403 | | 0196 4c00 0400 |L | 0198 0000 0403 | | 019a 8c00 0400 | | 019c 1400 2803 | ( | 019e cfff fc03 | | 01a0 efff f804 | | 01a2 03ff f404 | | 01a4 07ff f004 | | 01a6 0bff ec04 | | 01a8 0c00 0404 | | 01aa 3400 0804 |4 | 01ac 4400 0c04 |D | 01ae 5800 1004 |X | 01b0 6800 1404 |h | 01b2 7c00 1804 || | 01b4 9400 1c04 | | 01b6 a800 2004 | | 01b8 bc00 2404 | $ | 01ba d000 2800 | ( | 01bc 0c00 1c04 | | 01be efff fc05 | | 01c0 03ff f805 | | 01c2 17ff f405 | | 01c4 2800 0405 |( | 01c6 3800 0805 |8 | 01c8 4800 0c05 |H | 01ca 5000 1005 |P | 01cc 5800 1405 |X | 01ce 6800 1805 |h | 01d0 7000 1c00 |p | 01d2 0400 3c05 | < | 01d4 8fff fc05 | | 01d6 9000 0405 | | 01d8 9410 0405 | | 01da 9c10 0805 | | 01dc a010 0c05 | | 01de a410 1005 | | 01e0 a800 0405 | | 01e2 b000 0805 | | 01e4 d800 0c05 | | 01e6 e000 1005 | | 01e8 f800 1406 | | 01ea 0800 1806 | | 01ec 1800 1c06 | | 01ee 4000 2006 |@ | 01f0 4800 2406 |H $ | 01f2 5000 2800 |P ( | 01f4 0000 0406 | | 01f6 6c00 0400 |l | 01f8 0000 0406 | | 01fa ac00 0400 | | 01fc 0c00 6406 | d | 01fe efff fc07 | |