|
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_03bcfe
└─⟦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 0088 | | .CONST 0x0088 ; 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 002b | + | .CONST 0x002b ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0008 | | .CONST 0x0008 ; Number of locals 001b INIT_0018: 001b 0092 0054 | T| Action Push_String_Extended,0x54 ; "R1000_DUMP1" 001d 0092 0055 | U| Action Push_String_Extended,0x55 ; "!MACHINE.TEMPORARY" 001f 0092 0056 | V| Action Push_String_Extended,0x56 ; "!MACHINE.TEMPORARY.R1000_DUMP1" 0021 00e1 | | Load_Encached Boolean_Cache 0022 e002 | | Load 0x0,0x2 0023 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0024 02c7 | | Declare_Variable Any 0025 00d8 | | Load_Top At_Offset_0 0026 1c00 | | Execute_Immediate Run_Utility,0x0 0027 e003 | | Load 0x0,0x3 0028 0007 | | Action Break_Optional 0029 029f 004b | K| Declare_Subprogram INIT_0048,For_Call 002b BODY_0018: 002b 00d9 | | Load_Top At_Offset_1 002c 4801 |H | Short_Literal 0x1 002d 0092 0056 | V| Action Push_String_Extended,0x56 ; "!MACHINE.TEMPORARY.R1000_DUMP1" 002f e402 | | Load 0x2,0x2 0030 8004 | | Call 0x0,0x4 0031 005a | Z | Store_Top Discrete,At_Offset_2 0032 00d9 | | Load_Top At_Offset_1 0033 8408 | | Call 0x2,0x8 0034 a405 | | Store_Unchecked 0x2,0x5 0035 00db | | Load_Top At_Offset_3 0036 6805 |h | Jump_Zero 0x3c 0037 00ea | | Load_Encached Null_String_Cache 0038 4801 |H | Short_Literal 0x1 0039 e404 | | Load 0x2,0x4 003a 8005 | | Call 0x0,0x5 003b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 003c 4802 |H | Short_Literal 0x2 003d 4801 |H | Short_Literal 0x1 003e 0092 0057 | W| Action Push_String_Extended,0x57 ; "Could not process tombstone file" 0040 e406 | | Load 0x2,0x6 0041 8006 | | Call 0x0,0x6 0042 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0043 0000 0000 | | .BLANK 0000[0x5] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 00da | | Load_Top At_Offset_2 004c 0f00 | | Execute_Immediate Equal,0x0 004d 00db | | Load_Top At_Offset_3 004e 0f10 | | Execute_Immediate Equal,0x10 004f 0278 | x | Execute Discrete,Or 0050 00db | | Load_Top At_Offset_3 0051 0f11 | | Execute_Immediate Equal,0x11 0052 0278 | x | Execute Discrete,Or 0053 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0054 ; -------------------------------------------------------------------------------------- 0054 ; STRING TABLE 0054 ; -------------------------------------------------------------------------------------- 0054 000a | | .STRTAB 0x000a->0x0059 ; "R1000_DUMP1" 0055 0013 | | .STRTAB 0x0013->0x005e ; "!MACHINE.TEMPORARY" 0056 0023 | # | .STRTAB 0x0023->0x0067 ; "!MACHINE.TEMPORARY.R1000_DUMP1" 0057 003f | ? | .STRTAB 0x003f->0x0076 ; "Could not process tombstone file" 0058 005d | ] | .STREND 0x005d->0x0086 0059 5231 3030 |R100| .STRTAB_STRINGS 0087 0000 | | .XXX[0x1] 0088 ; -------------------------------------------------------------------------------------- 0088 ; Debug Table 0088 ; -------------------------------------------------------------------------------------- 0088 0004 0011 | | .DEBUG4 0x0004,0x0011,0x34a4,0x0000,0x0001,0x0000 008e 8481 d5cd | | .XXX[0x40] 0090 95c8 8129 | )| 0092 bd88 80a1 | | 0094 8599 d195 | | 0096 c881 b1bd | | 0098 9dbd d5d0 | | 009a a428 28b4 | (( | 009c b481 25d1 | % | 009e 95c9 85d1 | | 00a0 bdc8 8149 | I| 00a2 bdd5 d1a5 | | 00a4 b995 cc28 | (| 00a6 2880 8080 |( | 00a8 8199 d5b9 | | 00aa 8dd1 a5bd | | 00ac b881 25b9 | % | 00ae a5d1 a585 | | 00b0 b1a5 e994 | | 00b2 80a1 058d | | 00b4 8dbd d5b9 | | 00b6 d1a5 b99d | | 00b8 7d31 a589 |}1 | 00ba c985 c9e4 | | 00bc 80e8 814d | M| 00be d1c9 a5b9 | | 00c0 9c80 e8f4 | | 00c2 8088 8535 | 5| 00c4 858d a1a5 | | 00c6 b994 b905 | | 00c8 8d8d bdd5 | | 00ca b9d1 a5b9 | | 00cc 9c88 a428 | (| 00ce 8080 8080 | | .BLANK 8080[0xb] 00d9 8081 c995 | | .XXX[0x127] 00db d1d5 c9b8 | | 00dd 8125 d195 | % | 00df c985 d1bd | | 00e1 c8ec 2880 | ( | 00e3 8080 80b4 | | 00e5 b481 55d1 | U | 00e7 a5b1 a5e9 | | 00e9 95cc 8199 | | 00eb a5b1 95b9 | | 00ed 85b5 95cc | | 00ef 81bd 9881 | | 00f1 d1a1 9481 | | 00f3 99bd c9b4 | | 00f5 80f1 058d | | 00f7 8dbd d5b9 | | 00f9 d1a5 b99d | | 00fb 7d31 a589 |}1 | 00fd c985 c9e4 | | 00ff f8b9 058d | | 0101 d1a5 d9a5 | | 0103 d1e5 7d00 | } | 0105 2880 8080 |( | 0107 80b4 b428 | (| 0109 2880 8080 |( | 010b 81c1 c9bd | | 010d 8d95 91d5 | | 010f c994 8139 | 9| 0111 95e1 d080 | | 0113 a125 d195 | % | 0115 c880 e881 | | 0117 25d1 95c9 |% | 0119 85d1 bdc8 | | 011b a4ec 2880 | ( | 011d 8080 8199 | | 011f d5b9 8dd1 | | 0121 a5bd b881 | | 0123 11bd b994 | | 0125 80a1 25d1 | % | 0127 95c8 80e8 | | 0129 8125 d195 | % | 012b c985 d1bd | | 012d c8a4 81c9 | | 012f 95d1 d5c9 | | 0131 b881 09bd | | 0133 bdb1 9585 | | 0135 b8ec 2828 | ((| 0137 b4b4 8125 | %| 0139 b999 bdc9 | | 013b b585 d1a5 | | 013d bdb8 81bd | | 013f 89d1 85a5 | | 0141 b985 89b1 | | 0143 9481 99bd | | 0145 c881 9585 | | 0147 8da0 8195 | | 0149 b9d1 c9e4 | | 014b 2880 8080 |( | 014d 8199 d5b9 | | 014f 8dd1 a5bd | | 0151 b881 2da5 | - | 0153 b990 80a1 | | 0155 25d1 95c8 |% | 0157 80e8 8125 | %| 0159 d195 c985 | | 015b d1bd c8a4 | | 015d 81c9 95d1 | | 015f d5c9 b881 | | 0161 15b9 d1c9 | | 0163 e57d 2da5 | }- | 0165 b990 ec28 | (| 0167 8080 8081 | | 0169 99d5 b98d | | 016b d1a5 bdb8 | | 016d 8155 cd95 | U | 016f c9b9 85b5 | | 0171 9480 a125 | %| 0173 d195 c880 | | 0175 e881 25d1 | % | 0177 95c9 85d1 | | 0179 bdc8 a481 | | 017b c995 d1d5 | | 017d c9b8 814d | M| 017f d1c9 a5b9 | | 0181 9cec 8080 | | 0183 2880 8080 |( | 0185 8199 d5b9 | | 0187 8dd1 a5bd | | 0189 b881 4d95 | M | 018b cdcd a5bd | | 018d b880 a125 | %| 018f d195 c880 | | 0191 e881 25d1 | % | 0193 95c9 85d1 | | 0195 bdc8 a481 | | 0197 c995 d1d5 | | 0199 c9b8 814d | M| 019b d1c9 a5b9 | | 019d 9cec 2880 | ( | 019f 8080 8199 | | 01a1 d5b9 8dd1 | | 01a3 a5bd b881 | | 01a5 31bd 9da5 |1 | 01a7 b97d 51a5 | }Q | 01a9 b594 80a1 | | 01ab 25d1 95c8 |% | 01ad 80e8 8125 | %| 01af d195 c985 | | 01b1 d1bd c8a4 | | 01b3 81c9 95d1 | | 01b5 d5c9 b881 | | 01b7 0d85 b195 | | 01b9 b991 85c8 | | 01bb b951 a5b5 | Q | 01bd 94ec 2880 | ( | 01bf 8080 8199 | | 01c1 d5b9 8dd1 | | 01c3 a5bd b881 | | 01c5 31bd 9dbd |1 | 01c7 9999 7d51 | }Q| 01c9 a5b5 9480 | | 01cb a125 d195 | % | 01cd c880 e881 | | 01cf 25d1 95c9 |% | 01d1 85d1 bdc8 | | 01d3 a481 c995 | | 01d5 d1d5 c9b8 | | 01d7 810d 85b1 | | 01d9 95b9 9185 | | 01db c8b9 51a5 | Q | 01dd b594 ec28 | (| 01df 8080 8081 | | 01e1 99d5 b98d | | 01e3 d1a5 bdb8 | | 01e5 8131 bd9d | 1 | 01e7 a5b9 7d11 | } | 01e9 d5c9 85d1 | | 01eb a5bd b880 | | 01ed a125 d195 | % | 01ef c880 e881 | | 01f1 25d1 95c9 |% | 01f3 85d1 bdc8 | | 01f5 a481 c995 | | 01f7 d1d5 c9b8 | | 01f9 8111 d5c9 | | 01fb 85d1 a5bd | | 01fd b8ec 2880 | ( | 01ff 8080 | |