|
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_0868c7
└─⟦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 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0017 | | .CONST 0x0017 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000e | | .CONST 0x000e ; Number of locals 000b INIT_0008: 000b e002 | | Load 0x0,0x2 000c e003 | | Load 0x0,0x3 000d 4814 |H | Short_Literal 0x14 000e e004 | | Load 0x0,0x4 000f 0386 | | Declare_Variable Package,Visible 0010 00d8 | | Load_Top At_Offset_0 0011 020f | | Execute Module,Activate 0012 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 0014 00bf | | Action Accept_Activation 0015 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0016 00c7 | | Action Elaborate_Subprogram 0017 BODY_0008: 0017 00bc | | Action Signal_Activated 0018 00bb | | Action Signal_Completion 0019 0000 0000 | | .BLANK 0000[0x7] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0027 | ' | .CONST 0x0027 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0003 | | .CONST 0x0003 ; Number of locals 0023 INIT_0020: 0023 e20d | | Load 0x1,0xd 0024 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0025 e20d | | Load 0x1,0xd 0026 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0027 BODY_0020: 0027 00d9 | | Load_Top At_Offset_1 0028 0092 0045 | E| Action Push_String_Extended,0x45 ; "aaaaa" 002a e20d | | Load 0x1,0xd 002b 1819 | | Execute Package,Field_Execute,Field_Number 0x19 002c 003a | : | Store_Top Access,At_Offset_2 002d 00d8 | | Load_Top At_Offset_0 002e 0092 0046 | F| Action Push_String_Extended,0x46 ; "bbbbb" 0030 e20d | | Load 0x1,0xd 0031 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0032 0039 | 9 | Store_Top Access,At_Offset_1 0033 00d9 | | Load_Top At_Offset_1 0034 e20d | | Load 0x1,0xd 0035 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0036 00d9 | | Load_Top At_Offset_1 0037 e20d | | Load 0x1,0xd 0038 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0039 01c1 | | Execute Vector,Less 003a 6805 |h | Jump_Zero 0x40 003b 0092 0047 | G| Action Push_String_Extended,0x47 ; "ok" 003d e005 | | Load 0x0,0x5 003e 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 003f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0040 0092 0048 | H| Action Push_String_Extended,0x48 ; "no" 0042 e005 | | Load 0x0,0x5 0043 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0044 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0045 ; -------------------------------------------------------------------------------------- 0045 ; STRING TABLE 0045 ; -------------------------------------------------------------------------------------- 0045 000a | | .STRTAB 0x000a->0x004a ; "aaaaa" 0046 000d | | .STRTAB 0x000d->0x004c ; "bbbbb" 0047 0010 | | .STRTAB 0x0010->0x004f ; "ok" 0048 0010 | | .STRTAB 0x0010->0x0050 ; "no" 0049 0010 | | .STREND 0x0010->0x0051 004a 6161 6161 |aaaa| .STRTAB_STRINGS 0051 0000 0000 | | .BLANK 0000[0x7] 0058 ; -------------------------------------------------------------------------------------- 0058 ; Debug Table 0058 ; -------------------------------------------------------------------------------------- 0058 0004 0007 | | .DEBUG4 0x0004,0x0007,0xfb2a,0x0000,0x0001,0x0003 005e 000b 006a | j| .DBG4T 0x000b,0x006a,0x8000,0x0000 0062 0015 006e | n| .DBG4T 0x0015,0x006e,0x8000,0x0000 0066 0023 0071 | # q| .DBG4T 0x0023,0x0071,0x0001,0x0000 006a ; -------------------------------------------------------------------------------------- 006a ; Debug chain 006a ; -------------------------------------------------------------------------------------- 006a 0002 0000 | | .DBGLEN 0x0002,0x0000 006c 000b 0012 | | .DBGLNO 0x000b,0x0012 006e ; -------------------------------------------------------------------------------------- 006e ; Debug chain 006e ; -------------------------------------------------------------------------------------- 006e 0001 0000 | | .DBGLEN 0x0001,0x0000 0070 0015 | | .DBGLNO 0x0015 0071 ; -------------------------------------------------------------------------------------- 0071 ; Debug chain 0071 ; -------------------------------------------------------------------------------------- 0071 0002 0005 | | .DBGLEN 0x0002,0x0005 0073 0023 0025 | # %| .DBGLNO 0x0023,0x0025,0x0027,0x002d,0x0033,0x003b,0x0040 007a 0000 0000 | | .BLANK 0000[0x186]