|
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 0048 | H | .CONST 0x0048 ; 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 0023 | # | .CONST 0x0023 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0003 | | .CONST 0x0003 ; Number of locals 001b INIT_0018: 001b e001 | | Load 0x0,0x1 001c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 001d 02c7 | | Declare_Variable Any 001e 00d8 | | Load_Top At_Offset_0 001f 1c00 | | Execute_Immediate Run_Utility,0x0 0020 e001 | | Load 0x0,0x1 0021 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0022 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0023 BODY_0018: 0023 e001 | | Load 0x0,0x1 0024 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0025 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0026 00da | | Load_Top At_Offset_2 0027 0120 | | Execute Any,Is_Value 0028 6803 |h | Jump_Zero 0x2c 0029 e001 | | Load 0x0,0x1 002a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 002b 7801 |x | Jump 0x2d 002c 00da | | Load_Top At_Offset_2 002d 6012 |` | Indirect_Literal Discrete,0x40,{0x00000000, 0x00004000} 002e e002 | | Load 0x0,0x2 002f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0030 e003 | | Load 0x0,0x3 0031 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0032 e001 | | Load 0x0,0x1 0033 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0034 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0035 e5ff | | Load 0x2,-0x1 0036 e001 | | Load 0x0,0x1 0037 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0038 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0039 c402 | | Store 0x2,0x2 003a 0059 | Y | Store_Top Discrete,At_Offset_1 003b 00d8 | | Load_Top At_Offset_0 003c 0f00 | | Execute_Immediate Equal,0x0 003d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 003e 0000 0000 | | .XXX[0x2] 0040 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0044 0000 0000 | | .BLANK 0000[0x4] 0048 ; -------------------------------------------------------------------------------------- 0048 ; Debug Table 0048 ; -------------------------------------------------------------------------------------- 0048 0004 000d | | .DEBUG4 0x0004,0x000d,0x9710,0x0000,0x0001,0x0000 004e f5ea 51fa | Q | .XXX[0x1b2] 0050 408c 0005 |@ | 0052 608c 001d |` | 0054 513d 5d05 |Q=] | 0056 4911 4c5c |I L\| 0058 0079 4149 | yAI| 005a 2535 2551 |%5%Q| 005c 2559 157d |%Y }| 005e 1955 390d | U9 | 0060 5125 3d39 |Q%=9| 0062 4cb9 1931 |L 1| 0064 3d05 517d |= Q}| 0066 5165 4114 |QeA | 0068 005c 0079 | \ y| 006a 4149 2535 |AI%5| 006c 2551 2559 |%Q%Y| 006e 157d 1955 | } U| 0070 390d 5125 |9 Q%| 0072 3d39 4cb9 |=9L | 0074 1931 3d05 | 1= | 0076 517d 5165 |Q}Qe| 0078 4114 0000 |A | 007a 0000 7800 | x | 007c 0001 5400 | T | 007e 7141 4925 |qAI%| 0080 3525 5125 |5%Q%| 0082 5915 7d19 |Y } | 0084 5539 0d51 |U9 Q| 0086 253d 394c |%=9L| 0088 b905 1129 | )| 008a 050d 1539 | 9| 008c 50f5 ea51 |P Q| 008e fa40 8c00 | @ | 0090 0560 8c00 | ` | 0092 1d51 3d5d | Q=]| 0094 0549 114c | I L| 0096 5c00 394d |\ 9M| 0098 5105 3911 |Q 9 | 009a 0549 10b9 | I | 009c 1931 3d05 | 1= | 009e 5000 5c00 |P \ | 00a0 394d 5105 |9MQ | 00a2 3911 0549 |9 I| 00a4 10b9 1931 | 1| 00a6 3d05 5000 |= P | 00a8 0000 005c | \| 00aa 0000 01c8 | | 00ac 006d 4149 | mAI| 00ae 2535 2551 |%5%Q| 00b0 2559 157d |%Y }| 00b2 1955 390d | U9 | 00b4 5125 3d39 |Q%=9| 00b6 4cb9 0d3d |L =| 00b8 3541 3d4d |5A=M| 00ba 14f5 ea51 | Q| 00bc fa40 8c00 | @ | 00be 2119 4905 |! I | 00c0 0d51 253d | Q%=| 00c2 385c 0039 |8\ 9| 00c4 4d51 0539 |MQ 9| 00c6 1105 4910 | I | 00c8 b919 313d | 1=| 00ca 0550 01fa | P | 00cc 408c 0021 |@ !| 00ce 1561 413d | aA=| 00d0 3915 3950 |9 9P| 00d2 5c00 414d |\ AM| 00d4 5105 3911 |Q 9 | 00d6 0549 10b9 | I | 00d8 2539 5115 |%9Q | 00da 1d15 4800 | H | 00dc 5c00 394d |\ 9M| 00de 5105 3911 |Q 9 | 00e0 0549 10b9 | I | 00e2 1931 3d05 | 1= | 00e4 5000 0000 |P | 00e6 0050 0000 | P | 00e8 0134 0071 | 4 q| 00ea 4149 2535 |AI%5| 00ec 2551 2559 |%Q%Y| 00ee 157d 1955 | } U| 00f0 390d 5125 |9 Q%| 00f2 3d39 4cb9 |=9L | 00f4 1561 413d | aA=| 00f6 3915 3950 |9 9P| 00f8 f5ea 51fa | Q | 00fa 408c 0005 |@ | 00fc 605c 0039 |`\ 9| 00fe 4d51 0539 |MQ 9| 0100 1105 4910 | I | 0102 b919 313d | 1=| 0104 0550 005c | P \| 0106 0041 4d51 | AMQ| 0108 0539 1105 | 9 | 010a 4910 b925 |I %| 010c 3951 151d |9Q | 010e 1548 0000 | H | 0110 0000 4000 | @ | 0112 0002 5400 | T | 0114 8141 4925 | AI%| 0116 3525 5125 |5%Q%| 0118 5915 7d19 |Y } | 011a 5539 0d51 |U9 Q| 011c 253d 394c |%=9L| 011e b931 1505 | 1 | 0120 1125 391d | %9 | 0122 7d41 0549 |}A I| 0124 50f5 ea51 |P Q| 0126 fa40 8c00 | @ | 0128 0560 5c00 | `\ | 012a 7941 4925 |yAI%| 012c 3525 5125 |5%Q%| 012e 5915 7d19 |Y } | 0130 5539 0d51 |U9 Q| 0132 253d 394c |%=9L| 0134 b919 313d | 1=| 0136 0551 7d51 | Q}Q| 0138 6541 1401 |eA | 013a fa40 8c00 | @ | 013c 3149 0511 |1I | 013e 2561 7d11 |%a} | 0140 251d 2551 |% %Q| 0142 4c5c 0045 |L\ E| 0144 4d51 0539 |MQ 9| 0146 1105 4910 | I | 0148 b941 3d4d | A=M| 014a 2551 2559 |%Q%Y| 014c 1400 5c00 | \ | 014e 7941 4925 |yAI%| 0150 3525 5125 |5%Q%| 0152 5915 7d19 |Y } | 0154 5539 0d51 |U9 Q| 0156 253d 394c |%=9L| 0158 b919 313d | 1=| 015a 0551 7d51 | Q}Q| 015c 6541 1400 |eA | 015e 0000 002c | ,| 0160 0000 01c0 | | 0162 0075 4149 | uAI| 0164 2535 2551 |%5%Q| 0166 2559 157d |%Y }| 0168 1955 390d | U9 | 016a 5125 3d39 |Q%=9| 016c 4cb9 4915 |L I | 016e 3505 2539 |5 %9| 0170 1115 48f5 | H | 0172 ea51 fa40 | Q @| 0174 8c00 0560 | `| 0176 8c00 0564 | d| 0178 5c00 7941 |\ yA| 017a 4925 3525 |I%5%| 017c 5125 5915 |Q%Y | 017e 7d19 5539 |} U9| 0180 0d51 253d | Q%=| 0182 394c b919 |9L | 0184 313d 0551 |1= Q| 0186 7d51 6541 |}QeA| 0188 1400 5c00 | \ | 018a 7941 4925 |yAI%| 018c 3525 5125 |5%Q%| 018e 5915 7d19 |Y } | 0190 5539 0d51 |U9 Q| 0192 253d 394c |%=9L| 0194 b919 313d | 1=| 0196 0551 7d51 | Q}Q| 0198 6541 1400 |eA | 019a 0000 0088 | | 019c 0000 01d4 | | 019e 0081 4149 | AI| 01a0 2535 2551 |%5%Q| 01a2 2559 157d |%Y }| 01a4 1955 390d | U9 | 01a6 5125 3d39 |Q%=9| 01a8 4cb9 3115 |L 1 | 01aa 0511 2539 | %9| 01ac 1d7d 4105 | }A | 01ae 4950 f5ea |IP | 01b0 51fa 408c |Q @ | 01b2 0005 605c | `\| 01b4 0039 4d51 | 9MQ| 01b6 0539 1105 | 9 | 01b8 4910 b919 |I | 01ba 313d 0550 |1= P| 01bc 01fa 408c | @ | 01be 0031 4905 | 1I | 01c0 1125 617d | %a}| 01c2 1125 1d25 | % %| 01c4 514c 5c00 |QL\ | 01c6 454d 5105 |EMQ | 01c8 3911 0549 |9 I| 01ca 10b9 413d | A=| 01cc 4d25 5125 |M%Q%| 01ce 5914 005c |Y \| 01d0 0039 4d51 | 9MQ| 01d2 0539 1105 | 9 | 01d4 4910 b919 |I | 01d6 313d 0550 |1= P| 01d8 0000 0000 | | 01da 7400 0001 |t | 01dc 4000 7541 |@ uA| 01de 4925 3525 |I%5%| 01e0 5125 5915 |Q%Y | 01e2 7d19 5539 |} U9| 01e4 0d51 253d | Q%=| 01e6 394c b949 |9L I| 01e8 1535 0525 | 5 %| 01ea 3911 1548 |9 H| 01ec f5ea 51fa | Q | 01ee 408c 0005 |@ | 01f0 608c 0005 |` | 01f2 645c 0039 |d\ 9| 01f4 4d51 0539 |MQ 9| 01f6 1105 4910 | I | 01f8 b919 313d | 1=| 01fa 0550 005c | P \| 01fc 0039 4d51 | 9MQ| 01fe 0539 1105 | 9 |