|
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 0078 | x | .CONST 0x0078 ; 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 0028 | ( | .CONST 0x0028 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0012 | | .CONST 0x0012 ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 4800 |H | Short_Literal 0x0 0012 4804 |H | Short_Literal 0x4 0013 029f 0033 | 3| Declare_Subprogram INIT_0030,For_Call 0015 03fe | | Declare_Type Discrete,Defined,Visible 0016 c212 | | Store 0x1,0x12 0017 e001 | | Load 0x0,0x1 0018 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0019 0129 | ) | Execute Any,Make_Visible 001a c20d | | Store 0x1,0xd 001b e001 | | Load 0x0,0x1 001c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 001d 0129 | ) | Execute Any,Make_Visible 001e c20e | | Store 0x1,0xe 001f e001 | | Load 0x0,0x1 0020 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0021 0129 | ) | Execute Any,Make_Visible 0022 c20f | | Store 0x1,0xf 0023 e001 | | Load 0x0,0x1 0024 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0025 0129 | ) | Execute Any,Make_Visible 0026 c210 | | Store 0x1,0x10 0027 00bf | | Action Accept_Activation 0028 BODY_0008: 0028 00bc | | Action Signal_Activated 0029 00bb | | Action Signal_Completion 002a 0000 0000 | | .BLANK 0000[0x6] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0033 | 3 | .CONST 0x0033 ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0001 | | .CONST 0x0001 ; Number of locals 0033 BODY_0030: 0033 INIT_0030: 0033 4607 |F | Jump_Case 0x8 0034 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0035 7806 |x | Jump 0x3c ; case 0x1 0036 7809 |x | Jump 0x40 ; case 0x2 0037 780d |x | Jump 0x45 ; case 0x3 0038 7810 |x | Jump 0x49 ; case 0x4 0039 7811 |x | Jump 0x4b ; case 0x5 003a 7812 |x | Jump 0x4d ; case 0x6 003b 7815 |x | Jump 0x51 ; case 0x7 003c 00da | | Load_Top At_Offset_2 003d 0091 0055 | U| Action Push_String_Extended_Indexed,0x55 ; "SUCCESS" 003f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0040 00db | | Load_Top At_Offset_3 0041 00db | | Load_Top At_Offset_3 0042 00e0 | | Load_Encached Standard_Cache 0043 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0044 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0045 00da | | Load_Top At_Offset_2 0046 00e0 | | Load_Encached Standard_Cache 0047 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0048 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0049 00db | | Load_Top At_Offset_3 004a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 004b 00db | | Load_Top At_Offset_3 004c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 004d e212 | | Load 0x1,0x12 004e 00dc | | Load_Top At_Offset_4 004f 0267 | g | Execute Discrete,Predecessor 0050 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0051 e212 | | Load 0x1,0x12 0052 00dc | | Load_Top At_Offset_4 0053 0268 | h | Execute Discrete,Successor 0054 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0055 ; -------------------------------------------------------------------------------------- 0055 ; STRING TABLE 0055 ; -------------------------------------------------------------------------------------- 0055 000c | | .STRTAB 0x000c->0x005b ; "SUCCESS" 0056 0011 | | .STRTAB 0x0011->0x005e ; "PROG_UNAVAIL" 0057 001b | | .STRTAB 0x001b->0x0064 ; "PROG_MISMATCH" 0058 0026 | & | .STRTAB 0x0026->0x006b ; "PROC_UNAVAIL" 0059 0030 | 0 | .STRTAB 0x0030->0x0071 ; "GARBAGE_ARGS" 005a 003a | : | .STREND 0x003a->0x0077 005b 5355 4343 |SUCC| .STRTAB_STRINGS 0077 0000 | | .XXX[0x1] 0078 ; -------------------------------------------------------------------------------------- 0078 ; Debug Table 0078 ; -------------------------------------------------------------------------------------- 0078 0004 0010 | | .DEBUG4 0x0004,0x0010,0xecc2,0x0000,0x0001,0x0000 007e 0000 0000 | | .BLANK 0000[0xb] 0089 003a b000 | : | .XXX[0x2] 008b 0000 0000 | | .BLANK 0000[0x18] 00a3 000e 8000 | | .XXX[0x2] 00a5 0000 0000 | | .BLANK 0000[0xb8] 015d e540 | @ | .XXX[0x1] 015e 0000 0000 | | .BLANK 0000[0x16] 0174 06b0 4000 | @ | .XXX[0x8c] 0176 2202 4000 |" @ | 0178 588a 0001 |X | 017a 0c84 0025 | %| 017c db40 1680 | @ | 017e b100 0057 | W| 0180 ca48 4080 | H@ | 0182 0ed8 4000 | @ | 0184 2202 4000 |" @ | 0186 6c8a 0000 |l | 0188 f084 0025 | %| 018a d900 0382 | | 018c 6340 1b80 |c@ | 018e a2b8 4000 | @ | 0190 2202 4000 |" @ | 0192 5c92 0000 |\ | 0194 d884 0025 | %| 0196 dac4 b780 | | 0198 0a48 4000 | H@ | 019a 6250 4080 |bP@ | 019c 0100 03a1 | | 019e 6640 4000 |f@@ | 01a0 6a02 4000 |j @ | 01a2 208a 0000 | | 01a4 b884 0025 | %| 01a6 da50 4080 | P@ | 01a8 0248 4000 | H@ | 01aa 6100 03a1 |a | 01ac 4a40 4000 |J@@ | 01ae 6602 4000 |f @ | 01b0 208a 0000 | | 01b2 9c84 0025 | %| 01b4 d900 0383 | | 01b6 7f40 1b80 | @ | 01b8 a2c0 4000 | @ | 01ba 2202 4000 |" @ | 01bc 62e0 4080 |b @ | 01be 000a 0000 | | 01c0 66e8 4080 |f @ | 01c2 0202 9c00 | | 01c4 5cda 0000 |\ | 01c6 5f40 1680 |_@ | 01c8 b258 4000 | X@ | 01ca 6360 0b00 |c` | 01cc 0358 0b80 | X | 01ce 1240 0e81 | @ | 01d0 8360 8880 | ` | 01d2 0358 8880 | X | 01d4 1100 0076 | v| 01d6 b248 4080 | H@ | 01d8 0788 1900 | | 01da 02e0 1c80 | | 01dc 0740 9100 | @ | 01de 7790 1a00 |w | 01e0 03c0 1880 | | 01e2 33c0 9200 |3 | 01e4 7500 0383 |u | 01e6 6340 1b80 |c@ | 01e8 a2c0 4000 | @ | 01ea 2202 4000 |" @ | 01ec 604a ffff |`J | 01ee aee8 1d80 | | 01f0 1340 1680 | @ | 01f2 b100 005c | \| 01f4 6648 4080 |fH@ | 01f6 0100 0261 | a| 01f8 2ec0 4080 |. @ | 01fa 0042 0000 | B | 01fc 3404 0000 |4 | 01fe 03c0 1084 | |