|
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_0a7cf5
└─⟦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 0198 | | .CONST 0x0198 ; 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 0040 | @ | .CONST 0x0040 ; Address of begin 0009 0094 | | .CONST 0x0094 ; Address of exception handler 000a 000c | | .CONST 0x000c ; Number of locals 000b INIT_0008: 000b 00da | | Load_Top At_Offset_2 000c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 000d e29a | | Load 0x1,0x9a 000e 01d7 | | Execute Vector,Field_Read 000f 0007 | | Action Break_Optional 0010 00db | | Load_Top At_Offset_3 0011 8227 | ' | Call 0x1,0x27 0012 823d | = | Call 0x1,0x3d 0013 e5fe | | Load 0x2,-0x2 0014 e5ff | | Load 0x2,-0x1 0015 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0016 e001 | | Load 0x0,0x1 0017 1870 | p | Execute Package,Field_Execute,Field_Number 0x70 0018 00d8 | | Load_Top At_Offset_0 0019 01da | | Execute Vector,Bounds 001a e001 | | Load 0x0,0x1 001b 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 001c 035b | [ | Declare_Type Array,Constrained 001d 0337 | 7 | Declare_Variable Array 001e 00d8 | | Load_Top At_Offset_0 001f 1c00 | | Execute_Immediate Run_Utility,0x0 0020 00d8 | | Load_Top At_Offset_0 0021 01dd | | Execute Vector,First 0022 e001 | | Load 0x0,0x1 0023 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0024 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0025 e002 | | Load 0x0,0x2 0026 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0027 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 0028 0322 | " | Declare_Variable Record 0029 e002 | | Load 0x0,0x2 002a 1b20 | | Execute Package,Field_Read,Field_Number 0x20 002b 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 002c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 002d 02c7 | | Declare_Variable Any 002e 00d8 | | Load_Top At_Offset_0 002f 1c00 | | Execute_Immediate Run_Utility,0x0 0030 e002 | | Load 0x0,0x2 0031 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0032 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0033 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0034 02c7 | | Declare_Variable Any 0035 00d8 | | Load_Top At_Offset_0 0036 1c00 | | Execute_Immediate Run_Utility,0x0 0037 e012 | | Load 0x0,0x12 0038 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0039 02c7 | | Declare_Variable Any 003a 00d8 | | Load_Top At_Offset_0 003b 1c00 | | Execute_Immediate Run_Utility,0x0 003c 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call 003e 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 0040 BODY_0008: 0040 e402 | | Load 0x2,0x2 0041 701b |p | Jump_Nonzero 0x5d 0042 4800 |H | Short_Literal 0x0 0043 4800 |H | Short_Literal 0x0 0044 4807 |H | Short_Literal 0x7 0045 0092 0142 | B| Action Push_String_Extended,0x142 ; "Unable to determine USING_CIS for " 0047 e5ff | | Load 0x2,-0x1 0048 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0049 e28d | | Load 0x1,0x8d 004a 01d7 | | Execute Vector,Field_Read 004b 0217 | | Execute Heap_Access,All_Reference 004c 01cc | | Execute Vector,Catenate 004d 0092 0143 | C| Action Push_String_Extended,0x143 ; " requirement \x22" 004f 01cc | | Execute Vector,Catenate 0050 e5ff | | Load 0x2,-0x1 0051 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0052 0217 | | Execute Heap_Access,All_Reference 0053 01cc | | Execute Vector,Catenate 0054 0092 0144 | D| Action Push_String_Extended,0x144 ; "\x22 because USAGE_KEYWORD has not been specified" 0056 01cc | | Execute Vector,Catenate 0057 0092 0145 | E| Action Push_String_Extended,0x145 ; "INTERNAL_ERROR" 0059 829b | | Call 0x1,0x9b 005a e001 | | Load 0x0,0x1 005b 181d | | Execute Package,Field_Execute,Field_Number 0x1d 005c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 005d 00cf | | Action Mark_Auxiliary 005e e404 | | Load 0x2,0x4 005f 01d9 | | Execute Vector,Reverse_Bounds 0060 0263 | c | Execute Discrete,Above_Bound 0061 701f |p | Jump_Nonzero 0x81 0062 00d8 | | Load_Top At_Offset_0 0063 e404 | | Load 0x2,0x4 0064 01d5 | | Execute Vector,Field_Reference 0065 e001 | | Load 0x0,0x1 0066 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0067 e407 | | Load 0x2,0x7 0068 017d | } | Execute Record,Structure_Write 0069 e40a | | Load 0x2,0xa 006a e409 | | Load 0x2,0x9 006b 0120 | | Execute Any,Is_Value 006c 6805 |h | Jump_Zero 0x72 006d e002 | | Load 0x0,0x2 006e 1b20 | | Execute Package,Field_Read,Field_Number 0x20 006f 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0070 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0071 7801 |x | Jump 0x73 0072 e409 | | Load 0x2,0x9 0073 e407 | | Load 0x2,0x7 0074 e402 | | Load 0x2,0x2 0075 82bd | | Call 0x1,0xbd 0076 c409 | | Store 0x2,0x9 0077 c40a | | Store 0x2,0xa 0078 e40a | | Load 0x2,0xa 0079 82a6 | | Call 0x1,0xa6 007a c40a | | Store 0x2,0xa 007b 00d8 | | Load_Top At_Offset_0 007c 840b | | Call 0x2,0xb 007d 7001 |p | Jump_Nonzero 0x7f 007e 840c | | Call 0x2,0xc 007f 00c8 | | Action Pop_Auxiliary_Range 0080 3fe1 |? | Loop_Increasing 0x62 0081 00ce | | Action Pop_Auxiliary 0082 e406 | | Load 0x2,0x6 0083 e405 | | Load 0x2,0x5 0084 01dd | | Execute Vector,First 0085 027d | } | Execute Discrete,Greater 0086 680a |h | Jump_Zero 0x91 0087 e405 | | Load 0x2,0x5 0088 01dd | | Execute Vector,First 0089 e406 | | Load 0x2,0x6 008a 0aff | | Execute_Immediate Plus,-0x1 008b e405 | | Load 0x2,0x5 008c 01cf | | Execute Vector,Slice_Read 008d e001 | | Load 0x0,0x1 008e 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 008f 01c6 | | Execute Vector,Convert_To_Formal 0090 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0091 e001 | | Load 0x0,0x1 0092 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0093 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0094 TRAP_0008: 0094 e022 | " | Load 0x0,0x22 0095 010f | | Execute Exception,Equal 0096 6811 |h | Jump_Zero 0xa8 0097 4800 |H | Short_Literal 0x0 0098 4800 |H | Short_Literal 0x0 0099 4806 |H | Short_Literal 0x6 009a e40a | | Load 0x2,0xa 009b 0092 0146 | F| Action Push_String_Extended,0x146 ; "Unable to find Using CIs for the \x22" 009d e403 | | Load 0x2,0x3 009e 01cc | | Execute Vector,Catenate 009f 0092 0147 | G| Action Push_String_Extended,0x147 ; "\x22 requirement." 00a1 01cc | | Execute Vector,Catenate 00a2 00ea | | Load_Encached Null_String_Cache 00a3 e012 | | Load 0x0,0x12 00a4 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00a5 e001 | | Load 0x0,0x1 00a6 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00a7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00a8 0100 | | Execute Exception,Raise 00a9 0000 0000 | | .BLANK 0000[0x7] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 00cf | | Action Mark_Auxiliary 00b4 784b |xK | Jump 0x100 00b5 e409 | | Load 0x2,0x9 00b6 e002 | | Load 0x0,0x2 00b7 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00b8 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00b9 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 00ba e002 | | Load 0x0,0x2 00bb 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00bc 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00bd 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00be 4608 |F | Jump_Case 0x9 00bf 7808 |x | Jump 0xc8 ; case 0x0 00c0 7818 |x | Jump 0xd9 ; case 0x1 00c1 7806 |x | Jump 0xc8 ; case 0x2 00c2 7816 |x | Jump 0xd9 ; case 0x3 00c3 780a |x | Jump 0xce ; case 0x4 00c4 7803 |x | Jump 0xc8 ; case 0x5 00c5 7802 |x | Jump 0xc8 ; case 0x6 00c6 7801 |x | Jump 0xc8 ; case 0x7 00c7 7800 |x | Jump 0xc8 ; case 0x8 00c8 e002 | | Load 0x0,0x2 00c9 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00ca 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00cb 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00cc c408 | | Store 0x2,0x8 00cd 7811 |x | Jump 0xdf 00ce e409 | | Load 0x2,0x9 00cf e002 | | Load 0x0,0x2 00d0 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00d1 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00d2 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 00d3 e002 | | Load 0x0,0x2 00d4 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00d5 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00d6 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00d7 c408 | | Store 0x2,0x8 00d8 7806 |x | Jump 0xdf 00d9 e409 | | Load 0x2,0x9 00da e002 | | Load 0x0,0x2 00db 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00dc 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00dd 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 00de c408 | | Store 0x2,0x8 00df e408 | | Load 0x2,0x8 00e0 e002 | | Load 0x0,0x2 00e1 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00e2 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00e3 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00e4 7014 |p | Jump_Nonzero 0xf9 00e5 e408 | | Load 0x2,0x8 00e6 e002 | | Load 0x0,0x2 00e7 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00e8 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00e9 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00ea 823d | = | Call 0x1,0x3d 00eb e403 | | Load 0x2,0x3 00ec 01df | | Execute Vector,Equal 00ed 680b |h | Jump_Zero 0xf9 00ee 00db | | Load_Top At_Offset_3 00ef e404 | | Load 0x2,0x4 00f0 01d5 | | Execute Vector,Field_Reference 00f1 e406 | | Load 0x2,0x6 00f2 e405 | | Load 0x2,0x5 00f3 01d6 | | Execute Vector,Field_Write 00f4 e406 | | Load 0x2,0x6 00f5 0a01 | | Execute_Immediate Plus,0x1 00f6 c406 | | Store 0x2,0x6 00f7 4801 |H | Short_Literal 0x1 00f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f9 e409 | | Load 0x2,0x9 00fa e002 | | Load 0x0,0x2 00fb 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00fc 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00fd 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 00fe c409 | | Store 0x2,0x9 00ff 00c9 | | Action Pop_Auxiliary_Loop 0100 e409 | | Load 0x2,0x9 0101 e002 | | Load 0x0,0x2 0102 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0103 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0104 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0105 6faf |o | Jump_Zero 0xb5 0106 00ce | | Action Pop_Auxiliary 0107 4800 |H | Short_Literal 0x0 0108 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0109 0000 0000 | | .BLANK 0000[0x7] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 011c | | .CONST 0x011c ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0002 | | .CONST 0x0002 ; Number of locals 0113 INIT_0110: 0113 4801 |H | Short_Literal 0x1 0114 e40f | | Load 0x2,0xf 0115 e404 | | Load 0x2,0x4 0116 01d5 | | Execute Vector,Field_Reference 0117 4800 |H | Short_Literal 0x0 0118 4807 |H | Short_Literal 0x7 0119 e5fe | | Load 0x2,-0x2 011a e001 | | Load 0x0,0x1 011b 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 011c BODY_0110: 011c 00cf | | Action Mark_Auxiliary 011d 00d9 | | Load_Top At_Offset_1 011e 01d9 | | Execute Vector,Reverse_Bounds 011f 0263 | c | Execute Discrete,Above_Bound 0120 7020 |p | Jump_Nonzero 0x141 0121 00d8 | | Load_Top At_Offset_0 0122 e602 | | Load 0x3,0x2 0123 01d5 | | Execute Vector,Field_Reference 0124 e001 | | Load 0x0,0x1 0125 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0126 e407 | | Load 0x2,0x7 0127 017d | } | Execute Record,Structure_Write 0128 e40a | | Load 0x2,0xa 0129 e409 | | Load 0x2,0x9 012a 0120 | | Execute Any,Is_Value 012b 6805 |h | Jump_Zero 0x131 012c e002 | | Load 0x0,0x2 012d 1b20 | | Execute Package,Field_Read,Field_Number 0x20 012e 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 012f 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0130 7801 |x | Jump 0x132 0131 e409 | | Load 0x2,0x9 0132 e407 | | Load 0x2,0x7 0133 e402 | | Load 0x2,0x2 0134 82bd | | Call 0x1,0xbd 0135 c409 | | Store 0x2,0x9 0136 c40a | | Store 0x2,0xa 0137 e40a | | Load 0x2,0xa 0138 82a6 | | Call 0x1,0xa6 0139 c40a | | Store 0x2,0xa 013a e40f | | Load 0x2,0xf 013b 840b | | Call 0x2,0xb 013c 6802 |h | Jump_Zero 0x13f 013d 00d2 | | Pop_Control Pop_Count_2 013e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 013f 00c8 | | Action Pop_Auxiliary_Range 0140 3fe0 |? | Loop_Increasing 0x121 0141 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0142 ; -------------------------------------------------------------------------------------- 0142 ; STRING TABLE 0142 ; -------------------------------------------------------------------------------------- 0142 000e | | .STRTAB 0x000e->0x0149 ; "Unable to determine USING_CIS for " 0143 002e | . | .STRTAB 0x002e->0x015a ; " requirement \x22" 0144 003a | : | .STRTAB 0x003a->0x0161 ; "\x22 because USAGE_KEYWORD has not been specified" 0145 0066 | f | .STRTAB 0x0066->0x0178 ; "INTERNAL_ERROR" 0146 0072 | r | .STRTAB 0x0072->0x017f ; "Unable to find Using CIs for the \x22" 0147 0092 | | .STRTAB 0x0092->0x0190 ; "\x22 requirement." 0148 009e | | .STREND 0x009e->0x0197 0149 556e 6162 |Unab| .STRTAB_STRINGS 0197 0000 | | .XXX[0x1] 0198 ; -------------------------------------------------------------------------------------- 0198 ; Debug Table 0198 ; -------------------------------------------------------------------------------------- 0198 0004 0012 | | .DEBUG4 0x0004,0x0012,0xc5a8,0x0000,0x0001,0x0000 019e 0000 0000 | | .BLANK 0000[0xf] 01ad 1002 8000 | | .XXX[0xb] 01af 0000 0000 | | 01b1 0020 0000 | | 01b3 0110 0000 | | 01b5 0000 8000 | | 01b7 0005 | | 01b8 0000 0000 | | .BLANK 0000[0x48]