|
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_043cfb
└─⟦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 0140 | @ | .CONST 0x0140 ; 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 0098 | | .CONST 0x0098 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0014 | | .CONST 0x0014 ; Number of locals 000b INIT_0008: 000b 4976 |Iv | Short_Literal 0x176 000c 00eb | | Load_Encached Diana_Cache 000d 0098 | | Execute Package,Field_Read_Dynamic 000e 1913 | | Execute Package,Field_Reference,Field_Number 0x13 000f 0129 | ) | Execute Any,Make_Visible 0010 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0012 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0014 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0016 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0018 00bf | | Action Accept_Activation 0019 00eb | | Load_Encached Diana_Cache 001a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 001b 0266 | f | Execute Discrete,Bounds 001c 00e1 | | Load_Encached Boolean_Cache 001d 02a0 | | Declare_Subprogram Null_Subprogram 001e 4801 |H | Short_Literal 0x1 001f 035d | ] | Declare_Type Array,Defined 0020 00d8 | | Load_Top At_Offset_0 0021 0337 | 7 | Declare_Variable Array 0022 4801 |H | Short_Literal 0x1 0023 483d |H= | Short_Literal 0x3d 0024 00da | | Load_Top At_Offset_2 0025 01d6 | | Execute Vector,Field_Write 0026 4801 |H | Short_Literal 0x1 0027 4848 |HH | Short_Literal 0x48 0028 00da | | Load_Top At_Offset_2 0029 01d6 | | Execute Vector,Field_Write 002a 4801 |H | Short_Literal 0x1 002b 483e |H> | Short_Literal 0x3e 002c 00da | | Load_Top At_Offset_2 002d 01d6 | | Execute Vector,Field_Write 002e 4801 |H | Short_Literal 0x1 002f 4847 |HG | Short_Literal 0x47 0030 00da | | Load_Top At_Offset_2 0031 01d6 | | Execute Vector,Field_Write 0032 4801 |H | Short_Literal 0x1 0033 483f |H? | Short_Literal 0x3f 0034 00da | | Load_Top At_Offset_2 0035 01d6 | | Execute Vector,Field_Write 0036 4801 |H | Short_Literal 0x1 0037 4846 |HF | Short_Literal 0x46 0038 00da | | Load_Top At_Offset_2 0039 01d6 | | Execute Vector,Field_Write 003a 4801 |H | Short_Literal 0x1 003b 4841 |HA | Short_Literal 0x41 003c 00da | | Load_Top At_Offset_2 003d 01d6 | | Execute Vector,Field_Write 003e 4801 |H | Short_Literal 0x1 003f 483b |H; | Short_Literal 0x3b 0040 00da | | Load_Top At_Offset_2 0041 01d6 | | Execute Vector,Field_Write 0042 4801 |H | Short_Literal 0x1 0043 4858 |HX | Short_Literal 0x58 0044 00da | | Load_Top At_Offset_2 0045 01d6 | | Execute Vector,Field_Write 0046 483a |H: | Short_Literal 0x3a 0047 4800 |H | Short_Literal 0x0 0048 4800 |H | Short_Literal 0x0 0049 00d9 | | Load_Top At_Offset_1 004a e213 | | Load 0x1,0x13 004b 01d6 | | Execute Vector,Field_Write 004c 3ffb |? | Loop_Increasing 0x48 004d 4800 |H | Short_Literal 0x0 004e 483c |H< | Short_Literal 0x3c 004f 00da | | Load_Top At_Offset_2 0050 01d6 | | Execute Vector,Field_Write 0051 4800 |H | Short_Literal 0x0 0052 4840 |H@ | Short_Literal 0x40 0053 00da | | Load_Top At_Offset_2 0054 01d6 | | Execute Vector,Field_Write 0055 4845 |HE | Short_Literal 0x45 0056 4842 |HB | Short_Literal 0x42 0057 4800 |H | Short_Literal 0x0 0058 00d9 | | Load_Top At_Offset_1 0059 e213 | | Load 0x1,0x13 005a 01d6 | | Execute Vector,Field_Write 005b 3ffb |? | Loop_Increasing 0x57 005c 4857 |HW | Short_Literal 0x57 005d 4849 |HI | Short_Literal 0x49 005e 4800 |H | Short_Literal 0x0 005f 00d9 | | Load_Top At_Offset_1 0060 e213 | | Load 0x1,0x13 0061 01d6 | | Execute Vector,Field_Write 0062 3ffb |? | Loop_Increasing 0x5e 0063 48ad |H | Short_Literal 0xad 0064 4859 |HY | Short_Literal 0x59 0065 4800 |H | Short_Literal 0x0 0066 00d9 | | Load_Top At_Offset_1 0067 e213 | | Load 0x1,0x13 0068 01d6 | | Execute Vector,Field_Write 0069 3ffb |? | Loop_Increasing 0x65 006a 00d9 | | Load_Top At_Offset_1 006b 01c3 | | Execute Vector,Check_In_Type 006c 0007 | | Action Break_Optional 006d 00d9 | | Load_Top At_Offset_1 006e 0337 | 7 | Declare_Variable Array 006f 4801 |H | Short_Literal 0x1 0070 481c |H | Short_Literal 0x1c 0071 00da | | Load_Top At_Offset_2 0072 01d6 | | Execute Vector,Field_Write 0073 4801 |H | Short_Literal 0x1 0074 481e |H | Short_Literal 0x1e 0075 00da | | Load_Top At_Offset_2 0076 01d6 | | Execute Vector,Field_Write 0077 4801 |H | Short_Literal 0x1 0078 481f |H | Short_Literal 0x1f 0079 00da | | Load_Top At_Offset_2 007a 01d6 | | Execute Vector,Field_Write 007b 481b |H | Short_Literal 0x1b 007c 4800 |H | Short_Literal 0x0 007d 4800 |H | Short_Literal 0x0 007e 00d9 | | Load_Top At_Offset_1 007f e214 | | Load 0x1,0x14 0080 01d6 | | Execute Vector,Field_Write 0081 3ffb |? | Loop_Increasing 0x7d 0082 4800 |H | Short_Literal 0x0 0083 481d |H | Short_Literal 0x1d 0084 00da | | Load_Top At_Offset_2 0085 01d6 | | Execute Vector,Field_Write 0086 48ad |H | Short_Literal 0xad 0087 4820 |H | Short_Literal 0x20 0088 4800 |H | Short_Literal 0x0 0089 00d9 | | Load_Top At_Offset_1 008a e214 | | Load 0x1,0x14 008b 01d6 | | Execute Vector,Field_Write 008c 3ffb |? | Loop_Increasing 0x88 008d 00da | | Load_Top At_Offset_2 008e 01c3 | | Execute Vector,Check_In_Type 008f 0007 | | Action Break_Optional 0090 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0091 00c7 | | Action Elaborate_Subprogram 0092 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0093 00c7 | | Action Elaborate_Subprogram 0094 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0095 00c7 | | Action Elaborate_Subprogram 0096 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0097 00c7 | | Action Elaborate_Subprogram 0098 BODY_0008: 0098 00bc | | Action Signal_Activated 0099 00bb | | Action Signal_Completion 009a 0000 0000 | | .BLANK 0000[0x6] 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 00da | | Load_Top At_Offset_2 00a4 00eb | | Load_Encached Diana_Cache 00a5 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 00a6 00eb | | Load_Encached Diana_Cache 00a7 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 00a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a9 0000 0000 | | .BLANK 0000[0x7] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b6 | | .CONST 0x00b6 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0003 | | .CONST 0x0003 ; Number of locals 00b3 INIT_00b0: 00b3 00ec | | Load_Encached Diana_Tree_Cache 00b4 029f 011b | | Declare_Subprogram INIT_0118,For_Call 00b6 BODY_00b0: 00b6 e5ff | | Load 0x2,-0x1 00b7 820d | | Call 0x1,0xd 00b8 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00b9 00d9 | | Load_Top At_Offset_1 00ba 00eb | | Load_Encached Diana_Cache 00bb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00bc 6806 |h | Jump_Zero 0xc3 00bd e5ff | | Load 0x2,-0x1 00be 00eb | | Load_Encached Diana_Cache 00bf 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 00c0 00eb | | Load_Encached Diana_Cache 00c1 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 00c2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c3 00d9 | | Load_Top At_Offset_1 00c4 00eb | | Load_Encached Diana_Cache 00c5 18ec | | Execute Package,Field_Execute,Field_Number 0xec 00c6 00da | | Load_Top At_Offset_2 00c7 8403 | | Call 0x2,0x3 00c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c9 0000 0000 | | .BLANK 0000[0x7] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 00da | | Load_Top At_Offset_2 00d4 00eb | | Load_Encached Diana_Cache 00d5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00d6 0f17 | | Execute_Immediate Equal,0x17 00d7 7002 |p | Jump_Nonzero 0xda 00d8 4800 |H | Short_Literal 0x0 00d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00da 00da | | Load_Top At_Offset_2 00db 00eb | | Load_Encached Diana_Cache 00dc 18fa | | Execute Package,Field_Execute,Field_Number 0xfa 00dd 00eb | | Load_Encached Diana_Cache 00de 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00df e214 | | Load 0x1,0x14 00e0 01d7 | | Execute Vector,Field_Read 00e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e2 0000 0000 | | .BLANK 0000[0x6] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00ed | | .CONST 0x00ed ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0003 | | .CONST 0x0003 ; Number of locals 00eb INIT_00e8: 00eb 00ec | | Load_Encached Diana_Tree_Cache 00ec 00ec | | Load_Encached Diana_Tree_Cache 00ed BODY_00e8: 00ed e5ff | | Load 0x2,-0x1 00ee 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00ef 00cf | | Action Mark_Auxiliary 00f0 00da | | Load_Top At_Offset_2 00f1 00eb | | Load_Encached Diana_Cache 00f2 18ec | | Execute Package,Field_Execute,Field_Number 0xec 00f3 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00f4 00d9 | | Load_Top At_Offset_1 00f5 00eb | | Load_Encached Diana_Cache 00f6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00f7 6808 |h | Jump_Zero 0x100 00f8 00da | | Load_Top At_Offset_2 00f9 e001 | | Load 0x0,0x1 00fa 180d | | Execute Package,Field_Execute,Field_Number 0xd 00fb 6804 |h | Jump_Zero 0x100 00fc 00da | | Load_Top At_Offset_2 00fd e001 | | Load 0x0,0x1 00fe 180e | | Execute Package,Field_Execute,Field_Number 0xe 00ff 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0100 00d9 | | Load_Top At_Offset_1 0101 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0102 00da | | Load_Top At_Offset_2 0103 00eb | | Load_Encached Diana_Cache 0104 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0105 7008 |p | Jump_Nonzero 0x10e 0106 00da | | Load_Top At_Offset_2 0107 00eb | | Load_Encached Diana_Cache 0108 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0109 e213 | | Load 0x1,0x13 010a 01d7 | | Execute Vector,Field_Read 010b 7002 |p | Jump_Nonzero 0x10e 010c 00c9 | | Action Pop_Auxiliary_Loop 010d 7fe2 | | Jump 0xf0 010e 00ce | | Action Pop_Auxiliary 010f 00d9 | | Load_Top At_Offset_1 0110 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0111 0000 0000 | | .BLANK 0000[0x7] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011c | | .CONST 0x011c ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0002 | | .CONST 0x0002 ; Number of locals 011b INIT_0118: 011b 00ec | | Load_Encached Diana_Tree_Cache 011c BODY_0118: 011c e7fe | | Load 0x3,-0x2 011d 8211 | | Call 0x1,0x11 011e 0031 | 1 | Store_Top Heap_Access,At_Offset_1 011f 00d8 | | Load_Top At_Offset_0 0120 00eb | | Load_Encached Diana_Cache 0121 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0122 6806 |h | Jump_Zero 0x129 0123 00db | | Load_Top At_Offset_3 0124 00eb | | Load_Encached Diana_Cache 0125 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0126 00eb | | Load_Encached Diana_Cache 0127 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0128 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0129 00d8 | | Load_Top At_Offset_0 012a 4976 |Iv | Short_Literal 0x176 012b 00eb | | Load_Encached Diana_Cache 012c 0098 | | Execute Package,Field_Read_Dynamic 012d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 012e a402 | | Store_Unchecked 0x2,0x2 012f 482e |H. | Short_Literal 0x2e 0130 00d9 | | Load_Top At_Offset_1 0131 e402 | | Load 0x2,0x2 0132 8403 | | Call 0x2,0x3 0133 01cb | | Execute Vector,Append 0134 e7ff | | Load 0x3,-0x1 0135 00eb | | Load_Encached Diana_Cache 0136 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0137 00eb | | Load_Encached Diana_Cache 0138 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0139 01cc | | Execute Vector,Catenate 013a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 013b 0000 0000 | | .BLANK 0000[0x5] 0140 ; -------------------------------------------------------------------------------------- 0140 ; Debug Table 0140 ; -------------------------------------------------------------------------------------- 0140 0004 000f | | .DEBUG4 0x0004,0x000f,0x4ae6,0x0000,0x0001,0x0000 0146 0000 4046 | @F| .XXX[0x3] 0148 8840 | @ | 0149 0000 0000 | | .BLANK 0000[0x1b] 0164 6000 0575 |` u| .XXX[0x1e] 0166 4824 0079 |H$ y| 0168 e000 0003 | | 016a ab44 c808 | D | 016c 0040 0029 | @ )| 016e 0000 0001 | | 0170 ac60 0002 | ` | 0172 0000 0001 | | 0174 8014 0000 | | 0176 0004 0000 | | 0178 0100 0000 | | 017a 0880 0000 | | 017c 0004 0000 | | 017e 0029 0000 | ) | 0180 1008 d278 | x| 0182 0000 0000 | | .BLANK 0000[0x1b] 019d 0c00 00ae | | .XXX[0x3c] 019f a504 800f | | 01a1 3d00 0000 |= | 01a3 7454 9701 |tT | 01a5 0008 0005 | | 01a7 2000 0000 | | 01a9 1f74 0003 | t | 01ab 1000 0001 | | 01ad 3002 8000 |0 | 01af 0000 8000 | | 01b1 0020 0000 | | 01b3 0110 0000 | | 01b5 0000 8000 | | 01b7 0005 2000 | | 01b9 1801 1a62 | b| 01bb a000 1801 | | 01bd 1a63 2000 | c | 01bf 0701 1515 | | 01c1 a000 1801 | | 01c3 1a64 0000 | d | 01c5 0000 0000 | | 01c7 2000 1801 | | 01c9 1a68 2000 | h | 01cb 1401 15da | | 01cd a000 0b01 | | 01cf 154a 2000 | J | 01d1 1301 15d2 | | 01d3 a000 1801 | | 01d5 1a68 8080 | h | 01d7 0013 1400 | | 01d9 0000 0000 | | .BLANK 0000[0x27]