|
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 e001 | | Load 0x0,0x1 001c 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 001d e001 | | Load 0x0,0x1 001e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 001f 00db | | Load_Top At_Offset_3 0020 680a |h | Jump_Zero 0x2b 0021 4801 |H | Short_Literal 0x1 0022 e001 | | Load 0x0,0x1 0023 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0024 0092 0038 | 8| Action Push_String_Extended,0x38 ; "------- End of step: " 0026 00db | | Load_Top At_Offset_3 0027 01cc | | Execute Vector,Catenate 0028 e001 | | Load 0x0,0x1 0029 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 002a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 002b 4801 |H | Short_Literal 0x1 002c e001 | | Load 0x0,0x1 002d 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 002e 0092 0039 | 9| Action Push_String_Extended,0x39 ; "------- Beginning step: " 0030 00db | | Load_Top At_Offset_3 0031 01cc | | Execute Vector,Catenate 0032 e001 | | Load 0x0,0x1 0033 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0034 4801 |H | Short_Literal 0x1 0035 e001 | | Load 0x0,0x1 0036 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0037 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0038 ; -------------------------------------------------------------------------------------- 0038 ; STRING TABLE 0038 ; -------------------------------------------------------------------------------------- 0038 0006 | | .STRTAB 0x0006->0x003b ; "------- End of step: " 0039 001c | | .STRTAB 0x001c->0x0047 ; "------- Beginning step: " 003a 0032 | 2 | .STREND 0x0032->0x0053 003b 2d2d 2d2d |----| .STRTAB_STRINGS 0053 0000 0000 | | .BLANK 0000[0x5] 0058 ; -------------------------------------------------------------------------------------- 0058 ; Debug Table 0058 ; -------------------------------------------------------------------------------------- 0058 0004 000d | | .DEBUG4 0x0004,0x000d,0x971a,0x0000,0x0001,0x0000 005e 8189 c995 | | .XXX[0x6] 0060 85ad c1bd | | 0062 a5b9 d0b8 | | 0064 8080 8080 | | .BLANK 8080[0xb] 006f 8081 f028 | (| .XXX[0x2] 0071 8080 8080 | | .BLANK 8080[0x4] 0075 b4b4 b4b4 | | .BLANK b4b4[0x20] 0095 8028 8080 | ( | .XXX[0x8] 0097 8080 8080 | | 0099 81f0 8151 | Q| 009b c985 8d94 | | 009d 8080 8080 | | .BLANK 8080[0x5] 00a2 8081 f081 | | .XXX[0x1d] 00a4 41c9 bd99 |A | 00a6 a5b1 95f0 | | 00a8 8105 9191 | | 00aa a5d1 a5bd | | 00ac b985 b081 | | 00ae c185 c985 | | 00b0 b595 d195 | | 00b2 c881 d1bc | | 00b4 81cd c195 | | 00b6 8da5 99e4 | | 00b8 8080 8081 | | 00ba f028 8080 | ( | 00bc 8080 8080 | | 00be 81f0 | | 00bf 8080 8080 | | .BLANK 8080[0x8] 00c7 8081 f080 | | .XXX[0x10] 00c9 8080 8080 | | 00cb 8080 81f0 | | 00cd 81cd d185 | | 00cf 8dac 8199 | | 00d1 c985 b594 | | 00d3 81b9 d5b5 | | 00d5 8995 c8b8 | | 00d7 8080 8080 | | .BLANK 8080[0x7] 00de 8081 f028 | (| .XXX[0x2] 00e0 8080 8080 | | .BLANK 8080[0x4] 00e4 b4b4 b4b4 | | .BLANK b4b4[0x20] 0104 8028 8080 | ( | .XXX[0x2a] 0106 8080 8080 | | 0108 81f0 8151 | Q| 010a 85ad 957d | }| 010c 21a5 cdd1 |! | 010e bdc9 e480 | | 0110 8080 8081 | | 0112 f081 41c9 | A | 0114 bd99 a5b1 | | 0116 95f0 8105 | | 0118 9191 a5d1 | | 011a a5bd b985 | | 011c b081 c185 | | 011e c985 b595 | | 0120 d195 c881 | | 0122 d1bc 81cd | | 0124 c195 8da5 | | 0126 99e4 8080 | | 0128 8081 f028 | (| 012a 8080 8080 | | 012c 8080 81f0 | | 012e 8080 8080 | | .BLANK 8080[0x8] 0136 8081 f080 | | .XXX[0x10] 0138 8080 8080 | | 013a 8080 81f0 | | 013c 81cd d185 | | 013e 8dac 8199 | | 0140 c985 b594 | | 0142 81b9 d5b5 | | 0144 8995 c8b8 | | 0146 8080 8080 | | .BLANK 8080[0x7] 014d 8081 f028 | (| .XXX[0x2] 014f 8080 8080 | | .BLANK 8080[0x4] 0153 b4b4 b4b4 | | .BLANK b4b4[0x20] 0173 8028 8080 | ( | .XXX[0x9] 0175 8080 8080 | | 0177 81f0 810d | | 0179 bdb9 d195 | | 017b e1d0 | | 017c 8080 8080 | | .BLANK 8080[0x4] 0180 8081 f081 | | .XXX[0x1d] 0182 41c9 bd99 |A | 0184 a5b1 95f0 | | 0186 8105 9191 | | 0188 a5d1 a5bd | | 018a b985 b081 | | 018c c185 c985 | | 018e b595 d195 | | 0190 c881 d1bc | | 0192 81cd c195 | | 0194 8da5 99e4 | | 0196 8080 8081 | | 0198 f028 8080 | ( | 019a 8080 8080 | | 019c 81f0 | | 019d 8080 8080 | | .BLANK 8080[0x8] 01a5 8081 f080 | | .XXX[0x10] 01a7 8080 8080 | | 01a9 8080 81f0 | | 01ab 81cd d185 | | 01ad 8dac 8199 | | 01af c985 b594 | | 01b1 81b9 d5b5 | | 01b3 8995 c8b8 | | 01b5 8080 8080 | | .BLANK 8080[0x7] 01bc 8081 f028 | (| .XXX[0x2] 01be 8080 8080 | | .BLANK 8080[0x4] 01c2 b4b4 b4b4 | | .BLANK b4b4[0x20] 01e2 8028 8080 | ( | .XXX[0x1e] 01e4 8080 8080 | | 01e6 81f0 8111 | | 01e8 95b1 95d1 | | 01ea 957d 5195 | }Q | 01ec b5c1 bdc9 | | 01ee 85c9 e57d | }| 01f0 f080 8081 | | 01f2 3995 dc80 |9 | 01f4 81f0 8111 | | 01f6 95b1 95d1 | | 01f8 95cc 81d9 | | 01fa 95c9 cdd5 | | 01fc cc81 9195 | | 01fe 858d d1a5 | |