|
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 92de 5c88 | \ | .XXX[0x1e] 0148 d2e4 cac6 | | 014a e8be 92de | | 014c 5c92 e6be |\ | 014e 9ee0 cadc | | 0150 0000 0012 | | 0152 0000 002a | *| 0154 4292 de5c |B \| 0156 88d2 e4ca | | 0158 c6e8 be92 | | 015a de5c 92e6 | \ | 015c be9e e0ca | | 015e dc00 0000 | | 0160 0001 24e8 | $ | 0162 2e00 f37a |. z| 0164 0000 0000 | | .BLANK 0000[0x5] 0169 0009 0000 | | .XXX[0x43] 016b 0012 2149 | !I| 016d 6f2e 4469 |o.Di| 016f 7265 6374 |rect| 0171 5f49 6f2e |_Io.| 0173 4d6f 6465 |Mode| 0175 0000 0009 | | 0177 0000 0012 | | 0179 2149 6f2e |!Io.| 017b 4469 7265 |Dire| 017d 6374 5f49 |ct_I| 017f 6f2e 4d6f |o.Mo| 0181 6465 0000 |de | 0183 0000 0092 | | 0185 7680 007a |v z| 0187 5c03 4026 |\ @&| 0189 d203 3f63 | ?c| 018b 8780 0000 | | 018d 0480 0000 | | 018f 0910 a4b7 | | 0191 9722 34b9 | "4 | 0193 32b1 ba2f |2 /| 0195 a4b7 9727 | '| 0197 30b6 b280 |0 | 0199 0000 0480 | | 019b 0000 0910 | | 019d a4b7 9722 | "| 019f 34b9 32b1 |4 2 | 01a1 ba2f a4b7 | / | 01a3 9727 30b6 | '0 | 01a5 b280 0000 | | 01a7 0000 493c | I<| 01a9 5c80 3d7d |\ =}| 01ab 8000 | | 01ac 0000 0000 | | .BLANK 0000[0x4] 01b0 0002 4000 | @ | .XXX[0x1f] 01b2 0004 8852 | R| 01b4 5bcb 911a |[ | 01b6 5c99 58dd |\ X | 01b8 17d2 5bcb | [ | 01ba 93dc 195b | [| 01bc 8000 0002 | | 01be 4000 0004 |@ | 01c0 8852 5bcb | R[ | 01c2 911a 5c99 | \ | 01c4 58dd 17d2 |X | 01c6 5bcb 93dc |[ | 01c8 195b 8000 | [ | 01ca 0000 0024 | $| 01cc 9ebc 801e | | 01ce e680 | | 01cf 0000 0000 | | .BLANK 0000[0x5] 01d4 0120 0000 | | .XXX[0x2c] 01d6 0384 292d | )-| 01d8 e5c8 8d2e | .| 01da 4cac 6e8b |L n | 01dc e92d e5ca | - | 01de 0dee 6d2e | m.| 01e0 8d2e ccab | . | 01e2 e86d eead | m | 01e4 ce80 0000 | | 01e6 0120 0000 | | 01e8 0384 292d | )-| 01ea e5c8 8d2e | .| 01ec 4cac 6e8b |L n | 01ee e92d e5ca | - | 01f0 0dee 6d2e | m.| 01f2 8d2e ccab | . | 01f4 e86d eead | m | 01f6 ce80 0000 | | 01f8 0000 124f | O| 01fa a560 0f87 | ` | 01fc 2000 0000 | | 01fe 0000 0000 | |