|
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_0bf8df
└─⟦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 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 e002 | | Load 0x0,0x2 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 e002 | | Load 0x0,0x2 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 0002 | | .DEBUG4 0x0004,0x0002,0x0b8c,0x0000,0x0001,0x0000 005e 0dbd b9d9 | | .XXX[0x12] 0060 95c9 d080 | | 0062 a125 b585 | % | 0064 9d94 8080 | | 0066 8080 e880 | | 0068 8080 8080 | | 006a 8080 814d | M| 006c d1c9 a5b9 | | 006e 9cec 2880 | ( | 0070 8080 8080 | | .BLANK 8080[0xa] 007a 8081 4995 | I | .XXX[0x13] 007c cdc1 bdb9 | | 007e cd94 80e8 | | 0080 81bd d5d0 | | 0082 8080 8081 | | 0084 4995 cdc1 |I | 0086 bdb9 cd95 | | 0088 7d41 c9bd |}A | 008a 99a5 b194 | | 008c ec28 | ( | 008d 8080 8080 | | .BLANK 8080[0xb] 0098 814d d185 | M | .XXX[0xfc] 009a d1d5 cc80 | | 009c 8080 e881 | | 009e a5b8 81bd | | 00a0 d5d0 814d | M| 00a2 a5b5 c1b1 | | 00a4 957d 4dd1 | }M | 00a6 85d1 d5cc | | 00a8 b90d bdb9 | | 00aa 91a5 d1a5 | | 00ac bdb8 a4ec | | 00ae 2828 8080 |(( | 00b0 8080 b4b4 | | 00b2 810d bdb9 | | 00b4 d995 c9d0 | | 00b6 8189 95d1 | | 00b8 dd95 95b8 | | 00ba 8199 bdc9 | | 00bc b481 c185 | | 00be c985 b595 | | 00c0 d195 c881 | | 00c2 c995 c1c9 | | 00c4 95cd 95b9 | | 00c6 d185 d1a5 | | 00c8 bdb8 81bd | | 00ca 9881 8481 | | 00cc c1c9 bd99 | | 00ce a5b1 9481 | | 00d0 85b9 9081 | | 00d2 d1a1 9428 | (| 00d4 8080 8080 | | 00d6 b4b4 81a5 | | 00d8 b9d1 95c9 | | 00da b985 b081 | | 00dc c995 c1c9 | | 00de 95cd 95b9 | | 00e0 d185 d1a5 | | 00e2 bdb8 b880 | | 00e4 8151 a194 | Q | 00e6 8159 85b1 | Y | 00e8 d594 8199 | | 00ea d5b9 8dd1 | | 00ec a5bd b881 | | 00ee a59d b9bd | | 00f0 c995 cc81 | | 00f2 a5b9 d985 | | 00f4 b1a5 9081 | | 00f6 bdc1 d1a5 | | 00f8 bdb9 cc28 | (| 00fa 8080 8080 | | 00fc b4b4 81a5 | | 00fe b881 d1a1 | | 0100 9481 99bd | | 0102 c9b4 81c1 | | 0104 85c9 85b5 | | 0106 95d1 95c8 | | 0108 b828 2880 | (( | 010a 8080 81c1 | | 010c c9bd 8d95 | | 010e 91d5 c994 | | 0110 814d 95d0 | M | 0112 80a1 41c9 | A | 0114 bd99 a5b1 | | 0116 9480 e881 | | 0118 4dd1 c9a5 |M | 011a b99c ec81 | | 011c 4dd1 85d1 |M | 011e d5cc 80e8 | | 0120 81a5 b881 | | 0122 bdd5 d081 | | 0124 4da5 b5c1 |M | 0126 b195 7d4d | }M| 0128 d185 d1d5 | | 012a ccb9 0dbd | | 012c b991 a5d1 | | 012e a5bd b8a4 | | 0130 ec28 2880 | (( | 0132 8080 80b4 | | 0134 b481 4d95 | M | 0136 d081 c1c9 | | 0138 bd99 a5b1 | | 013a 9481 99bd | | 013c c881 c995 | | 013e cdd0 81bd | | 0140 9881 8dd5 | | 0142 c9c9 95b9 | | 0144 d081 a9bd | | 0146 88ec 8105 | | 0148 b881 95c9 | | 014a c9bd c881 | | 014c 4dd1 85d1 |M | 014e d5cc 81a5 | | 0150 cc81 c995 | | 0152 d1d5 c9b9 | | 0154 9590 8185 | | 0156 b990 2880 | ( | 0158 8080 80b4 | | 015a b481 d1a1 | | 015c 9481 c1c9 | | 015e bd99 a5b1 | | 0160 9481 a5cc | | 0162 81b9 bdd0 | | 0164 818d a185 | | 0166 b99d 9590 | | 0168 81a5 9881 | | 016a d1a1 9481 | | 016c c1c9 bd99 | | 016e a5b1 9481 | | 0170 cdd1 c9a5 | | 0172 b99c 81a5 | | 0174 cc81 a5b9 | | 0176 d985 b1a5 | | 0178 90b8 2828 | ((| 017a 8080 8081 | | 017c c1c9 bd8d | | 017e 9591 d5c9 | | 0180 9481 4d95 | M | 0182 d17d 1195 | } | 0184 9985 d5b1 | | 0186 d080 a141 | A| 0188 c9bd 99a5 | | 018a b194 80e8 | | 018c 8080 8080 | | 018e 8080 8081 | | 0190 4dd1 c9a5 |M | 0192 b99c ec28 | (| 0194 8080 8080 | | .BLANK 8080[0xd] 01a1 814d d185 | M | .XXX[0x5f] 01a3 d1d5 cc80 | | 01a5 80e8 81a5 | | 01a7 b881 bdd5 | | 01a9 d081 4da5 | M | 01ab b5c1 b195 | | 01ad 7d4d d185 |}M | 01af d1d5 ccb9 | | 01b1 0dbd b991 | | 01b3 a5d1 a5bd | | 01b5 b8a4 ec28 | (| 01b7 8080 8080 | | 01b9 b4b4 814d | M| 01bb 95d0 81c1 | | 01bd c9bd 99a5 | | 01bf b194 8199 | | 01c1 bdc8 81cd | | 01c3 95cd cda5 | | 01c5 bdb8 ec81 | | 01c7 d1a1 a5cc | | 01c9 81a5 cc81 | | 01cb d1a1 9481 | | 01cd d985 b1d5 | | 01cf 9481 d5cd | | 01d1 9590 8199 | | 01d3 bdc8 81d1 | | 01d5 a194 81a9 | | 01d7 bd88 2880 | ( | 01d9 8080 80b4 | | 01db b481 c995 | | 01dd cdc1 bdb9 | | 01df cd94 81c1 | | 01e1 c9bd 99a5 | | 01e3 b194 81a5 | | 01e5 9881 b9bd | | 01e7 b994 81a5 | | 01e9 cc81 bdd1 | | 01eb a195 c9dd | | 01ed a5cd 9481 | | 01ef cdc1 958d | | 01f1 a599 a595 | | 01f3 90b8 2828 | ((| 01f5 2880 8080 |( | 01f7 81c1 c9bd | | 01f9 8d95 91d5 | | 01fb c994 811d | | 01fd 95d1 7d0d | } | 01ff 858d | |