|
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_03bcfe
└─⟦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 0130 | 0 | .CONST 0x0130 ; 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 002a | * | .CONST 0x002a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000d | | .CONST 0x000d ; Number of locals 000b INIT_0008: 000b e011 | | Load 0x0,0x11 000c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 000d e0a8 | | Load 0x0,0xa8 000e 0007 | | Action Break_Optional 000f e0aa | | Load 0x0,0xaa 0010 0007 | | Action Break_Optional 0011 00e1 | | Load_Encached Boolean_Cache 0012 e033 | 3 | Load 0x0,0x33 0013 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0014 0322 | " | Declare_Variable Record 0015 00d8 | | Load_Top At_Offset_0 0016 1c00 | | Execute_Immediate Run_Utility,0x0 0017 0092 0120 | | Action Push_String_Extended,0x120 ; " " 0019 e0aa | | Load 0x0,0xaa 001a 03b6 | | Declare_Variable Access,By_Allocation,With_Value 001b 00e8 | | Load_Encached Character_Cache 001c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 001d 4fff |O | Short_Literal -0x1 001e 00e2 | | Load_Encached Integer_Cache 001f 03f1 | | Declare_Variable Discrete,With_Value 0020 4fff |O | Short_Literal -0x1 0021 00e2 | | Load_Encached Integer_Cache 0022 03f1 | | Declare_Variable Discrete,With_Value 0023 e01d | | Load 0x0,0x1d 0024 3416 |4 | Execute Record,Field_Reference,Field_Number 0x16 0025 0007 | | Action Break_Optional 0026 00d8 | | Load_Top At_Offset_0 0027 0007 | | Action Break_Optional 0028 029f 0103 | | Declare_Subprogram INIT_0100,For_Call 002a BODY_0008: 002a e0a9 | | Load 0x0,0xa9 002b 0d01 | | Execute_Immediate Less,0x1 002c 6805 |h | Jump_Zero 0x32 002d 0092 0121 | !| Action Push_String_Extended,0x121 ; "Index has no entries" 002f e01c | | Load 0x0,0x1c 0030 180f | | Execute Package,Field_Execute,Field_Number 0xf 0031 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0032 e08c | | Load 0x0,0x8c 0033 e033 | 3 | Load 0x0,0x33 0034 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0035 01da | | Execute Vector,Bounds 0036 0262 | b | Execute Discrete,In_Range 0037 680e |h | Jump_Zero 0x46 0038 4801 |H | Short_Literal 0x1 0039 4801 |H | Short_Literal 0x1 003a e606 | | Load 0x3,0x6 003b 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 003c e07b | { | Load 0x0,0x7b 003d e08c | | Load 0x0,0x8c 003e e033 | 3 | Load 0x0,0x33 003f 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0040 00d9 | | Load_Top At_Offset_1 0041 00d0 | | Action Swap_Control 0042 0260 | ` | Execute Discrete,In_Type 0043 7001 |p | Jump_Nonzero 0x45 0044 0801 | | Execute_Immediate Raise,0x1 0045 8098 | | Call 0x0,0x98 0046 e0a9 | | Load 0x0,0xa9 0047 00d8 | | Load_Top At_Offset_0 0048 00e4 | | Load_Encached Positive_Cache 0049 0260 | ` | Execute Discrete,In_Type 004a 7001 |p | Jump_Nonzero 0x4c 004b 0801 | | Execute_Immediate Raise,0x1 004c 4801 |H | Short_Literal 0x1 004d 8261 | a | Call 0x1,0x61 004e 00cf | | Action Mark_Auxiliary 004f e0a9 | | Load 0x0,0xa9 0050 4801 |H | Short_Literal 0x1 0051 0263 | c | Execute Discrete,Above_Bound 0052 70a5 |p | Jump_Nonzero 0xf8 0053 00d8 | | Load_Top At_Offset_0 0054 8061 | a | Call 0x0,0x61 0055 a603 | | Store_Unchecked 0x3,0x3 0056 e603 | | Load 0x3,0x3 0057 0217 | | Execute Heap_Access,All_Reference 0058 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0059 a604 | | Store_Unchecked 0x3,0x4 005a e604 | | Load 0x3,0x4 005b 0227 | ' | Execute Access,All_Reference 005c e607 | | Load 0x3,0x7 005d 0227 | ' | Execute Access,All_Reference 005e 01de | | Execute Vector,Not_Equal 005f 6842 |hB | Jump_Zero 0xa2 0060 e062 | b | Load 0x0,0x62 0061 681f |h | Jump_Zero 0x81 0062 e604 | | Load 0x3,0x4 0063 0227 | ' | Execute Access,All_Reference 0064 01dd | | Execute Vector,First 0065 e604 | | Load 0x3,0x4 0066 0227 | ' | Execute Access,All_Reference 0067 01d7 | | Execute Vector,Field_Read 0068 e01a | | Load 0x0,0x1a 0069 1810 | | Execute Package,Field_Execute,Field_Number 0x10 006a e608 | | Load 0x3,0x8 006b e01a | | Load 0x0,0x1a 006c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 006d 027e | ~ | Execute Discrete,Not_Equal 006e 680f |h | Jump_Zero 0x7e 006f e608 | | Load 0x3,0x8 0070 6805 |h | Jump_Zero 0x76 0071 4801 |H | Short_Literal 0x1 0072 4800 |H | Short_Literal 0x0 0073 e07a | z | Load 0x0,0x7a 0074 e01e | | Load 0x0,0x1e 0075 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0076 e604 | | Load 0x3,0x4 0077 0227 | ' | Execute Access,All_Reference 0078 01dd | | Execute Vector,First 0079 e604 | | Load 0x3,0x4 007a 0227 | ' | Execute Access,All_Reference 007b 01d7 | | Execute Vector,Field_Read 007c a608 | | Store_Unchecked 0x3,0x8 007d 781d |x | Jump 0x9b 007e e015 | | Load 0x0,0x15 007f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0080 781a |x | Jump 0x9b 0081 e604 | | Load 0x3,0x4 0082 0227 | ' | Execute Access,All_Reference 0083 01dd | | Execute Vector,First 0084 e604 | | Load 0x3,0x4 0085 0227 | ' | Execute Access,All_Reference 0086 01d7 | | Execute Vector,Field_Read 0087 e608 | | Load 0x3,0x8 0088 027e | ~ | Execute Discrete,Not_Equal 0089 680f |h | Jump_Zero 0x99 008a e608 | | Load 0x3,0x8 008b 6805 |h | Jump_Zero 0x91 008c 4801 |H | Short_Literal 0x1 008d 4800 |H | Short_Literal 0x0 008e e07a | z | Load 0x0,0x7a 008f e01e | | Load 0x0,0x1e 0090 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0091 e604 | | Load 0x3,0x4 0092 0227 | ' | Execute Access,All_Reference 0093 01dd | | Execute Vector,First 0094 e604 | | Load 0x3,0x4 0095 0227 | ' | Execute Access,All_Reference 0096 01d7 | | Execute Vector,Field_Read 0097 a608 | | Store_Unchecked 0x3,0x8 0098 7802 |x | Jump 0x9b 0099 e015 | | Load 0x0,0x15 009a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 009b 860d | | Call 0x3,0xd 009c e604 | | Load 0x3,0x4 009d a607 | | Store_Unchecked 0x3,0x7 009e 4fff |O | Short_Literal -0x1 009f a609 | | Store_Unchecked 0x3,0x9 00a0 4801 |H | Short_Literal 0x1 00a1 a605 | | Store_Unchecked 0x3,0x5 00a2 e609 | | Load 0x3,0x9 00a3 e603 | | Load 0x3,0x3 00a4 0217 | | Execute Heap_Access,All_Reference 00a5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00a6 027e | ~ | Execute Discrete,Not_Equal 00a7 7006 |p | Jump_Nonzero 0xae 00a8 e60a | | Load 0x3,0xa 00a9 e603 | | Load 0x3,0x3 00aa 0217 | | Execute Heap_Access,All_Reference 00ab 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00ac 027e | ~ | Execute Discrete,Not_Equal 00ad 6848 |hH | Jump_Zero 0xf6 00ae e603 | | Load 0x3,0x3 00af 0217 | | Execute Heap_Access,All_Reference 00b0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00b1 6812 |h | Jump_Zero 0xc4 00b2 e603 | | Load 0x3,0x3 00b3 0217 | | Execute Heap_Access,All_Reference 00b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00b5 4801 |H | Short_Literal 0x1 00b6 e606 | | Load 0x3,0x6 00b7 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 00b8 01d6 | | Execute Vector,Field_Write 00b9 e603 | | Load 0x3,0x3 00ba 0217 | | Execute Heap_Access,All_Reference 00bb 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00bc 4802 |H | Short_Literal 0x2 00bd e606 | | Load 0x3,0x6 00be 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 00bf 01d6 | | Execute Vector,Field_Write 00c0 4802 |H | Short_Literal 0x2 00c1 e606 | | Load 0x3,0x6 00c2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00c3 780a |x | Jump 0xce 00c4 e603 | | Load 0x3,0x3 00c5 0217 | | Execute Heap_Access,All_Reference 00c6 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00c7 4801 |H | Short_Literal 0x1 00c8 e606 | | Load 0x3,0x6 00c9 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 00ca 01d6 | | Execute Vector,Field_Write 00cb 4801 |H | Short_Literal 0x1 00cc e606 | | Load 0x3,0x6 00cd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00ce e603 | | Load 0x3,0x3 00cf 0217 | | Execute Heap_Access,All_Reference 00d0 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 00d1 e606 | | Load 0x3,0x6 00d2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00d3 e602 | | Load 0x3,0x2 00d4 e606 | | Load 0x3,0x6 00d5 e033 | 3 | Load 0x0,0x33 00d6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00d7 00d1 | | Pop_Control Pop_Count_1 00d8 c602 | | Store 0x3,0x2 00d9 e605 | | Load 0x3,0x5 00da 6803 |h | Jump_Zero 0xde 00db 4800 |H | Short_Literal 0x0 00dc a605 | | Store_Unchecked 0x3,0x5 00dd 7808 |x | Jump 0xe6 00de e602 | | Load 0x3,0x2 00df 0092 0122 | "| Action Push_String_Extended,0x122 ; ", " 00e1 4801 |H | Short_Literal 0x1 00e2 e011 | | Load 0x0,0x11 00e3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e4 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00e5 c602 | | Store 0x3,0x2 00e6 e602 | | Load 0x3,0x2 00e7 e015 | | Load 0x0,0x15 00e8 180f | | Execute Package,Field_Execute,Field_Number 0xf 00e9 e602 | | Load 0x3,0x2 00ea e011 | | Load 0x0,0x11 00eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ec 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00ed c602 | | Store 0x3,0x2 00ee e603 | | Load 0x3,0x3 00ef 0217 | | Execute Heap_Access,All_Reference 00f0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00f1 a609 | | Store_Unchecked 0x3,0x9 00f2 e603 | | Load 0x3,0x3 00f3 0217 | | Execute Heap_Access,All_Reference 00f4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00f5 a60a | | Store_Unchecked 0x3,0xa 00f6 00c8 | | Action Pop_Auxiliary_Range 00f7 3f5b |?[ | Loop_Increasing 0x53 00f8 00ce | | Action Pop_Auxiliary 00f9 e60c | | Load 0x3,0xc 00fa e01d | | Load 0x0,0x1d 00fb 3816 |8 | Execute Record,Field_Write,Field_Number 0x16 00fc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00fd 0000 0000 | | .XXX[0x3] 00ff 0000 | | 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 e60c | | Load 0x3,0xc 0104 a60b | | Store_Unchecked 0x3,0xb 0105 e602 | | Load 0x3,0x2 0106 e604 | | Load 0x3,0x4 0107 0227 | ' | Execute Access,All_Reference 0108 e011 | | Load 0x0,0x11 0109 1b0d | | Execute Package,Field_Read,Field_Number 0xd 010a 1819 | | Execute Package,Field_Execute,Field_Number 0x19 010b c602 | | Store 0x3,0x2 010c e602 | | Load 0x3,0x2 010d e015 | | Load 0x0,0x15 010e 180f | | Execute Package,Field_Execute,Field_Number 0xf 010f e602 | | Load 0x3,0x2 0110 e011 | | Load 0x0,0x11 0111 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0112 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0113 c602 | | Store 0x3,0x2 0114 6007 |` | Indirect_Literal Discrete,0x11c,{0x00000000, 0x00004650} 0115 e02c | , | Load 0x0,0x2c 0116 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0117 e02c | , | Load 0x0,0x2c 0118 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0119 a60b | | Store_Unchecked 0x3,0xb 011a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 011b 0000 | | .XXX[0x1] 011c 0000 0000 | | .LITERAL {0x00000000, 0x00004650} 0120 ; -------------------------------------------------------------------------------------- 0120 ; STRING TABLE 0120 ; -------------------------------------------------------------------------------------- 0120 0008 | | .STRTAB 0x0008->0x0124 ; " " 0121 0007 | | .STRTAB 0x0007->0x0124 ; "Index has no entries" 0122 0019 | | .STRTAB 0x0019->0x012e ; ", " 0123 0019 | | .STREND 0x0019->0x012f 0124 2049 6e64 | Ind| .STRTAB_STRINGS 0130 ; -------------------------------------------------------------------------------------- 0130 ; Debug Table 0130 ; -------------------------------------------------------------------------------------- 0130 0004 000f | | .DEBUG4 0x0004,0x000f,0x480e,0x0000,0x0001,0x0000 0136 fa9a a292 | | .XXX[0xb1] 0138 4a72 3afa |Jr: | 013a 6a0a 720a |j r | 013c 3a2a 9172 |:* r| 013e 9a2a a2fa | * | 0140 622a 723a |b*r:| 0142 a241 ebdc | A | 0144 a3fc 8120 | | 0146 0032 a20a | 2 | 0148 923a 2aa0 | :* | 014a b801 0aaa | | 014c 7212 7aaa |r z | 014e 7222 2a22 |r"*"| 0150 fa9a a292 | | 0152 4a72 3afa |Jr: | 0154 6a0a 720a |j r | 0156 3a2a 9172 |:* r| 0158 aafa 9aa2 | | 015a 924a 7238 | Jr8| 015c 03f4 8118 | | 015e 0052 722a | Rr*| 0160 bafa 622a | b*| 0162 723a a240 |r: @| 0164 b800 829a | | 0166 a20a 7222 | r"| 0168 0a92 2172 | !r| 016a 720a a2aa |r | 016c 920a 6003 | ` | 016e f481 1800 | | 0170 4a32 4a62 |J2Jb| 0172 62fa ba4a |b J| 0174 a240 b800 | @ | 0176 929a a20a | | 0178 7222 0a92 |r" | 017a 2172 1a42 |!r B| 017c 0a92 0a1a | | 017e a22a 9060 | * `| 0180 00b2 9aa2 | | 0182 0a72 220a | r" | 0184 9221 721a | !r | 0186 420a 920a |B | 0188 1aa2 2a91 | * | 018a 7139 0138 |q9 8| 018c 0000 0000 | | 018e 0000 0001 | | 0190 6000 0000 |` | 0192 1000 0002 | | 0194 6002 1554 |` T| 0196 e424 f554 | $ T| 0198 e444 5445 | DTE| 019a f535 4524 | 5E$| 019c 94e4 75f4 | u | 019e d414 e414 | | 01a0 7455 22e5 |tU" | 01a2 55f5 3545 |U 5E| 01a4 2494 e473 |$ s| 01a6 b997 1000 | | 01a8 0000 0000 | | 01aa 0000 4000 | @ | 01ac 0000 2000 | | 01ae 000e 2003 | | 01b0 aaa9 c849 | I| 01b2 eaa9 c888 | | 01b4 a88b ea6a | j| 01b6 8a49 29c8 | I) | 01b8 ebe9 a829 | )| 01ba c828 e8aa | ( | 01bc 45c8 69ea |E i | 01be 0b27 af72 | ' r| 01c0 8ff2 0480 | | 01c2 00ca 882a | *| 01c4 48e8 aa82 |H | 01c6 e004 2aa9 | * | 01c8 c849 eaa9 | I | 01ca c888 a88b | | 01cc ea6a 8a49 | j I| 01ce 29c8 ebe9 |) | 01d0 a829 c828 | ) (| 01d2 e8aa 45ca | E | 01d4 abea 6a8a | j | 01d6 4929 c8e0 |I) | 01d8 0fd2 0460 | `| 01da 00ca 69ea | i | 01dc aa48 68a2 | Hh | 01de e001 ea6a | j| 01e0 8829 c888 | ) | 01e2 2a48 85ca |*H | 01e4 6a8a 4929 |j I)| 01e6 c8e0 | | 01e7 0000 0000 | | .BLANK 0000[0x4] 01eb 0280 0000 | | .XXX[0x15] 01ed 0040 0000 | @ | 01ef 1cc0 07d5 | | 01f1 5390 93d5 |S | 01f3 5391 1151 |S Q| 01f5 17d4 d514 | | 01f7 9253 91d7 | S | 01f9 d350 5390 | PS | 01fb 51d1 548b |Q T | 01fd 9054 1411 | T | 01ff 5391 |S |