|
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_03b8fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 0068 | h | .CONST 0x0068 ; 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 001d | | .CONST 0x001d ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0002 | | .CONST 0x0002 ; Number of locals 001b INIT_0018: 001b 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call 001d BODY_0018: 001d 0092 0054 | T| Action Push_String_Extended,0x54 ; "No_Task_Numbers" 001f 8002 | | Call 0x0,0x2 0020 6811 |h | Jump_Zero 0x32 0021 00db | | Load_Top At_Offset_3 0022 8003 | | Call 0x0,0x3 0023 6808 |h | Jump_Zero 0x2c 0024 00db | | Load_Top At_Offset_3 0025 8004 | | Call 0x0,0x4 0026 8402 | | Call 0x2,0x2 0027 00db | | Load_Top At_Offset_3 0028 8005 | | Call 0x0,0x5 0029 e006 | | Load 0x0,0x6 002a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 002b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 002c 00db | | Load_Top At_Offset_3 002d 8004 | | Call 0x0,0x4 002e 8402 | | Call 0x2,0x2 002f 0092 0055 | U| Action Push_String_Extended,0x55 ; "xxxxx" 0031 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0032 00db | | Load_Top At_Offset_3 0033 8007 | | Call 0x0,0x7 0034 6803 |h | Jump_Zero 0x38 0035 00db | | Load_Top At_Offset_3 0036 8004 | | Call 0x0,0x4 0037 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0038 00db | | Load_Top At_Offset_3 0039 8003 | | Call 0x0,0x3 003a 680b |h | Jump_Zero 0x46 003b 00db | | Load_Top At_Offset_3 003c 8005 | | Call 0x0,0x5 003d e006 | | Load 0x0,0x6 003e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 003f 0092 0056 | V| Action Push_String_Extended,0x56 ; ", " 0041 01cc | | Execute Vector,Catenate 0042 e5ff | | Load 0x2,-0x1 0043 8004 | | Call 0x0,0x4 0044 01cc | | Execute Vector,Catenate 0045 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0046 00db | | Load_Top At_Offset_3 0047 8004 | | Call 0x0,0x4 0048 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0049 0000 0000 | | .BLANK 0000[0x7] 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 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0054 ; -------------------------------------------------------------------------------------- 0054 ; STRING TABLE 0054 ; -------------------------------------------------------------------------------------- 0054 0008 | | .STRTAB 0x0008->0x0058 ; "No_Task_Numbers" 0055 0015 | | .STRTAB 0x0015->0x005f ; "xxxxx" 0056 0018 | | .STRTAB 0x0018->0x0062 ; ", " 0057 0018 | | .STREND 0x0018->0x0063 0058 4e6f 5f54 |No_T| .STRTAB_STRINGS 0063 0000 0000 | | .BLANK 0000[0x5] 0068 ; -------------------------------------------------------------------------------------- 0068 ; Debug Table 0068 ; -------------------------------------------------------------------------------------- 0068 0004 0006 | | .DEBUG4 0x0004,0x0006,0x9a99,0x0000,0x0001,0x0000 006e b911 1535 | 5| .XXX[0x16] 0070 3d7d 1115 |=} | 0072 3105 657d |1 e}| 0074 0d3d 5539 | =U9| 0076 50e5 985c |P \| 0078 0045 4d51 | EMQ| 007a 0539 1105 | 9 | 007c 4910 b911 |I | 007e 5549 0551 |UI Q| 0080 253d 3800 |%=8 | 0082 2005 0040 | @| 0084 0000 0000 | | .BLANK 0000[0x6] 008a 0340 0000 | @ | .XXX[0x1f] 008c 0008 0000 | | 008e 01e8 00da | | 0090 0a82 fa1a | | 0092 7a6a 6a7a |zjjz| 0094 72fa 120a |r | 0096 9a29 720a | )r | 0098 82fa 922a | *| 009a 1afa 422a | B*| 009c 6281 91cb |b | 009e 30b8 0082 |0 | 00a0 9aa2 0a72 | r| 00a2 220a 9221 |" !| 00a4 724a 72a2 |rJr | 00a6 2a3a 2a90 |*:* | 00a8 0040 | @ | 00a9 0000 0000 | | .BLANK 0000[0x4] 00ad 4800 1b2c |H ,| .XXX[0x5] 00af c800 0005 | | 00b1 2000 | | 00b2 0000 0000 | | .BLANK 0000[0x9] 00bb 442e d130 |D. 0| .XXX[0x1c] 00bd 0000 0149 | I| 00bf 0000 1000 | | 00c1 c000 0800 | | 00c3 0000 0475 | u| 00c5 0000 0200 | | 00c7 0000 0300 | | 00c9 2800 0000 |( | 00cb 0800 0002 | | 00cd 0000 0011 | | 00cf 0000 0000 | | 00d1 0800 0000 | | 00d3 5200 0010 |R | 00d5 0880 8000 | | 00d7 0000 0000 | | .BLANK 0000[0x1d] 00f4 0885 da28 | (| .XXX[0x1c] 00f6 0000 0029 | )| 00f8 2000 0200 | | 00fa 1800 0100 | | 00fc 0000 008f | | 00fe 4800 0040 |H @| 0100 0000 0060 | `| 0102 0500 0000 | | 0104 0100 0000 | | 0106 4000 0002 |@ | 0108 2000 0000 | | 010a 0100 0000 | | 010c 0a40 0002 | @ | 010e 0110 8700 | | 0110 0000 0000 | | .BLANK 0000[0x1d] 012d 0110 bb4a | J| .XXX[0x1c] 012f 8000 0005 | | 0131 2400 0040 |$ @| 0133 0300 0020 | | 0135 0000 0013 | | 0137 a600 0008 | | 0139 0000 000c | | 013b 00a0 0000 | | 013d 0020 0000 | | 013f 0800 0000 | | 0141 4400 0000 |D | 0143 0020 0000 | | 0145 0148 0000 | H | 0147 4022 f960 |@" `| 0149 0000 0000 | | .BLANK 0000[0x1d] 0166 0022 176a | " j| .XXX[0x1c] 0168 7000 0000 |p | 016a a480 0008 | | 016c 0060 0004 | ` | 016e 0000 0002 | | 0170 27e0 0001 |' | 0172 0000 0001 | | 0174 8014 0000 | | 0176 0004 0000 | | 0178 0100 0000 | | 017a 0880 0000 | | 017c 0004 0000 | | 017e 0029 0000 | ) | 0180 0804 35cc | 5 | 0182 0000 0000 | | .BLANK 0000[0x1d] 019f 0004 42ed | B | .XXX[0x1d] 01a1 5000 0000 |P | 01a3 1490 0001 | | 01a5 000c 0000 | | 01a7 8000 0000 | | 01a9 47ac 0000 |G | 01ab 2000 0000 | | 01ad 3002 8000 |0 | 01af 0000 8000 | | 01b1 0020 0000 | | 01b3 0110 0000 | | 01b5 0000 8000 | | 01b7 0005 2000 | | 01b9 0100 884d | M| 01bb 8000 | | 01bc 0000 0000 | | .BLANK 0000[0x44]