|
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_0534f8
└─⟦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 0078 | x | .CONST 0x0078 ; 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 001c | | .CONST 0x001c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 000d 0321 | ! | Declare_Variable Record,Visible 000e e001 | | Load 0x0,0x1 000f 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0010 0321 | ! | Declare_Variable Record,Visible 0011 e002 | | Load 0x0,0x2 0012 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0013 00d9 | | Load_Top At_Offset_1 0014 017d | } | Execute Record,Structure_Write 0015 e002 | | Load 0x0,0x2 0016 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0017 0129 | ) | Execute Any,Make_Visible 0018 e002 | | Load 0x0,0x2 0019 1b10 | | Execute Package,Field_Read,Field_Number 0x10 001a 0129 | ) | Execute Any,Make_Visible 001b 00bf | | Action Accept_Activation 001c BODY_0008: 001c e001 | | Load 0x0,0x1 001d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 001e 0322 | " | Declare_Variable Record 001f 0092 004f | O| Action Push_String_Extended,0x4f ; "XNews3" 0021 e003 | | Load 0x0,0x3 0022 180e | | Execute Package,Field_Execute,Field_Number 0xe 0023 00d9 | | Load_Top At_Offset_1 0024 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0025 4806 |H | Short_Literal 0x6 0026 00d9 | | Load_Top At_Offset_1 0027 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0028 0092 0050 | P| Action Push_String_Extended,0x50 ; "Sun X/NeWS 2.0; keyboard model 3" 002a e003 | | Load 0x0,0x3 002b 180e | | Execute Package,Field_Execute,Field_Number 0xe 002c 00d9 | | Load_Top At_Offset_1 002d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 002e e003 | | Load 0x0,0x3 002f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0030 00d9 | | Load_Top At_Offset_1 0031 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0032 0092 0051 | Q| Action Push_String_Extended,0x51 ; "X_Xnews2_0_Sparc" 0034 e003 | | Load 0x0,0x3 0035 180e | | Execute Package,Field_Execute,Field_Number 0xe 0036 00d9 | | Load_Top At_Offset_1 0037 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0038 0092 0052 | R| Action Push_String_Extended,0x52 ; "Src_Xnews2_0" 003a e003 | | Load 0x0,0x3 003b 180e | | Execute Package,Field_Execute,Field_Number 0xe 003c 00d9 | | Load_Top At_Offset_1 003d 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 003e 484d |HM | Short_Literal 0x4d 003f 00d9 | | Load_Top At_Offset_1 0040 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0041 4850 |HP | Short_Literal 0x50 0042 00d9 | | Load_Top At_Offset_1 0043 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0044 e003 | | Load 0x0,0x3 0045 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0046 00d9 | | Load_Top At_Offset_1 0047 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0048 4801 |H | Short_Literal 0x1 0049 00d9 | | Load_Top At_Offset_1 004a 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 004b e20d | | Load 0x1,0xd 004c 017d | } | Execute Record,Structure_Write 004d 00bc | | Action Signal_Activated 004e 00bb | | Action Signal_Completion 004f ; -------------------------------------------------------------------------------------- 004f ; STRING TABLE 004f ; -------------------------------------------------------------------------------------- 004f 000a | | .STRTAB 0x000a->0x0054 ; "XNews3" 0050 000e | | .STRTAB 0x000e->0x0057 ; "Sun X/NeWS 2.0; keyboard model 3" 0051 002c | , | .STRTAB 0x002c->0x0067 ; "X_Xnews2_0_Sparc" 0052 003a | : | .STRTAB 0x003a->0x006f ; "Src_Xnews2_0" 0053 0044 | D | .STREND 0x0044->0x0075 0054 584e 6577 |XNew| .STRTAB_STRINGS 0075 0000 0000 | | .XXX[0x3] 0077 0000 | | 0078 ; -------------------------------------------------------------------------------------- 0078 ; Debug Table 0078 ; -------------------------------------------------------------------------------------- 0078 0004 0000 | | .DEBUG4 0x0004,0x0000,0x39f7,0x0000,0x0001,0x0002 007e 000b 0086 | | .DBG4T 0x000b,0x0086,0x0000,0x0000 0082 001c 008c | | .DBG4T 0x001c,0x008c,0x0000,0x0000 0086 ; -------------------------------------------------------------------------------------- 0086 ; Debug chain 0086 ; -------------------------------------------------------------------------------------- 0086 0004 0000 | | .DBGLEN 0x0004,0x0000 0088 000b 000e | | .DBGLNO 0x000b,0x000e,0x0015,0x0018 008c ; -------------------------------------------------------------------------------------- 008c ; Debug chain 008c ; -------------------------------------------------------------------------------------- 008c 0000 0001 | | .DBGLEN 0x0000,0x0001 008e 001c | | .DBGLNO 0x001c 008f 0000 0000 | | .BLANK 0000[0x171]