|
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_5f28f0
└─⟦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 01d0 | | .CONST 0x01d0 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0028 | ( | .CONST 0x0028 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0006 | | .CONST 0x0006 ; Number of locals 001b INIT_0018: 001b 0007 | | Action Break_Optional 001c 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call 001e e001 | | Load 0x0,0x1 001f 190f | | Execute Package,Field_Reference,Field_Number 0xf 0020 00c6 | | Action Check_Subprogram_Elaborated 0021 4802 |H | Short_Literal 0x2 0022 4802 |H | Short_Literal 0x2 0023 0099 | | Action Reference_Dynamic 0024 e002 | | Load 0x0,0x2 0025 e003 | | Load 0x0,0x3 0026 4806 |H | Short_Literal 0x6 0027 0007 | | Action Break_Optional 0028 BODY_0018: 0028 e5ff | | Load 0x2,-0x1 0029 4803 |H | Short_Literal 0x3 002a 4802 |H | Short_Literal 0x2 002b 0099 | | Action Reference_Dynamic 002c 4804 |H | Short_Literal 0x4 002d 4802 |H | Short_Literal 0x2 002e 0099 | | Action Reference_Dynamic 002f e001 | | Load 0x0,0x1 0030 180f | | Execute Package,Field_Execute,Field_Number 0xf 0031 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0032 0000 0000 | | .BLANK 0000[0x6] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 0071 | q | .CONST 0x0071 ; Address of begin 0039 0143 | C | .CONST 0x0143 ; Address of exception handler 003a 000d | | .CONST 0x000d ; Number of locals 003b INIT_0038: 003b e004 | | Load 0x0,0x4 003c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 003d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 003e e004 | | Load 0x0,0x4 003f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0040 0007 | | Action Break_Optional 0041 0007 | | Action Break_Optional 0042 e004 | | Load 0x0,0x4 0043 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0044 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0045 e005 | | Load 0x0,0x5 0046 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0047 e004 | | Load 0x0,0x4 0048 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0049 1816 | | Execute Package,Field_Execute,Field_Number 0x16 004a 0031 | 1 | Store_Top Heap_Access,At_Offset_1 004b e7ff | | Load 0x3,-0x1 004c e004 | | Load 0x0,0x4 004d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 004e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 004f e7fe | | Load 0x3,-0x2 0050 e004 | | Load 0x0,0x4 0051 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0052 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0053 00d8 | | Load_Top At_Offset_0 0054 0092 0160 | `| Action Push_String_Extended,0x160 ; ".Units" 0056 01cc | | Execute Vector,Catenate 0057 0007 | | Action Break_Optional 0058 00d9 | | Load_Top At_Offset_1 0059 0092 0161 | a| Action Push_String_Extended,0x161 ; ".Exports.Commands" 005b 01cc | | Execute Vector,Catenate 005c 0007 | | Action Break_Optional 005d e004 | | Load 0x0,0x4 005e 1b14 | | Execute Package,Field_Read,Field_Number 0x14 005f 02ff | | Declare_Variable Variant_Record 0060 00d8 | | Load_Top At_Offset_0 0061 1c00 | | Execute_Immediate Run_Utility,0x0 0062 e004 | | Load 0x0,0x4 0063 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0064 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0065 02c7 | | Declare_Variable Any 0066 00d8 | | Load_Top At_Offset_0 0067 1c00 | | Execute_Immediate Run_Utility,0x0 0068 e004 | | Load 0x0,0x4 0069 1b0f | | Execute Package,Field_Read,Field_Number 0xf 006a 02c7 | | Declare_Variable Any 006b 00d8 | | Load_Top At_Offset_0 006c 1c00 | | Execute_Immediate Run_Utility,0x0 006d a006 | | Store_Unchecked 0x0,0x6 006e 0007 | | Action Break_Optional 006f 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call 0071 BODY_0038: 0071 e7fe | | Load 0x3,-0x2 0072 e004 | | Load 0x0,0x4 0073 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0074 012f | / | Execute Any,Equal 0075 6801 |h | Jump_Zero 0x77 0076 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0077 e004 | | Load 0x0,0x4 0078 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0079 1b0f | | Execute Package,Field_Read,Field_Number 0xf 007a e609 | | Load 0x3,0x9 007b 60e0 |` | Indirect_Literal Discrete,0x15c,{0x00000000, 0x00004000} 007c e007 | | Load 0x0,0x7 007d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 007e 4800 |H | Short_Literal 0x0 007f e005 | | Load 0x0,0x5 0080 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0081 e004 | | Load 0x0,0x4 0082 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0083 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0084 e607 | | Load 0x3,0x7 0085 e004 | | Load 0x0,0x4 0086 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0087 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0088 00d1 | | Pop_Control Pop_Count_1 0089 c602 | | Store 0x3,0x2 008a e602 | | Load 0x3,0x2 008b 6813 |h | Jump_Zero 0x9f 008c 0092 0162 | b| Action Push_String_Extended,0x162 ; "Couldn't get version for " 008e e607 | | Load 0x3,0x7 008f 01cc | | Execute Vector,Catenate 0090 0092 0163 | c| Action Push_String_Extended,0x163 ; " (" 0092 01cc | | Execute Vector,Catenate 0093 e602 | | Load 0x3,0x2 0094 e004 | | Load 0x0,0x4 0095 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0096 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0097 025e | ^ | Execute Discrete,Convert 0098 1c01 | | Execute_Immediate Run_Utility,0x1 0099 01cc | | Execute Vector,Catenate 009a 0092 0164 | d| Action Push_String_Extended,0x164 ; ")" 009c 01cc | | Execute Vector,Catenate 009d 860d | | Call 0x3,0xd 009e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 009f e004 | | Load 0x0,0x4 00a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a1 e005 | | Load 0x0,0x5 00a2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00a3 60b8 |` | Indirect_Literal Discrete,0x15c,{0x00000000, 0x00004000} 00a4 e007 | | Load 0x0,0x7 00a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00a6 e609 | | Load 0x3,0x9 00a7 e004 | | Load 0x0,0x4 00a8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00a9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00aa c603 | | Store 0x3,0x3 00ab e603 | | Load 0x3,0x3 00ac 6812 |h | Jump_Zero 0xbf 00ad 0092 0165 | e| Action Push_String_Extended,0x165 ; "Couldn't set context to " 00af e607 | | Load 0x3,0x7 00b0 01cc | | Execute Vector,Catenate 00b1 0092 0163 | c| Action Push_String_Extended,0x163 ; " (" 00b3 01cc | | Execute Vector,Catenate 00b4 e603 | | Load 0x3,0x3 00b5 e004 | | Load 0x0,0x4 00b6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b7 025e | ^ | Execute Discrete,Convert 00b8 1c01 | | Execute_Immediate Run_Utility,0x1 00b9 01cc | | Execute Vector,Catenate 00ba 0092 0164 | d| Action Push_String_Extended,0x164 ; ")" 00bc 01cc | | Execute Vector,Catenate 00bd 860d | | Call 0x3,0xd 00be 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00bf 0092 0166 | f| Action Push_String_Extended,0x166 ; "<PROFILE>" 00c1 e5fe | | Load 0x2,-0x2 00c2 4802 |H | Short_Literal 0x2 00c3 e605 | | Load 0x3,0x5 00c4 0092 0167 | g| Action Push_String_Extended,0x167 ; ".??" 00c6 01cc | | Execute Vector,Catenate 00c7 0092 0168 | h| Action Push_String_Extended,0x168 ; "@" 00c9 e008 | | Load 0x0,0x8 00ca 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00cb e004 | | Load 0x0,0x4 00cc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00cd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00ce e60a | | Load 0x3,0xa 00cf 608c |` | Indirect_Literal Discrete,0x15c,{0x00000000, 0x00004000} 00d0 e007 | | Load 0x0,0x7 00d1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d2 e005 | | Load 0x0,0x5 00d3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00d4 e009 | | Load 0x0,0x9 00d5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00d6 4801 |H | Short_Literal 0x1 00d7 4800 |H | Short_Literal 0x0 00d8 e005 | | Load 0x0,0x5 00d9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00da e004 | | Load 0x0,0x4 00db 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00dc 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00dd 0092 0169 | i| Action Push_String_Extended,0x169 ; "[_" 00df e608 | | Load 0x3,0x8 00e0 01cc | | Execute Vector,Catenate 00e1 0092 016a | j| Action Push_String_Extended,0x16a ; ", ~$]" 00e3 01cc | | Execute Vector,Catenate 00e4 e004 | | Load 0x0,0x4 00e5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00e6 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00e7 c60a | | Store 0x3,0xa 00e8 c602 | | Store 0x3,0x2 00e9 e602 | | Load 0x3,0x2 00ea 680a |h | Jump_Zero 0xf5 00eb e00a | | Load 0x0,0xa 00ec 180e | | Execute Package,Field_Execute,Field_Number 0xe 00ed 4806 |H | Short_Literal 0x6 00ee e606 | | Load 0x3,0x6 00ef 0092 016b | k| Action Push_String_Extended,0x16b ; " contains no command subset." 00f1 01cc | | Execute Vector,Catenate 00f2 e00b | | Load 0x0,0xb 00f3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00f4 7844 |xD | Jump 0x139 00f5 00cf | | Action Mark_Auxiliary 00f6 783c |x< | Jump 0x133 00f7 e004 | | Load 0x0,0x4 00f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f9 e60b | | Load 0x3,0xb 00fa 0120 | | Execute Any,Is_Value 00fb 6803 |h | Jump_Zero 0xff 00fc e004 | | Load 0x0,0x4 00fd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00fe 7801 |x | Jump 0x100 00ff e60b | | Load 0x3,0xb 0100 e60a | | Load 0x3,0xa 0101 e004 | | Load 0x0,0x4 0102 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0103 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0104 c60b | | Store 0x3,0xb 0105 c603 | | Store 0x3,0x3 0106 e603 | | Load 0x3,0x3 0107 680e |h | Jump_Zero 0x116 0108 e00a | | Load 0x0,0xa 0109 180e | | Execute Package,Field_Execute,Field_Number 0xe 010a 4807 |H | Short_Literal 0x7 010b e603 | | Load 0x3,0x3 010c e004 | | Load 0x0,0x4 010d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 010e 025e | ^ | Execute Discrete,Convert 010f 1c01 | | Execute_Immediate Run_Utility,0x1 0110 0092 016c | l| Action Push_String_Extended,0x16c ; " returned resolving command object" 0112 01cc | | Execute Vector,Catenate 0113 e00b | | Load 0x0,0xb 0114 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0115 7817 |x | Jump 0x12d 0116 e00a | | Load 0x0,0xa 0117 180e | | Execute Package,Field_Execute,Field_Number 0xe 0118 4806 |H | Short_Literal 0x6 0119 0092 016d | m| Action Push_String_Extended,0x16d ; "Changed command link for " 011b e60b | | Load 0x3,0xb 011c e004 | | Load 0x0,0x4 011d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 011e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 011f 01cc | | Execute Vector,Catenate 0120 e00b | | Load 0x0,0xb 0121 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0122 0092 0166 | f| Action Push_String_Extended,0x166 ; "<PROFILE>" 0124 e5fe | | Load 0x2,-0x2 0125 0092 016e | n| Action Push_String_Extended,0x16e ; "#" 0127 e60b | | Load 0x3,0xb 0128 e004 | | Load 0x0,0x4 0129 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 012a 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 012b e008 | | Load 0x0,0x8 012c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 012d e60a | | Load 0x3,0xa 012e e004 | | Load 0x0,0x4 012f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0130 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0131 c60a | | Store 0x3,0xa 0132 00c9 | | Action Pop_Auxiliary_Loop 0133 e60a | | Load 0x3,0xa 0134 e004 | | Load 0x0,0x4 0135 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0136 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0137 6fbf |o | Jump_Zero 0xf7 0138 00ce | | Action Pop_Auxiliary 0139 e004 | | Load 0x0,0x4 013a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 013b e005 | | Load 0x0,0x5 013c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 013d e604 | | Load 0x3,0x4 013e e004 | | Load 0x0,0x4 013f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0140 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0141 c603 | | Store 0x3,0x3 0142 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0143 TRAP_0038: 0143 0007 | | Action Break_Optional 0144 e004 | | Load 0x0,0x4 0145 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0146 e005 | | Load 0x0,0x5 0147 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0148 e604 | | Load 0x3,0x4 0149 e004 | | Load 0x0,0x4 014a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 014b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 014c c603 | | Store 0x3,0x3 014d 00d8 | | Load_Top At_Offset_0 014e 0101 | | Execute Exception,Reraise 014f 0000 | | .XXX[0x1] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 e00a | | Load 0x0,0xa 0154 180e | | Execute Package,Field_Execute,Field_Number 0xe 0155 4807 |H | Short_Literal 0x7 0156 e9ff | | Load 0x4,-0x1 0157 e00b | | Load 0x0,0xb 0158 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0159 4502 |E | Exit_Suprogram New_Top_Offset 0x2 015a 0000 0000 | | .XXX[0x2] 015c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0160 ; -------------------------------------------------------------------------------------- 0160 ; STRING TABLE 0160 ; -------------------------------------------------------------------------------------- 0160 0020 | | .STRTAB 0x0020->0x0170 ; ".Units" 0161 0024 | $ | .STRTAB 0x0024->0x0173 ; ".Exports.Commands" 0162 0033 | 3 | .STRTAB 0x0033->0x017b ; "Couldn't get version for " 0163 004a | J | .STRTAB 0x004a->0x0188 ; " (" 0164 004a | J | .STRTAB 0x004a->0x0189 ; ")" 0165 0049 | I | .STRTAB 0x0049->0x0189 ; "Couldn't set context to " 0166 005f | _ | .STRTAB 0x005f->0x0195 ; "<PROFILE>" 0167 0066 | f | .STRTAB 0x0066->0x019a ; ".??" 0168 0067 | g | .STRTAB 0x0067->0x019b ; "@" 0169 0066 | f | .STRTAB 0x0066->0x019c ; "[_" 016a 0066 | f | .STRTAB 0x0066->0x019d ; ", ~$]" 016b 0069 | i | .STRTAB 0x0069->0x019f ; " contains no command subset." 016c 0083 | | .STRTAB 0x0083->0x01ad ; " returned resolving command object" 016d 00a3 | | .STRTAB 0x00a3->0x01be ; "Changed command link for " 016e 00ba | | .STRTAB 0x00ba->0x01cb ; "#" 016f 00b9 | | .STREND 0x00b9->0x01cb 0170 2e55 6e69 |.Uni| .STRTAB_STRINGS 01cc 0000 0000 | | .BLANK 0000[0x4] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; Debug Table 01d0 ; -------------------------------------------------------------------------------------- 01d0 0004 0012 | | .DEBUG4 0x0004,0x0012,0x91cf,0x0000,0x0001,0x0000 01d6 0000 0000 | | .BLANK 0000[0x2a]