|
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_02f8e7
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 00b8 | | .CONST 0x00b8 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0013 | | .CONST 0x0013 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0005 | | .CONST 0x0005 ; Number of locals 000b INIT_0008: 000b 4801 |H | Short_Literal 0x1 000c 4880 |H | Short_Literal 0x80 000d 00e9 | | Load_Encached String_Cache 000e 0334 | 4 | Declare_Variable Array,With_Constraint 000f 00e3 | | Load_Encached Natural_Cache 0010 e40b | | Load 0x2,0xb 0011 029f 0033 | 3| Declare_Subprogram INIT_0030,For_Call 0013 BODY_0008: 0013 4801 |H | Short_Literal 0x1 0014 0092 0087 | | Action Push_String_Extended,0x87 ; "RATIONAL" 0016 4801 |H | Short_Literal 0x1 0017 e411 | | Load 0x2,0x11 0018 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0019 01d7 | | Execute Vector,Field_Read 001a e402 | | Load 0x2,0x2 001b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 001c e01f | | Load 0x0,0x1f 001d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 001e 7004 |p | Jump_Nonzero 0x23 001f 4800 |H | Short_Literal 0x0 0020 e411 | | Load 0x2,0x11 0021 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0022 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0023 8415 | | Call 0x2,0x15 0024 00cf | | Action Mark_Auxiliary 0025 0007 | | Action Break_Optional 0026 8605 | | Call 0x3,0x5 0027 00c9 | | Action Pop_Auxiliary_Loop 0028 7ffd | | Jump 0x26 0029 00ce | | Action Pop_Auxiliary 002a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 002b 0000 0000 | | .BLANK 0000[0x5] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0033 | 3 | .CONST 0x0033 ; Address of begin 0031 0081 | | .CONST 0x0081 ; Address of exception handler 0032 0001 | | .CONST 0x0001 ; Number of locals 0033 BODY_0030: 0033 INIT_0030: 0033 4802 |H | Short_Literal 0x2 0034 e01a | | Load 0x0,0x1a 0035 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0036 0092 0088 | | Action Push_String_Extended,0x88 ; "Select one of the above by number [" 0038 e411 | | Load 0x2,0x11 0039 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 003a e40b | | Load 0x2,0xb 003b 025e | ^ | Execute Discrete,Convert 003c 1c01 | | Execute_Immediate Run_Utility,0x1 003d 01cc | | Execute Vector,Catenate 003e 0092 0089 | | Action Push_String_Extended,0x89 ; "] :" 0040 01cc | | Execute Vector,Catenate 0041 e01a | | Load 0x0,0x1a 0042 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0043 00e2 | | Load_Encached Integer_Cache 0044 e602 | | Load 0x3,0x2 0045 8413 | | Call 0x2,0x13 0046 00d1 | | Pop_Control Pop_Count_1 0047 c603 | | Store 0x3,0x3 0048 e603 | | Load 0x3,0x3 0049 0f01 | | Execute_Immediate Equal,0x1 004a 681c |h | Jump_Zero 0x67 004b 4801 |H | Short_Literal 0x1 004c e602 | | Load 0x3,0x2 004d 01d7 | | Execute Vector,Field_Read 004e 0f3f | ? | Execute_Immediate Equal,0x3f 004f 6817 |h | Jump_Zero 0x67 0050 8415 | | Call 0x2,0x15 0051 4802 |H | Short_Literal 0x2 0052 e01a | | Load 0x0,0x1a 0053 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0054 0092 0088 | | Action Push_String_Extended,0x88 ; "Select one of the above by number [" 0056 e411 | | Load 0x2,0x11 0057 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0058 e40b | | Load 0x2,0xb 0059 025e | ^ | Execute Discrete,Convert 005a 1c01 | | Execute_Immediate Run_Utility,0x1 005b 01cc | | Execute Vector,Catenate 005c 0092 0089 | | Action Push_String_Extended,0x89 ; "] :" 005e 01cc | | Execute Vector,Catenate 005f e01a | | Load 0x0,0x1a 0060 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0061 00e2 | | Load_Encached Integer_Cache 0062 e602 | | Load 0x3,0x2 0063 8413 | | Call 0x2,0x13 0064 00d1 | | Pop_Control Pop_Count_1 0065 c603 | | Store 0x3,0x3 0066 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0067 e603 | | Load 0x3,0x3 0068 0c01 | | Execute_Immediate Greater_Equal,0x1 0069 6815 |h | Jump_Zero 0x7f 006a 4801 |H | Short_Literal 0x1 006b e603 | | Load 0x3,0x3 006c e602 | | Load 0x3,0x2 006d 01cf | | Execute Vector,Slice_Read 006e 00e2 | | Load_Encached Integer_Cache 006f 00e0 | | Load_Encached Standard_Cache 0070 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0071 0aff | | Execute_Immediate Plus,-0x1 0072 0248 | H | Execute Discrete,Check_In_Integer 0073 00d8 | | Load_Top At_Offset_0 0074 e40b | | Load 0x2,0xb 0075 0260 | ` | Execute Discrete,In_Type 0076 7002 |p | Jump_Nonzero 0x79 0077 48e0 |H | Short_Literal 0xe0 0078 0257 | W | Execute Discrete,Raise 0079 a604 | | Store_Unchecked 0x3,0x4 007a e604 | | Load 0x3,0x4 007b e411 | | Load 0x2,0x11 007c 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 007d 00cc | | Action Pop_Block 007e 7faa | | Jump 0x29 007f 00cc | | Action Pop_Block 0080 7fa8 | | Jump 0x29 0081 TRAP_0030: 0081 0007 | | Action Break_Optional 0082 0092 008a | | Action Push_String_Extended,0x8a ; "Illegal value, type '?' for a menu." 0084 e01a | | Load 0x0,0x1a 0085 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0086 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0087 ; -------------------------------------------------------------------------------------- 0087 ; STRING TABLE 0087 ; -------------------------------------------------------------------------------------- 0087 000a | | .STRTAB 0x000a->0x008c ; "RATIONAL" 0088 0010 | | .STRTAB 0x0010->0x0090 ; "Select one of the above by number [" 0089 0031 | 1 | .STRTAB 0x0031->0x00a1 ; "] :" 008a 0032 | 2 | .STRTAB 0x0032->0x00a3 ; "Illegal value, type '?' for a menu." 008b 0053 | S | .STREND 0x0053->0x00b4 008c 5241 5449 |RATI| .STRTAB_STRINGS 00b5 0000 0000 | | .XXX[0x3] 00b7 0000 | | 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; Debug Table 00b8 ; -------------------------------------------------------------------------------------- 00b8 0004 0000 | | .DEBUG4 0x0004,0x0000,0x11ed,0x0000,0x0001,0x0000 00be 00f6 8970 | p| .XXX[0x28] 00c0 1001 0000 | | 00c2 0700 0000 | | 00c4 04b2 c000 | | 00c6 0600 0000 | | 00c8 0d00 2800 | ( | 00ca 0000 0800 | | 00cc 0002 0000 | | 00ce 0011 0000 | | 00d0 0000 0800 | | 00d2 0000 5200 | R | 00d4 0030 02fd | 0 | 00d6 6a00 0030 |j 0| 00d8 02fd 7200 | r | 00da 0030 02fd | 0 | 00dc 7a00 0030 |z 0| 00de 02fd 8200 | | 00e0 0030 02fd | 0 | 00e2 8a00 0030 | 0| 00e4 02fd 9000 | | 00e6 0000 0000 | | .BLANK 0000[0xb] 00f1 0008 0000 | | .XXX[0x1f] 00f3 4072 0300 |@r | 00f5 12f8 0000 | | 00f7 0020 a0e2 | | 00f9 0200 2000 | | 00fb 0040 0000 | @ | 00fd 002d 4000 | -@ | 00ff 01a0 0000 | | 0101 0ba0 0500 | | 0103 0000 a200 | | 0105 0000 4000 | @ | 0107 0002 2000 | | 0109 0000 0100 | | 010b 0000 0a40 | @| 010d 000c 0061 | a| 010f 2100 |! | 0110 0000 0000 | | .BLANK 0000[0x1d] 012d 4060 025f |@` _| .XXX[0x1c] 012f 0000 0004 | | 0131 941c 4040 | @@| 0133 0400 0008 | | 0135 0000 0005 | | 0137 a800 003c | <| 0139 0000 0174 | t| 013b 00a0 0000 | | 013d 1440 0000 | @ | 013f 0800 0000 | | 0141 4400 0000 |D | 0143 0020 0000 | | 0145 0148 0001 | H | 0147 c00c d160 | `| 0149 0000 0000 | | .BLANK 0000[0x1d] 0166 080c 004b | K| .XXX[0x1c] 0168 e000 0000 | | 016a a283 8808 | | 016c 0080 0001 | | 016e 0000 0000 | | 0170 b500 0008 | | 0172 8000 0037 | 7| 0174 8014 0000 | | 0176 0288 0000 | | 0178 0100 0000 | | 017a 0880 0000 | | 017c 0004 0000 | | 017e 0029 0000 | ) | 0180 4001 9ff4 |@ | 0182 0000 0000 | | .BLANK 0000[0x1d] 019f 0101 8009 | | .XXX[0x19] 01a1 7d00 0000 |} | 01a3 10d4 7101 | q | 01a5 0014 0000 | | 01a7 8000 0000 | | 01a9 0484 0000 | | 01ab 2000 0000 | | 01ad 1002 8000 | | 01af 0000 8000 | | 01b1 0020 0000 | | 01b3 0110 0000 | | 01b5 0000 8000 | | 01b7 0005 | | 01b8 0000 0000 | | .BLANK 0000[0x1e] 01d6 0005 bab4 | | .XXX[0x3] 01d8 0200 | | 01d9 0000 0000 | | .BLANK 0000[0x27]