|
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 |