|
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, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦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 5813 |X | .CONST 0x5813 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0019 | | .CONST 0x0019 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0 = .DEBUG 0x000b,0x0062,0x8000,0x0000,0x0052,0x9e65,0x0000,0x0003 ; Debug Table 0x0.0x0 = 0xb,0xffff ; Debug Table 0x0.0x1 = 0xb,0xfffe ; Debug Table 0x0.0x2 = 0xb,0xfffd ; Debug Table 0x0.0x3 = 0xb,0xfffc 000c 4804 |H | Short_Literal 0x4 000d 029f 0023 | #| Declare_Subprogram INIT_0020,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x4 = 0x10,0xfffb 0011 4803 |H | Short_Literal 0x3 0012 00da | | Load_Top At_Offset_2 0013 03f9 | | Declare_Type Discrete,Constrained,Visible 0014 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x5 = 0x14,0xfffa ; Debug Table 0x0.0x6 = 0x14,0xfff9 0015 480f |H | Short_Literal 0xf 0016 00e3 | | Load_Encached Natural_Cache 0017 03f9 | | Declare_Type Discrete,Constrained,Visible 0018 00bf | | Action Accept_Activation ; Debug Table 0x0.0x7 = 0x18,0xfff8 ; Debug Table 0x0.0x8 = 0x18,0xfff7 ; Debug Table 0x0.0x9 = 0x18,0xfff6 ; Debug Table 0x0.0xa = 0x18,0xfff5 ; Debug Table 0x0.0xb = 0x18,0xfff4 ; Debug Table 0x0.0xc = 0x18,0xfff3 ; Debug Table 0x0.0xd = 0x18,0xfff2 ; Debug Table 0x0.0xe = 0x18,0xfff1 ; Debug Table 0x0.0xf = 0x18,0xfff0 0019 BODY_0008: 0019 00bc | | Action Signal_Activated 001a 00bb | | Action Signal_Completion 001b 0000 0000 | | .BLANK 0000[0x5] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0023 | # | .CONST 0x0023 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0001 | | .CONST 0x0001 ; Number of locals 0023 BODY_0020: 0023 INIT_0020: 0023 4603 |F | Jump_Case 0x4 ; Debug Table 0x1 = .DEBUG 0x0023,0x0084,0x0005,0x0000,0x0052,0x9e65,0x0000,0x0011 0024 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0025 7802 |x | Jump 0x28 ; case 0x1 0026 7805 |x | Jump 0x2c ; case 0x2 0027 7809 |x | Jump 0x31 ; case 0x3 0028 00da | | Load_Top At_Offset_2 0029 0091 0035 | 5| Action Push_String_Extended_Indexed,0x35 ; "TEXT" 002b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 002c 00db | | Load_Top At_Offset_3 002d 00db | | Load_Top At_Offset_3 002e 00e0 | | Load_Encached Standard_Cache 002f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0030 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0031 00da | | Load_Top At_Offset_2 0032 00e0 | | Load_Encached Standard_Cache 0033 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0034 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0035 ; -------------------------------------------------------------------------------------- 0035 ; STRING TABLE 0035 ; -------------------------------------------------------------------------------------- 0035 000c | | .STRTAB 0x000c->0x003b ; "TEXT" 0036 000e | | .STRTAB 0x000e->0x003d ; "PROMPT" 0037 0012 | | .STRTAB 0x0012->0x0040 ; "ELLIPSIS" 0038 0018 | | .STRTAB 0x0018->0x0044 ; "SEPARATION" 0039 0020 | | .STRTAB 0x0020->0x0049 ; "ERROR" 003a 0023 | # | .STREND 0x0023->0x004b 003b 5445 5854 |TEXT| .STRTAB_STRINGS 004c 0000 0000 | | .BLANK 0000[0x4] 0050 ; -------------------------------------------------------------------------------------- 0050 ; Debug Table 0050 ; -------------------------------------------------------------------------------------- 0050 0003 0002 | | .CONST 0x0003,0x0002 0052 000b 0062 | b| .DEBUG 0x000b,0x0062,0x8000,0x0000,0x0052,0x9e65,0x0000,0x0003 005a 0023 0084 | # | .DEBUG 0x0023,0x0084,0x0005,0x0000,0x0052,0x9e65,0x0000,0x0011 0062 ; -------------------------------------------------------------------------------------- 0062 ; Debug3 Subtable 0x0 0062 ; -------------------------------------------------------------------------------------- 0062 0010 0000 | | .DBG3TAB 0x0010,0x0000 0064 000b ffff | | .CONST 0x000b,0xffff 0066 000b fffe | | .CONST 0x000b,0xfffe 0068 000b fffd | | .CONST 0x000b,0xfffd 006a 000b fffc | | .CONST 0x000b,0xfffc 006c 0010 fffb | | .CONST 0x0010,0xfffb 006e 0014 fffa | | .CONST 0x0014,0xfffa 0070 0014 fff9 | | .CONST 0x0014,0xfff9 0072 0018 fff8 | | .CONST 0x0018,0xfff8 0074 0018 fff7 | | .CONST 0x0018,0xfff7 0076 0018 fff6 | | .CONST 0x0018,0xfff6 0078 0018 fff5 | | .CONST 0x0018,0xfff5 007a 0018 fff4 | | .CONST 0x0018,0xfff4 007c 0018 fff3 | | .CONST 0x0018,0xfff3 007e 0018 fff2 | | .CONST 0x0018,0xfff2 0080 0018 fff1 | | .CONST 0x0018,0xfff1 0082 0018 fff0 | | .CONST 0x0018,0xfff0 0084 ; -------------------------------------------------------------------------------------- 0084 ; Debug3 Subtable 0x1 0084 ; -------------------------------------------------------------------------------------- 0084 0000 0000 | | .DBG3TAB 0x0000,0x0000 0086 0000 0000 | | .BLANK 0000[0x17a]