|
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_058cf1
└─⟦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 0058 | X | .CONST 0x0058 ; 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 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 001b | | .CONST 0x001b ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0001 | | .CONST 0x0001 ; Number of locals 001b BODY_0018: 001b INIT_0018: 001b e001 | | Load 0x0,0x1 001c 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 001d e001 | | Load 0x0,0x1 001e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 001f 00db | | Load_Top At_Offset_3 0020 680a |h | Jump_Zero 0x2b 0021 4801 |H | Short_Literal 0x1 0022 e001 | | Load 0x0,0x1 0023 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0024 0092 0038 | 8| Action Push_String_Extended,0x38 ; "------- End of step: " 0026 00db | | Load_Top At_Offset_3 0027 01cc | | Execute Vector,Catenate 0028 e001 | | Load 0x0,0x1 0029 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 002a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 002b 4801 |H | Short_Literal 0x1 002c e001 | | Load 0x0,0x1 002d 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 002e 0092 0039 | 9| Action Push_String_Extended,0x39 ; "------- Beginning step: " 0030 00db | | Load_Top At_Offset_3 0031 01cc | | Execute Vector,Catenate 0032 e001 | | Load 0x0,0x1 0033 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0034 4801 |H | Short_Literal 0x1 0035 e001 | | Load 0x0,0x1 0036 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0037 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0038 ; -------------------------------------------------------------------------------------- 0038 ; STRING TABLE 0038 ; -------------------------------------------------------------------------------------- 0038 0006 | | .STRTAB 0x0006->0x003b ; "------- End of step: " 0039 001c | | .STRTAB 0x001c->0x0047 ; "------- Beginning step: " 003a 0032 | 2 | .STREND 0x0032->0x0053 003b 2d2d 2d2d |----| .STRTAB_STRINGS 0053 0000 0000 | | .BLANK 0000[0x5] 0058 ; -------------------------------------------------------------------------------------- 0058 ; Debug Table 0058 ; -------------------------------------------------------------------------------------- 0058 0004 000d | | .DEBUG4 0x0004,0x000d,0x4d3d,0x0000,0x0001,0x0000 005e 2569 14f5 |%i | .XXX[0x165] 0060 ee51 fe40 | Q @| 0062 9000 0508 | | 0064 5c00 5d19 |\ ] | 0066 3d49 3505 |=I5 | 0068 5151 1511 |QQ | 006a 7d3d 5551 |}=UQ| 006c 4155 50b9 |AUP | 006e 0955 1919 | U | 0070 1548 01fa | H | 0072 408c 002d |@ -| 0074 3d55 5141 |=UQA| 0076 5551 7d19 |UQ} | 0078 2531 145c |%1 \| 007a 0031 253c | 1%<| 007c b919 2531 | %1| 007e 157d 5165 | }Qe| 0080 4114 0000 |A | 0082 0000 0004 | | 0084 05a8 0041 | A| 0086 193d 4935 | =I5| 0088 0551 5115 | QQ | 008a 117d 3d55 | }=U| 008c 5141 5551 |QAUQ| 008e 063c ecbc | < | 0090 0031 3515 | 15 | 0092 4d4d 051d |MM | 0094 157d 2d25 | }-%| 0096 3912 659c |9 e | 0098 eca8 0031 | 1| 009a 3d55 5141 |=UQA| 009c 5551 7d4d |UQ}M| 009e 5105 5115 |Q Q | 00a0 005c 004d | \ M| 00a2 3555 4d51 |5UMQ| 00a4 7d09 157d |} }| 00a6 0d3d 394d | =9M| 00a8 5149 0525 |QI %| 00aa 3915 124c |9 L| 00ac 5c00 7519 |\ u | 00ae 3d49 3505 |=I5 | 00b0 5151 1511 |QQ | 00b2 7d3d 5551 |}=UQ| 00b4 4155 50b9 |AUP | 00b6 3d55 5141 |=UQA| 00b8 5551 7d4d |UQ}M| 00ba 5105 5116 |Q Q | 00bc 65c4 f4b0 |e | 00be 0021 4155 | !AU| 00c0 517d 3125 |Q}1%| 00c2 3914 01ee |9 | 00c4 51fa 408c |Q @ | 00c6 001d 3515 | 5 | 00c8 4d4d 051d |MM | 00ca 145c 003d | \ =| 00cc 4d51 0539 |MQ 9| 00ce 1105 4910 | I | 00d0 b94d 5149 | MQI| 00d2 2539 1c01 |%9 | 00d4 fa40 8c00 | @ | 00d6 112d 2539 | -%9| 00d8 105c 0075 | \ u| 00da 193d 4935 | =I5| 00dc 0551 5115 | QQ | 00de 117d 3d55 | }=U| 00e0 5141 5550 |QAUP| 00e2 b935 154d | 5 M| 00e4 4d05 1d15 |M | 00e6 7d2d 2539 |}-%9| 00e8 1001 fa40 | @| 00ea 8c00 154d | M| 00ec 5105 5114 |Q Q | 00ee 5c00 7519 |\ u | 00f0 3d49 3505 |=I5 | 00f2 5151 1511 |QQ | 00f4 7d3d 5551 |}=UQ| 00f6 4155 50b9 |AUP | 00f8 3d55 5141 |=UQA| 00fa 5551 7d4d |UQ}M| 00fc 5105 5114 |Q Q | 00fe 00d5 fa40 | @| 0100 8c00 3d31 | =1| 0102 2539 157d |%9 }| 0104 5115 4935 |Q I5| 0106 2539 0551 |%9 Q| 0108 3d48 5c00 |=H\ | 010a 494d 5105 |IMQ | 010c 3911 0549 |9 I| 010e 10b9 0d21 | !| 0110 0549 050d | I | 0112 5115 4858 |Q HX| 0114 0045 4d51 | EMQ| 0116 0539 1105 | 9 | 0118 4910 b905 |I | 011a 4d0d 2524 |M %$| 011c b931 1900 | 1 | 011e 5c00 4d35 |\ M5| 0120 554d 517d |UMQ}| 0122 0915 7d0d | } | 0124 3d39 4d51 |=9MQ| 0126 4905 2539 |I %9| 0128 1512 4c5c | L\| 012a 0075 193d | u =| 012c 4935 0551 |I5 Q| 012e 5115 117d |Q }| 0130 3d55 5141 |=UQA| 0132 5550 b93d |UP =| 0134 5551 4155 |UQAU| 0136 517d 4d51 |Q}MQ| 0138 0551 15f0 | Q | 013a 0000 0008 | | 013c 00f0 005d | ]| 013e 193d 4935 | =I5| 0140 0551 5115 | QQ | 0142 117d 3d55 | }=U| 0144 5141 5550 |QAUP| 0146 b909 5519 | U | 0148 1915 48ee | H | 014a 666e 4078 |fn@x| 014c 0019 3115 | 1 | 014e 391d 5120 |9 Q | 0150 005c 0041 | \ A| 0152 4d51 0539 |MQ 9| 0154 1105 4910 | I | 0156 b939 0551 | 9 Q| 0158 5549 0530 |UI 0| 015a 01c4 0000 | | 015c 0018 00f4 | | 015e 0059 193d | Y =| 0160 4935 0551 |I5 Q| 0162 5115 117d |Q }| 0164 3d55 5141 |=UQA| 0166 5550 b919 |UP | 0168 3155 4d20 |1UM | 016a f5ee 51fe | Q | 016c 4090 0005 |@ | 016e 085c 005d | \ ]| 0170 193d 4935 | =I5| 0172 0551 5115 | QQ | 0174 117d 3d55 | }=U| 0176 5141 5550 |QAUP| 0178 b909 5519 | U | 017a 1915 4800 | H | 017c 0000 0000 | | 017e 2003 8000 | | 0180 5d19 3d49 |] =I| 0182 3505 5151 |5 QQ| 0184 1511 7d3d | }=| 0186 5551 4155 |UQAU| 0188 50b9 0955 |P U| 018a 1919 1548 | H| 018c ee66 6e40 | fn@| 018e 7800 1931 |x 1| 0190 1539 1d51 | 9 Q| 0192 2000 5c00 | \ | 0194 414d 5105 |AMQ | 0196 3911 0549 |9 I| 0198 10b9 3905 | 9 | 019a 5155 4905 |QUI | 019c 3001 c8e6 |0 | 019e 4070 0011 |@p | 01a0 4d3d 4951 |M=IQ| 01a2 985c 005d | \ ]| 01a4 193d 4935 | =I5| 01a6 0551 5115 | QQ | 01a8 117d 3d55 | }=U| 01aa 5141 5550 |QAUP| 01ac b919 3105 | 1 | 01ae 593d 4800 |Y=H | 01b0 00e6 4070 | @p| 01b2 0025 3105 | %1 | 01b4 4d51 7d55 |MQ}U| 01b6 4d15 1198 |M | 01b8 5c00 414d |\ AM| 01ba 5105 3911 |Q 9 | 01bc 0549 10b9 | I | 01be 3905 5155 |9 QU| 01c0 4905 3000 |I 0 | 01c2 2000 | | 01c3 0000 0000 | | .BLANK 0000[0x4] 01c7 e640 7000 | @p | .XXX[0x12] 01c9 2549 1535 |%I 5| 01cb 0525 3911 | %9 | 01cd 1549 985c | I \| 01cf 003d 4d51 | =MQ| 01d1 0539 1105 | 9 | 01d3 4910 b94d |I M| 01d5 5149 2539 |QI%9| 01d7 1d8d 8420 | | 01d9 0000 0000 | | .BLANK 0000[0x4] 01dd 0458 0079 | X y| .XXX[0x23] 01df 193d 4935 | =I5| 01e1 0551 5115 | QQ | 01e3 117d 3d55 | }=U| 01e5 5141 5550 |QAUP| 01e7 b909 5519 | U | 01e9 1915 48b9 | H | 01eb 3115 391d |1 9 | 01ed 5120 0000 |Q | 01ef 0000 0000 | | 01f1 0c02 6c00 | l | 01f3 6d19 3d49 |m =I| 01f5 3505 5151 |5 QQ| 01f7 1511 7d3d | }=| 01f9 5551 4155 |UQAU| 01fb 50b9 2539 |P %9| 01fd 2551 2505 |%Q% | 01ff 3125 |1% |