|
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 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 0019 | | .CONST 0x0019 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4800 |H | Short_Literal 0x0 000d 029f 0023 | #| Declare_Subprogram INIT_0020,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 0012 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 0014 00bf | | Action Accept_Activation 0015 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0016 00c7 | | Action Elaborate_Subprogram 0017 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0018 00c7 | | Action Elaborate_Subprogram 0019 BODY_0008: 0019 00bc | | Action Signal_Activated 001a 00bb | | Action Signal_Completion 001b 0000 0000 | | .BLANK 0000[0x5] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0023 | # | .CONST 0x0023 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0001 | | .CONST 0x0001 ; Number of locals 0023 BODY_0020: 0023 INIT_0020: 0023 4607 |F | Jump_Case 0x8 0024 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0025 7807 |x | Jump 0x2d ; case 0x1 0026 780a |x | Jump 0x31 ; case 0x2 0027 780e |x | Jump 0x36 ; case 0x3 0028 7811 |x | Jump 0x3a ; case 0x4 0029 7812 |x | Jump 0x3c ; case 0x5 002a 7813 |x | Jump 0x3e ; case 0x6 002b 7816 |x | Jump 0x42 ; case 0x7 002c 4302 |C | .XXX[0x1] 002d 00da | | Load_Top At_Offset_2 002e 0091 005b | [| Action Push_String_Extended_Indexed,0x5b ; "NO_TRACING" 0030 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0031 00db | | Load_Top At_Offset_3 0032 00db | | Load_Top At_Offset_3 0033 00e0 | | Load_Encached Standard_Cache 0034 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0035 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0036 00da | | Load_Top At_Offset_2 0037 00e0 | | Load_Encached Standard_Cache 0038 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0039 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 003a 00db | | Load_Top At_Offset_3 003b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 003c 00db | | Load_Top At_Offset_3 003d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 003e e20d | | Load 0x1,0xd 003f 00dc | | Load_Top At_Offset_4 0040 0267 | g | Execute Discrete,Predecessor 0041 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0042 e20d | | Load 0x1,0xd 0043 00dc | | Load_Top At_Offset_4 0044 0268 | h | Execute Discrete,Successor 0045 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0046 0000 0000 | | .XXX[0x2] 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 00ea | | Load_Encached Null_String_Cache 004c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 004d 0000 0000 | | .XXX[0x3] 004f 0000 | | 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 0092 005c | \| Action Push_String_Extended,0x5c ; "No customer trace types are implemented." 0055 e002 | | Load 0x0,0x2 0056 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0057 c5f9 | | Store 0x2,-0x7 0058 8003 | | Call 0x0,0x3 0059 c5fa | | Store 0x2,-0x6 005a 4506 |E | Exit_Suprogram New_Top_Offset 0x6 005b ; -------------------------------------------------------------------------------------- 005b ; STRING TABLE 005b ; -------------------------------------------------------------------------------------- 005b 0006 | | .STRTAB 0x0006->0x005e ; "NO_TRACING" 005c 000e | | .STRTAB 0x000e->0x0063 ; "No customer trace types are implemented." 005d 0034 | 4 | .STREND 0x0034->0x0077 005e 4e4f 5f54 |NO_T| .STRTAB_STRINGS 0077 0000 | | .XXX[0x1] 0078 ; -------------------------------------------------------------------------------------- 0078 ; Debug Table 0078 ; -------------------------------------------------------------------------------------- 0078 0004 0009 | | .DEBUG4 0x0004,0x0009,0x164c,0x0000,0x0001,0x0000 007e 0000 3731 | 71| .XXX[0x20] 0080 0024 30fe | $0 | 0082 8000 000a | | 0084 0024 2cfe | $, | 0086 0000 0000 | | 0088 0005 7000 | p | 008a 0000 40a2 | @ | 008c 0000 1000 | | 008e 0000 1801 | | 0090 4000 0000 |@ | 0092 4000 0010 |@ | 0094 0000 0088 | | 0096 0000 0000 | | 0098 4000 0002 |@ | 009a 9000 0081 | | 009c 2d93 c000 |- | 009e 0000 0000 | | .BLANK 0000[0x1a] 00b8 00c0 004b | K| .XXX[0x1f] 00ba 2790 b873 |' s| 00bc 5620 0006 |V | 00be c476 c990 | v | 00c0 1001 0000 | | 00c2 ae00 0000 | | 00c4 0814 4000 | @ | 00c6 0400 0000 | | 00c8 0300 2800 | ( | 00ca 0000 0800 | | 00cc 0002 0000 | | 00ce 0011 0000 | | 00d0 0000 0800 | | 00d2 0000 5200 | R | 00d4 0010 25b2 | % | 00d6 7800 |x | 00d7 0000 0000 | | .BLANK 0000[0x1a] 00f1 0018 0009 | | .XXX[0x22] 00f3 64fa 170e |d | 00f5 6ac6 0000 |j | 00f7 d88e d132 | 2| 00f9 0200 2000 | | 00fb 15c0 0000 | | 00fd 0102 8800 | | 00ff 0080 0000 | | 0101 00a0 0500 | | 0103 0000 0100 | | 0105 0000 4000 | @ | 0107 0002 2000 | | 0109 0000 0100 | | 010b 0000 0a40 | @| 010d 0004 04b6 | | 010f 5040 0004 |P@ | 0111 04b6 5300 | S | 0113 0000 0000 | | .BLANK 0000[0x17] 012a 0003 0001 | | .XXX[0x1f] 012c 2c9e 42e1 |, B | 012e cd59 0000 | Y | 0130 1b11 db25 | %| 0132 c040 0400 | @ | 0134 02b8 0000 | | 0136 0020 1600 | | 0138 01a0 0000 | | 013a 0064 00a0 | d | 013c 0000 1440 | @| 013e 0000 0800 | | 0140 0000 4400 | D | 0142 0000 0020 | | 0144 0000 0148 | H| 0146 000c c096 | | 0148 c2e0 | | 0149 0000 0000 | | .BLANK 0000[0x1b] 0164 2000 3e21 | >!| .XXX[0x1e] 0166 485c 39ab |H\9 | 0168 2800 0362 |( b| 016a 32a4 b808 |2 | 016c 0080 0057 | W| 016e 0000 0004 | | 0170 02c0 0034 | 4| 0172 8000 000d | | 0174 8014 0000 | | 0176 0288 0000 | | 0178 0100 0000 | | 017a 0880 0000 | | 017c 0004 0000 | | 017e 0029 0001 | ) | 0180 a012 d984 | | 0182 0000 0000 | | .BLANK 0000[0x1b] 019d 0400 07c4 | | .XXX[0x1f] 019f 290b 8735 |) 5| 01a1 6600 006c |f l| 01a3 476c 9901 |Gl | 01a5 0010 000a | | 01a7 e000 0000 | | 01a9 8148 0000 | H | 01ab 2000 0000 | | 01ad 3002 8000 |0 | 01af 0000 8000 | | 01b1 0020 0000 | | 01b3 0110 0000 | | 01b5 0000 8000 | | 01b7 0005 2000 | | 01b9 0102 5b38 | [8| 01bb 8000 | | 01bc 0000 0000 | | .BLANK 0000[0x1a] 01d6 0180 0096 | | .XXX[0x3] 01d8 5000 |P | 01d9 0000 0000 | | .BLANK 0000[0x27]