|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0340e4
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0168 | h | .CONST 0x0168 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0043 | C | .CONST 0x0043 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0008 | | .CONST 0x0008 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4802 |H | Short_Literal 0x2 000d 029f 012b | +| Declare_Subprogram INIT_0128,For_Call 000f 03fd | | Declare_Type Discrete,Defined 0010 00d8 | | Load_Top At_Offset_0 0011 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0012 00e4 | | Load_Encached Positive_Cache 0013 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0014 e006 | | Load 0x0,0x6 0015 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0016 0322 | " | Declare_Variable Record 0017 4800 |H | Short_Literal 0x0 0018 00d9 | | Load_Top At_Offset_1 0019 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 001a 00d8 | | Load_Top At_Offset_0 001b 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 001c 4801 |H | Short_Literal 0x1 001d 00d9 | | Load_Top At_Offset_1 001e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 001f 4800 |H | Short_Literal 0x0 0020 00d9 | | Load_Top At_Offset_1 0021 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0022 4800 |H | Short_Literal 0x0 0023 00d9 | | Load_Top At_Offset_1 0024 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0025 4800 |H | Short_Literal 0x0 0026 00d9 | | Load_Top At_Offset_1 0027 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0028 4800 |H | Short_Literal 0x0 0029 00d9 | | Load_Top At_Offset_1 002a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 002b 4800 |H | Short_Literal 0x0 002c 00d9 | | Load_Top At_Offset_1 002d 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 002e 4800 |H | Short_Literal 0x0 002f 00d9 | | Load_Top At_Offset_1 0030 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0031 4800 |H | Short_Literal 0x0 0032 00d0 | | Action Swap_Control 0033 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0034 e006 | | Load 0x0,0x6 0035 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0036 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0037 02c7 | | Declare_Variable Any 0038 00d8 | | Load_Top At_Offset_0 0039 1c00 | | Execute_Immediate Run_Utility,0x0 003a e006 | | Load 0x0,0x6 003b 1b17 | | Execute Package,Field_Read,Field_Number 0x17 003c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 003d e213 | | Load 0x1,0x13 003e 0322 | " | Declare_Variable Record 003f e5ff | | Load 0x2,-0x1 0040 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2 0041 00d9 | | Load_Top At_Offset_1 0042 017d | } | Execute Record,Structure_Write 0043 BODY_0008: 0043 00da | | Load_Top At_Offset_2 0044 e006 | | Load 0x0,0x6 0045 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0046 180e | | Execute Package,Field_Execute,Field_Number 0xe 0047 c406 | | Store 0x2,0x6 0048 00cf | | Action Mark_Auxiliary 0049 4800 |H | Short_Literal 0x0 004a 00da | | Load_Top At_Offset_2 004b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 004c 00db | | Load_Top At_Offset_3 004d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 004e e009 | | Load 0x0,0x9 004f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0050 0273 | s | Execute Discrete,Plus 0051 0aff | | Execute_Immediate Plus,-0x1 0052 00d8 | | Load_Top At_Offset_0 0053 00e4 | | Load_Encached Positive_Cache 0054 0260 | ` | Execute Discrete,In_Type 0055 7001 |p | Jump_Nonzero 0x57 0056 0801 | | Execute_Immediate Raise,0x1 0057 00db | | Load_Top At_Offset_3 0058 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0059 e5fe | | Load 0x2,-0x2 005a e006 | | Load 0x0,0x6 005b 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 005c 4800 |H | Short_Literal 0x0 005d 00da | | Load_Top At_Offset_2 005e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 005f 00db | | Load_Top At_Offset_3 0060 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0061 e5fe | | Load 0x2,-0x2 0062 e006 | | Load 0x0,0x6 0063 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0064 4800 |H | Short_Literal 0x0 0065 e405 | | Load 0x2,0x5 0066 00db | | Load_Top At_Offset_3 0067 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0068 e009 | | Load 0x0,0x9 0069 1816 | | Execute Package,Field_Execute,Field_Number 0x16 006a e5fe | | Load 0x2,-0x2 006b e006 | | Load 0x0,0x6 006c 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 006d e006 | | Load 0x0,0x6 006e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 006f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0070 e406 | | Load 0x2,0x6 0071 e006 | | Load 0x0,0x6 0072 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0073 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0074 005b | [ | Store_Top Discrete,At_Offset_3 0075 4800 |H | Short_Literal 0x0 0076 00da | | Load_Top At_Offset_2 0077 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0078 00db | | Load_Top At_Offset_3 0079 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 007a e5fe | | Load 0x2,-0x2 007b e006 | | Load 0x0,0x6 007c 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 007d 4800 |H | Short_Literal 0x0 007e e006 | | Load 0x0,0x6 007f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0080 00db | | Load_Top At_Offset_3 0081 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0082 e009 | | Load 0x0,0x9 0083 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0084 e5fe | | Load 0x2,-0x2 0085 e006 | | Load 0x0,0x6 0086 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0087 00da | | Load_Top At_Offset_2 0088 e00e | | Load 0x0,0xe 0089 1b16 | | Execute Package,Field_Read,Field_Number 0x16 008a 027f | | Execute Discrete,Equal 008b 6807 |h | Jump_Zero 0x93 008c 4800 |H | Short_Literal 0x0 008d a403 | | Store_Unchecked 0x2,0x3 008e e5ff | | Load 0x2,-0x1 008f 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2 0090 00da | | Load_Top At_Offset_2 0091 017d | } | Execute Record,Structure_Write 0092 7889 |x | Jump 0x11c 0093 00da | | Load_Top At_Offset_2 0094 e00e | | Load 0x0,0xe 0095 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0096 027f | | Execute Discrete,Equal 0097 6807 |h | Jump_Zero 0x9f 0098 4800 |H | Short_Literal 0x0 0099 a403 | | Store_Unchecked 0x2,0x3 009a e5ff | | Load 0x2,-0x1 009b 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3 009c 00da | | Load_Top At_Offset_2 009d 017d | } | Execute Record,Structure_Write 009e 787d |x} | Jump 0x11c 009f 00da | | Load_Top At_Offset_2 00a0 e00e | | Load 0x0,0xe 00a1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00a2 027f | | Execute Discrete,Equal 00a3 6836 |h6 | Jump_Zero 0xda 00a4 e403 | | Load 0x2,0x3 00a5 4602 |F | Jump_Case 0x3 00a6 7823 |x# | Jump 0xca ; case 0x0 00a7 7815 |x | Jump 0xbd ; case 0x1 00a8 7800 |x | Jump 0xa9 ; case 0x2 00a9 e404 | | Load 0x2,0x4 00aa 0f01 | | Execute_Immediate Equal,0x1 00ab 6807 |h | Jump_Zero 0xb3 00ac e5ff | | Load 0x2,-0x1 00ad 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2 00ae 00da | | Load_Top At_Offset_2 00af 017d | } | Execute Record,Structure_Write 00b0 4800 |H | Short_Literal 0x0 00b1 a403 | | Store_Unchecked 0x2,0x3 00b2 7869 |xi | Jump 0x11c 00b3 e404 | | Load 0x2,0x4 00b4 0aff | | Execute_Immediate Plus,-0x1 00b5 c404 | | Store 0x2,0x4 00b6 e404 | | Load 0x2,0x4 00b7 e5ff | | Load 0x2,-0x1 00b8 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 00b9 01d5 | | Execute Vector,Field_Reference 00ba 00da | | Load_Top At_Offset_2 00bb 017d | } | Execute Record,Structure_Write 00bc 785f |x_ | Jump 0x11c 00bd e404 | | Load 0x2,0x4 00be 0c02 | | Execute_Immediate Greater_Equal,0x2 00bf 685c |h\ | Jump_Zero 0x11c 00c0 e404 | | Load 0x2,0x4 00c1 0aff | | Execute_Immediate Plus,-0x1 00c2 c404 | | Store 0x2,0x4 00c3 e404 | | Load 0x2,0x4 00c4 e5ff | | Load 0x2,-0x1 00c5 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 00c6 01d5 | | Execute Vector,Field_Reference 00c7 00da | | Load_Top At_Offset_2 00c8 017d | } | Execute Record,Structure_Write 00c9 7852 |xR | Jump 0x11c 00ca e5ff | | Load 0x2,-0x1 00cb 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 00cc 0c01 | | Execute_Immediate Greater_Equal,0x1 00cd 684e |hN | Jump_Zero 0x11c 00ce 4801 |H | Short_Literal 0x1 00cf a403 | | Store_Unchecked 0x2,0x3 00d0 e5ff | | Load 0x2,-0x1 00d1 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 00d2 c404 | | Store 0x2,0x4 00d3 e404 | | Load 0x2,0x4 00d4 e5ff | | Load 0x2,-0x1 00d5 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 00d6 01d5 | | Execute Vector,Field_Reference 00d7 00da | | Load_Top At_Offset_2 00d8 017d | } | Execute Record,Structure_Write 00d9 7842 |xB | Jump 0x11c 00da 00da | | Load_Top At_Offset_2 00db e00e | | Load 0x0,0xe 00dc 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00dd 027f | | Execute Discrete,Equal 00de 6837 |h7 | Jump_Zero 0x116 00df e403 | | Load 0x2,0x3 00e0 4602 |F | Jump_Case 0x3 00e1 7825 |x% | Jump 0x107 ; case 0x0 00e2 7810 |x | Jump 0xf3 ; case 0x1 00e3 7800 |x | Jump 0xe4 ; case 0x2 00e4 e404 | | Load 0x2,0x4 00e5 e5ff | | Load 0x2,-0x1 00e6 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 00e7 027c | | | Execute Discrete,Less 00e8 6833 |h3 | Jump_Zero 0x11c 00e9 e404 | | Load 0x2,0x4 00ea 0a01 | | Execute_Immediate Plus,0x1 00eb c404 | | Store 0x2,0x4 00ec e404 | | Load 0x2,0x4 00ed e5ff | | Load 0x2,-0x1 00ee 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 00ef 01d5 | | Execute Vector,Field_Reference 00f0 00da | | Load_Top At_Offset_2 00f1 017d | } | Execute Record,Structure_Write 00f2 7829 |x) | Jump 0x11c 00f3 e404 | | Load 0x2,0x4 00f4 0f01 | | Execute_Immediate Equal,0x1 00f5 6807 |h | Jump_Zero 0xfd 00f6 4800 |H | Short_Literal 0x0 00f7 a403 | | Store_Unchecked 0x2,0x3 00f8 e5ff | | Load 0x2,-0x1 00f9 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2 00fa 00da | | Load_Top At_Offset_2 00fb 017d | } | Execute Record,Structure_Write 00fc 781f |x | Jump 0x11c 00fd e404 | | Load 0x2,0x4 00fe 0a01 | | Execute_Immediate Plus,0x1 00ff c404 | | Store 0x2,0x4 0100 e404 | | Load 0x2,0x4 0101 e5ff | | Load 0x2,-0x1 0102 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 0103 01d5 | | Execute Vector,Field_Reference 0104 00da | | Load_Top At_Offset_2 0105 017d | } | Execute Record,Structure_Write 0106 7815 |x | Jump 0x11c 0107 e5ff | | Load 0x2,-0x1 0108 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 0109 0c01 | | Execute_Immediate Greater_Equal,0x1 010a 6811 |h | Jump_Zero 0x11c 010b 4802 |H | Short_Literal 0x2 010c a403 | | Store_Unchecked 0x2,0x3 010d 4801 |H | Short_Literal 0x1 010e a404 | | Store_Unchecked 0x2,0x4 010f 4801 |H | Short_Literal 0x1 0110 e5ff | | Load 0x2,-0x1 0111 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 0112 01d5 | | Execute Vector,Field_Reference 0113 00da | | Load_Top At_Offset_2 0114 017d | } | Execute Record,Structure_Write 0115 7806 |x | Jump 0x11c 0116 00da | | Load_Top At_Offset_2 0117 e00e | | Load 0x0,0xe 0118 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0119 027f | | Execute Discrete,Equal 011a 6801 |h | Jump_Zero 0x11c 011b 7802 |x | Jump 0x11e 011c 00c9 | | Action Pop_Auxiliary_Loop 011d 7f2b | + | Jump 0x49 011e 00ce | | Action Pop_Auxiliary 011f 00da | | Load_Top At_Offset_2 0120 4800 |H | Short_Literal 0x0 0121 e006 | | Load 0x0,0x6 0122 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0123 180f | | Execute Package,Field_Execute,Field_Number 0xf 0124 c406 | | Store 0x2,0x6 0125 00d8 | | Load_Top At_Offset_0 0126 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0127 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b 4607 |F | Jump_Case 0x8 012c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 012d 7806 |x | Jump 0x134 ; case 0x1 012e 7809 |x | Jump 0x138 ; case 0x2 012f 780d |x | Jump 0x13d ; case 0x3 0130 7810 |x | Jump 0x141 ; case 0x4 0131 7811 |x | Jump 0x143 ; case 0x5 0132 7812 |x | Jump 0x145 ; case 0x6 0133 7815 |x | Jump 0x149 ; case 0x7 0134 00da | | Load_Top At_Offset_2 0135 0091 014d | M| Action Push_String_Extended_Indexed,0x14d ; "ELEMENT_ROW" 0137 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0138 00db | | Load_Top At_Offset_3 0139 00db | | Load_Top At_Offset_3 013a 00e0 | | Load_Encached Standard_Cache 013b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 013c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 013d 00da | | Load_Top At_Offset_2 013e 00e0 | | Load_Encached Standard_Cache 013f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0140 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0141 00db | | Load_Top At_Offset_3 0142 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0143 00db | | Load_Top At_Offset_3 0144 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0145 e402 | | Load 0x2,0x2 0146 00dc | | Load_Top At_Offset_4 0147 0267 | g | Execute Discrete,Predecessor 0148 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0149 e402 | | Load 0x2,0x2 014a 00dc | | Load_Top At_Offset_4 014b 0268 | h | Execute Discrete,Successor 014c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 014d ; -------------------------------------------------------------------------------------- 014d ; STRING TABLE 014d ; -------------------------------------------------------------------------------------- 014d 0008 | | .STRTAB 0x0008->0x0151 ; "ELEMENT_ROW" 014e 0011 | | .STRTAB 0x0011->0x0156 ; "PARENTS_ROW" 014f 001a | | .STRTAB 0x001a->0x015c ; "CHILDREN_ROW" 0150 0024 | $ | .STREND 0x0024->0x0162 0151 454c 454d |ELEM| .STRTAB_STRINGS 0162 0000 0000 | | .BLANK 0000[0x6] 0168 ; -------------------------------------------------------------------------------------- 0168 ; Debug Table 0168 ; -------------------------------------------------------------------------------------- 0168 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2ee2,0x0000,0x0001,0x0002 016e 000b 0176 | v| .DBG4T 0x000b,0x0176,0x0002,0xc000 0172 012b 0000 | + | .DBG4T 0x012b,0x0000,0x0005,0x0000 0176 ; -------------------------------------------------------------------------------------- 0176 ; Debug chain 0176 ; -------------------------------------------------------------------------------------- 0176 0007 002d | -| .DBGLEN 0x0007,0x002d 0178 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012,0x0014,0x0034,0x003a,0x003d,0x0043,0x0049,0x005c,0x0064,0x006d,0x0075,0x007d,0x0087,0x008c,0x008e,0x0093,0x0098,0x009a,0x009f,0x00a4,0x00a9,0x00ac,0x00b0,0x00b3,0x00b6,0x00bd,0x00c0,0x00c3,0x00ca,0x00ce,0x00d0,0x00d3,0x00da,0x00df,0x00e4,0x00e9,0x00ec,0x00f3,0x00f6,0x00f8,0x00fd,0x0100,0x0107,0x010b,0x010d,0x010f,0x0116,0x011b,0x011f,0x0125 01ac 0002 0003 | | .XXX[0x34] 01ae 0004 0005 | | 01b0 0006 0007 | | 01b2 0008 0001 | | 01b4 0003 0004 | | 01b6 0005 0006 | | 01b8 0007 0008 | | 01ba 0009 000a | | 01bc 000b 000c | | 01be 000d 000e | | 01c0 000f 0010 | | 01c2 0018 0019 | | 01c4 001a 001b | | 01c6 001c 0011 | | 01c8 0012 0013 | | 01ca 0014 0015 | | 01cc 0016 0017 | | 01ce 001d 001e | | 01d0 0028 0029 | ( )| 01d2 002a 001f | * | 01d4 0020 0021 | !| 01d6 0022 0023 | " #| 01d8 0024 0025 | $ %| 01da 0026 0027 | & '| 01dc 002b 002c | + ,| 01de 002d 002e | - .| 01e0 0000 0000 | | .BLANK 0000[0x20]