|
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
└─ ⟦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 01f0 | | .CONST 0x01f0 ; 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 0028 | ( | .CONST 0x0028 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0006 | | .CONST 0x0006 ; Number of locals 000b INIT_0008: 000b 00e1 | | Load_Encached Boolean_Cache 000c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 000d e002 | | Load 0x0,0x2 000e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 000f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0010 e7ff | | Load 0x3,-0x1 0011 e002 | | Load 0x0,0x2 0012 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0013 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0014 e002 | | Load 0x0,0x2 0015 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0016 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0017 02c7 | | Declare_Variable Any 0018 e002 | | Load 0x0,0x2 0019 1b0e | | Execute Package,Field_Read,Field_Number 0xe 001a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 001b a604 | | Store_Unchecked 0x3,0x4 001c e002 | | Load 0x0,0x2 001d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 001e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 001f 02c7 | | Declare_Variable Any 0020 00d8 | | Load_Top At_Offset_0 0021 1c00 | | Execute_Immediate Run_Utility,0x0 0022 e002 | | Load 0x0,0x2 0023 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0024 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 0025 02c7 | | Declare_Variable Any 0026 00d8 | | Load_Top At_Offset_0 0027 1c00 | | Execute_Immediate Run_Utility,0x0 0028 BODY_0008: 0028 00db | | Load_Top At_Offset_3 0029 821a | | Call 0x1,0x1a 002a 6811 |h | Jump_Zero 0x3c 002b 00db | | Load_Top At_Offset_3 002c 8007 | | Call 0x0,0x7 002d 6810 |h | Jump_Zero 0x3e 002e e004 | | Load 0x0,0x4 002f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0030 4807 |H | Short_Literal 0x7 0031 e603 | | Load 0x3,0x3 0032 e005 | | Load 0x0,0x5 0033 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0034 0092 0158 | X| Action Push_String_Extended,0x158 ; " already exists" 0036 01cc | | Execute Vector,Catenate 0037 e006 | | Load 0x0,0x6 0038 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0039 4800 |H | Short_Literal 0x0 003a a602 | | Store_Unchecked 0x3,0x2 003b 7802 |x | Jump 0x3e 003c 4800 |H | Short_Literal 0x0 003d a602 | | Store_Unchecked 0x3,0x2 003e e7fe | | Load 0x3,-0x2 003f 8034 | 4 | Call 0x0,0x34 0040 7019 |p | Jump_Nonzero 0x5a 0041 e7fe | | Load 0x3,-0x2 0042 8035 | 5 | Call 0x0,0x35 0043 7016 |p | Jump_Nonzero 0x5a 0044 e004 | | Load 0x0,0x4 0045 180e | | Execute Package,Field_Execute,Field_Number 0xe 0046 4807 |H | Short_Literal 0x7 0047 e002 | | Load 0x0,0x2 0048 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0049 1813 | | Execute Package,Field_Execute,Field_Number 0x13 004a e7fe | | Load 0x3,-0x2 004b e002 | | Load 0x0,0x2 004c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 004d 181f | | Execute Package,Field_Execute,Field_Number 0x1f 004e e005 | | Load 0x0,0x5 004f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0050 0092 0159 | Y| Action Push_String_Extended,0x159 ; " is not a library object." 0052 01cc | | Execute Vector,Catenate 0053 0092 015a | Z| Action Push_String_Extended,0x15a ; " Bad Driver_Location." 0055 01cc | | Execute Vector,Catenate 0056 e006 | | Load 0x0,0x6 0057 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0058 4800 |H | Short_Literal 0x0 0059 a602 | | Store_Unchecked 0x3,0x2 005a e7fd | | Load 0x3,-0x3 005b 8034 | 4 | Call 0x0,0x34 005c 7019 |p | Jump_Nonzero 0x76 005d e7fd | | Load 0x3,-0x3 005e 8035 | 5 | Call 0x0,0x35 005f 7016 |p | Jump_Nonzero 0x76 0060 e004 | | Load 0x0,0x4 0061 180e | | Execute Package,Field_Execute,Field_Number 0xe 0062 4807 |H | Short_Literal 0x7 0063 e002 | | Load 0x0,0x2 0064 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0065 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0066 e7fd | | Load 0x3,-0x3 0067 e002 | | Load 0x0,0x2 0068 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0069 181f | | Execute Package,Field_Execute,Field_Number 0x1f 006a e005 | | Load 0x0,0x5 006b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 006c 0092 0159 | Y| Action Push_String_Extended,0x159 ; " is not a library object." 006e 01cc | | Execute Vector,Catenate 006f 0092 015b | [| Action Push_String_Extended,0x15b ; " Bad Subject_Program_Location" 0071 01cc | | Execute Vector,Catenate 0072 e006 | | Load 0x0,0x6 0073 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0074 4800 |H | Short_Literal 0x0 0075 a602 | | Store_Unchecked 0x3,0x2 0076 e7fc | | Load 0x3,-0x4 0077 8034 | 4 | Call 0x0,0x34 0078 7019 |p | Jump_Nonzero 0x92 0079 e7fc | | Load 0x3,-0x4 007a 8035 | 5 | Call 0x0,0x35 007b 7016 |p | Jump_Nonzero 0x92 007c e004 | | Load 0x0,0x4 007d 180e | | Execute Package,Field_Execute,Field_Number 0xe 007e 4807 |H | Short_Literal 0x7 007f e002 | | Load 0x0,0x2 0080 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0081 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0082 e7fc | | Load 0x3,-0x4 0083 e002 | | Load 0x0,0x2 0084 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0085 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0086 e005 | | Load 0x0,0x5 0087 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0088 0092 0159 | Y| Action Push_String_Extended,0x159 ; " is not a library object." 008a 01cc | | Execute Vector,Catenate 008b 0092 015c | \| Action Push_String_Extended,0x15c ; " Bad Test_Case_Location." 008d 01cc | | Execute Vector,Catenate 008e e006 | | Load 0x0,0x6 008f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0090 4800 |H | Short_Literal 0x0 0091 a602 | | Store_Unchecked 0x3,0x2 0092 e7fb | | Load 0x3,-0x5 0093 8034 | 4 | Call 0x0,0x34 0094 7019 |p | Jump_Nonzero 0xae 0095 e7fb | | Load 0x3,-0x5 0096 8035 | 5 | Call 0x0,0x35 0097 7016 |p | Jump_Nonzero 0xae 0098 e004 | | Load 0x0,0x4 0099 180e | | Execute Package,Field_Execute,Field_Number 0xe 009a 4807 |H | Short_Literal 0x7 009b e002 | | Load 0x0,0x2 009c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 009d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 009e e7fb | | Load 0x3,-0x5 009f e002 | | Load 0x0,0x2 00a0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00a1 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00a2 e005 | | Load 0x0,0x5 00a3 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00a4 0092 0159 | Y| Action Push_String_Extended,0x159 ; " is not a library object." 00a6 01cc | | Execute Vector,Catenate 00a7 0092 015d | ]| Action Push_String_Extended,0x15d ; " Bad Test_Set_Location." 00a9 01cc | | Execute Vector,Catenate 00aa e006 | | Load 0x0,0x6 00ab 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00ac 4800 |H | Short_Literal 0x0 00ad a602 | | Store_Unchecked 0x3,0x2 00ae e7fa | | Load 0x3,-0x6 00af 8034 | 4 | Call 0x0,0x34 00b0 7019 |p | Jump_Nonzero 0xca 00b1 e7fa | | Load 0x3,-0x6 00b2 8035 | 5 | Call 0x0,0x35 00b3 7016 |p | Jump_Nonzero 0xca 00b4 e004 | | Load 0x0,0x4 00b5 180e | | Execute Package,Field_Execute,Field_Number 0xe 00b6 4807 |H | Short_Literal 0x7 00b7 e002 | | Load 0x0,0x2 00b8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00b9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00ba e7fa | | Load 0x3,-0x6 00bb e002 | | Load 0x0,0x2 00bc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00bd 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00be e005 | | Load 0x0,0x5 00bf 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00c0 0092 0159 | Y| Action Push_String_Extended,0x159 ; " is not a library object." 00c2 01cc | | Execute Vector,Catenate 00c3 0092 015e | ^| Action Push_String_Extended,0x15e ; " Bad Input_Location." 00c5 01cc | | Execute Vector,Catenate 00c6 e006 | | Load 0x0,0x6 00c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c8 4800 |H | Short_Literal 0x0 00c9 a602 | | Store_Unchecked 0x3,0x2 00ca e7f9 | | Load 0x3,-0x7 00cb 8034 | 4 | Call 0x0,0x34 00cc 7019 |p | Jump_Nonzero 0xe6 00cd e7f9 | | Load 0x3,-0x7 00ce 8035 | 5 | Call 0x0,0x35 00cf 7016 |p | Jump_Nonzero 0xe6 00d0 e004 | | Load 0x0,0x4 00d1 180e | | Execute Package,Field_Execute,Field_Number 0xe 00d2 4807 |H | Short_Literal 0x7 00d3 e002 | | Load 0x0,0x2 00d4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00d6 e7f9 | | Load 0x3,-0x7 00d7 e002 | | Load 0x0,0x2 00d8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d9 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00da e005 | | Load 0x0,0x5 00db 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00dc 0092 0159 | Y| Action Push_String_Extended,0x159 ; " is not a library object." 00de 01cc | | Execute Vector,Catenate 00df 0092 015f | _| Action Push_String_Extended,0x15f ; " Bad Output_Location." 00e1 01cc | | Execute Vector,Catenate 00e2 e006 | | Load 0x0,0x6 00e3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e4 4800 |H | Short_Literal 0x0 00e5 a602 | | Store_Unchecked 0x3,0x2 00e6 e7f8 | | Load 0x3,-0x8 00e7 8034 | 4 | Call 0x0,0x34 00e8 7019 |p | Jump_Nonzero 0x102 00e9 e7f8 | | Load 0x3,-0x8 00ea 8035 | 5 | Call 0x0,0x35 00eb 7016 |p | Jump_Nonzero 0x102 00ec e004 | | Load 0x0,0x4 00ed 180e | | Execute Package,Field_Execute,Field_Number 0xe 00ee 4807 |H | Short_Literal 0x7 00ef e002 | | Load 0x0,0x2 00f0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00f1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00f2 e7f8 | | Load 0x3,-0x8 00f3 e002 | | Load 0x0,0x2 00f4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00f5 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00f6 e005 | | Load 0x0,0x5 00f7 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00f8 0092 0159 | Y| Action Push_String_Extended,0x159 ; " is not a library object." 00fa 01cc | | Execute Vector,Catenate 00fb 0092 0160 | `| Action Push_String_Extended,0x160 ; " Bad Expected_Output_Location." 00fd 01cc | | Execute Vector,Catenate 00fe e006 | | Load 0x0,0x6 00ff 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0100 4800 |H | Short_Literal 0x0 0101 a602 | | Store_Unchecked 0x3,0x2 0102 e7f7 | | Load 0x3,-0x9 0103 8034 | 4 | Call 0x0,0x34 0104 7019 |p | Jump_Nonzero 0x11e 0105 e7f7 | | Load 0x3,-0x9 0106 8035 | 5 | Call 0x0,0x35 0107 7016 |p | Jump_Nonzero 0x11e 0108 e004 | | Load 0x0,0x4 0109 180e | | Execute Package,Field_Execute,Field_Number 0xe 010a 4807 |H | Short_Literal 0x7 010b e002 | | Load 0x0,0x2 010c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 010d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 010e e7f7 | | Load 0x3,-0x9 010f e002 | | Load 0x0,0x2 0110 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0111 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0112 e005 | | Load 0x0,0x5 0113 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0114 0092 0159 | Y| Action Push_String_Extended,0x159 ; " is not a library object." 0116 01cc | | Execute Vector,Catenate 0117 0092 0161 | a| Action Push_String_Extended,0x161 ; " Bad Script_Location." 0119 01cc | | Execute Vector,Catenate 011a e006 | | Load 0x0,0x6 011b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 011c 4800 |H | Short_Literal 0x0 011d a602 | | Store_Unchecked 0x3,0x2 011e e7f6 | | Load 0x3,-0xa 011f 8034 | 4 | Call 0x0,0x34 0120 7019 |p | Jump_Nonzero 0x13a 0121 e7f6 | | Load 0x3,-0xa 0122 8035 | 5 | Call 0x0,0x35 0123 7016 |p | Jump_Nonzero 0x13a 0124 e004 | | Load 0x0,0x4 0125 180e | | Execute Package,Field_Execute,Field_Number 0xe 0126 4807 |H | Short_Literal 0x7 0127 e002 | | Load 0x0,0x2 0128 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0129 1813 | | Execute Package,Field_Execute,Field_Number 0x13 012a e7f6 | | Load 0x3,-0xa 012b e002 | | Load 0x0,0x2 012c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 012d 181f | | Execute Package,Field_Execute,Field_Number 0x1f 012e e005 | | Load 0x0,0x5 012f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0130 0092 0159 | Y| Action Push_String_Extended,0x159 ; " is not a library object." 0132 01cc | | Execute Vector,Catenate 0133 0092 0162 | b| Action Push_String_Extended,0x162 ; " Bad Log_Location." 0135 01cc | | Execute Vector,Catenate 0136 e006 | | Load 0x0,0x6 0137 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0138 4800 |H | Short_Literal 0x0 0139 a602 | | Store_Unchecked 0x3,0x2 013a e7f5 | | Load 0x3,-0xb 013b 8034 | 4 | Call 0x0,0x34 013c 7019 |p | Jump_Nonzero 0x156 013d e7f5 | | Load 0x3,-0xb 013e 8035 | 5 | Call 0x0,0x35 013f 7016 |p | Jump_Nonzero 0x156 0140 e004 | | Load 0x0,0x4 0141 180e | | Execute Package,Field_Execute,Field_Number 0xe 0142 4807 |H | Short_Literal 0x7 0143 e002 | | Load 0x0,0x2 0144 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0145 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0146 e7f5 | | Load 0x3,-0xb 0147 e002 | | Load 0x0,0x2 0148 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0149 181f | | Execute Package,Field_Execute,Field_Number 0x1f 014a e005 | | Load 0x0,0x5 014b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 014c 0092 0159 | Y| Action Push_String_Extended,0x159 ; " is not a library object." 014e 01cc | | Execute Vector,Catenate 014f 0092 0163 | c| Action Push_String_Extended,0x163 ; " Bad Run_Location." 0151 01cc | | Execute Vector,Catenate 0152 e006 | | Load 0x0,0x6 0153 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0154 4800 |H | Short_Literal 0x0 0155 a602 | | Store_Unchecked 0x3,0x2 0156 e602 | | Load 0x3,0x2 0157 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb 0158 ; -------------------------------------------------------------------------------------- 0158 ; STRING TABLE 0158 ; -------------------------------------------------------------------------------------- 0158 001a | | .STRTAB 0x001a->0x0165 ; " already exists" 0159 0027 | ' | .STRTAB 0x0027->0x016c ; " is not a library object." 015a 003e | > | .STRTAB 0x003e->0x0179 ; " Bad Driver_Location." 015b 0052 | R | .STRTAB 0x0052->0x0184 ; " Bad Subject_Program_Location" 015c 006e | n | .STRTAB 0x006e->0x0193 ; " Bad Test_Case_Location." 015d 0085 | | .STRTAB 0x0085->0x019f ; " Bad Test_Set_Location." 015e 009b | | .STRTAB 0x009b->0x01ab ; " Bad Input_Location." 015f 00ae | | .STRTAB 0x00ae->0x01b6 ; " Bad Output_Location." 0160 00c2 | | .STRTAB 0x00c2->0x01c1 ; " Bad Expected_Output_Location." 0161 00df | | .STRTAB 0x00df->0x01d0 ; " Bad Script_Location." 0162 00f3 | | .STRTAB 0x00f3->0x01db ; " Bad Log_Location." 0163 0104 | | .STRTAB 0x0104->0x01e5 ; " Bad Run_Location." 0164 0115 | | .STREND 0x0115->0x01ee 0165 2061 6c72 | alr| .STRTAB_STRINGS 01ef 0000 | | .XXX[0x1] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; Debug Table 01f0 ; -------------------------------------------------------------------------------------- 01f0 0004 000a | | .DEBUG4 0x0004,0x000a,0x8ba5,0x0000,0x0001,0x0000 01f6 0000 0000 | | .BLANK 0000[0xa]