|
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 001b | | .CONST 0x001b ; Address of begin 0019 003a | : | .CONST 0x003a ; Address of exception handler 001a 0001 | | .CONST 0x0001 ; Number of locals 001b BODY_0018: 001b INIT_0018: 001b 00db | | Load_Top At_Offset_3 001c 8001 | | Call 0x0,0x1 001d 681a |h | Jump_Zero 0x38 001e e5fd | | Load 0x2,-0x3 001f e5fe | | Load 0x2,-0x2 0020 0092 003d | =| Action Push_String_Extended,0x3d ; "'Spec" 0022 01cc | | Execute Vector,Catenate 0023 e5ff | | Load 0x2,-0x1 0024 0092 003d | =| Action Push_String_Extended,0x3d ; "'Spec" 0026 01cc | | Execute Vector,Catenate 0027 e002 | | Load 0x0,0x2 0028 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0029 680c |h | Jump_Zero 0x36 002a e5fd | | Load 0x2,-0x3 002b e5fe | | Load 0x2,-0x2 002c 0092 003e | >| Action Push_String_Extended,0x3e ; "'Body" 002e 01cc | | Execute Vector,Catenate 002f e5ff | | Load 0x2,-0x1 0030 0092 003e | >| Action Push_String_Extended,0x3e ; "'Body" 0032 01cc | | Execute Vector,Catenate 0033 e002 | | Load 0x0,0x2 0034 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0035 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0036 4800 |H | Short_Literal 0x0 0037 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0038 4800 |H | Short_Literal 0x0 0039 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 003a TRAP_0018: 003a 0007 | | Action Break_Optional 003b 4800 |H | Short_Literal 0x0 003c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 003d ; -------------------------------------------------------------------------------------- 003d ; STRING TABLE 003d ; -------------------------------------------------------------------------------------- 003d 0006 | | .STRTAB 0x0006->0x0040 ; "'Spec" 003e 0009 | | .STRTAB 0x0009->0x0042 ; "'Body" 003f 000c | | .STREND 0x000c->0x0045 0040 2753 7065 |'Spe| .STRTAB_STRINGS 0045 0000 0000 | | .XXX[0x3] 0047 0000 | | 0048 ; -------------------------------------------------------------------------------------- 0048 ; Debug Table 0048 ; -------------------------------------------------------------------------------------- 0048 0004 000e | | .DEBUG4 0x0004,0x000e,0x2a54,0x0000,0x0001,0x0000 004e 6807 5e0b |h ^ | .XXX[0x6d] 0050 3120 1403 |1 | 0052 6c07 5803 |l X | 0054 4b97 f8f0 |K | 0056 0da0 0514 | | 0058 0797 f803 | | 005a 6920 1797 |i | 005c fc08 5c9c | \ | 005e 2007 5e0b | ^ | 0060 0c03 4b97 | K | 0062 f8f0 2c08 | , | 0064 5cb0 083c |\ <| 0066 0da0 bd20 | | 0068 0797 f8f0 | | 006a 2c08 5cb0 |, \ | 006c 2797 f8f0 |' | 006e 2c08 5c94 |, \ | 0070 2807 3c02 |( < | 0072 4959 c007 |IY | 0074 7da0 8797 |} | 0076 fa0b 1003 | | 0078 4797 f803 |G | 007a 6a0b 0803 |j | 007c 4b97 fc08 |K | 007e 649c 2397 |d # | 0080 f920 1803 | | 0082 6807 5d20 |h ] | 0084 020b 4120 | A | 0086 1803 6c07 | l | 0088 5803 4b97 |X K | 008a f8f0 0da0 | | 008c 0514 0797 | | 008e f803 6920 | i | 0090 1b97 fc08 | | 0092 5c9c 2007 |\ | 0094 5e0b 0c03 |^ | 0096 4b97 f8f0 |K | 0098 2c08 5cb0 |, \ | 009a 0838 35a0 | 85 | 009c 1b97 f802 | | 009e 4959 c60b |IY | 00a0 0003 4514 | E | 00a2 0797 fa0b | | 00a4 1003 4797 | G | 00a6 fc08 649c | d | 00a8 2397 f920 |# | 00aa 1c03 6807 | h | 00ac 5e0b 6920 |^ i | 00ae 1c03 6c07 | l | 00b0 5803 4b97 |X K | 00b2 f8f0 0da0 | | 00b4 0514 0797 | | 00b6 f803 6f97 | o | 00b8 fe0b 0d14 | | 00ba 0400 | | 00bb 0000 0000 | | .BLANK 0000[0x6] 00c1 00e1 a000 | | .XXX[0x13f] 00c3 1000 1789 | | 00c5 4c0c 8b88 |L | 00c7 ac00 1f88 | | 00c9 4c00 1d20 |L | 00cb 1520 9d20 | | 00cd 9f88 bc07 | | 00cf 54f0 0120 |T | 00d1 9f88 bc07 | | 00d3 54f0 0520 |T | 00d5 0388 a470 | p| 00d7 2003 6070 | `p| 00d9 0397 f8f0 | | 00db 3520 660a |5 f | 00dd 2297 ff97 |" | 00df fb90 0a0b | | 00e1 0803 4b97 | K | 00e3 f8f0 2c08 | , | 00e5 5cb0 09a0 |\ | 00e7 1797 f920 | | 00e9 020a fc03 | | 00eb 4514 0520 |E | 00ed 0797 f8f0 | | 00ef 2c08 5cb0 |, \ | 00f1 2797 f8f0 |' | 00f3 2c08 5c94 |, \ | 00f5 2807 3e08 |( > | 00f7 6001 4b97 |` K | 00f9 f8f0 3403 | 4 | 00fb 6788 c788 |g | 00fd c874 cf80 | t | 00ff 0c60 3d20 | `= | 0101 0797 fc08 | | 0103 5c9c 2007 |\ | 0105 5803 6520 |X e | 0107 0797 fc08 | | 0109 5c9c 2007 |\ | 010b 5c08 5ca8 |\ \ | 010d 6003 643c |` d<| 010f 05a0 5397 | S | 0111 f8f0 3520 | 5 | 0113 0797 f8f0 | | 0115 2c08 5cb0 |, \ | 0117 2797 f8f0 |' | 0119 2c08 5c94 |, \ | 011b 2807 3d20 |( = | 011d 060a 3920 | 9 | 011f 0b97 fc08 | | 0121 5c9c 2007 |\ | 0123 59e0 1b88 |Y | 0125 a920 0b97 | | 0127 fc08 5c9c | \ | 0129 2007 5803 | X | 012b 6518 79e0 |e y | 012d 79e0 7de1 |y } | 012f 91e3 35e3 | 5 | 0131 b1e3 6de3 | m | 0133 69e3 65e0 |i e | 0135 61e4 1de4 |a | 0137 59e4 95e3 |Y | 0139 d1e3 0de3 | | 013b 49e3 45e3 |I E | 013d 81e3 bde3 | | 013f 39e3 35e3 |9 5 | 0141 31e4 b1e4 |1 | 0143 ade3 e5e4 | | 0145 e5e0 1de5 | | 0147 1de5 59e2 | Y | 0149 d1e2 cde0 | | 014b 0923 8809 | # | 014d 5f97 f8f0 |_ | 014f 2f97 f8f0 |/ | 0151 3520 0397 |5 | 0153 f8f0 0209 | | 0155 c397 f8e0 | | 0157 2f97 f8f0 |/ | 0159 2c08 5cb0 |, \ | 015b 0838 41a0 | 8A | 015d 1797 f920 | | 015f 420a fc03 |B | 0161 4514 0797 |E | 0163 f8f0 3520 | 5 | 0165 0797 f8f0 | | 0167 2c08 5cb0 |, \ | 0169 2797 f8f0 |' | 016b 2c08 5c94 |, \ | 016d 2807 3d20 |( = | 016f 1e0a 3920 | 9 | 0171 0f97 fc08 | | 0173 5c9c 2007 |\ | 0175 5b97 f8f0 |[ | 0177 3397 f8f0 |3 | 0179 2c08 5cb0 |, \ | 017b 2397 f8f0 |# | 017d 2c08 5cb0 |, \ | 017f 1f97 f8f0 | | 0181 2c08 5cb0 |, \ | 0183 1b97 f8f0 | | 0185 2c08 5cb0 |, \ | 0187 1520 0f97 | | 0189 fc08 5c9c | \ | 018b 2007 5e0a | ^ | 018d d797 f8e0 | | 018f 3397 fa0b |3 | 0191 1003 45e4 | E | 0193 6803 3c03 |h < | 0195 8c03 8c03 | | 0197 8c03 8d20 | | 0199 0397 f8f0 | | 019b 0388 6460 | d`| 019d 9401 6c01 | l | 019f 6797 f8f0 |g | 01a1 3520 160a |5 | 01a3 2120 0f97 |! | 01a5 fc08 5c9c | \ | 01a7 2007 5b97 | [ | 01a9 f8f0 3797 | 7 | 01ab f8f0 3797 | 7 | 01ad f8f0 0388 | | 01af 6460 be0a |d` | 01b1 3520 0520 |5 | 01b3 0f97 fc08 | | 01b5 5c9c 2007 |\ | 01b7 5c08 5c9c |\ \ | 01b9 2007 5b97 | [ | 01bb fa0b 1003 | | 01bd 4520 0520 |E | 01bf 0f97 fc08 | | 01c1 5c9c 2007 |\ | 01c3 5c08 5c9c |\ \ | 01c5 2007 5c08 | \ | 01c7 5cb8 2f88 |\ / | 01c9 6460 6b97 |d`k | 01cb f8e0 2797 | ' | 01cd f8f0 25c0 | % | 01cf 2003 6797 | g | 01d1 f8e0 2403 | $ | 01d3 602b ff97 |`+ | 01d5 f8e0 29e0 | ) | 01d7 4f97 f8f0 |O | 01d9 2403 6809 |$ h | 01db cc09 202b | +| 01dd ff97 f8e0 | | 01df 2797 f8f0 |' | 01e1 2797 f8f0 |' | 01e3 0388 6460 | d`| 01e5 9f88 6460 | d`| 01e7 882b fb97 | + | 01e9 f8e0 2b97 | + | 01eb f8f0 3397 | 3 | 01ed f8f0 2b97 | + | 01ef f8f0 2403 | $ | 01f1 6f90 1d20 |o | 01f3 0f97 fc08 | | 01f5 5c9c 2007 |\ | 01f7 5e0a d797 |^ | 01f9 f8e0 3003 | 0 | 01fb 4803 39e2 |H 9 | 01fd c397 fa0b | | 01ff 1003 | |