|
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 2549 3d39 |%I=9| .XXX[0x52]
0050 3515 3950 |5 9P|
0052 b92d 1549 | - I|
0054 3915 317d |9 1}|
0056 1115 0955 | U|
0058 1d1d 1548 | H|
005a b949 1558 | I X|
005c c4c1 7cc4 | | |
005e e17d 4d41 | }MA|
0060 150c 2885 | ( |
0062 1539 5925 | 9Y%|
0064 493d 3935 |I=95|
0066 1539 50b9 | 9P |
0068 4d15 3505 |M 5 |
006a 3951 250d |9Q% |
006c 4cb9 4915 |L I |
006e 58c4 c17c |X ||
0070 c4e1 7d4d | }M|
0072 4115 0c28 |A (|
0074 8515 3959 | 9Y|
0076 2549 3d39 |%I=9|
0078 3515 3950 |5 9P|
007a b90d 3d49 | =I|
007c 157d 1511 | } |
007e 2551 3d48 |%Q=H|
0080 b949 1558 | I X|
0082 c4c1 7cc4 | | |
0084 e17d 4d41 | }MA|
0086 150c 8535 | 5|
0088 3d11 1530 |= 0|
008a b939 0551 | 9 Q|
008c 2559 1549 |%Y I|
008e 1558 c4c5 | X |
0090 8eb5 62c4 | b |
0092 0000 0000 | |
0094 0000 00c0 | |
0096 0000 0800 | |
0098 0000 0600 | |
009a 0000 0a00 | |
009c 0000 0a00 | |
009e 0000 0010 | |
00a0 0000 0000 | | .BLANK 0000[0x5]
00a5 0010 0000 | | .XXX[0x31]
00a7 00c5 2455 | $U|
00a9 6313 15f3 |c |
00ab 05f5 3504 | 5 |
00ad 5430 8535 |T0 5|
00af 3d11 1530 |= 0|
00b1 b948 c4c0 | H |
00b3 c0c1 7d25 | }%|
00b5 3541 3115 |5A1 |
00b7 3515 3951 |5 9Q|
00b9 0551 253d | Q%=|
00bb 394d 4115 |9MA |
00bd 0d7d 5925 | }Y%|
00bf 155d 4915 | ]I |
00c1 58c4 c57c |X ||
00c3 c17d 4d41 | }MA|
00c5 150d 8eb5 | |
00c7 62c4 0000 |b |
00c9 0000 0000 | |
00cb 00d0 0000 | |
00cd 0800 0000 | |
00cf 0600 0000 | |
00d1 0a00 0000 | |
00d3 0a80 0000 | |
00d5 0010 | |
00d6 0000 0000 | | .BLANK 0000[0x5]
00db 0010 0000 | | .XXX[0x1a]
00dd 00d5 2455 | $U|
00df 6313 15f3 |c |
00e1 1305 f535 | 5|
00e3 0454 318e | T1 |
00e5 b562 c400 | b |
00e7 0000 0000 | |
00e9 0000 a000 | |
00eb 0008 0000 | |
00ed 0006 0000 | |
00ef 000a 0000 | |
00f1 0009 0000 | |
00f3 0000 1000 | |
00f5 0000 0000 | | .BLANK 0000[0x5]
00fa 1000 0000 | | .XXX[0x106]
00fc a524 5563 | $Uc|
00fe 1315 f313 | |
0100 25f3 0085 |% |
0102 1539 5925 | 9Y%|
0104 493d 3935 |I=95|
0106 1539 50b9 | 9P |
0108 3d4d 7d55 |=M}U|
010a 5125 3125 |Q%1%|
010c 5125 154c |Q% L|
010e b949 1558 | I X|
0110 c4c5 7cd1 | | |
0112 7d4d 4115 |}MA |
0114 0c28 8515 | ( |
0116 3959 2549 |9Y%I|
0118 3d39 3515 |=95 |
011a 3950 b93d |9P =|
011c 157d 3515 | }5 |
011e 0d21 0539 | ! 9|
0120 254d 354c |%M5L|
0122 b949 1558 | I X|
0124 c4c5 7cd1 | | |
0126 7d4d 4115 |}MA |
0128 0c28 8515 | ( |
012a 3959 2549 |9Y%I|
012c 3d39 3515 |=95 |
012e 3950 b90d |9P |
0130 3559 0cb9 |5Y |
0132 4915 58c4 |I X |
0134 c57c d17d | | }|
0136 4d41 150c |MA |
0138 2885 1539 |( 9|
013a 5925 493d |Y%I=|
013c 3935 1539 |95 9|
013e 50b9 2d15 |P - |
0140 4939 1531 |I9 1|
0142 7d11 1509 |} |
0144 551d 1d15 |U |
0146 497d 253c |I}%<|
0148 b949 1558 | I X|
014a c4c5 7cd1 | | |
014c 7d4d 4115 |}MA |
014e 0c28 8515 | ( |
0150 3959 2549 |9Y%I|
0152 3d39 3515 |=95 |
0154 3950 b951 |9P Q|
0156 3d3d 314c |==1L|
0158 b949 1558 | I X|
015a c4c5 7cd1 | | |
015c 7d4d 4115 |}MA |
015e 0c28 8515 | ( |
0160 3959 2549 |9Y%I|
0162 3d39 3515 |=95 |
0164 3950 b939 |9P 9|
0166 1551 5d3d | Q]=|
0168 492c b949 |I, I|
016a 1558 c4c5 | X |
016c 7cd1 7d4d || }M|
016e 4115 0c28 |A (|
0170 8515 3959 | 9Y|
0172 2549 3d39 |%I=9|
0174 3515 3950 |5 9P|
0176 b911 2549 | %I|
0178 150d 513d | Q=|
017a 4964 b949 |Id I|
017c 1558 c4c5 | X |
017e 7cd1 7d4d || }M|
0180 4115 0c28 |A (|
0182 8515 3959 | 9Y|
0184 2549 3d39 |%I=9|
0186 3515 3950 |5 9P|
0188 b905 094d | M|
018a 5149 050d |QI |
018c 517d 5165 |Q}Qe|
018e 4115 4cb9 |A L |
0190 4915 58c4 |I X |
0192 c57c d17d | | }|
0194 4d41 150c |MA |
0196 2885 1539 |( 9|
0198 5925 493d |Y%I=|
019a 3935 1539 |95 9|
019c 50b9 2535 |P %5|
019e 051d 14b9 | |
01a0 4915 58c4 |I X |
01a2 c57c d17d | | }|
01a4 4d41 150c |MA |
01a6 2885 1539 |( 9|
01a8 5925 493d |Y%I=|
01aa 3935 1539 |95 9|
01ac 50b9 48c4 |P H |
01ae c0c0 c17d | }|
01b0 0d21 150d | ! |
01b2 2d25 391c |-%9 |
01b4 b949 1558 | I X|
01b6 c4c5 7cd1 | | |
01b8 7d4d 4115 |}MA |
01ba 0c28 8515 | ( |
01bc 3959 2549 |9Y%I|
01be 3d39 3515 |=95 |
01c0 3950 b92d |9P -|
01c2 1549 3915 | I9 |
01c4 30b9 4915 |0 I |
01c6 58c4 c57c |X ||
01c8 d17d 4d41 | }MA|
01ca 150c 2885 | ( |
01cc 1539 5925 | 9Y%|
01ce 493d 3935 |I=95|
01d0 1539 50b9 | 9P |
01d2 3d35 7d35 |=5}5|
01d4 150d 2105 | ! |
01d6 3925 4d35 |9%M5|
01d8 4cb9 4915 |L I |
01da 58c4 c57c |X ||
01dc d17d 4d41 | }MA|
01de 150c 2885 | ( |
01e0 1539 5925 | 9Y%|
01e2 493d 3935 |I=95|
01e4 1539 50b9 | 9P |
01e6 1531 0509 | 1 |
01e8 3d49 0551 |=I Q|
01ea 3d49 7d11 |=I} |
01ec 0551 0509 | Q |
01ee 054d 14b9 | M |
01f0 4915 58c4 |I X |
01f2 c57c d17d | | }|
01f4 4d41 150c |MA |
01f6 2885 1539 |( 9|
01f8 5925 493d |Y%I=|
01fa 3935 1539 |95 9|
01fc 50b9 4105 |P A |
01fe 494d 1548 |IM H|