|
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_5e40f2
└─⟦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 0080 | | .CONST 0x0080 ; 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 0028 | ( | .CONST 0x0028 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000e | | .CONST 0x000e ; Number of locals 000b INIT_0008: 000b e214 | | Load 0x1,0x14 000c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 000d e214 | | Load 0x1,0x14 000e 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 000f e214 | | Load 0x1,0x14 0010 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0011 00e1 | | Load_Encached Boolean_Cache 0012 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0013 029f 004b | K| Declare_Subprogram INIT_0048,For_Call 0015 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call 0017 e013 | | Load 0x0,0x13 0018 1916 | | Execute Package,Field_Reference,Field_Number 0x16 0019 00c6 | | Action Check_Subprogram_Elaborated 001a 4806 |H | Short_Literal 0x6 001b 4802 |H | Short_Literal 0x2 001c 0099 | | Action Reference_Dynamic 001d 4807 |H | Short_Literal 0x7 001e 4802 |H | Short_Literal 0x2 001f 0099 | | Action Reference_Dynamic 0020 e019 | | Load 0x0,0x19 0021 e01a | | Load 0x0,0x1a 0022 480c |H | Short_Literal 0xc 0023 0007 | | Action Break_Optional 0024 e01b | | Load 0x0,0x1b 0025 02ab | | Declare_Subprogram For_Call,With_Address 0026 e01c | | Load 0x0,0x1c 0027 02ab | | Declare_Subprogram For_Call,With_Address 0028 BODY_0008: 0028 e214 | | Load 0x1,0x14 0029 1b12 | | Execute Package,Field_Read,Field_Number 0x12 002a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 002b e011 | | Load 0x0,0x11 002c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 002d e018 | | Load 0x0,0x18 002e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 002f e214 | | Load 0x1,0x14 0030 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0031 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0032 c402 | | Store 0x2,0x2 0033 e214 | | Load 0x1,0x14 0034 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 0035 e214 | | Load 0x1,0x14 0036 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0037 c403 | | Store 0x2,0x3 0038 e5ff | | Load 0x2,-0x1 0039 840d | | Call 0x2,0xd 003a e214 | | Load 0x1,0x14 003b 1b13 | | Execute Package,Field_Read,Field_Number 0x13 003c e403 | | Load 0x2,0x3 003d e214 | | Load 0x1,0x14 003e 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 003f c404 | | Store 0x2,0x4 0040 e5fb | | Load 0x2,-0x5 0041 e5fc | | Load 0x2,-0x4 0042 e5fd | | Load 0x2,-0x3 0043 e5fe | | Load 0x2,-0x2 0044 e404 | | Load 0x2,0x4 0045 840e | | Call 0x2,0xe 0046 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0047 0000 | | .XXX[0x1] 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 e402 | | Load 0x2,0x2 004d e214 | | Load 0x1,0x14 004e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 004f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 00da | | Load_Top At_Offset_2 0054 8213 | | Call 0x1,0x13 0055 e405 | | Load 0x2,0x5 0056 6811 |h | Jump_Zero 0x68 0057 e00e | | Load 0x0,0xe 0058 180e | | Execute Package,Field_Execute,Field_Number 0xe 0059 4800 |H | Short_Literal 0x0 005a e7fe | | Load 0x3,-0x2 005b e008 | | Load 0x0,0x8 005c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 005d 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 005e 0092 0073 | s| Action Push_String_Extended,0x73 ; " depends upon " 0060 01cc | | Execute Vector,Catenate 0061 e7ff | | Load 0x3,-0x1 0062 e008 | | Load 0x0,0x8 0063 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0064 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0065 01cc | | Execute Vector,Catenate 0066 e00f | | Load 0x0,0xf 0067 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0068 00db | | Load_Top At_Offset_3 0069 00db | | Load_Top At_Offset_3 006a e403 | | Load 0x2,0x3 006b e214 | | Load 0x1,0x14 006c 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 006d e402 | | Load 0x2,0x2 006e 00db | | Load_Top At_Offset_3 006f e214 | | Load 0x1,0x14 0070 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0071 c402 | | Store 0x2,0x2 0072 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0073 ; -------------------------------------------------------------------------------------- 0073 ; STRING TABLE 0073 ; -------------------------------------------------------------------------------------- 0073 0004 | | .STRTAB 0x0004->0x0075 ; " depends upon " 0074 0010 | | .STREND 0x0010->0x007c 0075 2064 6570 | dep| .STRTAB_STRINGS 007c 0000 0000 | | .BLANK 0000[0x4] 0080 ; -------------------------------------------------------------------------------------- 0080 ; Debug Table 0080 ; -------------------------------------------------------------------------------------- 0080 0004 000d | | .DEBUG4 0x0004,0x000d,0x96c6,0x0000,0x0001,0x0000 0086 b925 3951 | %9Q| .XXX[0x5] 0088 151d 1548 | H| 008a 0020 | | 008b 0000 0000 | | .BLANK 0000[0x5] 0090 0001 3400 | 4 | .XXX[0x3f] 0092 0003 6800 | h | 0094 8905 417d | A}| 0096 0d3d 3535 | =55| 0098 3d39 7d41 |=9}A| 009a 493d 0d15 |I= | 009c 1155 4915 | UI | 009e 4cb9 0541 |L A| 00a0 7d0d 3d41 |} =A| 00a2 657d 1925 |e} %| 00a4 1531 10f5 | 1 | 00a6 ee51 fa40 | Q @| 00a8 8c00 213d | !=| 00aa 3111 7d19 |1 } | 00ac 493d 345c |I=4\| 00ae 0041 4d51 | AMQ| 00b0 0539 1105 | 9 | 00b2 4910 b925 |I %| 00b4 3951 151d |9Q | 00b6 1548 2000 | H | 00b8 0000 0000 | | 00ba 0000 0005 | | 00bc fa40 8c00 | @ | 00be 193d 3111 | =1 | 00c0 7d51 3c5c |}Q<\| 00c2 0041 4d51 | AMQ| 00c4 0539 1105 | 9 | 00c6 4910 b925 |I %| 00c8 3951 151d |9Q | 00ca 1548 4000 | H@ | 00cc 5400 04b6 |T | 00ce 4c20 |L | 00cf 0000 0000 | | .BLANK 0000[0x4] 00d3 05fa 408c | @ | .XXX[0x11] 00d5 0021 3915 | !9 | 00d7 5d7d 1949 |]} I| 00d9 3d34 5c00 |=4\ | 00db 414d 5105 |AMQ | 00dd 3911 0549 |9 I| 00df 10b9 2539 | %9| 00e1 5115 1d15 |Q | 00e3 4820 |H | 00e4 0000 0000 | | .BLANK 0000[0x4] 00e8 05fa 408c | @ | .XXX[0x38] 00ea 0019 3915 | 9 | 00ec 5d7d 513c |]}Q<| 00ee 5c00 414d |\ AM| 00f0 5105 3911 |Q 9 | 00f2 0549 10b9 | I | 00f4 2539 5115 |%9Q | 00f6 1d15 4840 | H@| 00f8 0054 0004 | T | 00fa b64c 2000 | L | 00fc 0000 0000 | | 00fe 0000 0004 | | 0100 0000 0000 | | 0102 1c00 0002 | | 0104 ec00 bd05 | | 0106 417d 0d3d |A} =| 0108 3535 3d39 |55=9| 010a 7d41 493d |}AI=| 010c 0d15 1155 | U| 010e 4915 4cb9 |I L | 0110 0531 2505 | 1% | 0112 4d7d 3905 |M}9 | 0114 3515 7d31 |5 }1| 0116 254d 517d |%MQ}| 0118 0549 4905 | II | 011a 657d 5165 |e}Qe| 011c 4114 ee65 |A e| 011e b18d 8420 | | 0120 0000 0000 | | .BLANK 0000[0x4] 0124 0440 0054 | @ T| .XXX[0x8c] 0126 0004 ae4c | L| 0128 2440 0054 |$@ T| 012a 0004 aa4c | L| 012c 2000 0000 | | 012e 0000 0000 | | 0130 0008 5800 | X | 0132 a505 417d | A}| 0134 0d3d 3535 | =55| 0136 3d39 7d41 |=9}A| 0138 493d 0d15 |I= | 013a 1155 4915 | UI | 013c 4cb9 0531 |L 1| 013e 2505 4d7d |% M}| 0140 3505 617d |5 a}| 0142 0549 4905 | II | 0144 657d 4d25 |e}M%| 0146 6914 2000 |i | 0148 0000 0000 | | 014a 0000 0011 | | 014c 985c 0099 | \ | 014e 0541 7d0d | A} | 0150 3d35 353d |=55=| 0152 397d 4149 |9}AI| 0154 3d0d 1511 |= | 0156 5549 154c |UI L| 0158 b905 3125 | 1%| 015a 054d 7d49 | M}I| 015c 150d 3d49 | =I| 015e 117d 2d25 | }-%| 0160 3910 0000 |9 | 0162 0000 0038 | 8| 0164 0000 0688 | | 0166 00a9 0541 | A| 0168 7d0d 3d35 |} =5| 016a 353d 397d |5=9}| 016c 4149 3d0d |AI= | 016e 1511 5549 | UI| 0170 154c b905 | L | 0172 417d 2539 |A}%9| 0174 2551 7d4d |%Q}M| 0176 654d 2511 |eM% | 0178 7d0d 3d35 |} =5| 017a 4105 3964 |A 9d| 017c f5ee 51fa | Q | 017e 408c 0055 |@ U| 0180 4d65 4d7d |MeM}| 0182 2511 7d49 |% }I| 0184 1541 3d49 | A=I| 0186 5115 117d |Q }| 0188 1925 1531 | % 1| 018a 105c 0041 | \ A| 018c 4d51 0539 |MQ 9| 018e 1105 4910 | I | 0190 b925 3951 | %9Q| 0192 151d 1548 | H| 0194 2000 0000 | | 0196 0000 0000 | | 0198 0001 fa40 | @| 019a 8c00 554d | UM| 019c 654d 7d25 |eM}%| 019e 117d 3d0d | }= | 01a0 0d55 4949 | UII| 01a2 1511 7d19 | } | 01a4 2515 3110 |% 1 | 01a6 5c00 414d |\ AM| 01a8 5105 3911 |Q 9 | 01aa 0549 10b9 | I | 01ac 2539 5115 |%9Q | 01ae 1d15 4820 | H | 01b0 0000 0000 | | .BLANK 0000[0x4] 01b4 01fa 408c | @ | .XXX[0x18] 01b6 0059 3505 | Y5 | 01b8 0d21 2539 | !%9| 01ba 157d 4915 | }I | 01bc 413d 4951 |A=IQ| 01be 1511 7d19 | } | 01c0 2515 3110 |% 1 | 01c2 5c00 414d |\ AM| 01c4 5105 3911 |Q 9 | 01c6 0549 10b9 | I | 01c8 2539 5115 |%9Q | 01ca 1d15 4820 | H | 01cc 0000 0000 | | .BLANK 0000[0x4] 01d0 01fa 408c | @ | .XXX[0x18] 01d2 0059 3505 | Y5 | 01d4 0d21 2539 | !%9| 01d6 157d 3d0d | }= | 01d8 0d55 4949 | UII| 01da 1511 7d19 | } | 01dc 2515 3110 |% 1 | 01de 5c00 414d |\ AM| 01e0 5105 3911 |Q 9 | 01e2 0549 10b9 | I | 01e4 2539 5115 |%9Q | 01e6 1d15 4820 | H | 01e8 0000 0000 | | .BLANK 0000[0x4] 01ec 01fa 408c | @ | .XXX[0x14] 01ee 0035 0d3d | 5 =| 01f0 3541 0539 |5A 9| 01f2 657d 1925 |e} %| 01f4 1531 105c | 1 \| 01f6 0041 4d51 | AMQ| 01f8 0539 1105 | 9 | 01fa 4910 b925 |I %| 01fc 3951 151d |9Q | 01fe 1548 2000 | H |