|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_04fcfe
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0080 | | .CONST 0x0080 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0012 | | .CONST 0x0012 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0003 | | .CONST 0x0003 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4800 |H | Short_Literal 0x0 000d 4800 |H | Short_Literal 0x0 000e 8012 | | Call 0x0,0x12 000f 8013 | | Call 0x0,0x13 0010 e005 | | Load 0x0,0x5 0011 0007 | | Action Break_Optional 0012 BODY_0008: 0012 e5ff | | Load 0x2,-0x1 0013 8014 | | Call 0x0,0x14 0014 8015 | | Call 0x0,0x15 0015 0092 0040 | @| Action Push_String_Extended,0x40 ; "DATE" 0017 01df | | Execute Vector,Equal 0018 6826 |h& | Jump_Zero 0x3f 0019 4801 |H | Short_Literal 0x1 001a e00f | | Load 0x0,0xf 001b 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 001c 0092 0041 | A| Action Push_String_Extended,0x41 ; "+++ satisfying request for date" 001e e00f | | Load 0x0,0xf 001f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0020 e005 | | Load 0x0,0x5 0021 00da | | Load_Top At_Offset_2 0022 0092 0042 | B| Action Push_String_Extended,0x42 ; "string" 0024 0092 0043 | C| Action Push_String_Extended,0x43 ; "date" 0026 0092 0043 | C| Action Push_String_Extended,0x43 ; "date" 0028 e00a | | Load 0x0,0xa 0029 e212 | | Load 0x1,0x12 002a 0096 | | Execute Package,Entry 002b 800b | | Call 0x0,0xb 002c e5ff | | Load 0x2,-0x1 002d 8016 | | Call 0x0,0x16 002e 4805 |H | Short_Literal 0x5 002f 800c | | Call 0x0,0xc 0030 e017 | | Load 0x0,0x17 0031 e212 | | Load 0x1,0x12 0032 0096 | | Execute Package,Entry 0033 0059 | Y | Store_Top Discrete,At_Offset_1 0034 00d8 | | Load_Top At_Offset_0 0035 7005 |p | Jump_Nonzero 0x3b 0036 0092 0044 | D| Action Push_String_Extended,0x44 ; "--- asking broker to forward" 0038 e00f | | Load 0x0,0xf 0039 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 003a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 003b 0092 0045 | E| Action Push_String_Extended,0x45 ; "*** failed asking broker to forward" 003d e00f | | Load 0x0,0xf 003e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 003f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0040 ; -------------------------------------------------------------------------------------- 0040 ; STRING TABLE 0040 ; -------------------------------------------------------------------------------------- 0040 000e | | .STRTAB 0x000e->0x0047 ; "DATE" 0041 0010 | | .STRTAB 0x0010->0x0049 ; "+++ satisfying request for date" 0042 002d | - | .STRTAB 0x002d->0x0058 ; "string" 0043 0031 | 1 | .STRTAB 0x0031->0x005b ; "date" 0044 0033 | 3 | .STRTAB 0x0033->0x005d ; "--- asking broker to forward" 0045 004d | M | .STRTAB 0x004d->0x006b ; "*** failed asking broker to forward" 0046 006e | n | .STREND 0x006e->0x007d 0047 4441 5445 |DATE| .STRTAB_STRINGS 007d 0000 0000 | | .XXX[0x3] 007f 0000 | | 0080 ; -------------------------------------------------------------------------------------- 0080 ; Debug Table 0080 ; -------------------------------------------------------------------------------------- 0080 0004 0009 | | .DEBUG4 0x0004,0x0009,0x916d,0x0000,0x0001,0x0001 0086 000b 008a | | .DBG4T 0x000b,0x008a,0x0001,0x0000 008a ; -------------------------------------------------------------------------------------- 008a ; Debug chain 008a ; -------------------------------------------------------------------------------------- 008a 0002 0007 | | .DBGLEN 0x0002,0x0007 008c 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012,0x0019,0x001c,0x0020,0x0034,0x0036,0x003b 0095 0000 0000 | | .BLANK 0000[0x16b]