|
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_0534f8
└─⟦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 0070 | p | .CONST 0x0070 ; 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 0020 | | .CONST 0x0020 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; Number of locals 000b INIT_0008: 000b 00e3 | | Load_Encached Natural_Cache 000c 00e3 | | Load_Encached Natural_Cache 000d 00e9 | | Load_Encached String_Cache 000e 029f 002b | +| Declare_Subprogram INIT_0028,For_Call 0010 4800 |H | Short_Literal 0x0 0011 4801 |H | Short_Literal 0x1 0012 4801 |H | Short_Literal 0x1 0013 4800 |H | Short_Literal 0x0 0014 4801 |H | Short_Literal 0x1 0015 4801 |H | Short_Literal 0x1 0016 031e | | Declare_Type Variant_Record,Defined,Visible 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00db | | Load_Top At_Offset_3 001b 02a0 | | Declare_Subprogram Null_Subprogram 001c 481a |H | Short_Literal 0x1a 001d 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 001e c210 | | Store 0x1,0x10 001f 00bf | | Action Accept_Activation 0020 BODY_0008: 0020 00bc | | Action Signal_Activated 0021 00bb | | Action Signal_Completion 0022 0000 0000 | | .BLANK 0000[0x6] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 002b | + | .CONST 0x002b ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0001 | | .CONST 0x0001 ; Number of locals 002b BODY_0028: 002b INIT_0028: 002b 4608 |F | Jump_Case 0x9 002c 7808 |x | Jump 0x35 ; case 0x0 002d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 002e 783c |x< | Jump 0x6b ; case 0x2 002f 783b |x; | Jump 0x6b ; case 0x3 0030 783a |x: | Jump 0x6b ; case 0x4 0031 7839 |x9 | Jump 0x6b ; case 0x5 0032 7838 |x8 | Jump 0x6b ; case 0x6 0033 7824 |x$ | Jump 0x58 ; case 0x7 0034 782c |x, | Jump 0x61 ; case 0x8 0035 4800 |H | Short_Literal 0x0 0036 00db | | Load_Top At_Offset_3 0037 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0038 00da | | Load_Top At_Offset_2 0039 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 003a 0335 | 5 | Declare_Variable Array,Duplicate 003b 00cd | | Action Spare6_Action 003c 00db | | Load_Top At_Offset_3 003d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 003e 01d9 | | Execute Vector,Reverse_Bounds 003f 0263 | c | Execute Discrete,Above_Bound 0040 7005 |p | Jump_Nonzero 0x46 0041 4800 |H | Short_Literal 0x0 0042 00d9 | | Load_Top At_Offset_1 0043 e402 | | Load 0x2,0x2 0044 01d6 | | Execute Vector,Field_Write 0045 3ffb |? | Loop_Increasing 0x41 0046 00db | | Load_Top At_Offset_3 0047 00d8 | | Load_Top At_Offset_0 0048 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0049 00da | | Load_Top At_Offset_2 004a 01da | | Execute Vector,Bounds 004b 00da | | Load_Top At_Offset_2 004c 01da | | Execute Vector,Bounds 004d 00da | | Load_Top At_Offset_2 004e 027f | | Execute Discrete,Equal 004f 7001 |p | Jump_Nonzero 0x51 0050 08e0 | | Execute_Immediate Raise,0xe0 0051 00cd | | Action Spare6_Action 0052 027f | | Execute Discrete,Equal 0053 7001 |p | Jump_Nonzero 0x55 0054 08e0 | | Execute_Immediate Raise,0xe0 0055 00d1 | | Pop_Control Pop_Count_1 0056 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0057 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0058 00db | | Load_Top At_Offset_3 0059 4801 |H | Short_Literal 0x1 005a e5fe | | Load 0x2,-0x2 005b 00e9 | | Load_Encached String_Cache 005c 035b | [ | Declare_Type Array,Constrained 005d 4801 |H | Short_Literal 0x1 005e e5ff | | Load 0x2,-0x1 005f 031b | | Declare_Type Variant_Record,Constrained 0060 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0061 00db | | Load_Top At_Offset_3 0062 00db | | Load_Top At_Offset_3 0063 02fc | | Declare_Variable Variant_Record,With_Constraint 0064 4801 |H | Short_Literal 0x1 0065 e5fe | | Load 0x2,-0x2 0066 00e9 | | Load_Encached String_Cache 0067 0334 | 4 | Declare_Variable Array,With_Constraint 0068 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3 0069 016a | j | QQ_execute Variant_Record,XXX 006a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 006b 0869 | i | Execute_Immediate Raise,0x69 006c 0000 0000 | | .BLANK 0000[0x4] 0070 ; -------------------------------------------------------------------------------------- 0070 ; Debug Table 0070 ; -------------------------------------------------------------------------------------- 0070 0004 0008 | | .DEBUG4 0x0004,0x0008,0xa907,0x0000,0x0001,0x0000 0076 2400 2400 |$ $ | .XXX[0x18a] 0078 2800 0c00 |( | 007a 0000 1042 | B| 007c 0000 0000 | | 007e 2400 2400 |$ $ | 0080 2800 0c00 |( | 0082 0000 1112 | | 0084 0000 0000 | | 0086 2400 2400 |$ $ | 0088 2800 0c00 |( | 008a 0000 11e2 | | 008c 0000 0000 | | 008e 2400 2400 |$ $ | 0090 2800 0c00 |( | 0092 0000 12b2 | | 0094 0000 0000 | | 0096 2400 2400 |$ $ | 0098 2800 0c00 |( | 009a 0000 1382 | | 009c 0000 0000 | | 009e 2400 2400 |$ $ | 00a0 2800 0c00 |( | 00a2 0000 1452 | R| 00a4 0000 0000 | | 00a6 2400 2400 |$ $ | 00a8 2800 0c00 |( | 00aa 0000 1522 | "| 00ac 0000 0000 | | 00ae 2400 2400 |$ $ | 00b0 2800 0c00 |( | 00b2 0000 15f2 | | 00b4 0000 0000 | | 00b6 2400 2400 |$ $ | 00b8 2800 0c00 |( | 00ba 0000 16c2 | | 00bc 0000 0000 | | 00be 2400 2400 |$ $ | 00c0 2800 0c00 |( | 00c2 0000 1792 | | 00c4 0000 0000 | | 00c6 2400 2400 |$ $ | 00c8 2800 0c00 |( | 00ca 0000 1862 | b| 00cc 0000 0000 | | 00ce 2400 2400 |$ $ | 00d0 2800 0c00 |( | 00d2 0000 1932 | 2| 00d4 0000 0000 | | 00d6 2400 2400 |$ $ | 00d8 2800 0c00 |( | 00da 0000 1a02 | | 00dc 0000 0000 | | 00de 2400 2400 |$ $ | 00e0 2800 0c00 |( | 00e2 0000 1ad2 | | 00e4 0000 0000 | | 00e6 2400 2400 |$ $ | 00e8 2800 0c00 |( | 00ea 0000 1ba2 | | 00ec 0000 0000 | | 00ee 2400 2400 |$ $ | 00f0 2800 0c00 |( | 00f2 0000 1c72 | r| 00f4 0000 0000 | | 00f6 2400 2400 |$ $ | 00f8 2800 0c00 |( | 00fa 0000 1d42 | B| 00fc 0000 0000 | | 00fe 2400 2400 |$ $ | 0100 2800 0c00 |( | 0102 0000 1e12 | | 0104 0000 0000 | | 0106 2400 2400 |$ $ | 0108 2800 0c00 |( | 010a 0000 1ee2 | | 010c 0000 0000 | | 010e 2400 2400 |$ $ | 0110 2800 0c00 |( | 0112 0000 1fb2 | | 0114 0000 0000 | | 0116 2400 2400 |$ $ | 0118 2800 0c00 |( | 011a 0000 2082 | | 011c 0000 0000 | | 011e 2400 2400 |$ $ | 0120 2800 0c00 |( | 0122 0000 2152 | !R| 0124 0000 0000 | | 0126 2400 2400 |$ $ | 0128 2800 0c00 |( | 012a 0000 2222 | ""| 012c 0000 0000 | | 012e 2400 2400 |$ $ | 0130 2800 0c00 |( | 0132 0000 22f2 | " | 0134 0000 0000 | | 0136 2400 2400 |$ $ | 0138 2800 0c00 |( | 013a 0000 23c2 | # | 013c 0000 0000 | | 013e 2400 2400 |$ $ | 0140 2800 0c00 |( | 0142 0000 2492 | $ | 0144 0000 0000 | | 0146 2400 2400 |$ $ | 0148 2800 0c00 |( | 014a 0000 2562 | %b| 014c 0000 0000 | | 014e 2400 2400 |$ $ | 0150 2800 0c00 |( | 0152 0000 2632 | &2| 0154 0000 0000 | | 0156 2400 2400 |$ $ | 0158 2800 0c00 |( | 015a 0000 2702 | ' | 015c 0000 0000 | | 015e 2400 2400 |$ $ | 0160 2800 0c00 |( | 0162 0000 27d2 | ' | 0164 0000 0000 | | 0166 2400 2400 |$ $ | 0168 2800 0c00 |( | 016a 0000 28a2 | ( | 016c 0000 0000 | | 016e 2400 2400 |$ $ | 0170 2800 0c00 |( | 0172 0000 2972 | )r| 0174 0000 0000 | | 0176 2400 2400 |$ $ | 0178 2800 0c00 |( | 017a 0000 2a42 | *B| 017c 0000 0000 | | 017e 2400 2400 |$ $ | 0180 2800 0c00 |( | 0182 0000 2b12 | + | 0184 0000 0000 | | 0186 2400 2400 |$ $ | 0188 2800 0c00 |( | 018a 0000 2be2 | + | 018c 0000 0000 | | 018e 2400 2400 |$ $ | 0190 2800 0c00 |( | 0192 0000 2cb2 | , | 0194 0000 0000 | | 0196 2400 2400 |$ $ | 0198 2800 0c00 |( | 019a 0000 2d82 | - | 019c 0000 0000 | | 019e 2400 2400 |$ $ | 01a0 2800 0c00 |( | 01a2 0000 2e52 | .R| 01a4 0000 0000 | | 01a6 2400 2400 |$ $ | 01a8 2800 0c00 |( | 01aa 0000 2f22 | /"| 01ac 0000 0000 | | 01ae 2400 2400 |$ $ | 01b0 2800 0c00 |( | 01b2 0000 2ff2 | / | 01b4 0000 0000 | | 01b6 2400 2400 |$ $ | 01b8 2800 0c00 |( | 01ba 0000 30c2 | 0 | 01bc 0000 0000 | | 01be 2400 2400 |$ $ | 01c0 2800 0c00 |( | 01c2 0000 3192 | 1 | 01c4 0000 0000 | | 01c6 2400 2400 |$ $ | 01c8 2800 0c00 |( | 01ca 0000 3262 | 2b| 01cc 0000 0000 | | 01ce 2400 2400 |$ $ | 01d0 2800 0c00 |( | 01d2 0000 3332 | 32| 01d4 0000 0000 | | 01d6 2400 2400 |$ $ | 01d8 2800 0c00 |( | 01da 0000 3402 | 4 | 01dc 0000 0000 | | 01de 2400 2400 |$ $ | 01e0 2800 0c00 |( | 01e2 0000 34d2 | 4 | 01e4 0000 0000 | | 01e6 2400 2400 |$ $ | 01e8 2800 0c00 |( | 01ea 0000 35a2 | 5 | 01ec 0000 0000 | | 01ee 2400 2400 |$ $ | 01f0 2800 0c00 |( | 01f2 0000 3672 | 6r| 01f4 0000 0000 | | 01f6 2400 2400 |$ $ | 01f8 2800 0c00 |( | 01fa 0000 3742 | 7B| 01fc 0000 0000 | | 01fe 2400 2400 |$ $ |