|
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 fa40 8c00 | @ | .XXX[0x1a2] 0060 0560 8c00 | ` | 0062 150d 650d | e | 0064 3114 5c00 |1 \ | 0066 9d1d 1539 | 9| 0068 1549 250d | I% | 006a 7d15 3115 |} 1 | 006c 3515 3951 |5 9Q| 006e 0549 657d | Ie}| 0070 1955 390d | U9 | 0072 5125 3d39 |Q%=9| 0074 4cb9 1931 |L 1| 0076 3d05 517d |= Q}| 0078 5165 4114 |QeA | 007a 005c 009d | \ | 007c 1d15 3915 | 9 | 007e 4925 0d7d |I% }| 0080 1531 1535 | 1 5| 0082 1539 5105 | 9Q | 0084 4965 7d19 |Ie} | 0086 5539 0d51 |U9 Q| 0088 253d 394c |%=9L| 008a b919 313d | 1=| 008c 0551 7d51 | Q}Q| 008e 6541 1400 |eA | 0090 0000 0074 | t| 0092 0214 0091 | | 0094 1d15 3915 | 9 | 0096 4925 0d7d |I% }| 0098 1531 1535 | 1 5| 009a 1539 5105 | 9Q | 009c 4965 7d19 |Ie} | 009e 5539 0d51 |U9 Q| 00a0 253d 394c |%=9L| 00a2 b905 490d | I | 00a4 5105 3920 |Q 9 | 00a6 f5ea 51fa | Q | 00a8 408c 0005 |@ | 00aa 605c 009d |`\ | 00ac 1d15 3915 | 9 | 00ae 4925 0d7d |I% }| 00b0 1531 1535 | 1 5| 00b2 1539 5105 | 9Q | 00b4 4965 7d19 |Ie} | 00b6 5539 0d51 |U9 Q| 00b8 253d 394c |%=9L| 00ba b919 313d | 1=| 00bc 0551 7d51 | Q}Q| 00be 6541 1400 |eA | 00c0 5c00 9d1d |\ | 00c2 1539 1549 | 9 I| 00c4 250d 7d15 |% } | 00c6 3115 3515 |1 5 | 00c8 3951 0549 |9Q I| 00ca 657d 1955 |e} U| 00cc 390d 5125 |9 Q%| 00ce 3d39 4cb9 |=9L | 00d0 1931 3d05 | 1= | 00d2 517d 5165 |Q}Qe| 00d4 4114 0000 |A | 00d6 0000 7002 | p | 00d8 1400 911d | | 00da 1539 1549 | 9 I| 00dc 250d 7d15 |% } | 00de 3115 3515 |1 5 | 00e0 3951 0549 |9Q I| 00e2 657d 1955 |e} U| 00e4 390d 5125 |9 Q%| 00e6 3d39 4cb9 |=9L | 00e8 0549 0d0d | I | 00ea 3d4d 20f5 |=M | 00ec ea51 fa40 | Q @| 00ee 8c00 0560 | `| 00f0 5c00 9d1d |\ | 00f2 1539 1549 | 9 I| 00f4 250d 7d15 |% } | 00f6 3115 3515 |1 5 | 00f8 3951 0549 |9Q I| 00fa 657d 1955 |e} U| 00fc 390d 5125 |9 Q%| 00fe 3d39 4cb9 |=9L | 0100 1931 3d05 | 1= | 0102 517d 5165 |Q}Qe| 0104 4114 005c |A \| 0106 009d 1d15 | | 0108 3915 4925 |9 I%| 010a 0d7d 1531 | } 1| 010c 1535 1539 | 5 9| 010e 5105 4965 |Q Ie| 0110 7d19 5539 |} U9| 0112 0d51 253d | Q%=| 0114 394c b919 |9L | 0116 313d 0551 |1= Q| 0118 7d51 6541 |}QeA| 011a 1400 0000 | | 011c 0078 0214 | x | 011e 0091 1d15 | | 0120 3915 4925 |9 I%| 0122 0d7d 1531 | } 1| 0124 1535 1539 | 5 9| 0126 5105 4965 |Q Ie| 0128 7d19 5539 |} U9| 012a 0d51 253d | Q%=| 012c 394c b905 |9L | 012e 490d 0d3d |I =| 0130 5120 f5ea |Q | 0132 51fa 408c |Q @ | 0134 0005 605c | `\| 0136 009d 1d15 | | 0138 3915 4925 |9 I%| 013a 0d7d 1531 | } 1| 013c 1535 1539 | 5 9| 013e 5105 4965 |Q Ie| 0140 7d19 5539 |} U9| 0142 0d51 253d | Q%=| 0144 394c b919 |9L | 0146 313d 0551 |1= Q| 0148 7d51 6541 |}QeA| 014a 1400 5c00 | \ | 014c 9d1d 1539 | 9| 014e 1549 250d | I% | 0150 7d15 3115 |} 1 | 0152 3515 3951 |5 9Q| 0154 0549 657d | Ie}| 0156 1955 390d | U9 | 0158 5125 3d39 |Q%=9| 015a 4cb9 1931 |L 1| 015c 3d05 517d |= Q}| 015e 5165 4114 |QeA | 0160 0000 0000 | | 0162 4c02 f800 |L | 0164 8d1d 1539 | 9| 0166 1549 250d | I% | 0168 7d15 3115 |} 1 | 016a 3515 3951 |5 9Q| 016c 0549 657d | Ie}| 016e 1955 390d | U9 | 0170 5125 3d39 |Q%=9| 0172 4cb9 0549 |L I| 0174 0d51 0538 | Q 8| 0176 f5ea 51fa | Q | 0178 408c 0005 |@ | 017a 645c 009d |d\ | 017c 1d15 3915 | 9 | 017e 4925 0d7d |I% }| 0180 1531 1535 | 1 5| 0182 1539 5105 | 9Q | 0184 4965 7d19 |Ie} | 0186 5539 0d51 |U9 Q| 0188 253d 394c |%=9L| 018a b919 313d | 1=| 018c 0551 7d51 | Q}Q| 018e 6541 1401 |eA | 0190 fa40 8c00 | @ | 0192 0560 5c00 | `\ | 0194 9d1d 1539 | 9| 0196 1549 250d | I% | 0198 7d15 3115 |} 1 | 019a 3515 3951 |5 9Q| 019c 0549 657d | Ie}| 019e 1955 390d | U9 | 01a0 5125 3d39 |Q%=9| 01a2 4cb9 1931 |L 1| 01a4 3d05 517d |= Q}| 01a6 5165 4114 |QeA | 01a8 2004 ffc0 | | 01aa 0000 0000 | | 01ac 0000 5c00 | \ | 01ae 9d1d 1539 | 9| 01b0 1549 250d | I% | 01b2 7d15 3115 |} 1 | 01b4 3515 3951 |5 9Q| 01b6 0549 657d | Ie}| 01b8 1955 390d | U9 | 01ba 5125 3d39 |Q%=9| 01bc 4cb9 1931 |L 1| 01be 3d05 517d |= Q}| 01c0 5165 4114 |QeA | 01c2 0000 0000 | | 01c4 5402 f800 |T | 01c6 8d1d 1539 | 9| 01c8 1549 250d | I% | 01ca 7d15 3115 |} 1 | 01cc 3515 3951 |5 9Q| 01ce 0549 657d | Ie}| 01d0 1955 390d | U9 | 01d2 5125 3d39 |Q%=9| 01d4 4cb9 0549 |L I| 01d6 0d0d 3d50 | =P| 01d8 f5ea 51fa | Q | 01da 408c 0005 |@ | 01dc 645c 009d |d\ | 01de 1d15 3915 | 9 | 01e0 4925 0d7d |I% }| 01e2 1531 1535 | 1 5| 01e4 1539 5105 | 9Q | 01e6 4965 7d19 |Ie} | 01e8 5539 0d51 |U9 Q| 01ea 253d 394c |%=9L| 01ec b919 313d | 1=| 01ee 0551 7d51 | Q}Q| 01f0 6541 1401 |eA | 01f2 fa40 8c00 | @ | 01f4 0560 5c00 | `\ | 01f6 9d1d 1539 | 9| 01f8 1549 250d | I% | 01fa 7d15 3115 |} 1 | 01fc 3515 3951 |5 9Q| 01fe 0549 657d | Ie}|