|
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_ccb0b3
└─⟦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 0050 | P | .CONST 0x0050 ; 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 001e | | .CONST 0x001e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 000d 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 e001 | | Load 0x0,0x1 0011 e002 | | Load 0x0,0x2 0012 e003 | | Load 0x0,0x3 0013 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0014 0092 0047 | G| Action Push_String_Extended,0x47 ; "RCI_Action" 0016 e004 | | Load 0x0,0x4 0017 0387 | | Declare_Variable Package 0018 00d8 | | Load_Top At_Offset_0 0019 020f | | Execute Module,Activate 001a 1d0d | | Execute_Immediate Reference_Lex_1,0xd 001b 00c7 | | Action Elaborate_Subprogram 001c 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001d 00c7 | | Action Elaborate_Subprogram 001e BODY_0008: 001e 00bc | | Action Signal_Activated 001f 00bb | | Action Signal_Completion 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0028 | ( | .CONST 0x0028 ; Address of begin 0021 0034 | 4 | .CONST 0x0034 ; Address of exception handler 0022 0002 | | .CONST 0x0002 ; Number of locals 0023 INIT_0020: 0023 e003 | | Load 0x0,0x3 0024 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0025 02c7 | | Declare_Variable Any 0026 00d8 | | Load_Top At_Offset_0 0027 1c00 | | Execute_Immediate Run_Utility,0x0 0028 BODY_0020: 0028 e20f | | Load 0x1,0xf 0029 1812 | | Execute Package,Field_Execute,Field_Number 0x12 002a c402 | | Store 0x2,0x2 002b 00d8 | | Load_Top At_Offset_0 002c e003 | | Load 0x0,0x3 002d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 002e 6802 |h | Jump_Zero 0x31 002f 00d8 | | Load_Top At_Offset_0 0030 00ca | | Action Exit_Nullary_Function 0031 e003 | | Load 0x0,0x3 0032 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0033 00ca | | Action Exit_Nullary_Function 0034 TRAP_0020: 0034 e20f | | Load 0x1,0xf 0035 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0036 010f | | Execute Exception,Equal 0037 6803 |h | Jump_Zero 0x3b 0038 e003 | | Load 0x0,0x3 0039 1b0e | | Execute Package,Field_Read,Field_Number 0xe 003a 00ca | | Action Exit_Nullary_Function 003b 0100 | | Execute Exception,Raise 003c 0000 0000 | | .BLANK 0000[0x4] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0043 | C | .CONST 0x0043 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0001 | | .CONST 0x0001 ; Number of locals 0043 BODY_0040: 0043 INIT_0040: 0043 00da | | Load_Top At_Offset_2 0044 e20f | | Load 0x1,0xf 0045 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0046 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0047 ; -------------------------------------------------------------------------------------- 0047 ; STRING TABLE 0047 ; -------------------------------------------------------------------------------------- 0047 0004 | | .STRTAB 0x0004->0x0049 ; "RCI_Action" 0048 000c | | .STREND 0x000c->0x004e 0049 5243 495f |RCI_| .STRTAB_STRINGS 004e 0000 0000 | | .XXX[0x2] 0050 ; -------------------------------------------------------------------------------------- 0050 ; Debug Table 0050 ; -------------------------------------------------------------------------------------- 0050 0004 000e | | .DEBUG4 0x0004,0x000e,0xcba7,0x0000,0x0001,0x0000 0056 0000 0002 | | .XXX[0x3] 0058 1a00 | | 0059 0000 0000 | | .BLANK 0000[0x15] 006e 000a 0000 | | .XXX[0x11] 0070 02e9 0166 | f| 0072 01dd 1400 | | 0074 0005 d24b | K| 0076 401a 1400 |@ | 0078 1453 7044 | SpD| 007a 4b40 1a14 |K@ | 007c 0014 5370 | Sp| 007e 4400 |D | 007f 0000 0000 | | .BLANK 0000[0x34] 00b3 1000 0012 | | .XXX[0x18] 00b5 d000 1849 | I| 00b7 0d3d 1115 | = | 00b9 7d4d 151d |}M | 00bb 3515 3951 |5 9Q| 00bd 7d05 4949 |} II| 00bf 0564 001c | d | 00c1 3151 154d |1Q M| 00c3 517d 4d0d |Q}M | 00c5 0539 3915 | 99 | 00c7 4800 2011 |H | 00c9 3585 a5b8 |5 | 00cb 0000 0000 | | .BLANK 0000[0x80] 014b 0009 f558 | X| .XXX[0x2] 014d 0000 0000 | | .BLANK 0000[0x8] 0155 356c 0000 |5l | .XXX[0x4] 0157 3c2a 8000 |<* | 0159 0000 0000 | | .BLANK 0000[0x10] 0169 239a 8000 |# | .XXX[0x5] 016b 0000 0000 | | 016d 24b9 |$ | 016e 0000 0000 | | .BLANK 0000[0x5] 0173 2b77 8000 |+w | .XXX[0x6] 0175 0000 0000 | | 0177 2cc4 8000 |, | 0179 0000 0000 | | .BLANK 0000[0x8] 0181 2d63 0000 |-c | .XXX[0xe] 0183 40dd 0000 |@ | 0185 0000 0000 | | 0187 3fc7 0000 |? | 0189 0000 0000 | | 018b 2ebd 0000 |. | 018d 21a0 8000 |! | 018f 0000 0000 | | .BLANK 0000[0x2a] 01b9 3ea8 8000 |> | .XXX[0x2] 01bb 0000 0000 | | .BLANK 0000[0x1a] 01d5 416b 8000 |Ak | .XXX[0x3] 01d7 223f |"? | 01d8 0000 0000 | | .BLANK 0000[0x28]