|
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_0220f2
└─⟦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,0x7940,0x0000,0x0001,0x0000 004e a5b9 9d7d | }| .XXX[0x7] 0050 41c9 bd99 |A | 0052 a5b1 94a4 | | 0054 ec28 | ( | 0055 8080 8080 | | .BLANK 8080[0x5] 005a 8081 c985 | | .XXX[0xb] 005c a5cd 94ec | | 005e 2880 8080 |( | 0060 8080 8080 | | 0062 8195 b1cd | | 0064 9428 | ( | 0065 8080 8080 | | .BLANK 8080[0x5] 006a 8081 41c9 | A | .XXX[0x3c] 006c bd99 a5b1 | | 006e 94b9 4d95 | M | 0070 d080 a14d | M| 0072 d185 c9d1 | | 0074 a5b9 9d7d | }| 0076 41c9 bd99 |A | 0078 a5b1 94a4 | | 007a ec28 8080 | ( | 007c 8080 8080 | | 007e 8081 95b9 | | 0080 9081 a598 | | 0082 ec29 95b9 | ) | 0084 9081 4d85 | M | 0086 d995 7d05 | } | 0088 8d8d 95cd | | 008a cd7d 31a5 | }1 | 008c cdd0 edc1 | | 008e c9bd 8d95 | | 0090 91d5 c994 | | 0092 814d 95d1 | M | 0094 7d05 8d8d |} | 0096 95cd cd7d | }| 0098 31a5 cdd0 |1 | 009a 80a1 55cd | U | 009c a5b9 9d7d | }| 009e 19a5 b194 | | 00a0 80e8 814d | M| 00a2 d1c9 a5b9 | | 00a4 9cec 2880 | ( | 00a6 8080 8080 | | .BLANK 8080[0xc] 00b2 8081 4995 | I | .XXX[0x6f] 00b4 cdc1 bdb9 | | 00b6 cd94 8080 | | 00b8 80e8 814d | M| 00ba d1c9 a5b9 | | 00bc 9c80 e8f4 | | 00be 8088 f141 | A| 00c0 493d 1925 |I= %| 00c2 3114 f888 |1 | 00c4 a4ed dda5 | | 00c6 d1a0 8125 | %| 00c8 bcec 29dd | ) | 00ca a5d1 a081 | | 00cc 31bd 9cec |1 | 00ce 29dd a5d1 |) | 00d0 a081 41c9 | A | 00d2 bd99 a5b1 | | 00d4 94ec 29dd | ) | 00d6 a5d1 a081 | | 00d8 11a5 c995 | | 00da 8dd1 bdc9 | | 00dc e4ec 29dd | ) | 00de a5d1 a081 | | 00e0 1195 89d5 | | 00e2 9d7d 51bd | }Q | 00e4 bdb1 ccec | | 00e6 29dd a5d1 |) | 00e8 a081 4da5 | M | 00ea b5c1 b195 | | 00ec 7d4d d185 |}M | 00ee d1d5 ccec | | 00f0 29dd a5d1 |) | 00f2 a081 4dd1 | M | 00f4 c9a5 b99d | | 00f6 7d55 d1a5 |}U | 00f8 b1a5 d1a5 | | 00fa 95cc ec29 | )| 00fc dda5 d1a0 | | 00fe 8105 8d8d | | 0100 95cd cd7d | }| 0102 31a5 cdd1 |1 | 0104 7d51 bdbd |}Q | 0106 b1cc ec28 | (| 0108 29c1 c9bd |) | 010a 8d95 91d5 | | 010c c994 814d | M| 010e 95d1 7d05 | } | 0110 8d8d 95cd | | 0112 cd7d 31a5 | }1 | 0114 cdd0 80a1 | | 0116 55cd a5b9 |U | 0118 9d7d 19a5 | } | 011a b194 80e8 | | 011c 814d d1c9 | M | 011e a5b9 9cec | | 0120 2880 |( | 0121 8080 8080 | | .BLANK 8080[0xc] 012d 8081 4995 | I | .XXX[0xbc] 012f cdc1 bdb9 | | 0131 cd94 8080 | | 0133 80e8 814d | M| 0135 d1c9 a5b9 | | 0137 9c80 e8f4 | | 0139 8088 f141 | A| 013b 493d 1925 |I= %| 013d 3114 f888 |1 | 013f a481 a5cc | | 0141 2880 8080 |( | 0143 80b4 b481 | | 0145 b1a5 b995 | | 0147 cc81 a5b8 | | 0149 81d1 a194 | | 014b 8199 a5b1 | | 014d 9481 a185 | | 014f d994 81d1 | | 0151 a194 8199 | | 0153 bdc9 b585 | | 0155 d080 f1d5 | | 0157 b9a5 d081 | | 0159 b985 b594 | | 015b f880 f4f8 | | 015d 80f1 858d | | 015f b0f8 2828 | ((| 0161 8080 8081 | | 0163 c185 8dad | | 0165 859d 9481 | | 0167 4dd1 d481 |M | 0169 c995 b985 | | 016b b595 cc81 | | 016d 4dd1 c9a5 |M | 016f b99d 7d55 | }U| 0171 d1a5 b1a5 | | 0173 d1a5 95cc | | 0175 ec28 2880 | (( | 0177 8080 8105 | | 0179 8db1 cc80 | | 017b e881 25bc | % | 017d b919 a5b1 | | 017f 957d 51e5 | }Q | 0181 c194 ec28 | (| 0183 2880 8080 |( | 0185 814d d185 | M | 0187 c9d1 a5b9 | | 0189 9d7d 41c9 | }A | 018b bd99 a5b1 | | 018d 9480 e881 | | 018f 41c9 bd99 |A | 0191 a5b1 94b9 | | 0193 4995 cdc1 |I | 0195 bdb9 cd95 | | 0197 7d41 c9bd |}A | 0199 99a5 b194 | | 019b 80e8 f481 | | 019d 41c9 bd99 |A | 019f a5b1 94b9 | | 01a1 1d95 d0ec | | 01a3 2828 8080 |(( | 01a5 8081 c1c9 | | 01a7 bd8d 9591 | | 01a9 d5c9 9481 | | 01ab 4d95 d17d |M }| 01ad 058d b080 | | 01af a13d b97d | = }| 01b1 55b9 a5d0 |U | 01b3 80e8 814d | M| 01b5 d1c9 a5b9 | | 01b7 9cec 8151 | Q| 01b9 bd7d 058d | } | 01bb b080 e881 | | 01bd 4dd1 c9a5 |M | 01bf b99c a481 | | 01c1 a5cc 2880 | ( | 01c3 8080 8080 | | 01c5 8080 810c | | 01c7 80e8 814d | M| 01c9 a5b5 c1b1 | | 01cb 957d 4dd1 | }M | 01cd 85d1 d5cc | | 01cf b90d bdb9 | | 01d1 91a5 d1a5 | | 01d3 bdb8 ec28 | (| 01d5 8080 8081 | | 01d7 8995 9da5 | | 01d9 b828 8080 | ( | 01db 8080 8080 | | 01dd 8081 058d | | 01df 8d95 cdcd | | 01e1 7d31 a5cd |}1 | 01e3 d17d 51bd | }Q | 01e5 bdb1 ccb9 | | 01e7 4d95 d028 |M (| 01e9 8080 8080 | | .BLANK 8080[0x5] 01ee 80a1 19bd | | .XXX[0x12] 01f0 c97d 3d89 | }= | 01f2 a995 8dd0 | | 01f4 80f4 f881 | | 01f6 3db9 7d55 |= }U| 01f8 b9a5 d0b0 | | 01fa 8151 bd7d | Q }| 01fc 31a5 cdd0 |1 | 01fe 80f4 f881 | |