|
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: 2048 (0x800) 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 0220 | | .CONST 0x0220 ; 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 001b | | .CONST 0x001b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0007 | | .CONST 0x0007 ; Number of locals 000b INIT_0008: 000b e012 | | Load 0x0,0x12 000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000d 02c7 | | Declare_Variable Any 000e e012 | | Load 0x0,0x12 000f 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0010 a602 | | Store_Unchecked 0x3,0x2 0011 029f 0043 | C| Declare_Subprogram INIT_0040,For_Call 0013 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call 0015 029f 009b | | Declare_Subprogram INIT_0098,For_Call 0017 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call 0019 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 001b BODY_0008: 001b e5ff | | Load 0x2,-0x1 001c 8007 | | Call 0x0,0x7 001d 6805 |h | Jump_Zero 0x23 001e e5ff | | Load 0x2,-0x1 001f 8013 | | Call 0x0,0x13 0020 6802 |h | Jump_Zero 0x23 0021 8606 | | Call 0x3,0x6 0022 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0023 e5ff | | Load 0x2,-0x1 0024 8007 | | Call 0x0,0x7 0025 6815 |h | Jump_Zero 0x3b 0026 e5ff | | Load 0x2,-0x1 0027 8014 | | Call 0x0,0x14 0028 7012 |p | Jump_Nonzero 0x3b 0029 e004 | | Load 0x0,0x4 002a 180e | | Execute Package,Field_Execute,Field_Number 0xe 002b 4807 |H | Short_Literal 0x7 002c e5ff | | Load 0x2,-0x1 002d e005 | | Load 0x0,0x5 002e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 002f 0092 0177 | w| Action Push_String_Extended,0x177 ; " is not a Test Case or a Test Set." 0031 01cc | | Execute Vector,Catenate 0032 0092 0178 | x| Action Push_String_Extended,0x178 ; " Verify the Test_Cases_Or_A_Set parameter" 0034 01cc | | Execute Vector,Catenate 0035 0092 0179 | y| Action Push_String_Extended,0x179 ; " resolves to Test Cases or a Test Set." 0037 01cc | | Execute Vector,Catenate 0038 e006 | | Load 0x0,0x6 0039 1813 | | Execute Package,Field_Execute,Field_Number 0x13 003a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 003b 8607 | | Call 0x3,0x7 003c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 003d 0000 0000 | | .XXX[0x3] 003f 0000 | | 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0043 | C | .CONST 0x0043 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0001 | | .CONST 0x0001 ; Number of locals 0043 BODY_0040: 0043 INIT_0040: 0043 00da | | Load_Top At_Offset_2 0044 0092 017a | z| Action Push_String_Extended,0x17a ; "'body" 0046 01cc | | Execute Vector,Catenate 0047 e002 | | Load 0x0,0x2 0048 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0049 180f | | Execute Package,Field_Execute,Field_Number 0xf 004a 0f04 | | Execute_Immediate Equal,0x4 004b 6802 |h | Jump_Zero 0x4e 004c 4801 |H | Short_Literal 0x1 004d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 004e 4800 |H | Short_Literal 0x0 004f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0059 | Y | .CONST 0x0059 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0002 | | .CONST 0x0002 ; Number of locals 0053 INIT_0050: 0053 e012 | | Load 0x0,0x12 0054 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0055 02c7 | | Declare_Variable Any 0056 e012 | | Load 0x0,0x12 0057 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0058 a802 | | Store_Unchecked 0x4,0x2 0059 BODY_0050: 0059 e004 | | Load 0x0,0x4 005a 180e | | Execute Package,Field_Execute,Field_Number 0xe 005b 4802 |H | Short_Literal 0x2 005c 0092 017b | {| Action Push_String_Extended,0x17b ; "Running the Script " 005e e9ff | | Load 0x4,-0x1 005f e005 | | Load 0x0,0x5 0060 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0061 01cc | | Execute Vector,Catenate 0062 e006 | | Load 0x0,0x6 0063 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0064 0092 017c | || Action Push_String_Extended,0x17c ; "<PROFILE>" 0066 0092 017d | }| Action Push_String_Extended,0x17d ; "$" 0068 0092 017e | ~| Action Push_String_Extended,0x17e ; "\x22" 006a e9ff | | Load 0x4,-0x1 006b e002 | | Load 0x0,0x2 006c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 006d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 006e 01cc | | Execute Vector,Catenate 006f 0092 017f | | Action Push_String_Extended,0x17f ; "." 0071 01cc | | Execute Vector,Catenate 0072 0092 017e | ~| Action Push_String_Extended,0x17e ; "\x22" 0074 01cc | | Execute Vector,Catenate 0075 e9ff | | Load 0x4,-0x1 0076 e002 | | Load 0x0,0x2 0077 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0078 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0079 01cc | | Execute Vector,Catenate 007a 0092 0180 | | Action Push_String_Extended,0x180 ; " (Apply_Coverage_Analyzer => " 007c 01cc | | Execute Vector,Catenate 007d e9fe | | Load 0x4,-0x2 007e 00e1 | | Load_Encached Boolean_Cache 007f 011c | | Execute Any,Convert_Unchecked 0080 1c01 | | Execute_Immediate Run_Utility,0x1 0081 01cc | | Execute Vector,Catenate 0082 0092 0181 | | Action Push_String_Extended,0x181 ; ")" 0084 01cc | | Execute Vector,Catenate 0085 e015 | | Load 0x0,0x15 0086 180f | | Execute Package,Field_Execute,Field_Number 0xf 0087 00d8 | | Load_Top At_Offset_0 0088 e012 | | Load 0x0,0x12 0089 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 008a e004 | | Load 0x0,0x4 008b 180e | | Execute Package,Field_Execute,Field_Number 0xe 008c 4803 |H | Short_Literal 0x3 008d 0092 0182 | | Action Push_String_Extended,0x182 ; "Script run complete" 008f e006 | | Load 0x0,0x6 0090 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0091 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0092 0000 0000 | | .BLANK 0000[0x6] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 00da | | Load_Top At_Offset_2 009c e005 | | Load 0x0,0x5 009d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 009e 0092 0183 | | Action Push_String_Extended,0x183 ; "<AUTO_GENERATE>" 00a0 01df | | Execute Vector,Equal 00a1 680b |h | Jump_Zero 0xad 00a2 00db | | Load_Top At_Offset_3 00a3 e002 | | Load 0x0,0x2 00a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a5 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00a6 e002 | | Load 0x0,0x2 00a7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00a8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00a9 0092 0184 | | Action Push_String_Extended,0x184 ; "_Set" 00ab 01cc | | Execute Vector,Catenate 00ac 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00ad 00da | | Load_Top At_Offset_2 00ae 01dd | | Execute Vector,First 00af 00db | | Load_Top At_Offset_3 00b0 01dc | | Execute Vector,Last 00b1 e9ff | | Load 0x4,-0x1 00b2 01cf | | Execute Vector,Slice_Read 00b3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00b4 0000 0000 | | .BLANK 0000[0x4] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00d9 | | .CONST 0x00d9 ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0005 | | .CONST 0x0005 ; Number of locals 00bb INIT_00b8: 00bb 4801 |H | Short_Literal 0x1 00bc e002 | | Load 0x0,0x2 00bd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00be 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00bf e5ff | | Load 0x2,-0x1 00c0 e002 | | Load 0x0,0x2 00c1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c2 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 00c3 e002 | | Load 0x0,0x2 00c4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c5 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00c6 e016 | | Load 0x0,0x16 00c7 02c7 | | Declare_Variable Any 00c8 00d8 | | Load_Top At_Offset_0 00c9 1c00 | | Execute_Immediate Run_Utility,0x0 00ca e010 | | Load 0x0,0x10 00cb 02c7 | | Declare_Variable Any 00cc 00d8 | | Load_Top At_Offset_0 00cd 1c00 | | Execute_Immediate Run_Utility,0x0 00ce e7fc | | Load 0x3,-0x4 00cf 480a |H | Short_Literal 0xa 00d0 e802 | | Load 0x4,0x2 00d1 e002 | | Load 0x0,0x2 00d2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d3 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00d4 8017 | | Call 0x0,0x17 00d5 0092 0185 | | Action Push_String_Extended,0x185 ; "_Script" 00d7 01cc | | Execute Vector,Catenate 00d8 0007 | | Action Break_Optional 00d9 BODY_00b8: 00d9 00d9 | | Load_Top At_Offset_1 00da 00db | | Load_Top At_Offset_3 00db e018 | | Load 0x0,0x18 00dc e802 | | Load 0x4,0x2 00dd 8019 | | Call 0x0,0x19 00de c018 | | Store 0x0,0x18 00df c803 | | Store 0x4,0x3 00e0 c804 | | Store 0x4,0x4 00e1 e00e | | Load 0x0,0xe 00e2 00da | | Load_Top At_Offset_2 00e3 e803 | | Load 0x4,0x3 00e4 4800 |H | Short_Literal 0x0 00e5 801a | | Call 0x0,0x1a 00e6 c803 | | Store 0x4,0x3 00e7 c804 | | Store 0x4,0x4 00e8 c404 | | Store 0x2,0x4 00e9 e404 | | Load 0x2,0x4 00ea 7019 |p | Jump_Nonzero 0x104 00eb 801b | | Call 0x0,0x1b 00ec 801c | | Call 0x0,0x1c 00ed 00da | | Load_Top At_Offset_2 00ee e802 | | Load 0x4,0x2 00ef e01d | | Load 0x0,0x1d 00f0 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00f1 00d8 | | Load_Top At_Offset_0 00f2 8603 | | Call 0x3,0x3 00f3 6804 |h | Jump_Zero 0xf8 00f4 e7fd | | Load 0x3,-0x3 00f5 00d9 | | Load_Top At_Offset_1 00f6 8604 | | Call 0x3,0x4 00f7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00f8 e004 | | Load 0x0,0x4 00f9 180e | | Execute Package,Field_Execute,Field_Number 0xe 00fa 4807 |H | Short_Literal 0x7 00fb e802 | | Load 0x4,0x2 00fc e005 | | Load 0x0,0x5 00fd 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00fe 0092 0186 | | Action Push_String_Extended,0x186 ; " is not coded" 0100 01cc | | Execute Vector,Catenate 0101 e006 | | Load 0x0,0x6 0102 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0103 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0104 e004 | | Load 0x0,0x4 0105 180e | | Execute Package,Field_Execute,Field_Number 0xe 0106 4807 |H | Short_Literal 0x7 0107 0092 0187 | | Action Push_String_Extended,0x187 ; "Could not open test set " 0109 e802 | | Load 0x4,0x2 010a e005 | | Load 0x0,0x5 010b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 010c 01cc | | Execute Vector,Catenate 010d e006 | | Load 0x0,0x6 010e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 010f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0133 | 3 | .CONST 0x0133 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0006 | | .CONST 0x0006 ; Number of locals 0113 INIT_0110: 0113 e002 | | Load 0x0,0x2 0114 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0115 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0116 02c7 | | Declare_Variable Any 0117 4801 |H | Short_Literal 0x1 0118 e002 | | Load 0x0,0x2 0119 1b0e | | Execute Package,Field_Read,Field_Number 0xe 011a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 011b e7ff | | Load 0x3,-0x1 011c e002 | | Load 0x0,0x2 011d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 011e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 011f a802 | | Store_Unchecked 0x4,0x2 0120 00d8 | | Load_Top At_Offset_0 0121 e7fe | | Load 0x3,-0x2 0122 8605 | | Call 0x3,0x5 0123 e016 | | Load 0x0,0x16 0124 02c7 | | Declare_Variable Any 0125 00d8 | | Load_Top At_Offset_0 0126 1c00 | | Execute_Immediate Run_Utility,0x0 0127 e010 | | Load 0x0,0x10 0128 02c7 | | Declare_Variable Any 0129 00d8 | | Load_Top At_Offset_0 012a 1c00 | | Execute_Immediate Run_Utility,0x0 012b e7fc | | Load 0x3,-0x4 012c 480a |H | Short_Literal 0xa 012d e803 | | Load 0x4,0x3 012e 8017 | | Call 0x0,0x17 012f 0092 0185 | | Action Push_String_Extended,0x185 ; "_Script" 0131 01cc | | Execute Vector,Catenate 0132 0007 | | Action Break_Optional 0133 BODY_0110: 0133 00d9 | | Load_Top At_Offset_1 0134 00db | | Load_Top At_Offset_3 0135 e802 | | Load 0x4,0x2 0136 e405 | | Load 0x2,0x5 0137 e803 | | Load 0x4,0x3 0138 821b | | Call 0x1,0x1b 0139 c802 | | Store 0x4,0x2 013a c804 | | Store 0x4,0x4 013b c805 | | Store 0x4,0x5 013c e00e | | Load 0x0,0xe 013d 00da | | Load_Top At_Offset_2 013e e804 | | Load 0x4,0x4 013f 4800 |H | Short_Literal 0x0 0140 801a | | Call 0x0,0x1a 0141 c804 | | Store 0x4,0x4 0142 c805 | | Store 0x4,0x5 0143 c404 | | Store 0x2,0x4 0144 e404 | | Load 0x2,0x4 0145 701c |p | Jump_Nonzero 0x162 0146 801b | | Call 0x0,0x1b 0147 801c | | Call 0x0,0x1c 0148 00da | | Load_Top At_Offset_2 0149 e7fc | | Load 0x3,-0x4 014a 4803 |H | Short_Literal 0x3 014b e803 | | Load 0x4,0x3 014c 8017 | | Call 0x0,0x17 014d e01d | | Load 0x0,0x1d 014e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 014f 00d8 | | Load_Top At_Offset_0 0150 8603 | | Call 0x3,0x3 0151 6804 |h | Jump_Zero 0x156 0152 e7fd | | Load 0x3,-0x3 0153 00d9 | | Load_Top At_Offset_1 0154 8604 | | Call 0x3,0x4 0155 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0156 e004 | | Load 0x0,0x4 0157 180e | | Execute Package,Field_Execute,Field_Number 0xe 0158 4807 |H | Short_Literal 0x7 0159 00da | | Load_Top At_Offset_2 015a e005 | | Load 0x0,0x5 015b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 015c 0092 0186 | | Action Push_String_Extended,0x186 ; " is not coded" 015e 01cc | | Execute Vector,Catenate 015f e006 | | Load 0x0,0x6 0160 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0161 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0162 e004 | | Load 0x0,0x4 0163 180e | | Execute Package,Field_Execute,Field_Number 0xe 0164 4807 |H | Short_Literal 0x7 0165 0092 0187 | | Action Push_String_Extended,0x187 ; "Could not open test set " 0167 e803 | | Load 0x4,0x3 0168 e005 | | Load 0x0,0x5 0169 1814 | | Execute Package,Field_Execute,Field_Number 0x14 016a 01cc | | Execute Vector,Catenate 016b 0092 017f | | Action Push_String_Extended,0x17f ; "." 016d 01cc | | Execute Vector,Catenate 016e 0092 0178 | x| Action Push_String_Extended,0x178 ; " Verify the Test_Cases_Or_A_Set parameter" 0170 01cc | | Execute Vector,Catenate 0171 0092 0188 | | Action Push_String_Extended,0x188 ; " resolves to test cases." 0173 01cc | | Execute Vector,Catenate 0174 e006 | | Load 0x0,0x6 0175 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0176 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0177 ; -------------------------------------------------------------------------------------- 0177 ; STRING TABLE 0177 ; -------------------------------------------------------------------------------------- 0177 0026 | & | .STRTAB 0x0026->0x018a ; " is not a Test Case or a Test Set." 0178 0046 | F | .STRTAB 0x0046->0x019b ; " Verify the Test_Cases_Or_A_Set parameter" 0179 006e | n | .STRTAB 0x006e->0x01b0 ; " resolves to Test Cases or a Test Set." 017a 0092 | | .STRTAB 0x0092->0x01c3 ; "'body" 017b 0095 | | .STRTAB 0x0095->0x01c5 ; "Running the Script " 017c 00a6 | | .STRTAB 0x00a6->0x01cf ; "<PROFILE>" 017d 00ad | | .STRTAB 0x00ad->0x01d3 ; "$" 017e 00ac | | .STRTAB 0x00ac->0x01d4 ; "\x22" 017f 00ab | | .STRTAB 0x00ab->0x01d4 ; "." 0180 00aa | | .STRTAB 0x00aa->0x01d5 ; " (Apply_Coverage_Analyzer => " 0181 00c5 | | .STRTAB 0x00c5->0x01e3 ; ")" 0182 00c4 | | .STRTAB 0x00c4->0x01e4 ; "Script run complete" 0183 00d5 | | .STRTAB 0x00d5->0x01ed ; "<AUTO_GENERATE>" 0184 00e2 | | .STRTAB 0x00e2->0x01f5 ; "_Set" 0185 00e4 | | .STRTAB 0x00e4->0x01f7 ; "_Script" 0186 00e9 | | .STRTAB 0x00e9->0x01fa ; " is not coded" 0187 00f4 | | .STRTAB 0x00f4->0x0201 ; "Could not open test set " 0188 010a | | .STRTAB 0x010a->0x020d ; " resolves to test cases." 0189 0120 | | .STREND 0x0120->0x0219 018a 2069 7320 | is | .STRTAB_STRINGS 0219 0000 0000 | | .BLANK 0000[0x7] 0220 ; -------------------------------------------------------------------------------------- 0220 ; Debug Table 0220 ; -------------------------------------------------------------------------------------- 0220 0004 000a | | .DEBUG4 0x0004,0x000a,0x8bac,0x0000,0x0001,0x0000 0226 0000 0000 | | .BLANK 0000[0x1da]