|
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_1060f5
└─⟦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 002d | - | .CONST 0x002d ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0013 | | .CONST 0x0013 ; 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 00c4 | | Action Make_Default 0012 4800 |H | Short_Literal 0x0 0013 4804 |H | Short_Literal 0x4 0014 029f 0033 | 3| Declare_Subprogram INIT_0030,For_Call 0016 03fe | | Declare_Type Discrete,Defined,Visible 0017 c212 | | Store 0x1,0x12 0018 e001 | | Load 0x0,0x1 0019 1b10 | | Execute Package,Field_Read,Field_Number 0x10 001a 0129 | ) | Execute Any,Make_Visible 001b c213 | | Store 0x1,0x13 001c e001 | | Load 0x0,0x1 001d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 001e 0129 | ) | Execute Any,Make_Visible 001f c20d | | Store 0x1,0xd 0020 e001 | | Load 0x0,0x1 0021 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0022 0129 | ) | Execute Any,Make_Visible 0023 c20e | | Store 0x1,0xe 0024 e001 | | Load 0x0,0x1 0025 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0026 0129 | ) | Execute Any,Make_Visible 0027 c20f | | Store 0x1,0xf 0028 e001 | | Load 0x0,0x1 0029 1b10 | | Execute Package,Field_Read,Field_Number 0x10 002a 0129 | ) | Execute Any,Make_Visible 002b c210 | | Store 0x1,0x10 002c 00bf | | Action Accept_Activation 002d BODY_0008: 002d 00bc | | Action Signal_Activated 002e 00bb | | Action Signal_Completion 002f 0000 | | .XXX[0x1] 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 0014 | | .DEBUG4 0x0004,0x0014,0x0edd,0x0000,0x0001,0x0000 007e 0000 0000 | | .XXX[0x3] 0080 0000 | | 0081 0052 7760 | Rw`| .XXX[0x7] 0083 0002 b64e | N| 0085 0000 0047 | G| 0087 6340 |c@ | 0088 0000 0000 | | .BLANK 0000[0x4] 008c 0001 4a0b | J | .XXX[0x7] 008e 0000 0ad9 | | 0090 3800 0001 |8 | 0092 1d8d | | 0093 0000 0000 | | .BLANK 0000[0x5] 0098 0528 e200 | ( | .XXX[0x7] 009a 002b 64e0 | +d | 009c 0000 0476 | v| 009e 3400 |4 | 009f 0000 0000 | | .BLANK 0000[0x4] 00a3 0014 a660 | `| .XXX[0x7] 00a5 0000 ad93 | | 00a7 8000 0011 | | 00a9 d8d0 | | 00aa 0000 0000 | | .BLANK 0000[0x5] 00af 52a4 e000 |R | .XXX[0x7] 00b1 02b6 4e00 | N | 00b3 0000 4763 | Gc| 00b5 4000 |@ | 00b6 0000 0000 | | .BLANK 0000[0x4] 00ba 014a c100 | J | .XXX[0x7] 00bc 000a d938 | 8| 00be 0000 011d | | 00c0 8d00 | | 00c1 0000 0000 | | .BLANK 0000[0x4] 00c5 0005 2bba | + | .XXX[0x7] 00c7 0000 2b64 | +d| 00c9 e000 0004 | | 00cb 7634 |v4 | 00cc 0000 0000 | | .BLANK 0000[0x5] 00d1 14b1 c000 | | .XXX[0x7] 00d3 00ad 9380 | | 00d5 0000 11d8 | | 00d7 d000 | | 00d8 0000 0000 | | .BLANK 0000[0x4] 00dc 0052 d260 | R `| .XXX[0x7] 00de 0002 b64e | N| 00e0 0000 0047 | G| 00e2 6340 |c@ | 00e3 0000 0000 | | .BLANK 0000[0x4] 00e7 0001 4b77 | Kw| .XXX[0x7] 00e9 0000 0ad9 | | 00eb 3800 0001 |8 | 00ed 1d8d | | 00ee 0000 0000 | | .BLANK 0000[0x5] 00f3 052e 9200 | . | .XXX[0x7] 00f5 002b 64e0 | +d | 00f7 0000 0476 | v| 00f9 3400 |4 | 00fa 0000 0000 | | .BLANK 0000[0x4] 00fe 0014 bd20 | | .XXX[0x7] 0100 0000 ad93 | | 0102 8000 0011 | | 0104 d8d0 | | 0105 0000 0000 | | .BLANK 0000[0x5] 010a 52ff e000 |R | .XXX[0x7] 010c 02b6 4e00 | N | 010e 0000 4763 | Gc| 0110 4000 |@ | 0111 0000 0000 | | .BLANK 0000[0x4] 0115 014c 2d00 | L- | .XXX[0x7] 0117 000a d938 | 8| 0119 0000 011d | | 011b 8d00 | | 011c 0000 0000 | | .BLANK 0000[0x4] 0120 0005 316a | 1j| .XXX[0x7] 0122 0000 2b64 | +d| 0124 e000 0004 | | 0126 7634 |v4 | 0127 0000 0000 | | .BLANK 0000[0x5] 012c 14c8 823b | ;| .XXX[0x3] 012e 1a00 | | 012f 0000 0000 | | .BLANK 0000[0x5] 0134 0001 1d8d | | .XXX[0x2] 0136 0000 0000 | | .BLANK 0000[0x6] 013c 008e c680 | | .XXX[0x2] 013e 0000 0000 | | .BLANK 0000[0x8] 0146 0002 9a40 | @| .XXX[0x5] 0148 8002 a0b0 | | 014a 8000 | | 014b 0000 0000 | | .BLANK 0000[0x5] 0150 0002 a0d4 | | .XXX[0xd] 0152 0002 a0f7 | | 0154 8000 0000 | | 0156 0002 a11b | | 0158 0000 0000 | | 015a 0002 a13e | >| 015c 8000 | | 015d 0000 0000 | | .BLANK 0000[0xb] 0168 0002 a162 | b| .XXX[0x2] 016a 0000 0000 | | .BLANK 0000[0x8] 0172 0002 a185 | | .XXX[0x3] 0174 8000 | | 0175 0000 0000 | | .BLANK 0000[0x9] 017e 0002 a1cc | | .XXX[0x3] 0180 8000 | | 0181 0000 0000 | | .BLANK 0000[0x13] 0194 0002 a237 | 7| .XXX[0xa] 0196 0000 0000 | | 0198 0002 a25a | Z| 019a 8000 0000 | | 019c 0002 a27e | ~| 019e 0000 0000 | | .BLANK 0000[0x6] 01a4 0002 a2a1 | | .XXX[0x4] 01a6 8002 a2c5 | | 01a8 0000 0000 | | .BLANK 0000[0xa] 01b2 0002 a2e8 | | .XXX[0x4] 01b4 8002 a30c | | 01b6 0000 0000 | | .BLANK 0000[0x1a] 01d0 0002 a32f | /| .XXX[0x3] 01d2 8000 | | 01d3 0000 0000 | | .BLANK 0000[0x7] 01da 0002 a353 | S| .XXX[0x2] 01dc 0000 0000 | | .BLANK 0000[0x18] 01f4 0002 a376 | v| .XXX[0x3] 01f6 8000 | | 01f7 0000 0000 | | .BLANK 0000[0x9]