|
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_779ce4
└─⟦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 00e0 | | .CONST 0x00e0 ; 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 0025 | % | .CONST 0x0025 ; Address of begin 0009 0028 | ( | .CONST 0x0028 ; Address of exception handler 000a 0008 | | .CONST 0x0008 ; Number of locals 000b INIT_0008: 000b e005 | | Load 0x0,0x5 000c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 000d 02c7 | | Declare_Variable Any 000e 00d8 | | Load_Top At_Offset_0 000f 1c00 | | Execute_Immediate Run_Utility,0x0 0010 e005 | | Load 0x0,0x5 0011 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0012 02c7 | | Declare_Variable Any 0013 00d8 | | Load_Top At_Offset_0 0014 1c00 | | Execute_Immediate Run_Utility,0x0 0015 4801 |H | Short_Literal 0x1 0016 4864 |Hd | Short_Literal 0x64 0017 e016 | | Load 0x0,0x16 0018 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0019 035b | [ | Declare_Type Array,Constrained 001a 0337 | 7 | Declare_Variable Array 001b 00e2 | | Load_Encached Integer_Cache 001c e006 | | Load 0x0,0x6 001d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001e 02c7 | | Declare_Variable Any 001f 00d8 | | Load_Top At_Offset_0 0020 1c00 | | Execute_Immediate Run_Utility,0x0 0021 029f 0033 | 3| Declare_Subprogram INIT_0030,For_Call 0023 029f 004b | K| Declare_Subprogram INIT_0048,For_Call 0025 BODY_0008: 0025 8407 | | Call 0x2,0x7 0026 8408 | | Call 0x2,0x8 0027 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0028 TRAP_0008: 0028 e214 | | Load 0x1,0x14 0029 010f | | Execute Exception,Equal 002a 6802 |h | Jump_Zero 0x2d 002b 00d8 | | Load_Top At_Offset_0 002c 0101 | | Execute Exception,Reraise 002d 8218 | | Call 0x1,0x18 002e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 002f 0000 | | .XXX[0x1] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0033 | 3 | .CONST 0x0033 ; Address of begin 0031 003b | ; | .CONST 0x003b ; Address of exception handler 0032 0001 | | .CONST 0x0001 ; Number of locals 0033 BODY_0030: 0033 INIT_0030: 0033 e406 | | Load 0x2,0x6 0034 00ea | | Load_Encached Null_String_Cache 0035 e5ff | | Load 0x2,-0x1 0036 4800 |H | Short_Literal 0x0 0037 e006 | | Load 0x0,0x6 0038 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0039 c406 | | Store 0x2,0x6 003a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 003b TRAP_0030: 003b 0007 | | Action Break_Optional 003c 0092 00c4 | | Action Push_String_Extended,0xc4 ; "Cannot open " 003e e5ff | | Load 0x2,-0x1 003f 01cc | | Execute Vector,Catenate 0040 0092 00c5 | | Action Push_String_Extended,0xc5 ; " for input" 0042 01cc | | Execute Vector,Catenate 0043 8219 | | Call 0x1,0x19 0044 01cc | | Execute Vector,Catenate 0045 8217 | | Call 0x1,0x17 0046 00cc | | Action Pop_Block 0047 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 0051 | Q | .CONST 0x0051 ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0004 | | .CONST 0x0004 ; Number of locals 004b INIT_0048: 004b e406 | | Load 0x2,0x6 004c e006 | | Load 0x0,0x6 004d 1820 | | Execute Package,Field_Execute,Field_Number 0x20 004e e002 | | Load 0x0,0x2 004f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0050 00e3 | | Load_Encached Natural_Cache 0051 BODY_0048: 0051 e406 | | Load 0x2,0x6 0052 e006 | | Load 0x0,0x6 0053 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0054 c406 | | Store 0x2,0x6 0055 e5fe | | Load 0x2,-0x2 0056 01db | | Execute Vector,Length 0057 6807 |h | Jump_Zero 0x5f 0058 4800 |H | Short_Literal 0x0 0059 0092 00c6 | | Action Push_String_Extended,0xc6 ; "Keys.End_Logging" 005b e5fe | | Load 0x2,-0x2 005c e00a | | Load 0x0,0xa 005d 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 005e 180d | | Execute Package,Field_Execute,Field_Number 0xd 005f e403 | | Load 0x2,0x3 0060 4800 |H | Short_Literal 0x0 0061 e005 | | Load 0x0,0x5 0062 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0063 4800 |H | Short_Literal 0x0 0064 605b |`[ | Indirect_Literal Discrete,0xc0,{0x00000000, 0x00004000} 0065 e005 | | Load 0x0,0x5 0066 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0067 e215 | | Load 0x1,0x15 0068 4804 |H | Short_Literal 0x4 0069 e005 | | Load 0x0,0x5 006a 181a | | Execute Package,Field_Execute,Field_Number 0x1a 006b c403 | | Store 0x2,0x3 006c e403 | | Load 0x2,0x3 006d 6052 |`R | Indirect_Literal Discrete,0xc0,{0x00000000, 0x00004000} 006e e005 | | Load 0x0,0x5 006f 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0070 c403 | | Store 0x2,0x3 0071 e403 | | Load 0x2,0x3 0072 604d |`M | Indirect_Literal Discrete,0xc0,{0x00000000, 0x00004000} 0073 e005 | | Load 0x0,0x5 0074 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0075 4800 |H | Short_Literal 0x0 0076 e215 | | Load 0x1,0x15 0077 4803 |H | Short_Literal 0x3 0078 e005 | | Load 0x0,0x5 0079 181b | | Execute Package,Field_Execute,Field_Number 0x1b 007a c403 | | Store 0x2,0x3 007b e402 | | Load 0x2,0x2 007c 6043 |`C | Indirect_Literal Discrete,0xc0,{0x00000000, 0x00004000} 007d e005 | | Load 0x0,0x5 007e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 007f 4800 |H | Short_Literal 0x0 0080 e215 | | Load 0x1,0x15 0081 4801 |H | Short_Literal 0x1 0082 e005 | | Load 0x0,0x5 0083 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0084 c402 | | Store 0x2,0x2 0085 e403 | | Load 0x2,0x3 0086 6035 |`5 | Indirect_Literal Discrete,0xbc,{0x00007fff, 0xffffffff} 0087 e002 | | Load 0x0,0x2 0088 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0089 e002 | | Load 0x0,0x2 008a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008b 00d9 | | Load_Top At_Offset_1 008c 00d0 | | Action Swap_Control 008d 0260 | ` | Execute Discrete,In_Type 008e 7001 |p | Jump_Nonzero 0x90 008f 0801 | | Execute_Immediate Raise,0x1 0090 e216 | | Load 0x1,0x16 0091 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0092 c403 | | Store 0x2,0x3 0093 e403 | | Load 0x2,0x3 0094 602b |`+ | Indirect_Literal Discrete,0xc0,{0x00000000, 0x00004000} 0095 e005 | | Load 0x0,0x5 0096 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0097 c403 | | Store 0x2,0x3 0098 e402 | | Load 0x2,0x2 0099 e005 | | Load 0x0,0x5 009a 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 009b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 009c 00da | | Load_Top At_Offset_2 009d e00a | | Load 0x0,0xa 009e 1b19 | | Execute Package,Field_Read,Field_Number 0x19 009f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00a0 e002 | | Load 0x0,0x2 00a1 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00a2 e017 | | Load 0x0,0x17 00a3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a4 00cf | | Action Mark_Auxiliary 00a5 7803 |x | Jump 0xa9 00a6 6011 |` | Indirect_Literal Discrete,0xb8,{0x00000000, 0x00010000} 00a7 00ba | | Action Initiate_Delay 00a8 00c9 | | Action Pop_Auxiliary_Loop 00a9 e402 | | Load 0x2,0x2 00aa e005 | | Load 0x0,0x5 00ab 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 00ac 00da | | Load_Top At_Offset_2 00ad 027a | z | Execute Discrete,Less_Equal 00ae 77f7 |w | Jump_Nonzero 0xa6 00af 00ce | | Action Pop_Auxiliary 00b0 e402 | | Load 0x2,0x2 00b1 600e |` | Indirect_Literal Discrete,0xc0,{0x00000000, 0x00004000} 00b2 e005 | | Load 0x0,0x5 00b3 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00b4 c402 | | Store 0x2,0x2 00b5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00b6 0000 0000 | | .XXX[0x2] 00b8 0000 0000 | | .LITERAL {0x00000000, 0x00010000} 00bc 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff} 00c0 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 00c4 ; -------------------------------------------------------------------------------------- 00c4 ; STRING TABLE 00c4 ; -------------------------------------------------------------------------------------- 00c4 0008 | | .STRTAB 0x0008->0x00c8 ; "Cannot open " 00c5 0012 | | .STRTAB 0x0012->0x00ce ; " for input" 00c6 001a | | .STRTAB 0x001a->0x00d3 ; "Keys.End_Logging" 00c7 0028 | ( | .STREND 0x0028->0x00db 00c8 4361 6e6e |Cann| .STRTAB_STRINGS 00db 0000 0000 | | .BLANK 0000[0x5] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; Debug Table 00e0 ; -------------------------------------------------------------------------------------- 00e0 0004 0009 | | .DEBUG4 0x0004,0x0009,0x8623,0x0000,0x0001,0x0000 00e6 0000 0000 | | .BLANK 0000[0x11a]