|
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_0a7cf5
└─⟦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 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 001d | | .CONST 0x001d ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0009 | | .CONST 0x0009 ; Number of locals 000b INIT_0008: 000b 00da | | Load_Top At_Offset_2 000c 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 000d 0227 | ' | Execute Access,All_Reference 000e 0007 | | Action Break_Optional 000f 00e1 | | Load_Encached Boolean_Cache 0010 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0011 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call 0013 029f 004b | K| Declare_Subprogram INIT_0048,For_Call 0015 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call 0017 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call 0019 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 001b 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 001d BODY_0008: 001d 00cf | | Action Mark_Auxiliary 001e e602 | | Load 0x3,0x2 001f 01d9 | | Execute Vector,Reverse_Bounds 0020 0263 | c | Execute Discrete,Above_Bound 0021 7006 |p | Jump_Nonzero 0x28 0022 00d8 | | Load_Top At_Offset_0 0023 e602 | | Load 0x3,0x2 0024 01d7 | | Execute Vector,Field_Read 0025 8609 | | Call 0x3,0x9 0026 00c8 | | Action Pop_Auxiliary_Range 0027 3ffa |? | Loop_Increasing 0x22 0028 00ce | | Action Pop_Auxiliary 0029 e603 | | Load 0x3,0x3 002a 6805 |h | Jump_Zero 0x30 002b e264 | d | Load 0x1,0x64 002c e265 | e | Load 0x1,0x65 002d 826e | n | Call 0x1,0x6e 002e 4801 |H | Short_Literal 0x1 002f a403 | | Store_Unchecked 0x2,0x3 0030 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0031 0000 0000 | | .BLANK 0000[0x7] 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 4806 |H | Short_Literal 0x6 003c 8262 | b | Call 0x1,0x62 003d e265 | e | Load 0x1,0x65 003e 0092 0154 | T| Action Push_String_Extended,0x154 ; "CSC/State Correlation" 0040 8281 | | Call 0x1,0x81 0041 4801 |H | Short_Literal 0x1 0042 a603 | | Store_Unchecked 0x3,0x3 0043 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0044 0000 0000 | | .BLANK 0000[0x4] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 00da | | Load_Top At_Offset_2 004c e002 | | Load 0x0,0x2 004d 1b20 | | Execute Package,Field_Read,Field_Number 0x20 004e 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 004f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0050 0f05 | | Execute_Immediate Equal,0x5 0051 7005 |p | Jump_Nonzero 0x57 0052 e002 | | Load 0x0,0x2 0053 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0054 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0055 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0056 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0057 00da | | Load_Top At_Offset_2 0058 e002 | | Load 0x0,0x2 0059 1b20 | | Execute Package,Field_Read,Field_Number 0x20 005a 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 005b 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 005c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 005d 0000 0000 | | .XXX[0x3] 005f 0000 | | 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 006e | n | .CONST 0x006e ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0004 | | .CONST 0x0004 ; Number of locals 0063 INIT_0060: 0063 e002 | | Load 0x0,0x2 0064 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0065 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0066 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0067 02c7 | | Declare_Variable Any 0068 00db | | Load_Top At_Offset_3 0069 a802 | | Store_Unchecked 0x4,0x2 006a e2a0 | | Load 0x1,0xa0 006b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 006c 0092 0155 | U| Action Push_String_Extended,0x155 ; ", " 006e BODY_0060: 006e e9ff | | Load 0x4,-0x1 006f e002 | | Load 0x0,0x2 0070 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0071 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0072 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0073 012f | / | Execute Any,Equal 0074 6802 |h | Jump_Zero 0x77 0075 00ea | | Load_Encached Null_String_Cache 0076 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0077 00cf | | Action Mark_Auxiliary 0078 7816 |x | Jump 0x8f 0079 00da | | Load_Top At_Offset_2 007a 4801 |H | Short_Literal 0x1 007b e289 | | Load 0x1,0x89 007c e802 | | Load 0x4,0x2 007d e002 | | Load 0x0,0x2 007e 1b20 | | Execute Package,Field_Read,Field_Number 0x20 007f 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0080 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0081 e003 | | Load 0x0,0x3 0082 180f | | Execute Package,Field_Execute,Field_Number 0xf 0083 00db | | Load_Top At_Offset_3 0084 01cc | | Execute Vector,Catenate 0085 e2a0 | | Load 0x1,0xa0 0086 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0087 003b | ; | Store_Top Access,At_Offset_3 0088 00db | | Load_Top At_Offset_3 0089 e002 | | Load 0x0,0x2 008a 1b20 | | Execute Package,Field_Read,Field_Number 0x20 008b 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 008c 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 008d c802 | | Store 0x4,0x2 008e 00c9 | | Action Pop_Auxiliary_Loop 008f 00db | | Load_Top At_Offset_3 0090 e002 | | Load 0x0,0x2 0091 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0092 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0093 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0094 6fe4 |o | Jump_Zero 0x79 0095 00ce | | Action Pop_Auxiliary 0096 4802 |H | Short_Literal 0x2 0097 00da | | Load_Top At_Offset_2 0098 82dd | | Call 0x1,0xdd 0099 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 009a 0000 0000 | | .BLANK 0000[0x6] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a6 | | .CONST 0x00a6 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0002 | | .CONST 0x0002 ; Number of locals 00a3 INIT_00a0: 00a3 e002 | | Load 0x0,0x2 00a4 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00a5 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 00a6 BODY_00a0: 00a6 00d8 | | Load_Top At_Offset_0 00a7 e9ff | | Load 0x4,-0x1 00a8 e004 | | Load 0x0,0x4 00a9 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 00aa 482a |H* | Short_Literal 0x2a 00ab e042 | B | Load 0x0,0x42 00ac 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00ad 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00ae 00d8 | | Load_Top At_Offset_0 00af e002 | | Load 0x0,0x2 00b0 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00b1 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00b2 6805 |h | Jump_Zero 0xb8 00b3 e002 | | Load 0x0,0x2 00b4 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00b5 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00b6 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b8 00d8 | | Load_Top At_Offset_0 00b9 e002 | | Load 0x0,0x2 00ba 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00bb 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 00bc e042 | B | Load 0x0,0x42 00bd 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00bf 0000 | | .XXX[0x1] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00ca | | .CONST 0x00ca ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0002 | | .CONST 0x0002 ; Number of locals 00c3 INIT_00c0: 00c3 e002 | | Load 0x0,0x2 00c4 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00c5 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00c6 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00c7 02c7 | | Declare_Variable Any 00c8 00d8 | | Load_Top At_Offset_0 00c9 1c00 | | Execute_Immediate Run_Utility,0x0 00ca BODY_00c0: 00ca 00db | | Load_Top At_Offset_3 00cb e002 | | Load 0x0,0x2 00cc 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00cd 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00ce 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00cf 4608 |F | Jump_Case 0x9 00d0 7808 |x | Jump 0xd9 ; case 0x0 00d1 7817 |x | Jump 0xe9 ; case 0x1 00d2 7806 |x | Jump 0xd9 ; case 0x2 00d3 7815 |x | Jump 0xe9 ; case 0x3 00d4 7804 |x | Jump 0xd9 ; case 0x4 00d5 780c |x | Jump 0xe2 ; case 0x5 00d6 7802 |x | Jump 0xd9 ; case 0x6 00d7 7801 |x | Jump 0xd9 ; case 0x7 00d8 7800 |x | Jump 0xd9 ; case 0x8 00d9 00db | | Load_Top At_Offset_3 00da e002 | | Load 0x0,0x2 00db 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00dc 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00dd 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00de 0092 0156 | V| Action Push_String_Extended,0x156 ; " *** Illegal State Name Syntax" 00e0 01cc | | Execute Vector,Catenate 00e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e2 00db | | Load_Top At_Offset_3 00e3 e002 | | Load 0x0,0x2 00e4 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00e5 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00e6 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 00e7 c802 | | Store 0x4,0x2 00e8 7802 |x | Jump 0xeb 00e9 00db | | Load_Top At_Offset_3 00ea c802 | | Store 0x4,0x2 00eb 4801 |H | Short_Literal 0x1 00ec e289 | | Load 0x1,0x89 00ed 00da | | Load_Top At_Offset_2 00ee e002 | | Load 0x0,0x2 00ef 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00f0 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 00f1 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00f2 e003 | | Load 0x0,0x3 00f3 180f | | Execute Package,Field_Execute,Field_Number 0xf 00f4 0092 0157 | W| Action Push_String_Extended,0x157 ; " State" 00f6 01cc | | Execute Vector,Catenate 00f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 010f | | .CONST 0x010f ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0004 | | .CONST 0x0004 ; Number of locals 00fb INIT_00f8: 00fb 00ea | | Load_Encached Null_String_Cache 00fc 4800 |H | Short_Literal 0x0 00fd e9ff | | Load 0x4,-0x1 00fe e249 | I | Load 0x1,0x49 00ff 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0100 e002 | | Load 0x0,0x2 0101 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0102 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0103 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0104 02c7 | | Declare_Variable Any 0105 00d8 | | Load_Top At_Offset_0 0106 1c00 | | Execute_Immediate Run_Utility,0x0 0107 e002 | | Load 0x0,0x2 0108 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0109 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 010a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 010b 02c7 | | Declare_Variable Any 010c e9ff | | Load 0x4,-0x1 010d 8607 | | Call 0x3,0x7 010e a804 | | Store_Unchecked 0x4,0x4 010f BODY_00f8: 010f 00d8 | | Load_Top At_Offset_0 0110 e002 | | Load 0x0,0x2 0111 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0112 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0113 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0114 012e | . | Execute Any,Not_Equal 0115 683d |h= | Jump_Zero 0x153 0116 e603 | | Load 0x3,0x3 0117 7001 |p | Jump_Nonzero 0x119 0118 8604 | | Call 0x3,0x4 0119 4807 |H | Short_Literal 0x7 011a 8262 | b | Call 0x1,0x62 011b 00db | | Load_Top At_Offset_3 011c 4808 |H | Short_Literal 0x8 011d e9ff | | Load 0x4,-0x1 011e e249 | I | Load 0x1,0x49 011f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0120 8282 | | Call 0x1,0x82 0121 4806 |H | Short_Literal 0x6 0122 8262 | b | Call 0x1,0x62 0123 e265 | e | Load 0x1,0x65 0124 00ea | | Load_Encached Null_String_Cache 0125 8281 | | Call 0x1,0x81 0126 00cf | | Action Mark_Auxiliary 0127 7821 |x! | Jump 0x149 0128 00d9 | | Load_Top At_Offset_1 0129 e002 | | Load 0x0,0x2 012a 1b20 | | Execute Package,Field_Read,Field_Number 0x20 012b 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 012c 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 012d c803 | | Store 0x4,0x3 012e 00da | | Load_Top At_Offset_2 012f e002 | | Load 0x0,0x2 0130 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0131 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0132 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0133 680e |h | Jump_Zero 0x142 0134 4807 |H | Short_Literal 0x7 0135 8262 | b | Call 0x1,0x62 0136 e802 | | Load 0x4,0x2 0137 e803 | | Load 0x4,0x3 0138 8608 | | Call 0x3,0x8 0139 8282 | | Call 0x1,0x82 013a 4801 |H | Short_Literal 0x1 013b 480e |H | Short_Literal 0xe 013c 8262 | b | Call 0x1,0x62 013d e802 | | Load 0x4,0x2 013e e803 | | Load 0x4,0x3 013f 8605 | | Call 0x3,0x5 0140 8606 | | Call 0x3,0x6 0141 8286 | | Call 0x1,0x86 0142 00d9 | | Load_Top At_Offset_1 0143 e002 | | Load 0x0,0x2 0144 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0145 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0146 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0147 c804 | | Store 0x4,0x4 0148 00c9 | | Action Pop_Auxiliary_Loop 0149 00d9 | | Load_Top At_Offset_1 014a e002 | | Load 0x0,0x2 014b 1b20 | | Execute Package,Field_Read,Field_Number 0x20 014c 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 014d 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 014e 6fd9 |o | Jump_Zero 0x128 014f 00ce | | Action Pop_Auxiliary 0150 e264 | d | Load 0x1,0x64 0151 e265 | e | Load 0x1,0x65 0152 826e | n | Call 0x1,0x6e 0153 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0154 ; -------------------------------------------------------------------------------------- 0154 ; STRING TABLE 0154 ; -------------------------------------------------------------------------------------- 0154 000a | | .STRTAB 0x000a->0x0159 ; "CSC/State Correlation" 0155 001d | | .STRTAB 0x001d->0x0163 ; ", " 0156 001d | | .STRTAB 0x001d->0x0164 ; " *** Illegal State Name Syntax" 0157 0039 | 9 | .STRTAB 0x0039->0x0173 ; " State" 0158 003d | = | .STREND 0x003d->0x0176 0159 4353 432f |CSC/| .STRTAB_STRINGS 0177 0000 | | .XXX[0x1] 0178 ; -------------------------------------------------------------------------------------- 0178 ; Debug Table 0178 ; -------------------------------------------------------------------------------------- 0178 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfc77,0x0000,0x0001,0x0000 017e 9248 a327 | H '| .XXX[0x82] 0180 4100 cf21 |A !| 0182 407f 2eb1 |@ . | 0184 c3bd 4444 | DD| 0186 7728 77e5 |w(w | 0188 29b0 0a25 |) %| 018a 2450 2662 |$P&b| 018c c246 2138 | F!8| 018e f700 2050 | P| 0190 0d02 9014 | | 0192 842d e8c7 | - | 0194 d502 cd91 | | 0196 1998 2908 | ) | 0198 9030 2412 | 0$ | 019a b245 084b | E K| 019c 6518 4b80 |e K | 019e 04f5 92c1 | | 01a0 590d d8a2 |Y | 01a2 0500 31e5 | 1 | 01a4 1408 0049 | I| 01a6 03ef 0020 | | 01a8 0057 4d13 | WM | 01aa 2fd5 2908 |/ ) | 01ac 0bb5 0cc1 | | 01ae 4119 384e |A 8N| 01b0 2470 52c2 |$pR | 01b2 1782 430a | C | 01b4 07ce 93f7 | | 01b6 8002 2103 | ! | 01b8 4559 3358 |EY3X| 01ba 0e2a 0016 | * | 01bc 5d32 7246 |]2rF| 01be 8400 3aa5 | : | 01c0 1898 2a1e | * | 01c2 25c0 0072 |% r| 01c4 4412 a100 |D | 01c6 3f66 c420 |?f | 01c8 0a99 923f | ?| 01ca 011a c80b | | 01cc 1990 20c1 | | 01ce 2d68 2ad4 |-h* | 01d0 9045 253b | E%;| 01d2 0801 0848 | H| 01d4 b781 1b58 | X| 01d6 54f6 9027 |T '| 01d8 253b 6a43 |%;jC| 01da 0591 0c00 | | 01dc aad0 d18c | | 01de 9216 5d32 | ]2| 01e0 ea4b 5173 | KQs| 01e2 ec00 33f2 | 3 | 01e4 4326 9125 |C& %| 01e6 4f74 3646 |Ot6F| 01e8 df90 f4a4 | | 01ea 91b5 3890 | 8 | 01ec 04e3 410d | A | 01ee 99cb fc90 | | 01f0 c065 0c08 | e | 01f2 0a83 0b0a | | 01f4 cc21 4110 | !A | 01f6 1d96 1cc8 | | 01f8 9f40 0c2b | @ +| 01fa 9603 5d43 | ]C| 01fc 4a48 7628 |JHv(| 01fe b625 2ed8 | %. |