|
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_11cacfe
└─⟦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 0040 | @ | .CONST 0x0040 ; 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 0026 | & | .CONST 0x0026 ; 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 1b12 | | Execute Package,Field_Read,Field_Number 0x12 001d e001 | | Load 0x0,0x1 001e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001f 02c7 | | Declare_Variable Any 0020 e002 | | Load 0x0,0x2 0021 180e | | Execute Package,Field_Execute,Field_Number 0xe 0022 e001 | | Load 0x0,0x1 0023 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0024 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0025 a403 | | Store_Unchecked 0x2,0x3 0026 BODY_0018: 0026 e001 | | Load 0x0,0x1 0027 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0028 4800 |H | Short_Literal 0x0 0029 e003 | | Load 0x0,0x3 002a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 002b e003 | | Load 0x0,0x3 002c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 002d e004 | | Load 0x0,0x4 002e 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 002f 00d9 | | Load_Top At_Offset_1 0030 00d0 | | Action Swap_Control 0031 0260 | ` | Execute Discrete,In_Type 0032 7001 |p | Jump_Nonzero 0x34 0033 0801 | | Execute_Immediate Raise,0x1 0034 00db | | Load_Top At_Offset_3 0035 e001 | | Load 0x0,0x1 0036 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 0037 e403 | | Load 0x2,0x3 0038 e001 | | Load 0x0,0x1 0039 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 003a 005a | Z | Store_Top Discrete,At_Offset_2 003b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 003c 0000 0000 | | .BLANK 0000[0x4] 0040 ; -------------------------------------------------------------------------------------- 0040 ; Debug Table 0040 ; -------------------------------------------------------------------------------------- 0040 0004 0011 | | .DEBUG4 0x0004,0x0011,0x0e44,0x0000,0x0001,0x0000 0046 a0c0 b0d0 | | .XXX[0x1ba] 0048 c0a4 0155 | U| 004a b991 95c9 | | 004c 99b1 bddc | | 004e e950 a0c0 | P | 0050 b0d0 c4a4 | | 0052 f5cc c4e4 | | 0054 d9c9 95c1 | | 0056 7db9 85b5 |} | 0058 957d 7ce5 | }| | 005a 15e1 8d95 | | 005c c1d1 a5bd | | 005e b8e8 a0c0 | | 0060 b0c4 e4a4 | | 0062 b0c0 b0d4 | | 0064 c0d0 edc9 | | 0066 95c1 7ddd | } | 0068 a1bd 7d7c | }|| 006a e515 e18d | | 006c 95c1 d1a5 | | 006e bdb8 e8a0 | | 0070 c0b0 c4e4 | | 0072 a4b0 d4c0 | | 0074 d0b0 d4c0 | | 0076 d0ed c995 | | 0078 c17d dda1 | } | 007a 85d1 7d7c | }|| 007c e515 e18d | | 007e 95c1 d1a5 | | 0080 bdb8 e8a0 | | 0082 c0b0 c4e4 | | 0084 a4b0 c4c0 | | 0086 c0e0 b0d4 | | 0088 c0d0 ed7d | }| 008a 7dd9 c1d1 |} | 008c c97d 7ce5 | }| | 008e 15e1 8d95 | | 0090 c1d1 a5bd | | 0092 b8e8 a0c0 | | 0094 b0c8 c0a4 | | 0096 b0c4 d4cc | | 0098 d8b0 ccc8 | | 009a ecec 01d5 | | 009c b991 95c9 | | 009e 99b1 bddc | | 00a0 e94c a0c0 | L | 00a2 b0d0 c4a4 | | 00a4 0109 bdbd | | 00a6 8da1 7d15 | } | 00a8 e18d 95c1 | | 00aa d1a5 bdb8 | | 00ac e950 a0c0 | P | 00ae b0d0 c8a4 | | 00b0 f5cc c57d | }| 00b2 7d5c c57d |}\ }| 00b4 7cc4 d509 || | 00b6 bdbd 8da1 | | 00b8 7d15 e18d |} | 00ba 95c1 d1a5 | | 00bc bdb8 e8a0 | | 00be c0b0 c8a4 | | 00c0 b0c0 b0e0 | | 00c2 ecec 0189 | | 00c4 7d8d 85d1 |} | 00c6 8da1 7d7c | }|| 00c8 c4d5 09bd | | 00ca bd8d a17d | }| 00cc 15e1 8d95 | | 00ce c1d1 a5bd | | 00d0 b94d 1949 | M I| 00d2 0ce5 15e1 | | 00d4 8d95 c1d1 | | 00d6 a5bd b8e9 | | 00d8 18a0 c0b0 | | 00da c8a4 0189 | | 00dc 7d95 e18d |} | 00de 95c1 d0b9 | | 00e0 8d8c 017d | }| 00e2 7cc1 94e9 || | 00e4 c0a0 c0b0 | | 00e6 d0cc a4f4 | | 00e8 a8a0 c0b0 | | 00ea c4e0 a401 | | 00ec 7d7c c595 |}| | 00ee e18d 95c1 | | 00f0 d1a5 bdb9 | | 00f2 7db9 85b5 |} | 00f4 94e8 a0c0 | | 00f6 b0c4 d8a4 | | 00f8 0195 c9c9 | | 00fa b9bc e91c | | 00fc a0c0 b0c4 | | 00fe a401 cde5 | | 0100 cd7d b995 | } | 0102 c9c8 e91c | | 0104 a0c0 b0c4 | | 0106 a401 bdc1 | | 0108 d185 c99c | | 010a e91c a0c0 | | 010c b0c4 d8a4 | | 010e 01bd c1d1 | | 0110 a5b9 90e9 | | 0112 1ca0 c0b0 | | 0114 c4a4 01bd | | 0116 c1d1 95c9 | | 0118 c8e9 1ca0 | | 011a c0b0 c4a4 | | 011c 0195 b9d9 | | 011e a5c9 bdb8 | | 0120 e91c a0c0 | | 0122 b0d0 d4a4 | | 0124 f4a8 a0c0 | | 0126 b0c4 d8a4 | | 0128 0195 b990 | | 012a e91c a0c0 | | 012c b0c4 a401 | | 012e 95d1 95e1 | | 0130 d0e9 1ca0 | | 0132 c0b0 c4a4 | | 0134 0195 9185 | | 0136 d184 e91c | | 0138 a0c0 b0c4 | | 013a a401 cdd1 | | 013c c995 85b5 | | 013e c1bd cce9 | | 0140 d0a0 c0b0 | | 0142 c4a4 01cd | | 0144 d1c9 9585 | | 0146 b5bd 9998 | | 0148 e9d0 a0c0 | | 014a b0c4 a401 | | 014c a5bd 7dcd | } | 014e d185 d194 | | 0150 e950 a0c0 | P | 0152 b0d0 d8a4 | | 0154 f595 9dbd | | 0156 bd91 89a5 | | 0158 d17d 7da5 | }} | 015a bd7d cdd1 | } | 015c 85d1 94e8 | | 015e c0b1 95bd | | 0160 9989 a5d1 | | 0162 7d7d a5bd |}} | 0164 7dcd d185 |} | 0166 d194 e8c4 | | 0168 b199 85a5 | | 016a b189 a5d1 | | 016c 7d7d a5bd |}} | 016e 7dcd d185 |} | 0170 d194 e8c8 | | 0172 b189 8591 | | 0174 89a5 d17d | }| 0176 7da5 bd7d |} }| 0178 cdd1 85d1 | | 017a 94e8 ccb1 | | 017c a185 c991 | | 017e 9985 a5b1 | | 0180 7d7d a5bd |}} | 0182 7dcd d185 |} | 0184 d194 e8d0 | | 0186 b0ec 01bd | | 0188 c195 b97d | }| 018a b5bd 9194 | | 018c e950 a0c0 | P | 018e b0d0 dca4 | | 0190 f595 a5b9 | | 0192 7d7d bdc1 |}} | 0194 95b9 7db5 | } | 0196 bd91 94e8 | | 0198 c0b1 bdd5 | | 019a d17d 7dbd | }} | 019c c195 b97d | }| 019e b5bd 9194 | | 01a0 e8c4 b185 | | 01a2 d195 7d7d | }}| 01a4 bdc1 95b9 | | 01a6 7db5 bd91 |} | 01a8 94e8 c8b1 | | 01aa 85c1 c17d | }| 01ac 7dbd c195 |} | 01ae b97d b5bd | } | 01b0 9194 e8cc | | 01b2 b1d1 c9d5 | | 01b4 b98d 7d7d | }}| 01b6 bdc1 95b9 | | 01b8 7db5 bd91 |} | 01ba 94e8 d0b1 | | 01bc b9bd 8dc9 | | 01be 9585 d195 | | 01c0 7d7d bdc1 |}} | 01c2 95b9 7db5 | } | 01c4 bd91 94e8 | | 01c6 d4b1 b9bd | | 01c8 c995 c1b1 | | 01ca 858d 957d | }| 01cc 7dbd c195 |} | 01ce b97d b5bd | } | 01d0 9194 e8d8 | | 01d2 b0ec 01cd | | 01d4 9595 ad7d | }| 01d6 91a5 c8e9 | | 01d8 50a0 c0b0 |P | 01da d0e0 a4f5 | | 01dc 9589 959d | | 01de 7d7d cd95 |}} | 01e0 95ad 7d91 | } | 01e2 a5c8 e8c0 | | 01e4 b18d d5c9 | | 01e6 7d7d cd95 |}} | 01e8 95ad 7d91 | } | 01ea a5c8 e8c4 | | 01ec b195 b991 | | 01ee 7d7d cd95 |}} | 01f0 95ad 7d91 | } | 01f2 a5c8 e8c8 | | 01f4 b0ec 017d | }| 01f6 7d14 c8c4 |} | 01f8 e950 a0c0 | P | 01fa b0d0 e4a4 | | 01fc f595 cdad | | 01fe a5c1 ddcd | |