|
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_0d2ce3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 0000 | | .DEBUG4 0x0004,0x0000,0x77f1,0x0000,0x0001,0x0000 005e 6802 ac0a |h | .XXX[0x19] 0060 6803 8c0a |h | 0062 6804 0c02 |h | 0064 fc0a 7404 | t | 0066 8c74 4403 | tD | 0068 1c74 4803 | tH | 006a 1c74 4c03 | tL | 006c 1c74 5003 | tP | 006e 1c74 5403 | tT | 0070 1c74 5803 | tX | 0072 1c74 5c03 | t\ | 0074 1c02 f002 | | 0076 ec00 | | 0077 0000 0000 | | .BLANK 0000[0x4] 007b cc00 1000 | | .XXX[0x4a] 007d 0402 4804 | H | 007f a003 6cf0 | l | 0081 0003 8060 | `| 0083 6007 3397 |` 3 | 0085 fa08 6002 | ` | 0087 4804 a403 |H | 0089 6cf0 0403 |l | 008b 8060 6007 | `` | 008d 3397 fa08 |3 | 008f 6114 0c00 |a | 0091 0000 0001 | | 0093 2c00 1000 |, | 0095 0402 4804 | H | 0097 a803 6cf0 | l | 0099 0380 046c | l| 009b 4404 7070 |D pp| 009d 0407 3397 | 3 | 009f fa08 6114 | a | 00a1 0c00 0001 | | 00a3 6c00 1000 |l | 00a5 0403 6c02 | l | 00a7 4804 ac07 |H | 00a9 3003 6c90 |0 l | 00ab 0a08 4802 | H | 00ad 4804 b003 |H | 00af 6cb0 0780 |l | 00b1 046c 3c04 | l< | 00b3 7070 0407 |pp | 00b5 3397 fa08 |3 | 00b7 6003 68b0 |` h | 00b9 043c 09c0 | < | 00bb 0514 0c03 | | 00bd 6c02 4804 |l H | 00bf b407 3003 | 0 | 00c1 6c98 0e08 |l | 00c3 4514 0c00 |E | 00c5 0000 0000 | | .BLANK 0000[0x5] 00ca 0002 0c00 | | .XXX[0x24] 00cc 1000 0402 | | 00ce 4804 b803 |H | 00d0 6cb0 0780 |l | 00d2 046c 4004 | l@ | 00d4 7070 0407 |pp | 00d6 3208 3c03 |2 < | 00d8 68b0 05a0 |h | 00da 2c02 4804 |, H | 00dc bc03 6cb8 | l | 00de 0f80 046c | l| 00e0 4804 7070 |H pp| 00e2 0407 3208 | 2 | 00e4 3d14 0c03 |= | 00e6 6c02 4804 |l H | 00e8 b407 3003 | 0 | 00ea 6c98 0a08 |l | 00ec 4514 0c00 |E | 00ee 0000 0000 | | .BLANK 0000[0x4] 00f2 0002 ac00 | | .XXX[0x54] 00f4 1000 0402 | | 00f6 4804 c003 |H | 00f8 6cf0 0003 |l | 00fa 8060 6007 | `` | 00fc 3397 fa08 |3 | 00fe 6002 4804 |` H | 0100 c403 6cf0 | l | 0102 0403 8060 | `| 0104 6007 3397 |` 3 | 0106 fa08 6002 | ` | 0108 4804 c803 |H | 010a 6cf0 0803 |l | 010c 8060 6007 | `` | 010e 3397 fa08 |3 | 0110 6002 4804 |` H | 0112 cc03 6cf0 | l | 0114 0c03 8060 | `| 0116 6007 3397 |` 3 | 0118 fa08 6003 | ` | 011a 6c02 4804 |l H | 011c d007 3003 | 0 | 011e 6cd0 1208 |l | 0120 4803 6c02 |H l | 0122 4804 d407 |H | 0124 3003 6cd0 |0 l | 0126 1608 4914 | I | 0128 0c00 0000 | | 012a 0003 8c00 | | 012c 1000 0402 | | 012e 4804 d803 |H | 0130 6cb0 0780 |l | 0132 046c 3804 | l8 | 0134 7070 0407 |pp | 0136 3397 fa08 |3 | 0138 6003 68b0 |` h | 013a 05a0 1403 | | 013c 6c03 6c98 |l l | 013e 0e08 5114 | Q | 0140 0c03 6c03 | l | 0142 6c98 0a08 |l | 0144 4d14 0c00 |M | 0146 0000 0000 | | .BLANK 0000[0x4] 014a 0004 0c00 | | .XXX[0x1a] 014c 1000 0402 | | 014e 4804 dc03 |H | 0150 6cb0 0803 |l | 0152 8060 6007 | `` | 0154 3397 fa08 |3 | 0156 6003 68b0 |` h | 0158 05a0 1403 | | 015a 6c03 6c98 |l l | 015c 1208 5914 | Y | 015e 0c03 6c03 | l | 0160 6c98 0e08 |l | 0162 5514 0c00 |U | 0164 0000 0000 | | .BLANK 0000[0x6] 016a 0004 8c00 | | .XXX[0x96] 016c 1000 0403 | | 016e 6b97 f807 |k | 0170 3208 4114 |2 A | 0172 0c00 8800 | | 0174 c401 0001 | | 0176 5c01 7801 |\ x | 0178 b401 dc02 | | 017a 1802 7402 | t | 017c c403 1403 | | 017e 6403 b403 |d | 0180 dc04 0404 | | 0182 3c04 6d59 |< mY| 0184 95c9 cda5 | | 0186 bdb8 b919 | | 0188 a5c9 cdd0 | | 018a 80f4 f881 | | 018c 5995 c9cd |Y | 018e a5bd b8b9 | | 0190 3185 cdd0 |1 | 0192 8080 f4f8 | | 0194 8105 d5d1 | | 0196 a195 b9d1 | | 0198 a58d 85d1 | | 019a a5bd b97d | }| 019c 19b1 85d9 | | 019e bdc8 80f4 | | 01a0 f881 5995 | Y | 01a2 c9a5 99a5 | | 01a4 95c8 b905 | | 01a6 8d8d 95c1 | | 01a8 d17d 4dd1 | }M | 01aa 85d1 d5cc | | 01ac 80f4 f881 | | 01ae 3195 9d85 |1 | 01b0 b081 4985 | I | 01b2 b99d 94b9 | | 01b4 4995 a995 |I | 01b6 8dd1 7d4d | }M| 01b8 d185 d1d5 | | 01ba cc80 f4f8 | | 01bc 8105 d5d1 | | 01be a195 b9d1 | | 01c0 a58d 85d1 | | 01c2 a5bd b97d | }| 01c4 4dd1 85d1 |M | 01c6 d5cc 80f4 | | 01c8 f880 8149 | I| 01ca 410c 8159 |A Y| 01cc 95c9 cda5 | | 01ce bdb9 7d39 | }9| 01d0 d5b5 8995 | | 01d2 c880 f4f9 | | 01d4 41c9 bd8c |A | 01d6 8141 c9bd | A | 01d8 9dc9 85b5 | | 01da 7d39 d5b5 |}9 | 01dc 8995 c880 | | 01de f4f9 41c9 | A | 01e0 bd8c 8159 | Y| 01e2 95c9 cda5 | | 01e4 bdb9 7d39 | }9| 01e6 d5b5 8995 | | 01e8 c880 f4f8 | | 01ea 8080 8141 | A| 01ec c9bd 8d95 | | 01ee 91d5 c995 | | 01f0 7d39 d5b5 |}9 | 01f2 8995 c880 | | 01f4 f4f9 0dc9 | | 01f6 9591 95b9 | | 01f8 d1a5 85b1 | | 01fa ccb8 8080 | | 01fc 8159 95c9 | Y | 01fe a599 a595 | |