|
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_03b8fe
└─⟦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 0040 | @ | .CONST 0x0040 ; 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 e001 | | Load 0x0,0x1 001c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 001d BODY_0018: 001d 00d8 | | Load_Top At_Offset_0 001e 01db | | Execute Vector,Length 001f 7005 |p | Jump_Nonzero 0x25 0020 0092 002c | ,| Action Push_String_Extended,0x2c ; "Site has not been set." 0022 e002 | | Load 0x0,0x2 0023 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0024 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0025 0092 002d | -| Action Push_String_Extended,0x2d ; "Site = " 0027 e402 | | Load 0x2,0x2 0028 01cc | | Execute Vector,Catenate 0029 e002 | | Load 0x0,0x2 002a 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 002b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 002c ; -------------------------------------------------------------------------------------- 002c ; STRING TABLE 002c ; -------------------------------------------------------------------------------------- 002c 0006 | | .STRTAB 0x0006->0x002f ; "Site has not been set." 002d 001a | | .STRTAB 0x001a->0x003a ; "Site = " 002e 001f | | .STREND 0x001f->0x003d 002f 5369 7465 |Site| .STRTAB_STRINGS 003e 0000 0000 | | .XXX[0x2] 0040 ; -------------------------------------------------------------------------------------- 0040 ; Debug Table 0040 ; -------------------------------------------------------------------------------------- 0040 0004 000d | | .DEBUG4 0x0004,0x000d,0xeb74,0x0000,0x0001,0x0000 0046 4c80 b4c4 |L | .XXX[0x1ba] 0048 81e0 8118 | | 004a c8c4 a0ec | | 004c a54c 80d0 | L | 004e c481 e081 | | 0050 18d0 e0a1 | | 0052 64a5 4c80 |d L | 0054 c4c4 81e0 | | 0056 8118 c8c4 | | 0058 28a0 f0a5 |( | 005a 4c80 c4c8 |L | 005c 81e0 8118 | | 005e d0e0 a0c0 | | 0060 b8c0 a54c | L| 0062 80dc c4d4 | | 0064 8164 80d0 | d | 0066 d8d8 8160 | `| 0068 8118 d8a1 | | 006a 70a1 9170 |p p| 006c a4a5 4c80 | L | 006e ccd4 81e0 | | 0070 8118 d0e0 | | 0072 a105 490d | I | 0074 0d3d 5170 | =Qp| 0076 a160 b0a5 | ` | 0078 4c80 28c4 |L ( | 007a e481 e0a0 | | 007c c0b8 c0b0 | | 007e a54c 80c8 | L | 0080 c081 e0a1 | | 0082 0d65 0d31 | e 1| 0084 1570 a4a5 | p | 0086 4c80 c4cc |L | 0088 81e0 8118 | | 008a c8c0 a0f4 | | 008c a54c 80b4 | L | 008e d4e0 81e4 | | 0090 80c4 d481 | | 0092 e081 18c8 | | 0094 cca1 70c0 | p | 0096 ccc8 a54c | L| 0098 80cc c081 | | 009a e480 28dc | ( | 009c 81e0 8118 | | 009e d0e0 a0c0 | | 00a0 b8c0 a54c | L| 00a2 80b4 c481 | | 00a4 e081 18c8 | | 00a6 c4a0 eca5 | | 00a8 4c80 c4d8 |L | 00aa c4c0 8160 | `| 00ac 8118 d0e0 | | 00ae a160 a54c | ` L| 00b0 80c4 c881 | | 00b2 e081 18c8 | | 00b4 c4a0 f8a5 | | 00b6 4c80 c4c4 |L | 00b8 81e0 8118 | | 00ba d0e0 a0c0 | | 00bc b8c0 a54c | L| 00be 28d4 c081 |( | 00c0 e480 c4c4 | | 00c2 c0d0 8160 | `| 00c4 8118 c8c8 | | 00c6 a170 c0c0 | p | 00c8 d8a5 4c81 | L | 00ca 18d0 e0a1 | | 00cc 0d65 0d31 | e 1| 00ce 14a5 4c80 | L | 00d0 b4c4 81e0 | | 00d2 8118 c8c4 | | 00d4 a0f4 a54c | L| 00d6 8118 d0e0 | | 00d8 a0c8 b8c0 | | 00da a54c 80c8 | L | 00dc c081 e081 | | 00de 18c8 c028 | (| 00e0 a170 a0a5 | p | 00e2 4c81 18d8 |L | 00e4 a1cd 9594 | | 00e6 a54c 80c4 | L | 00e8 d081 e0a1 | | 00ea b9bd d194 | | 00ec a54c 80c4 | L | 00ee d081 e0a1 | | 00f0 88a5 4c81 | L | 00f2 18c8 c0a1 | | 00f4 70a4 a54c |p L| 00f6 8118 c8c4 | | 00f8 a0ec a54c | L| 00fa 80d0 c481 | | 00fc e081 18d0 | | 00fe e0a1 60a5 | ` | 0100 4c80 28c4 |L ( | 0102 c881 e081 | | 0104 18c8 c4a0 | | 0106 f0a5 4c80 | L | 0108 c4c4 81e0 | | 010a 8118 d0e0 | | 010c a0c0 b8c0 | | 010e a54c 80e0 | L | 0110 dcc4 8164 | d| 0112 80cc e0cc | | 0114 8160 8118 | ` | 0116 c8a1 39bd | 9 | 0118 d195 cce8 | | 011a a54c 80e4 | L | 011c e0d0 8164 | d| 011e 80b4 d4cc | | 0120 81e0 8118 | | 0122 d828 a170 | ( p| 0124 a185 70a4 | p | 0126 a54c 80cc | L | 0128 dc81 e081 | | 012a 18c8 c8a1 | | 012c 70c0 c0c0 |p | 012e a54c 8118 | L | 0130 d0e0 a10d | | 0132 650d 3114 |e 1 | 0134 a54c 80b4 | L | 0136 c481 e081 | | 0138 18c8 c4a0 | | 013a f4a5 4c81 | L | 013c 18d0 e0a0 | | 013e c8b8 c0a5 | | 0140 4c80 b4c4 |L | 0142 81e0 8118 | | 0144 d828 a0b0 | ( | 0146 a54c 80c4 | L | 0148 c081 e081 | | 014a 18c8 c8a1 | | 014c 70c0 c0c0 |p | 014e a54c 8118 | L | 0150 d0e0 a10d | | 0152 650d 3114 |e 1 | 0154 a54c 80b4 | L | 0156 c481 e081 | | 0158 18c8 c4a0 | | 015a f4a5 4c81 | L | 015c 18d0 e0a0 | | 015e d0b8 c0a5 | | 0160 4c80 b4c4 |L | 0162 81e0 8118 | | 0164 d8a0 b0a5 | | 0166 4c28 c4c0 |L( | 0168 81e0 8118 | | 016a d0e0 a10d | | 016c 650d 3114 |e 1 | 016e a54c 80b4 | L | 0170 c481 e081 | | 0172 18c8 c4a0 | | 0174 f4a5 4c81 | L | 0176 18d0 e0a0 | | 0178 d0b8 c0a5 | | 017a 4c80 b4c4 |L | 017c 81e0 8118 | | 017e d8a0 b0a5 | | 0180 4c80 e481 |L | 0182 e0a1 85b9 | | 0184 90a5 4c80 | L | 0186 e481 e080 | | 0188 2918 d0e0 |) | 018a a10d 650d | e | 018c 3114 a54c |1 L| 018e 80b4 c481 | | 0190 e081 18c8 | | 0192 c4a0 f4a5 | | 0194 4c81 18d0 |L | 0196 e0a0 c8b8 | | 0198 c0a5 4c80 | L | 019a e481 e081 | | 019c 18d8 a1b5 | | 019e a59d a1d0 | | 01a0 a54c 80e4 | L | 01a2 81e0 a1b9 | | 01a4 bdd0 a54c | L| 01a6 80e4 81e0 | | 01a8 a189 94a5 | | 01aa 4c28 c4c0 |L( | 01ac 81e0 a1cd | | 01ae 8599 94a5 | | 01b0 4c80 c4c0 |L | 01b2 81e0 a1b9 | | 01b4 d5b5 8995 | | 01b6 c9cc a54c | L| 01b8 80e4 81e0 | | 01ba a1bd 98a5 | | 01bc 4c80 c4c0 |L | 01be 81e0 8118 | | 01c0 d0e0 a119 | | 01c2 313d 0551 |1= Q| 01c4 7d51 6541 |}QeA| 01c6 14a5 4c81 | L | 01c8 18d8 a0b8 | | 01ca a54c 8028 | L (| 01cc d4c0 81e4 | | 01ce 80d4 d0e4 | | 01d0 8160 a105 | ` | 01d2 8d8d bdc9 | | 01d4 91a5 b99d | | 01d6 b1e4 b0a5 | | 01d8 4c80 c4d8 |L | 01da 81e0 a185 | | 01dc b8a5 4c80 | L | 01de c4d8 81e0 | | 01e0 a1a5 b5c1 | | 01e2 b195 b595 | | 01e4 b9d1 85d1 | | 01e6 a5bd b8a5 | | 01e8 4c80 c4d8 |L | 01ea 81e0 a1b5 | | 01ec 85e4 a54c | L| 01ee 28c4 d881 |( | 01f0 e0a1 95e1 | | 01f2 8d95 9590 | | 01f4 a54c 80c4 | L | 01f6 d881 e0a1 | | 01f8 d1a1 94a5 | | 01fa 4c80 c4d8 |L | 01fc 81e0 a1c9 | | 01fe 85b9 9d94 | |