|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c8f4
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0060 | ` | .CONST 0x0060 ; 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 000d | | .CONST 0x000d ; 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 0025 | % | .CONST 0x0025 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0003 | | .CONST 0x0003 ; Number of locals 001b INIT_0018: 001b e002 | | Load 0x0,0x2 001c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 001d 02c7 | | Declare_Variable Any 001e 00d8 | | Load_Top At_Offset_0 001f 1c00 | | Execute_Immediate Run_Utility,0x0 0020 e002 | | Load 0x0,0x2 0021 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0022 02c7 | | Declare_Variable Any 0023 00d8 | | Load_Top At_Offset_0 0024 1c00 | | Execute_Immediate Run_Utility,0x0 0025 BODY_0018: 0025 00be | | Action Activate_Tasks 0026 00d9 | | Load_Top At_Offset_1 0027 e002 | | Load 0x0,0x2 0028 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0029 c402 | | Store 0x2,0x2 002a 00cf | | Action Mark_Auxiliary 002b 7822 |x" | Jump 0x4e 002c 00da | | Load_Top At_Offset_2 002d e002 | | Load 0x0,0x2 002e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 002f c403 | | Store 0x2,0x3 0030 4800 |H | Short_Literal 0x0 0031 0092 0055 | U| Action Push_String_Extended,0x55 ; "TCP/IP" 0033 00db | | Load_Top At_Offset_3 0034 e002 | | Load 0x0,0x2 0035 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0036 8003 | | Call 0x0,0x3 0037 00da | | Load_Top At_Offset_2 0038 e002 | | Load 0x0,0x2 0039 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 003a 8004 | | Call 0x0,0x4 003b 8005 | | Call 0x0,0x5 003c 01df | | Execute Vector,Equal 003d 0279 | y | Execute Discrete,And 003e 00da | | Load_Top At_Offset_2 003f e002 | | Load 0x0,0x2 0040 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0041 8006 | | Call 0x0,0x6 0042 e007 | | Load 0x0,0x7 0043 180e | | Execute Package,Field_Execute,Field_Number 0xe 0044 01df | | Execute Vector,Equal 0045 0279 | y | Execute Discrete,And 0046 6802 |h | Jump_Zero 0x49 0047 4801 |H | Short_Literal 0x1 0048 00ca | | Action Exit_Nullary_Function 0049 00da | | Load_Top At_Offset_2 004a e002 | | Load 0x0,0x2 004b 1817 | | Execute Package,Field_Execute,Field_Number 0x17 004c c402 | | Store 0x2,0x2 004d 00c9 | | Action Pop_Auxiliary_Loop 004e 00da | | Load_Top At_Offset_2 004f e002 | | Load 0x0,0x2 0050 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0051 6fda |o | Jump_Zero 0x2c 0052 00ce | | Action Pop_Auxiliary 0053 4800 |H | Short_Literal 0x0 0054 00ca | | Action Exit_Nullary_Function 0055 ; -------------------------------------------------------------------------------------- 0055 ; STRING TABLE 0055 ; -------------------------------------------------------------------------------------- 0055 0004 | | .STRTAB 0x0004->0x0057 ; "TCP/IP" 0056 0008 | | .STREND 0x0008->0x005a 0057 5443 502f |TCP/| .STRTAB_STRINGS 005a 0000 0000 | | .BLANK 0000[0x6] 0060 ; -------------------------------------------------------------------------------------- 0060 ; Debug Table 0060 ; -------------------------------------------------------------------------------------- 0060 0004 0002 | | .DEBUG4 0x0004,0x0002,0xd809,0x0000,0x0001,0x0000 0066 0000 0000 | | .BLANK 0000[0x10] 0076 8000 0411 | | .XXX[0x3] 0078 d07a | z | 0079 0000 0000 | | .BLANK 0000[0x8] 0081 0002 419c | A | .XXX[0x1d] 0083 b700 010c | | 0085 dd48 0000 | H | 0087 8006 0008 | | 0089 9000 0000 | | 008b 086a 0000 | j | 008d 1000 0000 | | 008f 3801 4000 |8 @ | 0091 0000 4000 | @ | 0093 0010 0000 | | 0095 0088 0000 | | 0097 0000 4000 | @ | 0099 0002 9000 | | 009b 0081 634c | cL| 009d c000 | | 009e 0000 0000 | | .BLANK 0000[0x8] 00a6 1000 0081 | | .XXX[0x4] 00a8 3444 8000 |4D | 00aa 0000 0000 | | .BLANK 0000[0x5] 00af 1000 0081 | | .XXX[0x4] 00b1 5746 c000 |WF | 00b3 0000 0000 | | .BLANK 0000[0x8] 00bb 4833 96f0 |H3 | .XXX[0x1c] 00bd 0021 9ba9 | ! | 00bf 0000 1000 | | 00c1 c001 1200 | | 00c3 0000 01e0 | | 00c5 8000 0200 | | 00c7 0000 0500 | | 00c9 2800 0000 |( | 00cb 0800 0002 | | 00cd 0000 0011 | | 00cf 0000 0000 | | 00d1 0800 0000 | | 00d3 5200 0010 |R | 00d5 474a 2800 |GJ( | 00d7 0000 0000 | | .BLANK 0000[0x8] 00df 0200 0010 | | .XXX[0x4] 00e1 2c5b f000 |,[ | 00e3 0000 0000 | | .BLANK 0000[0x11] 00f4 0906 72e0 | r | .XXX[0x1c] 00f6 0004 3375 | 3u| 00f8 2000 0200 | | 00fa 1800 2240 | "@| 00fc 0000 005c | \| 00fe 0800 0040 | @| 0100 0000 00a0 | | 0102 0500 0000 | | 0104 0100 0000 | | 0106 4000 0002 |@ | 0108 2000 0000 | | 010a 0100 0000 | | 010c 0a40 0002 | @ | 010e 0640 5300 | @S | 0110 0000 0000 | | .BLANK 0000[0x8] 0118 0040 0002 | @ | .XXX[0x4] 011a 0897 6500 | e | 011c 0000 0000 | | .BLANK 0000[0x11] 012d 0120 ce5c | \| .XXX[0x1c] 012f 4000 866e |@ n| 0131 a400 0040 | @| 0133 0300 0448 | H| 0135 0000 0007 | | 0137 7400 0008 |t | 0139 0000 000c | | 013b 00a0 0000 | | 013d 0020 0000 | | 013f 0800 0000 | | 0141 4400 0000 |D | 0143 0020 0000 | | 0145 0148 0000 | H | 0147 40b0 d840 |@ @| 0149 0000 0000 | | .BLANK 0000[0x2b] 0174 8014 0000 | | .XXX[0xb] 0176 0000 0000 | | 0178 0100 0000 | | 017a 0880 0000 | | 017c 0004 0000 | | 017e 0028 | ( | 017f 0000 0000 | | .BLANK 0000[0x2e] 01ad 1002 8000 | | .XXX[0xb] 01af 0000 0000 | | 01b1 0020 0000 | | 01b3 0110 0000 | | 01b5 0000 8000 | | 01b7 0005 | | 01b8 0000 0000 | | .BLANK 0000[0x3c] 01f4 20e8 7fb4 | | .XXX[0x8] 01f6 0000 20e8 | | 01f8 7fc4 0000 | | 01fa 20e7 4b80 | K | 01fc 0000 0000 | | .BLANK 0000[0x4]