|
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 0058 | X | .CONST 0x0058 ; 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 001b | | .CONST 0x001b ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0001 | | .CONST 0x0001 ; Number of locals 001b BODY_0018: 001b INIT_0018: 001b 4800 |H | Short_Literal 0x0 001c 4800 |H | Short_Literal 0x0 001d 4800 |H | Short_Literal 0x0 001e 4801 |H | Short_Literal 0x1 001f 4801 |H | Short_Literal 0x1 0020 4800 |H | Short_Literal 0x0 0021 4800 |H | Short_Literal 0x0 0022 4801 |H | Short_Literal 0x1 0023 4800 |H | Short_Literal 0x0 0024 4800 |H | Short_Literal 0x0 0025 4801 |H | Short_Literal 0x1 0026 4800 |H | Short_Literal 0x0 0027 e5ff | | Load 0x2,-0x1 0028 0092 0045 | E| Action Push_String_Extended,0x45 ; "_Errors" 002a 01cc | | Execute Vector,Catenate 002b e5ff | | Load 0x2,-0x1 002c e002 | | Load 0x0,0x2 002d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 002e 4800 |H | Short_Literal 0x0 002f 4800 |H | Short_Literal 0x0 0030 4800 |H | Short_Literal 0x0 0031 4800 |H | Short_Literal 0x0 0032 4800 |H | Short_Literal 0x0 0033 4800 |H | Short_Literal 0x0 0034 4800 |H | Short_Literal 0x0 0035 4801 |H | Short_Literal 0x1 0036 4800 |H | Short_Literal 0x0 0037 4800 |H | Short_Literal 0x0 0038 4800 |H | Short_Literal 0x0 0039 4800 |H | Short_Literal 0x0 003a e5ff | | Load 0x2,-0x1 003b 0092 0046 | F| Action Push_String_Extended,0x46 ; "_Negatives" 003d 01cc | | Execute Vector,Catenate 003e e5ff | | Load 0x2,-0x1 003f 0092 0045 | E| Action Push_String_Extended,0x45 ; "_Errors" 0041 01cc | | Execute Vector,Catenate 0042 e002 | | Load 0x0,0x2 0043 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0044 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0045 ; -------------------------------------------------------------------------------------- 0045 ; STRING TABLE 0045 ; -------------------------------------------------------------------------------------- 0045 0006 | | .STRTAB 0x0006->0x0048 ; "_Errors" 0046 000b | | .STRTAB 0x000b->0x004b ; "_Negatives" 0047 0013 | | .STREND 0x0013->0x0050 0048 5f45 7272 |_Err| .STRTAB_STRINGS 0051 0000 0000 | | .BLANK 0000[0x7] 0058 ; -------------------------------------------------------------------------------------- 0058 ; Debug Table 0058 ; -------------------------------------------------------------------------------------- 0058 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0b8c,0x0000,0x0001,0x0000 005e b1bd c1b5 | | .XXX[0x1a2] 0060 95b9 d0a5 | | 0062 4c80 c4cc |L | 0064 81e0 a1bd | | 0066 98a5 4c80 | L | 0068 28c4 cc81 |( | 006a e0a1 d1a1 | | 006c 94a5 4c80 | L | 006e d4c0 81e4 | | 0070 80cc c8dc | | 0072 8160 8118 | ` | 0074 d4cc a11d | | 0076 1539 1549 | 9 I| 0078 250d 7d15 |% } | 007a 3115 3515 |1 5 | 007c 3951 0549 |9Q I| 007e 657d 1955 |e} U| 0080 390d 5125 |9 Q%| 0082 3d39 4ca5 |=9L | 0084 4c80 dc81 |L | 0086 e081 18d8 | | 0088 28a1 cdd1 |( | 008a 85b9 9185 | | 008c c990 b0a5 | | 008e 4c80 c4d0 |L | 0090 81e0 a1d1 | | 0092 a194 a54c | L| 0094 80c4 d081 | | 0096 e0a1 8dbd | | 0098 b5b5 a5d1 | | 009a d195 94a5 | | 009c 4c80 c4cc |L | 009e 81e0 a1a1 | | 00a0 8590 a54c | L| 00a2 80c4 cc81 | | 00a4 e0a1 b9d5 | | 00a6 b595 c9bd | | 00a8 d5cc a54c | L| 00aa 28c4 cc81 |( | 00ac e0a1 c995 | | 00ae c5d5 95cd | | 00b0 d1cc a54c | L| 00b2 80c4 cc81 | | 00b4 e0a1 d1bc | | 00b6 a54c 80c4 | L | 00b8 cc81 e0a1 | | 00ba a5b9 8db1 | | 00bc d591 94a5 | | 00be 4c80 c4cc |L | 00c0 81e0 a1cd | | 00c2 d58d a0a5 | | 00c4 4c80 c4cc |L | 00c6 81e0 a184 | | 00c8 a54c 80c4 | L | 00ca cc81 e028 | (| 00cc a1c1 858d | | 00ce ad85 9d94 | | 00d0 a54c 80c4 | L | 00d2 cc81 e0a1 | | 00d4 85b9 90a5 | | 00d6 4c80 d0e4 |L | 00d8 81e4 80cc | | 00da c8dc 8160 | `| 00dc a1b9 d5b5 | | 00de 95c9 bdd5 | | 00e0 cca5 4c80 | L | 00e2 c4c4 81e0 | | 00e4 a1cd d59d | | 00e6 9d95 cdd1 | | 00e8 a5bd b9cc | | 00ea a54c 80c4 | L | 00ec c881 e028 | (| 00ee a199 bdc8 | | 00f0 a54c 80c4 | L | 00f2 c881 e0a1 | | 00f4 a5d1 cca5 | | 00f6 4c80 c4c8 |L | 00f8 81e0 a18d | | 00fa bdb9 d195 | | 00fc b9d1 ccb8 | | 00fe a54c 80c4 | L | 0100 e081 e0a1 | | 0102 51a1 95c9 |Q | 0104 94a5 4c80 | L | 0106 c4c4 81e0 | | 0108 a1dd 85cc | | 010a b0a5 4c80 | L | 010c c4c8 81e0 | | 010e a185 d0a5 | | 0110 4c28 c4c8 |L( | 0112 81e0 a1bd | | 0114 b994 a54c | L| 0116 80c4 c881 | | 0118 e0a1 d1a5 | | 011a b594 b0a5 | | 011c 4c80 c4c8 |L | 011e 81e0 a185 | | 0120 b8a5 4c80 | L | 0122 c4c8 81e0 | | 0124 a195 d995 | | 0126 b8a5 4c80 | L | 0128 c4c8 81e0 | | 012a a1b5 bdc9 | | 012c 94a5 4c80 | L | 012e c4c4 81e0 | | 0130 28a1 a5b5 |( | 0132 c1bd c9d1 | | 0134 85b9 d0a5 | | 0136 4c80 c4c8 |L | 0138 81e0 a1c9 | | 013a 9585 cdbd | | 013c b8a5 4c80 | L | 013e c4c4 81e0 | | 0140 a199 bdc8 | | 0142 a54c 80c4 | L | 0144 c481 e0a1 | | 0146 a5b9 8db1 | | 0148 d591 a5b9 | | 014a 9ca5 4c80 | L | 014c c4c8 81e0 | | 014e a1a5 d0e8 | | 0150 a54c 8028 | L (| 0152 c4dc 81e0 | | 0154 a1d5 b9d1 | | 0156 a5b0 a54c | L| 0158 80d4 c081 | | 015a e480 ccc8 | | 015c dc81 60a1 | ` | 015e d1a1 94a5 | | 0160 4c80 c4c8 |L | 0162 81e0 a191 | | 0164 958d a5cd | | 0166 a5bd b8a5 | | 0168 4c80 c4c8 |L | 016a 81e0 a1dd | | 016c 85cc a54c | L| 016e 80c4 cc81 | | 0170 e0a1 b585 | | 0172 9194 a54c | L| 0174 28c4 cc81 |( | 0176 e0a1 d1bc | | 0178 a54c 80c4 | L | 017a cc81 e0a1 | | 017c 858d 8dbd | | 017e b5b5 bd91 | | 0180 85d1 94a5 | | 0182 4c80 c4c8 |L | 0184 81e0 a185 | | 0186 c989 a5d1 | | 0188 c985 c9e4 | | 018a a54c 80c4 | L | 018c cc81 e0a1 | | 018e c195 c9a5 | | 0190 bd91 cca5 | | 0192 4c80 c4cc |L | 0194 81e0 28a1 | ( | 0196 a5b8 a54c | L| 0198 80c4 cc81 | | 019a e0a1 d1a1 | | 019c 94a5 4c80 | L | 019e c4cc 81e0 | | 01a0 a1d1 c9a5 | | 01a2 9dbd b9bd | | 01a4 b595 d1c9 | | 01a6 a58c a54c | L| 01a8 80c4 c881 | | 01aa e0a1 99d5 | | 01ac b98d d1a5 | | 01ae bdb9 cca5 | | 01b0 4c80 c4cc |L | 01b2 81e0 a189 | | 01b4 e4a5 4c80 | L | 01b6 28c4 cc81 |( | 01b8 e0a1 cdd5 | | 01ba 89c1 c9bd | | 01bc 9dc9 85b4 | | 01be a54c 80c4 | L | 01c0 cc81 e0a1 | | 01c2 bdd9 95c9 | | 01c4 b1bd 8591 | | 01c6 a5b9 9ca5 | | 01c8 4c80 d4c0 |L | 01ca 81e4 80cc | | 01cc c8dc 8160 | `| 01ce a1a5 b9cd | | 01d0 d195 8590 | | 01d2 a54c 80c4 | L | 01d4 c081 e0a1 | | 01d6 bd98 a54c | L| 01d8 28c4 c481 |( | 01da e0a1 89e4 | | 01dc a54c 80c4 | L | 01de c481 e0a1 | | 01e0 bdc1 d1a5 | | 01e2 bdb9 85b0 | | 01e4 a54c 80c4 | L | 01e6 c481 e0a1 | | 01e8 c185 c985 | | 01ea b595 d195 | | 01ec c9cc a54c | L| 01ee 80c4 c481 | | 01f0 e0a1 dda5 | | 01f2 d1a0 a54c | L| 01f4 80c4 c481 | | 01f6 e028 a191 | ( | 01f8 9599 85d5 | | 01fa b1d0 a54c | L| 01fc 80c4 c481 | | 01fe e0a1 d985 | |