|
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 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 0024 | $ | .CONST 0x0024 ; 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 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 001d 1b18 | | Execute Package,Field_Read,Field_Number 0x18 001e 02c7 | | Declare_Variable Any 001f 00d8 | | Load_Top At_Offset_0 0020 1c00 | | Execute_Immediate Run_Utility,0x0 0021 e001 | | Load 0x0,0x1 0022 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0023 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0024 BODY_0018: 0024 e001 | | Load 0x0,0x1 0025 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0026 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0027 00da | | Load_Top At_Offset_2 0028 601b |` | Indirect_Literal Discrete,0x44,{0x00000000, 0x00004000} 0029 e002 | | Load 0x0,0x2 002a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 002b e003 | | Load 0x0,0x3 002c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 002d e004 | | Load 0x0,0x4 002e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 002f 4801 |H | Short_Literal 0x1 0030 4800 |H | Short_Literal 0x0 0031 e003 | | Load 0x0,0x3 0032 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0033 e001 | | Load 0x0,0x1 0034 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0035 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0036 e5ff | | Load 0x2,-0x1 0037 e001 | | Load 0x0,0x1 0038 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0039 181b | | Execute Package,Field_Execute,Field_Number 0x1b 003a c402 | | Store 0x2,0x2 003b 0059 | Y | Store_Top Discrete,At_Offset_1 003c 00d8 | | Load_Top At_Offset_0 003d 0f00 | | Execute_Immediate Equal,0x0 003e 00d9 | | Load_Top At_Offset_1 003f 0f06 | | Execute_Immediate Equal,0x6 0040 0278 | x | Execute Discrete,Or 0041 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0042 0000 0000 | | .XXX[0x2] 0044 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0048 ; -------------------------------------------------------------------------------------- 0048 ; Debug Table 0048 ; -------------------------------------------------------------------------------------- 0048 0004 0000 | | .DEBUG4 0x0004,0x0000,0x77d8,0x0000,0x0001,0x0000 004e 8080 8080 | | .BLANK 8080[0x9] 0057 a139 bd91 | 9 | .XXX[0x33] 0059 9480 e881 | | 005b 11a5 85b9 | | 005d 84b9 51c9 | Q | 005f 9594 ec81 | | 0061 25b9 9195 |% | 0063 b9d1 85d1 | | 0065 a5bd b880 | | 0067 e881 25b9 | % | 0069 d195 9d95 | | 006b c8a4 ec28 | (| 006d 8080 8081 | | 006f c185 8dad | | 0071 859d 9481 | | 0073 4de5 b589 |M | 0075 bdb1 a58d | | 0077 7d25 bc81 |}% | 0079 a5cc 2880 | ( | 007b 8080 8080 | | 007d 8080 81c1 | | 007f c9bd 8d95 | | 0081 91d5 c994 | | 0083 813d d5d1 | = | 0085 c1d5 d080 | | 0087 a131 a5cd | 1 | 0089 d080 | | 008a 8080 8080 | | .BLANK 8080[0x5] 008f 80e8 8111 | | .XXX[0xa] 0091 a585 b984 | | 0093 b94d 95c5 | M | 0095 d595 b98d | | 0097 94ec 2880 | ( | 0099 8080 8080 | | .BLANK 8080[0xc] 00a5 815d a5d1 | ] | .XXX[0x49] 00a7 a17d 05d1 | } | 00a9 d1c9 a589 | | 00ab d5d1 95cc | | 00ad 80e8 8109 | | 00af bdbd b195 | | 00b1 85b8 80e8 | | 00b3 f481 51c9 | Q | 00b5 d594 a4ec | | 00b7 2828 8080 |(( | 00b9 8080 8080 | | 00bb 8081 c1c9 | | 00bd bd8d 9591 | | 00bf d5c9 9481 | | 00c1 3dd5 d1c1 |= | 00c3 d5d0 80a1 | | 00c5 39bd 9194 |9 | 00c7 80e8 8111 | | 00c9 a585 b984 | | 00cb b951 c995 | Q | 00cd 94ec 815d | ]| 00cf a5d1 a17d | }| 00d1 05d1 d1c9 | | 00d3 a589 d5d1 | | 00d5 95cc 80e8 | | 00d7 8109 bdbd | | 00d9 b195 85b8 | | 00db 80e8 f481 | | 00dd 51c9 d594 |Q | 00df a4ec 2880 | ( | 00e1 8080 8195 | | 00e3 b990 814d | M| 00e5 e5b5 89bd | | 00e7 b1a5 8d7d | }| 00e9 25bc ec28 |% (| 00eb 2880 8080 |( | 00ed 80b4 | | 00ee b4b4 b4b4 | | .BLANK b4b4[0x25] 0113 2828 8080 |(( | .XXX[0x1d] 0115 8081 c185 | | 0117 8dad 859d | | 0119 9481 05d1 | | 011b d1c9 7d39 | }9| 011d 85b5 95cc | | 011f 81a5 cc28 | (| 0121 8080 8080 | | 0123 8080 8081 | | 0125 99d5 b98d | | 0127 d1a5 bdb8 | | 0129 8105 d1d1 | | 012b c97d 0591 | } | 012d 91c9 95cd | | 012f cc80 | | 0130 8080 8080 | | .BLANK 8080[0x4] 0134 8081 c995 | | .XXX[0x18] 0136 d1d5 c9b8 | | 0138 814d e5b5 | M | 013a 89bd b17d | }| 013c 4995 c0ec |I | 013e 2880 8080 |( | 0140 8080 8080 | | 0142 8199 d5b9 | | 0144 8dd1 a5bd | | 0146 b881 05d1 | | 0148 d1c9 7d09 | } | 014a 85cd 9480 | | 014c 8080 8080 | | .BLANK 8080[0x6] 0152 81c9 95d1 | | .XXX[0x17] 0154 d5c9 b881 | | 0156 4de5 b589 |M | 0158 bdb1 7d49 | }I| 015a 95c0 ec28 | (| 015c 8080 8080 | | 015e 8080 8081 | | 0160 99d5 b98d | | 0162 d1a5 bdb8 | | 0164 8105 d1d1 | | 0166 c97d 4da5 | }M | 0168 e994 | | 0169 8080 8080 | | .BLANK 8080[0x6] 016f 8081 c995 | | .XXX[0x18] 0171 d1d5 c9b8 | | 0173 814d e5b5 | M | 0175 89bd b17d | }| 0177 4995 c0ec |I | 0179 2880 8080 |( | 017b 8080 8080 | | 017d 8199 d5b9 | | 017f 8dd1 a5bd | | 0181 b881 05d1 | | 0183 d1c9 7d19 | } | 0185 a5c9 cdd0 | | 0187 8080 8080 | | .BLANK 8080[0x6] 018d 81c9 95d1 | | .XXX[0x17] 018f d5c9 b881 | | 0191 4de5 b589 |M | 0193 bdb1 7d49 | }I| 0195 95c0 ec28 | (| 0197 8080 8080 | | 0199 8080 8081 | | 019b 99d5 b98d | | 019d d1a5 bdb8 | | 019f 8105 d1d1 | | 01a1 c97d 3185 | }1 | 01a3 cdd0 | | 01a4 8080 8080 | | .BLANK 8080[0x6] 01aa 8081 c995 | | .XXX[0x18] 01ac d1d5 c9b8 | | 01ae 814d e5b5 | M | 01b0 89bd b17d | }| 01b2 4995 c0ec |I | 01b4 2880 8080 |( | 01b6 8080 8080 | | 01b8 8199 d5b9 | | 01ba 8dd1 a5bd | | 01bc b881 05d1 | | 01be d1c9 7d25 | }%| 01c0 b585 9d94 | | 01c2 8080 8080 | | .BLANK 8080[0x6] 01c8 81c9 95d1 | | .XXX[0x18] 01ca d5c9 b881 | | 01cc 4de5 b589 |M | 01ce bdb1 7d49 | }I| 01d0 95c0 ec28 | (| 01d2 8080 8080 | | 01d4 8080 8081 | | 01d6 99d5 b98d | | 01d8 d1a5 bdb8 | | 01da 8105 d1d1 | | 01dc c97d 5985 | }Y | 01de b1d5 9480 | | 01e0 8080 8080 | | .BLANK 8080[0x5] 01e5 8081 c995 | | .XXX[0x17] 01e7 d1d5 c9b8 | | 01e9 814d e5b5 | M | 01eb 89bd b17d | }| 01ed 4995 c0ec |I | 01ef 2880 8080 |( | 01f1 8080 8080 | | 01f3 8199 d5b9 | | 01f5 8dd1 a5bd | | 01f7 b881 05d1 | | 01f9 d1c9 7d41 | }A| 01fb bdcc | | 01fc 8080 8080 | | .BLANK 8080[0x4]