|
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_0340e4
└─⟦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 00d8 | | .CONST 0x00d8 ; 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 001e | | .CONST 0x001e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0005 | | .CONST 0x0005 ; Number of locals 000b INIT_0008: 000b 00da | | Load_Top At_Offset_2 000c e001 | | Load 0x0,0x1 000d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 000e 1820 | | Execute Package,Field_Execute,Field_Number 0x20 000f e001 | | Load 0x0,0x1 0010 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0011 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0012 02c7 | | Declare_Variable Any 0013 00d8 | | Load_Top At_Offset_0 0014 1c00 | | Execute_Immediate Run_Utility,0x0 0015 e7ff | | Load 0x3,-0x1 0016 e001 | | Load 0x0,0x1 0017 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0018 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0019 e001 | | Load 0x0,0x1 001a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001b 1820 | | Execute Package,Field_Execute,Field_Number 0x20 001c 029f 0083 | | Declare_Subprogram INIT_0080,For_Call 001e BODY_0008: 001e e7fd | | Load 0x3,-0x3 001f e7fe | | Load 0x3,-0x2 0020 e7ff | | Load 0x3,-0x1 0021 840d | | Call 0x2,0xd 0022 00d9 | | Load_Top At_Offset_1 0023 0092 009c | | Action Push_String_Extended,0x9c ; "SUBSYSTEM" 0025 01df | | Execute Vector,Equal 0026 680f |h | Jump_Zero 0x36 0027 e5fc | | Load 0x2,-0x4 0028 6842 |hB | Jump_Zero 0x6b 0029 4801 |H | Short_Literal 0x1 002a e001 | | Load 0x0,0x1 002b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 002c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 002d e602 | | Load 0x3,0x2 002e 0092 009d | | Action Push_String_Extended,0x9d ; ".@'c(spec_view,load_view,combined_view)" 0030 01cc | | Execute Vector,Catenate 0031 e001 | | Load 0x0,0x1 0032 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0033 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0034 c603 | | Store 0x3,0x3 0035 7835 |x5 | Jump 0x6b 0036 00d9 | | Load_Top At_Offset_1 0037 0092 009e | | Action Push_String_Extended,0x9e ; "SPEC_VIEW" 0039 01df | | Execute Vector,Equal 003a 00da | | Load_Top At_Offset_2 003b 0092 009f | | Action Push_String_Extended,0x9f ; "LOAD_VIEW" 003d 01df | | Execute Vector,Equal 003e 0278 | x | Execute Discrete,Or 003f 00da | | Load_Top At_Offset_2 0040 0092 00a0 | | Action Push_String_Extended,0xa0 ; "COMBINED_VIEW" 0042 01df | | Execute Vector,Equal 0043 0278 | x | Execute Discrete,Or 0044 680f |h | Jump_Zero 0x54 0045 e5fd | | Load 0x2,-0x3 0046 6824 |h$ | Jump_Zero 0x6b 0047 4801 |H | Short_Literal 0x1 0048 e001 | | Load 0x0,0x1 0049 1b0e | | Execute Package,Field_Read,Field_Number 0xe 004a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 004b e602 | | Load 0x3,0x2 004c 0092 00a1 | | Action Push_String_Extended,0xa1 ; ".UNITS.@" 004e 01cc | | Execute Vector,Catenate 004f e001 | | Load 0x0,0x1 0050 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0051 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0052 c603 | | Store 0x3,0x3 0053 7817 |x | Jump 0x6b 0054 e7ff | | Load 0x3,-0x1 0055 e001 | | Load 0x0,0x1 0056 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0057 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0058 e001 | | Load 0x0,0x1 0059 1b0e | | Execute Package,Field_Read,Field_Number 0xe 005a 181e | | Execute Package,Field_Execute,Field_Number 0x1e 005b 0092 00a2 | | Action Push_String_Extended,0xa2 ; "'SPEC" 005d 01de | | Execute Vector,Not_Equal 005e 680c |h | Jump_Zero 0x6b 005f 4801 |H | Short_Literal 0x1 0060 e001 | | Load 0x0,0x1 0061 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0062 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0063 e602 | | Load 0x3,0x2 0064 0092 00a3 | | Action Push_String_Extended,0xa3 ; ".@" 0066 01cc | | Execute Vector,Catenate 0067 e001 | | Load 0x0,0x1 0068 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0069 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 006a c603 | | Store 0x3,0x3 006b 00cf | | Action Mark_Auxiliary 006c 7807 |x | Jump 0x74 006d 8605 | | Call 0x3,0x5 006e 00db | | Load_Top At_Offset_3 006f e001 | | Load 0x0,0x1 0070 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0071 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0072 c603 | | Store 0x3,0x3 0073 00c9 | | Action Pop_Auxiliary_Loop 0074 00db | | Load_Top At_Offset_3 0075 e001 | | Load 0x0,0x1 0076 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0077 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0078 6ff4 |o | Jump_Zero 0x6d 0079 4504 |E | Exit_Suprogram New_Top_Offset 0x4 007a 0000 0000 | | .BLANK 0000[0x6] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 008c | | .CONST 0x008c ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0002 | | .CONST 0x0002 ; Number of locals 0083 INIT_0080: 0083 e001 | | Load 0x0,0x1 0084 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0085 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0086 02c7 | | Declare_Variable Any 0087 e603 | | Load 0x3,0x3 0088 e001 | | Load 0x0,0x1 0089 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 008b a802 | | Store_Unchecked 0x4,0x2 008c BODY_0080: 008c e5fd | | Load 0x2,-0x3 008d 7006 |p | Jump_Nonzero 0x94 008e 00d8 | | Load_Top At_Offset_0 008f e001 | | Load 0x0,0x1 0090 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0091 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0092 0f01 | | Execute_Immediate Equal,0x1 0093 6807 |h | Jump_Zero 0x9b 0094 e7fd | | Load 0x3,-0x3 0095 e7fe | | Load 0x3,-0x2 0096 0092 00a4 | | Action Push_String_Extended,0xa4 ; " " 0098 01cc | | Execute Vector,Catenate 0099 00da | | Load_Top At_Offset_2 009a 840e | | Call 0x2,0xe 009b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 009c ; -------------------------------------------------------------------------------------- 009c ; STRING TABLE 009c ; -------------------------------------------------------------------------------------- 009c 0014 | | .STRTAB 0x0014->0x00a6 ; "SUBSYSTEM" 009d 001b | | .STRTAB 0x001b->0x00aa ; ".@'c(spec_view,load_view,combined_view)" 009e 0040 | @ | .STRTAB 0x0040->0x00be ; "SPEC_VIEW" 009f 0047 | G | .STRTAB 0x0047->0x00c2 ; "LOAD_VIEW" 00a0 004e | N | .STRTAB 0x004e->0x00c7 ; "COMBINED_VIEW" 00a1 0059 | Y | .STRTAB 0x0059->0x00cd ; ".UNITS.@" 00a2 005f | _ | .STRTAB 0x005f->0x00d1 ; "'SPEC" 00a3 0062 | b | .STRTAB 0x0062->0x00d4 ; ".@" 00a4 0062 | b | .STRTAB 0x0062->0x00d5 ; " " 00a5 0063 | c | .STREND 0x0063->0x00d6 00a6 5355 4253 |SUBS| .STRTAB_STRINGS 00d7 0000 | | .XXX[0x1] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; Debug Table 00d8 ; -------------------------------------------------------------------------------------- 00d8 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f57,0x0000,0x0001,0x0002 00de 000b 00e6 | | .DBG4T 0x000b,0x00e6,0x0001,0x4000 00e2 0083 0103 | | .DBG4T 0x0083,0x0103,0x0004,0x0000 00e6 ; -------------------------------------------------------------------------------------- 00e6 ; Debug chain 00e6 ; -------------------------------------------------------------------------------------- 00e6 0003 000c | | .DBGLEN 0x0003,0x000c 00e8 000b 000f | | .DBGLNO 0x000b,0x000f,0x0015,0x001e,0x0022,0x0027,0x0029,0x0036,0x0045,0x0047,0x0054,0x005f,0x006d,0x006e,0x0074 00f7 0001 0002 | | .XXX[0xc] 00f9 0003 0004 | | 00fb 0005 0006 | | 00fd 0007 0008 | | 00ff 0009 000b | | 0101 000c 000a | | 0103 ; -------------------------------------------------------------------------------------- 0103 ; Debug chain 0103 ; -------------------------------------------------------------------------------------- 0103 0001 0002 | | .DBGLEN 0x0001,0x0002 0105 0083 008c | | .DBGLNO 0x0083,0x008c,0x0094 0108 0000 0000 | | .BLANK 0000[0xf8]