|
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_5e40f2
└─⟦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 e001 | | Load 0x0,0x1 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 e001 | | Load 0x0,0x1 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 000d | | .DEBUG4 0x0004,0x000d,0x9713,0x0000,0x0001,0x0000 005e a5b8 a54c | L| .XXX[0x1a2] 0060 80c8 c881 | | 0062 e0a1 d5b9 | | 0064 a5d1 cca5 | | 0066 4c80 c8c4 |L | 0068 81e0 a1cd | | 006a d58d a0a5 | | 006c 4c80 c8c4 |L | 006e 81e0 a1d1 | | 0070 a185 d0a5 | | 0072 4c80 c8c4 |L | 0074 81e0 a1bd | | 0076 b994 a54c | L| 0078 28c8 c481 |( | 007a e0a1 8dbd | | 007c b5c1 b195 | | 007e d194 a54c | L| 0080 80d4 c081 | | 0082 e480 e4d0 | | 0084 d481 60a0 | ` | 0086 b4b4 a54c | L| 0088 80c8 c881 | | 008a e0a1 8de5 | | 008c 8db1 94a5 | | 008e 4c80 c8c4 |L | 0090 81e0 a1bd | | 0092 98a5 4c80 | L | 0094 c8c4 81e0 | | 0096 28a1 c9bd |( | 0098 d185 d1a5 | | 009a bdb8 a54c | L| 009c 80c8 c081 | | 009e e0a1 8dbd | | 00a0 c9c9 95cd | | 00a2 c1bd b991 | | 00a4 cca5 4c80 | L | 00a6 c8c0 81e0 | | 00a8 a1d1 bca5 | | 00aa 4c80 d0e4 |L | 00ac 81e4 80e4 | | 00ae d0d4 8160 | `| 00b0 a0b4 b4a5 | | 00b2 4c80 c8c8 |L | 00b4 81e0 a160 | `| 00b6 a54c 8028 | L (| 00b8 c8c4 81e0 | | 00ba a0f4 a54c | L| 00bc 80c8 c881 | | 00be e0a1 0d65 | e| 00c0 0d31 14a5 | 1 | 00c2 4c80 c4d4 |L | 00c4 e4cc 8164 | d| 00c6 80cc e0cc | | 00c8 8160 8118 | ` | 00ca c8a1 11bd | | 00cc b585 a5b8 | | 00ce e8a5 4c80 | L | 00d0 c4dc c4cc | | 00d2 8164 80d0 | d | 00d4 d8d8 8160 | `| 00d6 8118 d828 | (| 00d8 a170 a185 | p | 00da 70a4 a54c |p L| 00dc 80cc dc81 | | 00de e081 18d0 | | 00e0 e0a1 60a5 | ` | 00e2 4c80 c8c0 |L | 00e4 81e0 8118 | | 00e6 d8a1 b585 | | 00e8 d1a1 95b5 | | 00ea 85d1 a58d | | 00ec 85b1 b1e4 | | 00ee a54c 80c8 | L | 00f0 c081 e0a1 | | 00f2 d5b9 89bd | | 00f4 d5b9 9195 | | 00f6 90a5 4c80 | L | 00f8 d8c8 81e4 | | 00fa 8028 d0d8 | ( | 00fc d881 60a1 | ` | 00fe 70a1 8970 |p p| 0100 a4a5 4c80 | L | 0102 ccd4 81e0 | | 0104 8118 d0e0 | | 0106 a10d 650d | e | 0108 3114 a54c |1 L| 010a 80c4 e481 | | 010c e081 18c8 | | 010e c4a0 f8a5 | | 0110 4c80 c8c4 |L | 0112 81e0 8118 | | 0114 d0e0 a0c0 | | 0116 b8c0 a54c | L| 0118 80c4 e4c8 | | 011a dc81 6480 | d | 011c 28cc e0cc |( | 011e 8160 8118 | ` | 0120 c8a1 4985 | I | 0122 b99d 94e8 | | 0124 a54c 80c8 | L | 0126 c0d0 dc81 | | 0128 6480 b4d8 |d | 012a e481 e081 | | 012c 18c8 c8a1 | | 012e a8a5 4c81 | L | 0130 18d0 e0a1 | | 0132 4d25 3970 |M%9p| 0134 a160 b0a5 | ` | 0136 4c80 c4e4 |L | 0138 81e0 a10d | | 013a 650d 3115 |e 1 | 013c 70a4 a54c |p L| 013e 28b4 c481 |( | 0140 e081 18c8 | | 0142 c8a1 a8a5 | | 0144 4c80 c4e4 |L | 0146 81e0 a170 | p| 0148 c0c8 d0a5 | | 014a 4c80 c8c0 |L | 014c 81e0 8118 | | 014e d0e0 a0c4 | | 0150 b8c0 a54c | L| 0152 80c8 c4e4 | | 0154 e481 6480 | d | 0156 cce0 cc81 | | 0158 6081 18c8 |` | 015a a105 8d8d | | 015c d5c9 858d | | 015e e4e8 a54c | L| 0160 28c8 ccc4 |( | 0162 e081 6480 | d | 0164 d0d8 d881 | | 0166 6081 18d8 |` | 0168 a170 a185 | p | 016a 70a4 a54c |p L| 016c 80cc dc81 | | 016e e0a1 3585 | 5 | 0170 e1a5 b5d5 | | 0172 b4a5 4c80 | L | 0174 c4dc 81e0 | | 0176 a1c9 95b1 | | 0178 85d1 a5d9 | | 017a 94a5 4c80 | L | 017c c4dc 81e0 | | 017e a195 c9c9 | | 0180 bdc8 a54c | L| 0182 28c4 dc81 |( | 0184 e081 18c8 | | 0186 c0a0 f4a5 | | 0188 4c80 c4d4 |L | 018a 81e0 8118 | | 018c d0e0 a0c8 | | 018e b8c0 a54c | L| 0190 80c4 c081 | | 0192 e081 18c8 | | 0194 c8a1 70c0 | p | 0196 c0c4 a54c | L| 0198 80c4 c081 | | 019a e081 18d0 | | 019c e028 a119 | ( | 019e 313d 0551 |1= Q| 01a0 7d51 6541 |}QeA| 01a2 1570 c0c4 | p | 01a4 d509 054d | M| 01a6 14a5 4c28 | L(| 01a8 a170 c0c4 | p | 01aa d515 414d | AM| 01ac 2531 3d38 |%1=8| 01ae a54c 80c8 | L | 01b0 d0c8 d481 | | 01b2 6480 d0d8 |d | 01b4 d881 6081 | ` | 01b6 18d8 a170 | p| 01b8 a189 70a4 | p | 01ba a54c 80cc | L | 01bc d481 e0a1 | | 01be 19bd c8a5 | | 01c0 4c80 c4d8 |L | 01c2 81e0 a1a5 | | 01c4 b9d1 959d | | 01c6 95c8 a54c | L| 01c8 8028 c4d8 | ( | 01ca 81e0 8118 | | 01cc c8c4 a1ac | | 01ce a54c 80c4 | L | 01d0 81e0 8118 | | 01d2 d8a0 b0a5 | | 01d4 4c80 c4d8 |L | 01d6 81e0 8118 | | 01d8 d0e0 a14d | M| 01da 2539 70a1 |%9p | 01dc 60b0 a54c |` L| 01de 80c8 c081 | | 01e0 e0a1 0d65 | e| 01e2 0d31 1570 | 1 p| 01e4 a4a5 4c80 | L | 01e6 c4cc 81e0 | | 01e8 8118 c8c0 | | 01ea 28a0 f4a5 |( | 01ec 4c29 6140 |L)a@| 01ee 80bd 18c8 | | 01f0 cc80 d4d8 | | 01f2 80cc dc80 | | 01f4 c4d8 80b4 | | 01f6 cce0 80c8 | | 01f8 e480 b4c4 | | 01fa 80cc dc80 | | 01fc c4d8 80c0 | | 01fe 28f0 c0c0 |( |