|
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 01a0 | | .CONST 0x01a0 ; 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 0033 | 3 | .CONST 0x0033 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0018 | | .CONST 0x0018 ; Number of locals 000b INIT_0008: 000b 00e7 | | Load_Encached Duration_Cache 000c 00e7 | | Load_Encached Duration_Cache 000d 02a0 | | Declare_Subprogram Null_Subprogram 000e 4802 |H | Short_Literal 0x2 000f 032e | . | Declare_Type Record,Defined,Visible 0010 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 0012 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 0014 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0016 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0018 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 001a 00bf | | Action Accept_Activation 001b e002 | | Load 0x0,0x2 001c e003 | | Load 0x0,0x3 001d 00e7 | | Load_Encached Duration_Cache 001e e004 | | Load 0x0,0x4 001f 1b7a | z | Execute Package,Field_Read,Field_Number 0x7a 0020 0387 | | Declare_Variable Package 0021 00d8 | | Load_Top At_Offset_0 0022 020f | | Execute Module,Activate 0023 00e7 | | Load_Encached Duration_Cache 0024 03e9 | | Declare_Variable Discrete,Duplicate 0025 03e9 | | Declare_Variable Discrete,Duplicate 0026 03e9 | | Declare_Variable Discrete,Duplicate 0027 029d 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call 0029 1d0e | | Execute_Immediate Reference_Lex_1,0xe 002a 00c7 | | Action Elaborate_Subprogram 002b 1d0f | | Execute_Immediate Reference_Lex_1,0xf 002c 00c7 | | Action Elaborate_Subprogram 002d 1d10 | | Execute_Immediate Reference_Lex_1,0x10 002e 00c7 | | Action Elaborate_Subprogram 002f 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0030 00c7 | | Action Elaborate_Subprogram 0031 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0032 00c7 | | Action Elaborate_Subprogram 0033 BODY_0008: 0033 00bc | | Action Signal_Activated 0034 00bb | | Action Signal_Completion 0035 0000 0000 | | .XXX[0x3] 0037 0000 | | 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003b | ; | .CONST 0x003b ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0001 | | .CONST 0x0001 ; Number of locals 003b BODY_0038: 003b INIT_0038: 003b e005 | | Load 0x0,0x5 003c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 003d e005 | | Load 0x0,0x5 003e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 003f 00d9 | | Load_Top At_Offset_1 0040 00d0 | | Action Swap_Control 0041 0260 | ` | Execute Discrete,In_Type 0042 7001 |p | Jump_Nonzero 0x44 0043 0801 | | Execute_Immediate Raise,0x1 0044 e005 | | Load 0x0,0x5 0045 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0046 a214 | | Store_Unchecked 0x1,0x14 0047 e005 | | Load 0x0,0x5 0048 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0049 e005 | | Load 0x0,0x5 004a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 004b 00d9 | | Load_Top At_Offset_1 004c 00d0 | | Action Swap_Control 004d 0260 | ` | Execute Discrete,In_Type 004e 7001 |p | Jump_Nonzero 0x50 004f 0801 | | Execute_Immediate Raise,0x1 0050 e005 | | Load 0x0,0x5 0051 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0052 a215 | | Store_Unchecked 0x1,0x15 0053 e214 | | Load 0x1,0x14 0054 a216 | | Store_Unchecked 0x1,0x16 0055 e215 | | Load 0x1,0x15 0056 a217 | | Store_Unchecked 0x1,0x17 0057 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 0075 | u | .CONST 0x0075 ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0003 | | .CONST 0x0003 ; Number of locals 005b INIT_0058: 005b e005 | | Load 0x0,0x5 005c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 005d e005 | | Load 0x0,0x5 005e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 005f 00d9 | | Load_Top At_Offset_1 0060 00d0 | | Action Swap_Control 0061 0260 | ` | Execute Discrete,In_Type 0062 7001 |p | Jump_Nonzero 0x64 0063 0801 | | Execute_Immediate Raise,0x1 0064 e005 | | Load 0x0,0x5 0065 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0066 00e7 | | Load_Encached Duration_Cache 0067 03f1 | | Declare_Variable Discrete,With_Value 0068 e005 | | Load 0x0,0x5 0069 1814 | | Execute Package,Field_Execute,Field_Number 0x14 006a e005 | | Load 0x0,0x5 006b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006c 00d9 | | Load_Top At_Offset_1 006d 00d0 | | Action Swap_Control 006e 0260 | ` | Execute Discrete,In_Type 006f 7001 |p | Jump_Nonzero 0x71 0070 0801 | | Execute_Immediate Raise,0x1 0071 e005 | | Load 0x0,0x5 0072 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0073 00e7 | | Load_Encached Duration_Cache 0074 03f1 | | Declare_Variable Discrete,With_Value 0075 BODY_0058: 0075 e006 | | Load 0x0,0x6 0076 180e | | Execute Package,Field_Execute,Field_Number 0xe 0077 4801 |H | Short_Literal 0x1 0078 0092 017f | | Action Push_String_Extended,0x17f ; "DELTA - " 007a e5ff | | Load 0x2,-0x1 007b 01cc | | Execute Vector,Catenate 007c 00db | | Load_Top At_Offset_3 007d e217 | | Load 0x1,0x17 007e 0272 | r | Execute Discrete,Minus 007f 00d8 | | Load_Top At_Offset_0 0080 00e7 | | Load_Encached Duration_Cache 0081 0260 | ` | Execute Discrete,In_Type 0082 7001 |p | Jump_Nonzero 0x84 0083 0801 | | Execute_Immediate Raise,0x1 0084 e402 | | Load 0x2,0x2 0085 e216 | | Load 0x1,0x16 0086 0272 | r | Execute Discrete,Minus 0087 00d8 | | Load_Top At_Offset_0 0088 00e7 | | Load_Encached Duration_Cache 0089 0260 | ` | Execute Discrete,In_Type 008a 7001 |p | Jump_Nonzero 0x8c 008b 0801 | | Execute_Immediate Raise,0x1 008c 8218 | | Call 0x1,0x18 008d 01cc | | Execute Vector,Catenate 008e e007 | | Load 0x0,0x7 008f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0090 00d9 | | Load_Top At_Offset_1 0091 a216 | | Store_Unchecked 0x1,0x16 0092 00d8 | | Load_Top At_Offset_0 0093 a217 | | Store_Unchecked 0x1,0x17 0094 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0095 0000 0000 | | .XXX[0x3] 0097 0000 | | 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 e006 | | Load 0x0,0x6 009c 180e | | Execute Package,Field_Execute,Field_Number 0xe 009d 4801 |H | Short_Literal 0x1 009e 0092 0180 | | Action Push_String_Extended,0x180 ; "TIMING TOTALS -" 00a0 e005 | | Load 0x0,0x5 00a1 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00a2 e005 | | Load 0x0,0x5 00a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a4 00d9 | | Load_Top At_Offset_1 00a5 00d0 | | Action Swap_Control 00a6 0260 | ` | Execute Discrete,In_Type 00a7 7001 |p | Jump_Nonzero 0xa9 00a8 0801 | | Execute_Immediate Raise,0x1 00a9 e005 | | Load 0x0,0x5 00aa 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00ab e215 | | Load 0x1,0x15 00ac 0272 | r | Execute Discrete,Minus 00ad 00d8 | | Load_Top At_Offset_0 00ae 00e7 | | Load_Encached Duration_Cache 00af 0260 | ` | Execute Discrete,In_Type 00b0 7001 |p | Jump_Nonzero 0xb2 00b1 0801 | | Execute_Immediate Raise,0x1 00b2 e005 | | Load 0x0,0x5 00b3 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00b4 e005 | | Load 0x0,0x5 00b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b6 00d9 | | Load_Top At_Offset_1 00b7 00d0 | | Action Swap_Control 00b8 0260 | ` | Execute Discrete,In_Type 00b9 7001 |p | Jump_Nonzero 0xbb 00ba 0801 | | Execute_Immediate Raise,0x1 00bb e005 | | Load 0x0,0x5 00bc 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00bd e214 | | Load 0x1,0x14 00be 0272 | r | Execute Discrete,Minus 00bf 00d8 | | Load_Top At_Offset_0 00c0 00e7 | | Load_Encached Duration_Cache 00c1 0260 | ` | Execute Discrete,In_Type 00c2 7001 |p | Jump_Nonzero 0xc4 00c3 0801 | | Execute_Immediate Raise,0x1 00c4 8218 | | Call 0x1,0x18 00c5 01cc | | Execute Vector,Catenate 00c6 e007 | | Load 0x0,0x7 00c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00c9 0000 0000 | | .BLANK 0000[0x7] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 e20d | | Load 0x1,0xd 00d4 0322 | " | Declare_Variable Record 00d5 e005 | | Load 0x0,0x5 00d6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00d7 e005 | | Load 0x0,0x5 00d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d9 00d9 | | Load_Top At_Offset_1 00da 00d0 | | Action Swap_Control 00db 0260 | ` | Execute Discrete,In_Type 00dc 7001 |p | Jump_Nonzero 0xde 00dd 0801 | | Execute_Immediate Raise,0x1 00de e005 | | Load 0x0,0x5 00df 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00e0 00d9 | | Load_Top At_Offset_1 00e1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00e2 e005 | | Load 0x0,0x5 00e3 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00e4 e005 | | Load 0x0,0x5 00e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e6 00d9 | | Load_Top At_Offset_1 00e7 00d0 | | Action Swap_Control 00e8 0260 | ` | Execute Discrete,In_Type 00e9 7001 |p | Jump_Nonzero 0xeb 00ea 0801 | | Execute_Immediate Raise,0x1 00eb e005 | | Load 0x0,0x5 00ec 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00ed 00d9 | | Load_Top At_Offset_1 00ee 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00ef 00ca | | Action Exit_Nullary_Function 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 e006 | | Load 0x0,0x6 00f4 180e | | Execute Package,Field_Execute,Field_Number 0xe 00f5 4801 |H | Short_Literal 0x1 00f6 0092 0181 | | Action Push_String_Extended,0x181 ; "SPAN - " 00f8 e5ff | | Load 0x2,-0x1 00f9 01cc | | Execute Vector,Catenate 00fa e005 | | Load 0x0,0x5 00fb 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00fc e005 | | Load 0x0,0x5 00fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00fe 00d9 | | Load_Top At_Offset_1 00ff 00d0 | | Action Swap_Control 0100 0260 | ` | Execute Discrete,In_Type 0101 7001 |p | Jump_Nonzero 0x103 0102 0801 | | Execute_Immediate Raise,0x1 0103 e005 | | Load 0x0,0x5 0104 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0105 e5fe | | Load 0x2,-0x2 0106 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0107 0272 | r | Execute Discrete,Minus 0108 00d8 | | Load_Top At_Offset_0 0109 00e7 | | Load_Encached Duration_Cache 010a 0260 | ` | Execute Discrete,In_Type 010b 7001 |p | Jump_Nonzero 0x10d 010c 0801 | | Execute_Immediate Raise,0x1 010d e005 | | Load 0x0,0x5 010e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 010f e005 | | Load 0x0,0x5 0110 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0111 00d9 | | Load_Top At_Offset_1 0112 00d0 | | Action Swap_Control 0113 0260 | ` | Execute Discrete,In_Type 0114 7001 |p | Jump_Nonzero 0x116 0115 0801 | | Execute_Immediate Raise,0x1 0116 e005 | | Load 0x0,0x5 0117 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0118 e5fe | | Load 0x2,-0x2 0119 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 011a 0272 | r | Execute Discrete,Minus 011b 00d8 | | Load_Top At_Offset_0 011c 00e7 | | Load_Encached Duration_Cache 011d 0260 | ` | Execute Discrete,In_Type 011e 7001 |p | Jump_Nonzero 0x120 011f 0801 | | Execute_Immediate Raise,0x1 0120 8218 | | Call 0x1,0x18 0121 01cc | | Execute Vector,Catenate 0122 e007 | | Load 0x0,0x7 0123 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0124 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0125 0000 0000 | | .XXX[0x3] 0127 0000 | | 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012d | - | .CONST 0x012d ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0002 | | .CONST 0x0002 ; Number of locals 012b INIT_0128: 012b 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call 012d BODY_0128: 012d 0092 0182 | | Action Push_String_Extended,0x182 ; " cpu = " 012f e5ff | | Load 0x2,-0x1 0130 8402 | | Call 0x2,0x2 0131 01cc | | Execute Vector,Catenate 0132 0092 0183 | | Action Push_String_Extended,0x183 ; " elapsed = " 0134 01cc | | Execute Vector,Catenate 0135 e5fe | | Load 0x2,-0x2 0136 8402 | | Call 0x2,0x2 0137 01cc | | Execute Vector,Catenate 0138 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0139 0000 0000 | | .BLANK 0000[0x7] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0158 | X | .CONST 0x0158 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0004 | | .CONST 0x0004 ; Number of locals 0143 INIT_0140: 0143 4801 |H | Short_Literal 0x1 0144 4814 |H | Short_Literal 0x14 0145 00e9 | | Load_Encached String_Cache 0146 035b | [ | Declare_Type Array,Constrained 0147 0337 | 7 | Declare_Variable Array 0148 00d8 | | Load_Top At_Offset_0 0149 0335 | 5 | Declare_Variable Array,Duplicate 014a 00cd | | Action Spare6_Action 014b 4814 |H | Short_Literal 0x14 014c 4801 |H | Short_Literal 0x1 014d 4820 |H | Short_Literal 0x20 014e 00d9 | | Load_Top At_Offset_1 014f e603 | | Load 0x3,0x3 0150 01d6 | | Execute Vector,Field_Write 0151 3ffb |? | Loop_Increasing 0x14d 0152 00d9 | | Load_Top At_Offset_1 0153 01d4 | | Execute Vector,Structure_Write 0154 00e3 | | Load_Encached Natural_Cache 0155 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0156 00e3 | | Load_Encached Natural_Cache 0157 0614 | | Execute_Immediate Set_Value_Unchecked,0x14 0158 BODY_0140: 0158 00da | | Load_Top At_Offset_2 0159 e213 | | Load 0x1,0x13 015a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 015b e213 | | Load 0x1,0x13 015c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 015d e7ff | | Load 0x3,-0x1 015e e213 | | Load 0x1,0x13 015f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0160 00d1 | | Pop_Control Pop_Count_1 0161 00cf | | Action Mark_Auxiliary 0162 7804 |x | Jump 0x167 0163 00da | | Load_Top At_Offset_2 0164 0a01 | | Execute_Immediate Plus,0x1 0165 005b | [ | Store_Top Discrete,At_Offset_3 0166 00c9 | | Action Pop_Auxiliary_Loop 0167 00da | | Load_Top At_Offset_2 0168 e602 | | Load 0x3,0x2 0169 01d7 | | Execute Vector,Field_Read 016a 0f20 | | Execute_Immediate Equal,0x20 016b 77f7 |w | Jump_Nonzero 0x163 016c 00c9 | | Action Pop_Auxiliary_Loop 016d 7804 |x | Jump 0x172 016e 00d9 | | Load_Top At_Offset_1 016f 0aff | | Execute_Immediate Plus,-0x1 0170 005a | Z | Store_Top Discrete,At_Offset_2 0171 00c9 | | Action Pop_Auxiliary_Loop 0172 00d9 | | Load_Top At_Offset_1 0173 e602 | | Load 0x3,0x2 0174 01d7 | | Execute Vector,Field_Read 0175 0f20 | | Execute_Immediate Equal,0x20 0176 77f7 |w | Jump_Nonzero 0x16e 0177 00ce | | Action Pop_Auxiliary 0178 00d9 | | Load_Top At_Offset_1 0179 00d9 | | Load_Top At_Offset_1 017a e602 | | Load 0x3,0x2 017b 01cf | | Execute Vector,Slice_Read 017c 00e9 | | Load_Encached String_Cache 017d 01c6 | | Execute Vector,Convert_To_Formal 017e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 017f ; -------------------------------------------------------------------------------------- 017f ; STRING TABLE 017f ; -------------------------------------------------------------------------------------- 017f 000c | | .STRTAB 0x000c->0x0185 ; "DELTA - " 0180 0012 | | .STRTAB 0x0012->0x0189 ; "TIMING TOTALS -" 0181 001f | | .STRTAB 0x001f->0x0190 ; "SPAN - " 0182 0024 | $ | .STRTAB 0x0024->0x0194 ; " cpu = " 0183 0029 | ) | .STRTAB 0x0029->0x0197 ; " elapsed = " 0184 0032 | 2 | .STREND 0x0032->0x019d 0185 4445 4c54 |DELT| .STRTAB_STRINGS 019d 0000 0000 | | .XXX[0x3] 019f 0000 | | 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; Debug Table 01a0 ; -------------------------------------------------------------------------------------- 01a0 0004 000a | | .DEBUG4 0x0004,0x000a,0x4239,0x0000,0x0001,0x0000 01a6 0000 0000 | | .BLANK 0000[0x5a]