|
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_0cc8f6
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0190 | | .CONST 0x0190 ; 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 0014 | | .CONST 0x0014 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000e | | .CONST 0x000e ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0011 00c7 | | Action Elaborate_Subprogram 0012 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0013 00c7 | | Action Elaborate_Subprogram 0014 BODY_0008: 0014 00bc | | Action Signal_Activated 0015 00bb | | Action Signal_Completion 0016 0000 0000 | | .XXX[0x2] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 001b | | .CONST 0x001b ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0001 | | .CONST 0x0001 ; Number of locals 001b BODY_0018: 001b INIT_0018: 001b 4801 |H | Short_Literal 0x1 001c 4809 |H | Short_Literal 0x9 001d e003 | | Load 0x0,0x3 001e 035b | [ | Declare_Type Array,Constrained 001f 0337 | 7 | Declare_Variable Array 0020 e004 | | Load 0x0,0x4 0021 0337 | 7 | Declare_Variable Array 0022 e005 | | Load 0x0,0x5 0023 8006 | | Call 0x0,0x6 0024 4800 |H | Short_Literal 0x0 0025 00da | | Load_Top At_Offset_2 0026 01d6 | | Execute Vector,Field_Write 0027 e004 | | Load 0x0,0x4 0028 01c3 | | Execute Vector,Check_In_Type 0029 8007 | | Call 0x0,0x7 002a 4801 |H | Short_Literal 0x1 002b 00da | | Load_Top At_Offset_2 002c 01d6 | | Execute Vector,Field_Write 002d e008 | | Load 0x0,0x8 002e 0337 | 7 | Declare_Variable Array 002f e009 | | Load 0x0,0x9 0030 800a | | Call 0x0,0xa 0031 4800 |H | Short_Literal 0x0 0032 00da | | Load_Top At_Offset_2 0033 01d6 | | Execute Vector,Field_Write 0034 e008 | | Load 0x0,0x8 0035 01c3 | | Execute Vector,Check_In_Type 0036 800b | | Call 0x0,0xb 0037 4802 |H | Short_Literal 0x2 0038 00da | | Load_Top At_Offset_2 0039 01d6 | | Execute Vector,Field_Write 003a e00c | | Load 0x0,0xc 003b 0337 | 7 | Declare_Variable Array 003c e00d | | Load 0x0,0xd 003d 800e | | Call 0x0,0xe 003e 800f | | Call 0x0,0xf 003f e010 | | Load 0x0,0x10 0040 800e | | Call 0x0,0xe 0041 8011 | | Call 0x0,0x11 0042 8012 | | Call 0x0,0x12 0043 4800 |H | Short_Literal 0x0 0044 00da | | Load_Top At_Offset_2 0045 01d6 | | Execute Vector,Field_Write 0046 e00c | | Load 0x0,0xc 0047 01c3 | | Execute Vector,Check_In_Type 0048 8013 | | Call 0x0,0x13 0049 4803 |H | Short_Literal 0x3 004a 00da | | Load_Top At_Offset_2 004b 01d6 | | Execute Vector,Field_Write 004c e014 | | Load 0x0,0x14 004d 0337 | 7 | Declare_Variable Array 004e 8015 | | Call 0x0,0x15 004f 4800 |H | Short_Literal 0x0 0050 00da | | Load_Top At_Offset_2 0051 01d6 | | Execute Vector,Field_Write 0052 e014 | | Load 0x0,0x14 0053 01c3 | | Execute Vector,Check_In_Type 0054 8016 | | Call 0x0,0x16 0055 4804 |H | Short_Literal 0x4 0056 00da | | Load_Top At_Offset_2 0057 01d6 | | Execute Vector,Field_Write 0058 e017 | | Load 0x0,0x17 0059 0337 | 7 | Declare_Variable Array 005a 8015 | | Call 0x0,0x15 005b 4800 |H | Short_Literal 0x0 005c 00da | | Load_Top At_Offset_2 005d 01d6 | | Execute Vector,Field_Write 005e e017 | | Load 0x0,0x17 005f 01c3 | | Execute Vector,Check_In_Type 0060 8018 | | Call 0x0,0x18 0061 4805 |H | Short_Literal 0x5 0062 00da | | Load_Top At_Offset_2 0063 01d6 | | Execute Vector,Field_Write 0064 e019 | | Load 0x0,0x19 0065 0337 | 7 | Declare_Variable Array 0066 8015 | | Call 0x0,0x15 0067 4800 |H | Short_Literal 0x0 0068 00da | | Load_Top At_Offset_2 0069 01d6 | | Execute Vector,Field_Write 006a e019 | | Load 0x0,0x19 006b 01c3 | | Execute Vector,Check_In_Type 006c 801a | | Call 0x0,0x1a 006d 4806 |H | Short_Literal 0x6 006e 00da | | Load_Top At_Offset_2 006f 01d6 | | Execute Vector,Field_Write 0070 e01b | | Load 0x0,0x1b 0071 0337 | 7 | Declare_Variable Array 0072 8015 | | Call 0x0,0x15 0073 4800 |H | Short_Literal 0x0 0074 00da | | Load_Top At_Offset_2 0075 01d6 | | Execute Vector,Field_Write 0076 e01b | | Load 0x0,0x1b 0077 01c3 | | Execute Vector,Check_In_Type 0078 801c | | Call 0x0,0x1c 0079 4807 |H | Short_Literal 0x7 007a 00da | | Load_Top At_Offset_2 007b 01d6 | | Execute Vector,Field_Write 007c e01d | | Load 0x0,0x1d 007d 0337 | 7 | Declare_Variable Array 007e 8015 | | Call 0x0,0x15 007f 4800 |H | Short_Literal 0x0 0080 00da | | Load_Top At_Offset_2 0081 01d6 | | Execute Vector,Field_Write 0082 e01d | | Load 0x0,0x1d 0083 01c3 | | Execute Vector,Check_In_Type 0084 801e | | Call 0x0,0x1e 0085 4808 |H | Short_Literal 0x8 0086 00da | | Load_Top At_Offset_2 0087 01d6 | | Execute Vector,Field_Write 0088 e01f | | Load 0x0,0x1f 0089 0337 | 7 | Declare_Variable Array 008a 8015 | | Call 0x0,0x15 008b 4800 |H | Short_Literal 0x0 008c 00da | | Load_Top At_Offset_2 008d 01d6 | | Execute Vector,Field_Write 008e e01f | | Load 0x0,0x1f 008f 01c3 | | Execute Vector,Check_In_Type 0090 8020 | | Call 0x0,0x20 0091 4809 |H | Short_Literal 0x9 0092 00da | | Load_Top At_Offset_2 0093 01d6 | | Execute Vector,Field_Write 0094 e003 | | Load 0x0,0x3 0095 01c6 | | Execute Vector,Convert_To_Formal 0096 00ca | | Action Exit_Nullary_Function 0097 0000 | | .XXX[0x1] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 0109 | | .CONST 0x0109 ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0019 | | .CONST 0x0019 ; Number of locals 009b INIT_0098: 009b 4801 |H | Short_Literal 0x1 009c 00db | | Load_Top At_Offset_3 009d 01d5 | | Execute Vector,Field_Reference 009e 0007 | | Action Break_Optional 009f 4802 |H | Short_Literal 0x2 00a0 e5ff | | Load 0x2,-0x1 00a1 01d5 | | Execute Vector,Field_Reference 00a2 0007 | | Action Break_Optional 00a3 4803 |H | Short_Literal 0x3 00a4 e5ff | | Load 0x2,-0x1 00a5 01d5 | | Execute Vector,Field_Reference 00a6 0007 | | Action Break_Optional 00a7 4804 |H | Short_Literal 0x4 00a8 e5ff | | Load 0x2,-0x1 00a9 01d5 | | Execute Vector,Field_Reference 00aa 0007 | | Action Break_Optional 00ab 4805 |H | Short_Literal 0x5 00ac e5ff | | Load 0x2,-0x1 00ad 01d5 | | Execute Vector,Field_Reference 00ae 0007 | | Action Break_Optional 00af 4806 |H | Short_Literal 0x6 00b0 e5ff | | Load 0x2,-0x1 00b1 01d5 | | Execute Vector,Field_Reference 00b2 0007 | | Action Break_Optional 00b3 4807 |H | Short_Literal 0x7 00b4 e5ff | | Load 0x2,-0x1 00b5 01d5 | | Execute Vector,Field_Reference 00b6 0007 | | Action Break_Optional 00b7 4808 |H | Short_Literal 0x8 00b8 e5ff | | Load 0x2,-0x1 00b9 01d5 | | Execute Vector,Field_Reference 00ba 0007 | | Action Break_Optional 00bb 4809 |H | Short_Literal 0x9 00bc e5ff | | Load 0x2,-0x1 00bd 01d5 | | Execute Vector,Field_Reference 00be 0007 | | Action Break_Optional 00bf e021 | ! | Load 0x0,0x21 00c0 02ff | | Declare_Variable Variant_Record 00c1 4800 |H | Short_Literal 0x0 00c2 e407 | | Load 0x2,0x7 00c3 8022 | " | Call 0x0,0x22 00c4 00d9 | | Load_Top At_Offset_1 00c5 016d | m | Execute Variant_Record,Structure_Write 00c6 e021 | ! | Load 0x0,0x21 00c7 02ff | | Declare_Variable Variant_Record 00c8 4800 |H | Short_Literal 0x0 00c9 e404 | | Load 0x2,0x4 00ca 8023 | # | Call 0x0,0x23 00cb 00d9 | | Load_Top At_Offset_1 00cc 016d | m | Execute Variant_Record,Structure_Write 00cd e021 | ! | Load 0x0,0x21 00ce 02ff | | Declare_Variable Variant_Record 00cf 4800 |H | Short_Literal 0x0 00d0 e40a | | Load 0x2,0xa 00d1 8024 | $ | Call 0x0,0x24 00d2 00d9 | | Load_Top At_Offset_1 00d3 016d | m | Execute Variant_Record,Structure_Write 00d4 e021 | ! | Load 0x0,0x21 00d5 02ff | | Declare_Variable Variant_Record 00d6 4800 |H | Short_Literal 0x0 00d7 e403 | | Load 0x2,0x3 00d8 8025 | % | Call 0x0,0x25 00d9 00d9 | | Load_Top At_Offset_1 00da 016d | m | Execute Variant_Record,Structure_Write 00db e021 | ! | Load 0x0,0x21 00dc 02ff | | Declare_Variable Variant_Record 00dd 4800 |H | Short_Literal 0x0 00de e405 | | Load 0x2,0x5 00df 8026 | & | Call 0x0,0x26 00e0 00d9 | | Load_Top At_Offset_1 00e1 016d | m | Execute Variant_Record,Structure_Write 00e2 e021 | ! | Load 0x0,0x21 00e3 02ff | | Declare_Variable Variant_Record 00e4 4800 |H | Short_Literal 0x0 00e5 e406 | | Load 0x2,0x6 00e6 8027 | ' | Call 0x0,0x27 00e7 00d9 | | Load_Top At_Offset_1 00e8 016d | m | Execute Variant_Record,Structure_Write 00e9 e021 | ! | Load 0x0,0x21 00ea 02ff | | Declare_Variable Variant_Record 00eb 4800 |H | Short_Literal 0x0 00ec e408 | | Load 0x2,0x8 00ed 8028 | ( | Call 0x0,0x28 00ee 00d9 | | Load_Top At_Offset_1 00ef 016d | m | Execute Variant_Record,Structure_Write 00f0 e021 | ! | Load 0x0,0x21 00f1 02ff | | Declare_Variable Variant_Record 00f2 00d8 | | Load_Top At_Offset_0 00f3 1c00 | | Execute_Immediate Run_Utility,0x0 00f4 e021 | ! | Load 0x0,0x21 00f5 02ff | | Declare_Variable Variant_Record 00f6 00d8 | | Load_Top At_Offset_0 00f7 1c00 | | Execute_Immediate Run_Utility,0x0 00f8 e021 | ! | Load 0x0,0x21 00f9 02ff | | Declare_Variable Variant_Record 00fa 00d8 | | Load_Top At_Offset_0 00fb 1c00 | | Execute_Immediate Run_Utility,0x0 00fc e021 | ! | Load 0x0,0x21 00fd 02ff | | Declare_Variable Variant_Record 00fe 00d8 | | Load_Top At_Offset_0 00ff 1c00 | | Execute_Immediate Run_Utility,0x0 0100 e021 | ! | Load 0x0,0x21 0101 02ff | | Declare_Variable Variant_Record 0102 00d8 | | Load_Top At_Offset_0 0103 1c00 | | Execute_Immediate Run_Utility,0x0 0104 00e2 | | Load_Encached Integer_Cache 0105 e029 | ) | Load 0x0,0x29 0106 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0107 0322 | " | Declare_Variable Record 0108 00e2 | | Load_Encached Integer_Cache 0109 BODY_0098: 0109 e02a | * | Load 0x0,0x2a 010a 4800 |H | Short_Literal 0x0 010b e402 | | Load 0x2,0x2 010c 802b | + | Call 0x0,0x2b 010d e02c | , | Load 0x0,0x2c 010e 802d | - | Call 0x0,0x2d 010f e412 | | Load 0x2,0x12 0110 016d | m | Execute Variant_Record,Structure_Write 0111 e412 | | Load 0x2,0x12 0112 4800 |H | Short_Literal 0x0 0113 e407 | | Load 0x2,0x7 0114 802e | . | Call 0x0,0x2e 0115 e411 | | Load 0x2,0x11 0116 800e | | Call 0x0,0xe 0117 e02c | , | Load 0x0,0x2c 0118 802f | / | Call 0x0,0x2f 0119 e030 | 0 | Load 0x0,0x30 011a 802d | - | Call 0x0,0x2d 011b e416 | | Load 0x2,0x16 011c 016d | m | Execute Variant_Record,Structure_Write 011d 00db | | Load_Top At_Offset_3 011e e412 | | Load 0x2,0x12 011f 8031 | 1 | Call 0x0,0x31 0120 e413 | | Load 0x2,0x13 0121 016d | m | Execute Variant_Record,Structure_Write 0122 e413 | | Load 0x2,0x13 0123 4800 |H | Short_Literal 0x0 0124 e404 | | Load 0x2,0x4 0125 8032 | 2 | Call 0x0,0x32 0126 e40d | | Load 0x2,0xd 0127 e412 | | Load 0x2,0x12 0128 8031 | 1 | Call 0x0,0x31 0129 e414 | | Load 0x2,0x14 012a 016d | m | Execute Variant_Record,Structure_Write 012b e414 | | Load 0x2,0x14 012c 4800 |H | Short_Literal 0x0 012d e403 | | Load 0x2,0x3 012e 8033 | 3 | Call 0x0,0x33 012f e40e | | Load 0x2,0xe 0130 e414 | | Load 0x2,0x14 0131 8031 | 1 | Call 0x0,0x31 0132 e415 | | Load 0x2,0x15 0133 016d | m | Execute Variant_Record,Structure_Write 0134 e415 | | Load 0x2,0x15 0135 4800 |H | Short_Literal 0x0 0136 e405 | | Load 0x2,0x5 0137 8034 | 4 | Call 0x0,0x34 0138 e40f | | Load 0x2,0xf 0139 e415 | | Load 0x2,0x15 013a 8031 | 1 | Call 0x0,0x31 013b 4800 |H | Short_Literal 0x0 013c e406 | | Load 0x2,0x6 013d 8035 | 5 | Call 0x0,0x35 013e e036 | 6 | Load 0x0,0x36 013f 4800 |H | Short_Literal 0x0 0140 e409 | | Load 0x2,0x9 0141 8037 | 7 | Call 0x0,0x37 0142 e411 | | Load 0x2,0x11 0143 8038 | 8 | Call 0x0,0x38 0144 09ff | | Execute_Immediate Binary_Scale,-0x1 0145 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0146 00d8 | | Load_Top At_Offset_0 0147 8039 | 9 | Call 0x0,0x39 0148 4800 |H | Short_Literal 0x0 0149 e408 | | Load 0x2,0x8 014a 803a | : | Call 0x0,0x3a 014b e03b | ; | Load 0x0,0x3b 014c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 014d e03b | ; | Load 0x0,0x3b 014e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 014f e029 | ) | Load 0x0,0x29 0150 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0151 00da | | Load_Top At_Offset_2 0152 017d | } | Execute Record,Structure_Write 0153 00d9 | | Load_Top At_Offset_1 0154 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0155 602e |`. | Indirect_Literal Discrete,0x184,{0x00000000, 0x0000ea60} 0156 0271 | q | Execute Discrete,Times 0157 005b | [ | Store_Top Discrete,At_Offset_3 0158 00da | | Load_Top At_Offset_2 0159 00da | | Load_Top At_Offset_2 015a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 015b 4be8 |K | Short_Literal 0x3e8 015c 0271 | q | Execute Discrete,Times 015d 0273 | s | Execute Discrete,Plus 015e 005b | [ | Store_Top Discrete,At_Offset_3 015f 00da | | Load_Top At_Offset_2 0160 00da | | Load_Top At_Offset_2 0161 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0162 0273 | s | Execute Discrete,Plus 0163 005b | [ | Store_Top Discrete,At_Offset_3 0164 e03c | < | Load 0x0,0x3c 0165 00db | | Load_Top At_Offset_3 0166 00e0 | | Load_Encached Standard_Cache 0167 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0168 0092 0188 | | Action Push_String_Extended,0x188 ; " " 016a 01cc | | Execute Vector,Catenate 016b e412 | | Load 0x2,0x12 016c 8038 | 8 | Call 0x0,0x38 016d 00e0 | | Load_Encached Standard_Cache 016e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 016f 01cc | | Execute Vector,Catenate 0170 0092 0188 | | Action Push_String_Extended,0x188 ; " " 0172 01cc | | Execute Vector,Catenate 0173 e411 | | Load 0x2,0x11 0174 800e | | Call 0x0,0xe 0175 8038 | 8 | Call 0x0,0x38 0176 00e0 | | Load_Encached Standard_Cache 0177 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0178 01cc | | Execute Vector,Catenate 0179 0092 0188 | | Action Push_String_Extended,0x188 ; " " 017b 01cc | | Execute Vector,Catenate 017c e413 | | Load 0x2,0x13 017d 8038 | 8 | Call 0x0,0x38 017e 00e0 | | Load_Encached Standard_Cache 017f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0180 01cc | | Execute Vector,Catenate 0181 803d | = | Call 0x0,0x3d 0182 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0183 0000 | | .XXX[0x1] 0184 0000 0000 | | .LITERAL {0x00000000, 0x0000ea60} 0188 ; -------------------------------------------------------------------------------------- 0188 ; STRING TABLE 0188 ; -------------------------------------------------------------------------------------- 0188 0004 | | .STRTAB 0x0004->0x018a ; " " 0189 0003 | | .STREND 0x0003->0x018a 018a 2000 | | .STRTAB_STRINGS 018b 0000 0000 | | .BLANK 0000[0x5] 0190 ; -------------------------------------------------------------------------------------- 0190 ; Debug Table 0190 ; -------------------------------------------------------------------------------------- 0190 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5298,0x0000,0x0001,0x0004 0196 000b 01a6 | | .DBG4T 0x000b,0x01a6,0x0000,0x0000 019a 0010 01aa | | .DBG4T 0x0010,0x01aa,0x0000,0x0000 019e 001b 01ae | | .DBG4T 0x001b,0x01ae,0x0002,0x0000 01a2 009b 01b1 | | .DBG4T 0x009b,0x01b1,0x0001,0x0000 01a6 ; -------------------------------------------------------------------------------------- 01a6 ; Debug chain 01a6 ; -------------------------------------------------------------------------------------- 01a6 0002 0000 | | .DBGLEN 0x0002,0x0000 01a8 000b 000d | | .DBGLNO 0x000b,0x000d 01aa ; -------------------------------------------------------------------------------------- 01aa ; Debug chain 01aa ; -------------------------------------------------------------------------------------- 01aa 0002 0000 | | .DBGLEN 0x0002,0x0000 01ac 0010 0012 | | .DBGLNO 0x0010,0x0012 01ae ; -------------------------------------------------------------------------------------- 01ae ; Debug chain 01ae ; -------------------------------------------------------------------------------------- 01ae 0000 0001 | | .DBGLEN 0x0000,0x0001 01b0 001b | | .DBGLNO 0x001b 01b1 ; -------------------------------------------------------------------------------------- 01b1 ; Debug chain 01b1 ; -------------------------------------------------------------------------------------- 01b1 0018 0014 | | .DBGLEN 0x0018,0x0014 01b3 009b 009f | | .DBGLNO 0x009b,0x009f,0x00a3,0x00a7,0x00ab,0x00af,0x00b3,0x00b7,0x00bb,0x00bf,0x00c6,0x00cd,0x00d4,0x00db,0x00e2,0x00e9,0x00f0,0x00f4,0x00f8,0x00fc,0x0100,0x0104,0x0105,0x0108,0x0109,0x010d,0x0111,0x0115,0x0119,0x011d,0x0122,0x0126,0x012b,0x012f,0x0134,0x0138,0x013e,0x0142,0x0146,0x014b,0x0153,0x0158,0x015f,0x0164 01df 0000 0000 | | .BLANK 0000[0x21]