|
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_6a18da
└─⟦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 0178 | x | .CONST 0x0178 ; 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 0040 | @ | .CONST 0x0040 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001e | | .CONST 0x001e ; Number of locals 000b INIT_0008: 000b 00e5 | | Load_Encached Long_Integer_Cache 000c 0129 | ) | Execute Any,Make_Visible 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 0011 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 0013 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 0015 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0017 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0019 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 001b 4800 |H | Short_Literal 0x0 001c 0129 | ) | Execute Any,Make_Visible 001d c20e | | Store 0x1,0xe 001e 6045 |`E | Indirect_Literal Discrete,0x64,{0x7fffffff, 0xffffffff} 001f 0129 | ) | Execute Any,Make_Visible 0020 c20f | | Store 0x1,0xf 0021 00bf | | Action Accept_Activation 0022 e20d | | Load 0x1,0xd 0023 0007 | | Action Break_Optional 0024 00e7 | | Load_Encached Duration_Cache 0025 e001 | | Load 0x0,0x1 0026 1919 | | Execute Package,Field_Reference,Field_Number 0x19 0027 0007 | | Action Break_Optional 0028 029d 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call 002a 029d 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call 002c 029d 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call 002e 029d 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call 0030 029d 011b | | Declare_Subprogram INIT_0118,For_Outer_Call 0032 029d 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call 0034 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0035 00c7 | | Action Elaborate_Subprogram 0036 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0037 00c7 | | Action Elaborate_Subprogram 0038 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0039 00c7 | | Action Elaborate_Subprogram 003a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 003b 00c7 | | Action Elaborate_Subprogram 003c 1d14 | | Execute_Immediate Reference_Lex_1,0x14 003d 00c7 | | Action Elaborate_Subprogram 003e 1d15 | | Execute_Immediate Reference_Lex_1,0x15 003f 00c7 | | Action Elaborate_Subprogram 0040 BODY_0008: 0040 8219 | | Call 0x1,0x19 0041 a216 | | Store_Unchecked 0x1,0x16 0042 e216 | | Load 0x1,0x16 0043 090f | | Execute_Immediate Binary_Scale,0xf 0044 00e7 | | Load_Encached Duration_Cache 0045 025e | ^ | Execute Discrete,Convert 0046 a217 | | Store_Unchecked 0x1,0x17 0047 00bc | | Action Signal_Activated 0048 00bb | | Action Signal_Completion 0049 0000 0000 | | .BLANK 0000[0x7] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 00da | | Load_Top At_Offset_2 0054 600b |` | Indirect_Literal Discrete,0x60,{0x00007fff, 0xffffffff} 0055 027f | | Execute Discrete,Equal 0056 6802 |h | Jump_Zero 0x59 0057 600c |` | Indirect_Literal Discrete,0x64,{0x7fffffff, 0xffffffff} 0058 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0059 821a | | Call 0x1,0x1a 005a 00db | | Load_Top At_Offset_3 005b 821e | | Call 0x1,0x1e 005c 0273 | s | Execute Discrete,Plus 005d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 005e 0000 0000 | | .XXX[0x2] 0060 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff} 0064 7fff ffff | | .LITERAL {0x7fffffff, 0xffffffff} 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b 821a | | Call 0x1,0x1a 006c 00ca | | Action Exit_Nullary_Function 006d 0000 0000 | | .XXX[0x3] 006f 0000 | | 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 00da | | Load_Top At_Offset_2 0074 600f |` | Indirect_Literal Discrete,0x84,{0x7fffffff, 0xffffffff} 0075 027f | | Execute Discrete,Equal 0076 6802 |h | Jump_Zero 0x79 0077 6008 |` | Indirect_Literal Discrete,0x80,{0x00007fff, 0xffffffff} 0078 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0079 00da | | Load_Top At_Offset_2 007a 821a | | Call 0x1,0x1a 007b 0272 | r | Execute Discrete,Minus 007c 821b | | Call 0x1,0x1b 007d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 007e 0000 0000 | | .XXX[0x2] 0080 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff} 0084 7fff ffff | | .LITERAL {0x7fffffff, 0xffffffff} 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b 00da | | Load_Top At_Offset_2 008c 67f7 |g | Indirect_Literal Discrete,0x84,{0x7fffffff, 0xffffffff} 008d 027f | | Execute Discrete,Equal 008e 6802 |h | Jump_Zero 0x91 008f 4800 |H | Short_Literal 0x0 0090 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0091 00da | | Load_Top At_Offset_2 0092 821a | | Call 0x1,0x1a 0093 027a | z | Execute Discrete,Less_Equal 0094 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 00da | | Load_Top At_Offset_2 009c e5fe | | Load 0x2,-0x2 009d 027c | | | Execute Discrete,Less 009e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 009f 0000 | | .XXX[0x1] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 4800 |H | Short_Literal 0x0 00a4 4800 |H | Short_Literal 0x0 00a5 4800 |H | Short_Literal 0x0 00a6 e5ff | | Load 0x2,-0x1 00a7 8212 | | Call 0x1,0x12 00a8 e001 | | Load 0x0,0x1 00a9 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00aa 8218 | | Call 0x1,0x18 00ab e002 | | Load 0x0,0x2 00ac 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00ad e002 | | Load 0x0,0x2 00ae 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b5 | | .CONST 0x00b5 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0003 | | .CONST 0x0003 ; Number of locals 00b3 INIT_00b0: 00b3 00e5 | | Load_Encached Long_Integer_Cache 00b4 00e5 | | Load_Encached Long_Integer_Cache 00b5 BODY_00b0: 00b5 e003 | | Load 0x0,0x3 00b6 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00b7 e003 | | Load 0x0,0x3 00b8 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00b9 e003 | | Load 0x0,0x3 00ba 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00bb e003 | | Load 0x0,0x3 00bc 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00bd 005b | [ | Store_Top Discrete,At_Offset_3 00be 005a | Z | Store_Top Discrete,At_Offset_2 00bf 005a | Z | Store_Top Discrete,At_Offset_2 00c0 00d9 | | Load_Top At_Offset_1 00c1 00ca | | Action Exit_Nullary_Function 00c2 0000 0000 | | .BLANK 0000[0x6] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cd | | .CONST 0x00cd ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0003 | | .CONST 0x0003 ; Number of locals 00cb INIT_00c8: 00cb 00e5 | | Load_Encached Long_Integer_Cache 00cc 00e5 | | Load_Encached Long_Integer_Cache 00cd BODY_00c8: 00cd e003 | | Load 0x0,0x3 00ce 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00cf e003 | | Load 0x0,0x3 00d0 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00d1 e003 | | Load 0x0,0x3 00d2 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00d3 e003 | | Load 0x0,0x3 00d4 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00d5 005b | [ | Store_Top Discrete,At_Offset_3 00d6 005b | [ | Store_Top Discrete,At_Offset_3 00d7 0059 | Y | Store_Top Discrete,At_Offset_1 00d8 00d9 | | Load_Top At_Offset_1 00d9 00ca | | Action Exit_Nullary_Function 00da 0000 0000 | | .BLANK 0000[0x6] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 00da | | Load_Top At_Offset_2 00e4 e216 | | Load 0x1,0x16 00e5 0270 | p | Execute Discrete,Divide 00e6 090f | | Execute_Immediate Binary_Scale,0xf 00e7 00e7 | | Load_Encached Duration_Cache 00e8 025e | ^ | Execute Discrete,Convert 00e9 480f |H | Short_Literal 0xf 00ea e5ff | | Load 0x2,-0x1 00eb e216 | | Load 0x1,0x16 00ec 026f | o | Execute Discrete,Remainder 00ed 090f | | Execute_Immediate Binary_Scale,0xf 00ee 00e7 | | Load_Encached Duration_Cache 00ef 025e | ^ | Execute Discrete,Convert 00f0 e217 | | Load 0x1,0x17 00f1 0140 | @ | Execute Discrete,Divide_And_Scale 00f2 00d8 | | Load_Top At_Offset_0 00f3 00e7 | | Load_Encached Duration_Cache 00f4 0260 | ` | Execute Discrete,In_Type 00f5 7001 |p | Jump_Nonzero 0xf7 00f6 0801 | | Execute_Immediate Raise,0x1 00f7 0273 | s | Execute Discrete,Plus 00f8 00d8 | | Load_Top At_Offset_0 00f9 00e7 | | Load_Encached Duration_Cache 00fa 0260 | ` | Execute Discrete,In_Type 00fb 7001 |p | Jump_Nonzero 0xfd 00fc 0801 | | Execute_Immediate Raise,0x1 00fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00fe 0000 0000 | | .XXX[0x2] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 480f |H | Short_Literal 0xf 0104 600b |` | Indirect_Literal Discrete,0x110,{0xffff8000, 0x00000000} 0105 e217 | | Load 0x1,0x17 0106 0140 | @ | Execute Discrete,Divide_And_Scale 0107 00d8 | | Load_Top At_Offset_0 0108 00e7 | | Load_Encached Duration_Cache 0109 0260 | ` | Execute Discrete,In_Type 010a 7001 |p | Jump_Nonzero 0x10c 010b 0801 | | Execute_Immediate Raise,0x1 010c 00ca | | Action Exit_Nullary_Function 010d 0000 0000 | | .XXX[0x3] 010f 0000 | | 0110 ffff 8000 | | .LITERAL {0xffff8000, 0x00000000} 0114 0000 0000 | | .BLANK 0000[0x4] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 480f |H | Short_Literal 0xf 011c 600b |` | Indirect_Literal Discrete,0x128,{0x00007fff, 0xffffffff} 011d e217 | | Load 0x1,0x17 011e 0140 | @ | Execute Discrete,Divide_And_Scale 011f 00d8 | | Load_Top At_Offset_0 0120 00e7 | | Load_Encached Duration_Cache 0121 0260 | ` | Execute Discrete,In_Type 0122 7001 |p | Jump_Nonzero 0x124 0123 0801 | | Execute_Immediate Raise,0x1 0124 00ca | | Action Exit_Nullary_Function 0125 0000 0000 | | .XXX[0x3] 0127 0000 | | 0128 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff} 012c 0000 0000 | | .BLANK 0000[0x4] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0139 | 9 | .CONST 0x0139 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0003 | | .CONST 0x0003 ; Number of locals 0133 INIT_0130: 0133 821c | | Call 0x1,0x1c 0134 821d | | Call 0x1,0x1d 0135 00e7 | | Load_Encached Duration_Cache 0136 03f8 | | Declare_Type Discrete,Constrained 0137 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call 0139 BODY_0130: 0139 e5ff | | Load 0x2,-0x1 013a 00da | | Load_Top At_Offset_2 013b 0260 | ` | Execute Discrete,In_Type 013c 680a |h | Jump_Zero 0x147 013d 4fe2 |O | Short_Literal -0x1e 013e e5ff | | Load 0x2,-0x1 013f e217 | | Load 0x1,0x17 0140 0141 | A | Execute Discrete,Multiply_And_Scale 0141 00d8 | | Load_Top At_Offset_0 0142 e20d | | Load 0x1,0xd 0143 0260 | ` | Execute Discrete,In_Type 0144 7001 |p | Jump_Nonzero 0x146 0145 0801 | | Execute_Immediate Raise,0x1 0146 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0147 8403 | | Call 0x2,0x3 0148 0831 | 1 | Execute_Immediate Raise,0x31 0149 0000 0000 | | .BLANK 0000[0x7] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0155 | U | .CONST 0x0155 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0002 | | .CONST 0x0002 ; Number of locals 0153 INIT_0150: 0153 00e7 | | Load_Encached Duration_Cache 0154 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0155 BODY_0150: 0155 e5ff | | Load 0x2,-0x1 0156 e402 | | Load 0x2,0x2 0157 0269 | i | Execute Discrete,Last 0158 027d | } | Execute Discrete,Greater 0159 6804 |h | Jump_Zero 0x15e 015a e402 | | Load 0x2,0x2 015b 0269 | i | Execute Discrete,Last 015c 0059 | Y | Store_Top Discrete,At_Offset_1 015d 7808 |x | Jump 0x166 015e e5ff | | Load 0x2,-0x1 015f e402 | | Load 0x2,0x2 0160 026a | j | Execute Discrete,First 0161 027c | | | Execute Discrete,Less 0162 6803 |h | Jump_Zero 0x166 0163 e402 | | Load 0x2,0x2 0164 026a | j | Execute Discrete,First 0165 0059 | Y | Store_Top Discrete,At_Offset_1 0166 4fe2 |O | Short_Literal -0x1e 0167 00d9 | | Load_Top At_Offset_1 0168 e217 | | Load 0x1,0x17 0169 0141 | A | Execute Discrete,Multiply_And_Scale 016a 00d8 | | Load_Top At_Offset_0 016b e20d | | Load 0x1,0xd 016c 0260 | ` | Execute Discrete,In_Type 016d 7001 |p | Jump_Nonzero 0x16f 016e 0801 | | Execute_Immediate Raise,0x1 016f 00cb | | Action Pop_Block_With_Result 0170 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0171 0000 0000 | | .BLANK 0000[0x7] 0178 ; -------------------------------------------------------------------------------------- 0178 ; Debug Table 0178 ; -------------------------------------------------------------------------------------- 0178 0004 000e | | .DEBUG4 0x0004,0x000e,0xf461,0x0000,0x0001,0x0000 017e 3bd8 7000 |; p | .XXX[0x82] 0180 0000 1000 | | 0182 0fea e008 | | 0184 077b 0e00 | { | 0186 0000 0200 | | 0188 01fe 2201 | " | 018a 00f1 eb00 | | 018c 13de 3000 | 0 | 018e 0000 0000 | | 0190 9c88 8040 | @| 0192 3caa 3004 |< 0 | 0194 e538 0201 | 8 | 0196 e690 0027 | '| 0198 3160 100f |1` | 019a 3e74 0139 |>t 9| 019c c800 807a | z| 019e 5320 0000 |S | 01a0 0004 03ca | | 01a2 a300 0000 | | 01a4 0200 0000 | | 01a6 0000 8079 | y| 01a8 547f ffff |T | 01aa ffe0 0000 | | 01ac 0000 100f | | 01ae 3480 0000 |4 | 01b0 0008 0004 | | 01b2 29dc 0201 |) | 01b4 e690 7fff | | 01b6 ffff 0000 | | 01b8 856d 0040 | m @| 01ba 3cf9 d000 |< | 01bc 0000 2000 | | 01be 10b3 d008 | | 01c0 079f 3bff | ; | 01c2 ffff fa00 | | 01c4 0217 4001 | @ | 01c6 00f4 a640 | @| 01c8 0000 0080 | | 01ca 0000 0000 | | 01cc 201e 94cf | | 01ce ffff ffe0 | | 01d0 0000 0000 | | 01d2 0403 c850 | P| 01d4 0000 0004 | | 01d6 0001 27b0 | ' | 01d8 0080 790a | y | 01da 0000 0000 | | 01dc 0000 2502 | % | 01de 6010 0f65 |` e| 01e0 8801 422c | B,| 01e2 0000 0000 | | 01e4 0009 f2e8 | | 01e6 0403 dc59 | Y| 01e8 004f a680 | O | 01ea 201e f6b0 | | 01ec 027d ae01 | } | 01ee 00f8 7480 | t | 01f0 0000 0008 | | 01f2 07b8 b200 | | 01f4 0000 0400 | | 01f6 01d5 2001 | | 01f8 00f7 167f | | 01fa ffff ffc0 | | 01fc 003a bcc0 | : | 01fe 201e f6b0 | |