|
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_0d2ce3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 4800 |H | Short_Literal 0x0 001c 4800 |H | Short_Literal 0x0 001d 4800 |H | Short_Literal 0x0 001e 4801 |H | Short_Literal 0x1 001f 4801 |H | Short_Literal 0x1 0020 4800 |H | Short_Literal 0x0 0021 4800 |H | Short_Literal 0x0 0022 4801 |H | Short_Literal 0x1 0023 4800 |H | Short_Literal 0x0 0024 4800 |H | Short_Literal 0x0 0025 4801 |H | Short_Literal 0x1 0026 4800 |H | Short_Literal 0x0 0027 e5ff | | Load 0x2,-0x1 0028 0092 0045 | E| Action Push_String_Extended,0x45 ; "_Errors" 002a 01cc | | Execute Vector,Catenate 002b e5ff | | Load 0x2,-0x1 002c e001 | | Load 0x0,0x1 002d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 002e 4800 |H | Short_Literal 0x0 002f 4800 |H | Short_Literal 0x0 0030 4800 |H | Short_Literal 0x0 0031 4800 |H | Short_Literal 0x0 0032 4800 |H | Short_Literal 0x0 0033 4800 |H | Short_Literal 0x0 0034 4800 |H | Short_Literal 0x0 0035 4801 |H | Short_Literal 0x1 0036 4800 |H | Short_Literal 0x0 0037 4800 |H | Short_Literal 0x0 0038 4800 |H | Short_Literal 0x0 0039 4800 |H | Short_Literal 0x0 003a e5ff | | Load 0x2,-0x1 003b 0092 0046 | F| Action Push_String_Extended,0x46 ; "_Negatives" 003d 01cc | | Execute Vector,Catenate 003e e5ff | | Load 0x2,-0x1 003f 0092 0045 | E| Action Push_String_Extended,0x45 ; "_Errors" 0041 01cc | | Execute Vector,Catenate 0042 e001 | | Load 0x0,0x1 0043 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0044 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0045 ; -------------------------------------------------------------------------------------- 0045 ; STRING TABLE 0045 ; -------------------------------------------------------------------------------------- 0045 0006 | | .STRTAB 0x0006->0x0048 ; "_Errors" 0046 000b | | .STRTAB 0x000b->0x004b ; "_Negatives" 0047 0013 | | .STREND 0x0013->0x0050 0048 5f45 7272 |_Err| .STRTAB_STRINGS 0051 0000 0000 | | .BLANK 0000[0x7] 0058 ; -------------------------------------------------------------------------------------- 0058 ; Debug Table 0058 ; -------------------------------------------------------------------------------------- 0058 0004 0000 | | .DEBUG4 0x0004,0x0000,0x77f1,0x0000,0x0001,0x0000 005e 4070 001d |@p | .XXX[0x1a2] 0060 4d41 050d |MA | 0062 2539 1d98 |%9 | 0064 5c00 8519 |\ | 0066 3d49 3505 |=I5 | 0068 5151 1549 |QQ I| 006a 7d25 3541 |}%5A| 006c 3115 3515 |1 5 | 006e 3951 0551 |9Q Q| 0070 253d 38b9 |%=8 | 0072 1125 4d51 | %MQ| 0074 0539 0d14 | 9 | 0076 0000 e640 | @| 0078 7000 1d19 |p | 007a 2531 3125 |%11%| 007c 391d 985c |9 \| 007e 0041 4d51 | AMQ| 0080 0539 1105 | 9 | 0082 4910 b909 |I | 0084 3d3d 3115 |==1 | 0086 0538 0000 | 8 | 0088 e640 7000 | @p | 008a 2929 554d |))UM| 008c 5125 1965 |Q% e| 008e 2539 1d98 |%9 | 0090 5c00 a919 |\ | 0092 3d49 3505 |=I5 | 0094 5151 1549 |QQ I| 0096 7d25 3541 |}%5A| 0098 3115 3515 |1 5 | 009a 3951 0551 |9Q Q| 009c 253d 38b9 |%=8 | 009e 2955 4d51 |)UMQ| 00a0 2519 657d |% e}| 00a2 353d 1115 |5= | 00a4 7d15 3955 |} 9U| 00a6 3400 00e6 |4 | 00a8 4070 0025 |@p %| 00aa 1949 3d35 | I=5| 00ac 7d31 1519 |}1 | 00ae 5198 5c00 |Q \ | 00b0 414d 5105 |AMQ | 00b2 3911 0549 |9 I| 00b4 10b9 093d | =| 00b6 3d31 1505 |=1 | 00b8 3800 00e6 |8 | 00ba 4070 0029 |@p )| 00bc 2539 7d4d |%9}M| 00be 150d 5125 | Q%| 00c0 3d39 985c |=9 \| 00c2 0041 4d51 | AMQ| 00c4 0539 1105 | 9 | 00c6 4910 b909 |I | 00c8 3d3d 3115 |==1 | 00ca 0538 0000 | 8 | 00cc e640 7000 | @p | 00ce 1d25 397d | %9}| 00d0 2d15 1541 |- A| 00d2 985c 0041 | \ A| 00d4 4d51 0539 |MQ 9| 00d6 1105 4910 | I | 00d8 b909 3d3d | ==| 00da 3115 0538 |1 8| 00dc 0000 e640 | @| 00de 7000 3d41 |p =A| 00e0 5551 7d09 |UQ} | 00e2 0549 7d3d | I}=| 00e4 397d 3115 |9}1 | 00e6 1951 985c | Q \| 00e8 0041 4d51 | AMQ| 00ea 0539 1105 | 9 | 00ec 4910 b909 |I | 00ee 3d3d 3115 |==1 | 00f0 0538 0000 | 8 | 00f2 e640 7000 | @p | 00f4 2911 3d25 |) =%| 00f6 391d 7d09 |9 } | 00f8 0549 4d98 | IM | 00fa 5c00 414d |\ AM| 00fc 5105 3911 |Q 9 | 00fe 0549 10b9 | I | 0100 093d 3d31 | ==1| 0102 1505 3800 | 8 | 0104 00e6 4070 | @p| 0106 0019 0d55 | U| 0108 4951 0509 |IQ | 010a 985c 0081 | \ | 010c 193d 4935 | =I5| 010e 0551 5115 | QQ | 0110 497d 2535 |I}%5| 0112 4131 1535 |A1 5| 0114 1539 5105 | 9Q | 0116 5125 3d38 |Q%=8| 0118 b951 0509 | Q | 011a 2d25 3910 |-%9 | 011c 0000 e640 | @| 011e 7000 290d |p ) | 0120 5549 0905 |UI | 0122 3105 390d |1 9 | 0124 1598 5c00 | \ | 0126 9d19 3d49 | =I| 0128 3505 5151 |5 QQ| 012a 1549 7d25 | I}%| 012c 3541 3115 |5A1 | 012e 3515 3951 |5 9Q| 0130 0551 253d | Q%=| 0132 38b9 4d21 |8 M!| 0134 3d49 517d |=IQ}| 0136 1125 4d51 | %MQ| 0138 0539 0d14 | 9 | 013a 0000 e640 | @| 013c 7000 1951 |p Q| 013e 0509 413d | A=| 0140 4d98 5c00 |M \ | 0142 414d 5105 |AMQ | 0144 3911 0549 |9 I| 0146 10b9 3905 | 9 | 0148 5155 4905 |QUI | 014a 3000 00e6 |0 | 014c 4070 0021 |@p !| 014e 5105 094d |Q M| 0150 513d 414d |Q=AM| 0152 985c 0099 | \ | 0154 193d 4935 | =I5| 0156 0551 5115 | QQ | 0158 497d 2535 |I}%5| 015a 4131 1535 |A1 5| 015c 1539 5105 | 9Q | 015e 5125 3d38 |Q%=8| 0160 b951 0509 | Q | 0162 4d51 3d41 |MQ=A| 0164 7d05 4949 |} II| 0166 0564 0000 | d | 0168 e640 7000 | @p | 016a 2151 0509 |!Q | 016c 2d25 3911 |-%9 | 016e 4d98 5c00 |M \ | 0170 9919 3d49 | =I| 0172 3505 5151 |5 QQ| 0174 1549 7d25 | I}%| 0176 3541 3115 |5A1 | 0178 3515 3951 |5 9Q| 017a 0551 253d | Q%=| 017c 38b9 5105 |8 Q | 017e 092d 2539 | -%9| 0180 117d 0549 | } I| 0182 4905 6400 |I d | 0184 00e6 4070 | @p| 0186 0035 5105 | 5Q | 0188 097d 3115 | }1 | 018a 0511 1549 | I| 018c 2539 1d98 |%9 | 018e 5c00 a119 |\ | 0190 3d49 3505 |=I5 | 0192 5151 1549 |QQ I| 0194 7d25 3541 |}%5A| 0196 3115 3515 |1 5 | 0198 3951 0551 |9Q Q| 019a 253d 38b9 |%=8 | 019c 5105 0931 |Q 1| 019e 1505 1115 | | 01a0 497d 0549 |I} I| 01a2 4905 6400 |I d | 01a4 00e6 4070 | @p| 01a6 0021 5105 | !Q | 01a8 090d 3d55 | =U| 01aa 3951 985c |9Q \| 01ac 0041 4d51 | AMQ| 01ae 0539 1105 | 9 | 01b0 4910 b939 |I 9| 01b2 0551 5549 | QUI| 01b4 0530 0000 | 0 | 01b6 e640 7000 | @p | 01b8 2531 1519 |%1 | 01ba 517d 3505 |Q}5 | 01bc 491d 985c |I \| 01be 0085 193d | =| 01c0 4935 0551 |I5 Q| 01c2 5115 497d |Q I}| 01c4 2535 4131 |%5A1| 01c6 1535 1539 | 5 9| 01c8 5105 5125 |Q Q%| 01ca 3d38 b911 |=8 | 01cc 254d 5105 |%MQ | 01ce 390d 1400 |9 | 01d0 00e6 4070 | @p| 01d2 0029 4925 | )I%| 01d4 1d21 517d | !Q}| 01d6 3505 491d |5 I | 01d8 985c 0085 | \ | 01da 193d 4935 | =I5| 01dc 0551 5115 | QQ | 01de 497d 2535 |I}%5| 01e0 4131 1535 |A1 5| 01e2 1539 5105 | 9Q | 01e4 5125 3d38 |Q%=8| 01e6 b911 254d | %M| 01e8 5105 390d |Q 9 | 01ea 1400 00e6 | | 01ec 4070 0021 |@p !| 01ee 3115 1951 |1 Q| 01f0 7d25 3911 |}%9 | 01f2 985c 0085 | \ | 01f4 193d 4935 | =I5| 01f6 0551 5115 | QQ | 01f8 497d 2535 |I}%5| 01fa 4131 1535 |A1 5| 01fc 1539 5105 | 9Q | 01fe 5125 3d38 |Q%=8|