|
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 0180 | | .CONST 0x0180 ; 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 004e | N | .CONST 0x004e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0014 | | .CONST 0x0014 ; Number of locals 000b INIT_0008: 000b e085 | | Load 0x0,0x85 000c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 000d 02c7 | | Declare_Variable Any 000e 00d8 | | Load_Top At_Offset_0 000f 1c00 | | Execute_Immediate Run_Utility,0x0 0010 e085 | | Load 0x0,0x85 0011 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0012 e085 | | Load 0x0,0x85 0013 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0014 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0015 02c7 | | Declare_Variable Any 0016 00d8 | | Load_Top At_Offset_0 0017 1c00 | | Execute_Immediate Run_Utility,0x0 0018 e085 | | Load 0x0,0x85 0019 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33 001a e085 | | Load 0x0,0x85 001b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 001c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 001d e215 | | Load 0x1,0x15 001e 801b | | Call 0x0,0x1b 001f e085 | | Load 0x0,0x85 0020 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0021 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0022 02c7 | | Declare_Variable Any 0023 00d8 | | Load_Top At_Offset_0 0024 1c00 | | Execute_Immediate Run_Utility,0x0 0025 e085 | | Load 0x0,0x85 0026 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0027 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0028 02c7 | | Declare_Variable Any 0029 00d8 | | Load_Top At_Offset_0 002a 1c00 | | Execute_Immediate Run_Utility,0x0 002b e085 | | Load 0x0,0x85 002c 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 002d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 002e 02c7 | | Declare_Variable Any 002f 00d8 | | Load_Top At_Offset_0 0030 1c00 | | Execute_Immediate Run_Utility,0x0 0031 e086 | | Load 0x0,0x86 0032 0322 | " | Declare_Variable Record 0033 00d8 | | Load_Top At_Offset_0 0034 1c00 | | Execute_Immediate Run_Utility,0x0 0035 e087 | | Load 0x0,0x87 0036 0007 | | Action Break_Optional 0037 e085 | | Load 0x0,0x85 0038 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0039 e085 | | Load 0x0,0x85 003a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 003b 02c7 | | Declare_Variable Any 003c 00d8 | | Load_Top At_Offset_0 003d 1c00 | | Execute_Immediate Run_Utility,0x0 003e e085 | | Load 0x0,0x85 003f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0040 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0041 02c7 | | Declare_Variable Any 0042 00d8 | | Load_Top At_Offset_0 0043 1c00 | | Execute_Immediate Run_Utility,0x0 0044 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call 0046 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call 0048 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 004a 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call 004c 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call 004e BODY_0008: 004e e222 | " | Load 0x1,0x22 004f 680a |h | Jump_Zero 0x5a 0050 0092 0159 | Y| Action Push_String_Extended,0x159 ; "Generate_Valid_Unit for " 0052 e5ff | | Load 0x2,-0x1 0053 01cc | | Execute Vector,Catenate 0054 0092 015a | Z| Action Push_String_Extended,0x15a ; "; with the Valid Unit spec " 0056 01cc | | Execute Vector,Catenate 0057 e5fe | | Load 0x2,-0x2 0058 01cc | | Execute Vector,Catenate 0059 8228 | ( | Call 0x1,0x28 005a e085 | | Load 0x0,0x85 005b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 005c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 005d e40f | | Load 0x2,0xf 005e 6051 |`Q | Indirect_Literal Discrete,0xb0,{0x00000000, 0x00004000} 005f e088 | | Load 0x0,0x88 0060 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0061 e089 | | Load 0x0,0x89 0062 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0063 e08a | | Load 0x0,0x8a 0064 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0065 4801 |H | Short_Literal 0x1 0066 4800 |H | Short_Literal 0x0 0067 e089 | | Load 0x0,0x89 0068 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0069 e085 | | Load 0x0,0x85 006a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 006b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 006c e5ff | | Load 0x2,-0x1 006d e085 | | Load 0x0,0x85 006e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 006f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0070 c40f | | Store 0x2,0xf 0071 c406 | | Store 0x2,0x6 0072 e409 | | Load 0x2,0x9 0073 0120 | | Execute Any,Is_Value 0074 6804 |h | Jump_Zero 0x79 0075 e085 | | Load 0x0,0x85 0076 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0077 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0078 7801 |x | Jump 0x7a 0079 e409 | | Load 0x2,0x9 007a e089 | | Load 0x0,0x89 007b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 007c e08a | | Load 0x0,0x8a 007d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 007e e5ff | | Load 0x2,-0x1 007f 8020 | | Call 0x0,0x20 0080 808b | | Call 0x0,0x8b 0081 c409 | | Store 0x2,0x9 0082 e087 | | Load 0x0,0x87 0083 e40b | | Load 0x2,0xb 0084 e089 | | Load 0x0,0x89 0085 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0086 e08a | | Load 0x0,0x8a 0087 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0088 e40f | | Load 0x2,0xf 0089 8412 | | Call 0x2,0x12 008a 808c | | Call 0x0,0x8c 008b 00d1 | | Pop_Control Pop_Count_1 008c c40c | | Store 0x2,0xc 008d e40a | | Load 0x2,0xa 008e 0120 | | Execute Any,Is_Value 008f 6804 |h | Jump_Zero 0x94 0090 e085 | | Load 0x0,0x85 0091 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0092 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0093 7801 |x | Jump 0x95 0094 e40a | | Load 0x2,0xa 0095 e089 | | Load 0x0,0x89 0096 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0097 e08a | | Load 0x0,0x8a 0098 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0099 e409 | | Load 0x2,0x9 009a e085 | | Load 0x0,0x85 009b 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 009c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 009d c40a | | Store 0x2,0xa 009e 00cf | | Action Mark_Auxiliary 009f 7807 |x | Jump 0xa7 00a0 8414 | | Call 0x2,0x14 00a1 e40a | | Load 0x2,0xa 00a2 e085 | | Load 0x0,0x85 00a3 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 00a4 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00a5 c40a | | Store 0x2,0xa 00a6 00c9 | | Action Pop_Auxiliary_Loop 00a7 e40a | | Load 0x2,0xa 00a8 e085 | | Load 0x0,0x85 00a9 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 00aa 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00ab 6ff4 |o | Jump_Zero 0xa0 00ac 00ce | | Action Pop_Auxiliary 00ad e407 | | Load 0x2,0x7 00ae 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00af 0000 | | .XXX[0x1] 00b0 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 00b4 0000 0000 | | .BLANK 0000[0x4] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00d1 | | .CONST 0x00d1 ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0006 | | .CONST 0x0006 ; Number of locals 00bb INIT_00b8: 00bb e085 | | Load 0x0,0x85 00bc 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 00bd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00be 02c7 | | Declare_Variable Any 00bf 00db | | Load_Top At_Offset_3 00c0 e085 | | Load 0x0,0x85 00c1 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 00c2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00c3 a602 | | Store_Unchecked 0x3,0x2 00c4 00ec | | Load_Encached Diana_Tree_Cache 00c5 e085 | | Load 0x0,0x85 00c6 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 00c7 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 00c8 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 00c9 e085 | | Load 0x0,0x85 00ca 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 00cb 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00cc 02c7 | | Declare_Variable Any 00cd 00d8 | | Load_Top At_Offset_0 00ce 1c00 | | Execute_Immediate Run_Utility,0x0 00cf e085 | | Load 0x0,0x85 00d0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d1 BODY_00b8: 00d1 e085 | | Load 0x0,0x85 00d2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d3 00da | | Load_Top At_Offset_2 00d4 0120 | | Execute Any,Is_Value 00d5 6804 |h | Jump_Zero 0xda 00d6 e085 | | Load 0x0,0x85 00d7 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 00d8 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00d9 7801 |x | Jump 0xdb 00da 00da | | Load_Top At_Offset_2 00db e085 | | Load 0x0,0x85 00dc 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 00dd 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00de 67d1 |g | Indirect_Literal Discrete,0xb0,{0x00000000, 0x00004000} 00df 4801 |H | Short_Literal 0x1 00e0 4800 |H | Short_Literal 0x0 00e1 4800 |H | Short_Literal 0x0 00e2 e088 | | Load 0x0,0x88 00e3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00e4 e604 | | Load 0x3,0x4 00e5 e602 | | Load 0x3,0x2 00e6 e085 | | Load 0x0,0x85 00e7 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 00e8 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 00e9 c603 | | Store 0x3,0x3 00ea c605 | | Store 0x3,0x5 00eb 0059 | Y | Store_Top Discrete,At_Offset_1 00ec 00db | | Load_Top At_Offset_3 00ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ee 0000 0000 | | .XXX[0x2] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00fb | | .CONST 0x00fb ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0003 | | .CONST 0x0003 ; Number of locals 00f3 INIT_00f0: 00f3 e085 | | Load 0x0,0x85 00f4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 00f5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00f6 02c7 | | Declare_Variable Any 00f7 00d8 | | Load_Top At_Offset_0 00f8 1c00 | | Execute_Immediate Run_Utility,0x0 00f9 e085 | | Load 0x0,0x85 00fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00fb BODY_00f0: 00fb e085 | | Load 0x0,0x85 00fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00fd 00da | | Load_Top At_Offset_2 00fe 0120 | | Execute Any,Is_Value 00ff 6804 |h | Jump_Zero 0x104 0100 e085 | | Load 0x0,0x85 0101 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0102 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0103 7801 |x | Jump 0x105 0104 00da | | Load_Top At_Offset_2 0105 e7ff | | Load 0x3,-0x1 0106 e085 | | Load 0x0,0x85 0107 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0108 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0109 c602 | | Store 0x3,0x2 010a 0059 | Y | Store_Top Discrete,At_Offset_1 010b 00d9 | | Load_Top At_Offset_1 010c e085 | | Load 0x0,0x85 010d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 010e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 010f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 e5fe | | Load 0x2,-0x2 0114 01db | | Execute Vector,Length 0115 7003 |p | Jump_Nonzero 0x119 0116 0092 015b | [| Action Push_String_Extended,0x15b ; "<WORLD>" 0118 00ca | | Action Exit_Nullary_Function 0119 e5fe | | Load 0x2,-0x2 011a 0335 | 5 | Declare_Variable Array,Duplicate 011b 00cd | | Action Spare6_Action 011c 00ca | | Action Exit_Nullary_Function 011d 0000 0000 | | .XXX[0x3] 011f 0000 | | 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0134 | 4 | .CONST 0x0134 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0003 | | .CONST 0x0003 ; Number of locals 0123 INIT_0120: 0123 00da | | Load_Top At_Offset_2 0124 e085 | | Load 0x0,0x85 0125 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0126 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0127 e08d | | Load 0x0,0x8d 0128 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0129 1b0d | | Execute Package,Field_Read,Field_Number 0xd 012a 02c7 | | Declare_Variable Any 012b 4801 |H | Short_Literal 0x1 012c e08d | | Load 0x0,0x8d 012d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 012e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 012f 00db | | Load_Top At_Offset_3 0130 e08d | | Load 0x0,0x8d 0131 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0132 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0133 a603 | | Store_Unchecked 0x3,0x3 0134 BODY_0120: 0134 e088 | | Load 0x0,0x88 0135 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0136 00d9 | | Load_Top At_Offset_1 0137 808e | | Call 0x0,0x8e 0138 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0139 0000 0000 | | .BLANK 0000[0x7] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 014b | K | .CONST 0x014b ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0002 | | .CONST 0x0002 ; Number of locals 0143 INIT_0140: 0143 e085 | | Load 0x0,0x85 0144 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0145 02c7 | | Declare_Variable Any 0146 e40a | | Load 0x2,0xa 0147 e085 | | Load 0x0,0x85 0148 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34 0149 181a | | Execute Package,Field_Execute,Field_Number 0x1a 014a a602 | | Store_Unchecked 0x3,0x2 014b BODY_0140: 014b 00d8 | | Load_Top At_Offset_0 014c e085 | | Load 0x0,0x85 014d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 014e 7009 |p | Jump_Nonzero 0x158 014f e40b | | Load 0x2,0xb 0150 00d9 | | Load_Top At_Offset_1 0151 808f | | Call 0x0,0x8f 0152 6805 |h | Jump_Zero 0x158 0153 e407 | | Load 0x2,0x7 0154 00d9 | | Load_Top At_Offset_1 0155 8413 | | Call 0x2,0x13 0156 8075 | u | Call 0x0,0x75 0157 c407 | | Store 0x2,0x7 0158 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0159 ; -------------------------------------------------------------------------------------- 0159 ; STRING TABLE 0159 ; -------------------------------------------------------------------------------------- 0159 0008 | | .STRTAB 0x0008->0x015d ; "Generate_Valid_Unit for " 015a 001e | | .STRTAB 0x001e->0x0169 ; "; with the Valid Unit spec " 015b 0037 | 7 | .STRTAB 0x0037->0x0176 ; "<WORLD>" 015c 003c | < | .STREND 0x003c->0x017a 015d 4765 6e65 |Gene| .STRTAB_STRINGS 017a 0000 0000 | | .BLANK 0000[0x6] 0180 ; -------------------------------------------------------------------------------------- 0180 ; Debug Table 0180 ; -------------------------------------------------------------------------------------- 0180 0004 000a | | .DEBUG4 0x0004,0x000a,0xa6c3,0x0000,0x0001,0x0000 0186 0000 0000 | | .BLANK 0000[0x7a]