|
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_05d8fd
└─⟦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 0130 | 0 | .CONST 0x0130 ; 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 0018 | | .CONST 0x0018 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 000d 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 000f 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0011 00bf | | Action Accept_Activation 0012 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0013 00c7 | | Action Elaborate_Subprogram 0014 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0015 00c7 | | Action Elaborate_Subprogram 0016 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0017 00c7 | | Action Elaborate_Subprogram 0018 BODY_0008: 0018 00bc | | Action Signal_Activated 0019 00bb | | Action Signal_Completion 001a 0000 0000 | | .BLANK 0000[0x6] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0036 | 6 | .CONST 0x0036 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0005 | | .CONST 0x0005 ; Number of locals 0023 INIT_0020: 0023 e001 | | Load 0x0,0x1 0024 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 0025 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0026 02c7 | | Declare_Variable Any 0027 00d8 | | Load_Top At_Offset_0 0028 1c00 | | Execute_Immediate Run_Utility,0x0 0029 e002 | | Load 0x0,0x2 002a e003 | | Load 0x0,0x3 002b 4803 |H | Short_Literal 0x3 002c 0092 010d | | Action Push_String_Extended,0x10d ; ", " 002e e004 | | Load 0x0,0x4 002f 0387 | | Declare_Variable Package 0030 00d8 | | Load_Top At_Offset_0 0031 020f | | Execute Module,Activate 0032 e5ff | | Load 0x2,-0x1 0033 8005 | | Call 0x0,0x5 0034 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call 0036 BODY_0020: 0036 00be | | Action Activate_Tasks 0037 4800 |H | Short_Literal 0x0 0038 0092 010e | | Action Push_String_Extended,0x10e ; "Internet" 003a e403 | | Load 0x2,0x3 003b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 003c 4800 |H | Short_Literal 0x0 003d 0092 010f | | Action Push_String_Extended,0x10f ; "Ethernet" 003f e403 | | Load 0x2,0x3 0040 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0041 4800 |H | Short_Literal 0x0 0042 0092 0110 | | Action Push_String_Extended,0x110 ; "notes" 0044 e403 | | Load 0x2,0x3 0045 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0046 00db | | Load_Top At_Offset_3 0047 0120 | | Execute Any,Is_Value 0048 6804 |h | Jump_Zero 0x4d 0049 e001 | | Load 0x0,0x1 004a 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 004b 1b16 | | Execute Package,Field_Read,Field_Number 0x16 004c 7801 |x | Jump 0x4e 004d 00db | | Load_Top At_Offset_3 004e e001 | | Load 0x0,0x1 004f 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 0050 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0051 c402 | | Store 0x2,0x2 0052 00cf | | Action Mark_Auxiliary 0053 7807 |x | Jump 0x5b 0054 8405 | | Call 0x2,0x5 0055 e402 | | Load 0x2,0x2 0056 e001 | | Load 0x0,0x1 0057 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 0058 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0059 c402 | | Store 0x2,0x2 005a 00c9 | | Action Pop_Auxiliary_Loop 005b e402 | | Load 0x2,0x2 005c e001 | | Load 0x0,0x1 005d 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 005e 1819 | | Execute Package,Field_Execute,Field_Number 0x19 005f 6ff4 |o | Jump_Zero 0x54 0060 00ce | | Action Pop_Auxiliary 0061 4801 |H | Short_Literal 0x1 0062 00db | | Load_Top At_Offset_3 0063 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0064 e006 | | Load 0x0,0x6 0065 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0066 00db | | Load_Top At_Offset_3 0067 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0068 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0069 0000 0000 | | .BLANK 0000[0x7] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0079 | y | .CONST 0x0079 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0002 | | .CONST 0x0002 ; Number of locals 0073 INIT_0070: 0073 e001 | | Load 0x0,0x1 0074 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 0075 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0076 02c7 | | Declare_Variable Any 0077 00d8 | | Load_Top At_Offset_0 0078 1c00 | | Execute_Immediate Run_Utility,0x0 0079 BODY_0070: 0079 00be | | Action Activate_Tasks 007a 00db | | Load_Top At_Offset_3 007b e007 | | Load 0x0,0x7 007c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007d 01df | | Execute Vector,Equal 007e 6822 |h" | Jump_Zero 0xa1 007f 00d8 | | Load_Top At_Offset_0 0080 0120 | | Execute Any,Is_Value 0081 6804 |h | Jump_Zero 0x86 0082 e001 | | Load 0x0,0x1 0083 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 0084 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0085 7801 |x | Jump 0x87 0086 00d8 | | Load_Top At_Offset_0 0087 e001 | | Load 0x0,0x1 0088 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 0089 1817 | | Execute Package,Field_Execute,Field_Number 0x17 008a c402 | | Store 0x2,0x2 008b 00cf | | Action Mark_Auxiliary 008c 780d |x | Jump 0x9a 008d 00d9 | | Load_Top At_Offset_1 008e e001 | | Load 0x0,0x1 008f 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 0090 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0091 e001 | | Load 0x0,0x1 0092 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 0093 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0094 00d9 | | Load_Top At_Offset_1 0095 e001 | | Load 0x0,0x1 0096 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 0097 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0098 c402 | | Store 0x2,0x2 0099 00c9 | | Action Pop_Auxiliary_Loop 009a 00d9 | | Load_Top At_Offset_1 009b e001 | | Load 0x0,0x1 009c 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 009d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 009e 6fee |o | Jump_Zero 0x8d 009f 00ce | | Action Pop_Auxiliary 00a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a1 00db | | Load_Top At_Offset_3 00a2 8005 | | Call 0x0,0x5 00a3 e001 | | Load 0x0,0x1 00a4 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 00a5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a7 0000 | | .XXX[0x1] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab e001 | | Load 0x0,0x1 00ac 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 00ad 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00ae 0322 | " | Declare_Variable Record 00af e5fe | | Load 0x2,-0x2 00b0 e001 | | Load 0x0,0x1 00b1 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 00b2 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00b3 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 00b4 0119 | | Execute Any,Check_In_Formal_Type 00b5 00d9 | | Load_Top At_Offset_1 00b6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00b7 4801 |H | Short_Literal 0x1 00b8 00d9 | | Load_Top At_Offset_1 00b9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00ba e5fd | | Load 0x2,-0x3 00bb 00d9 | | Load_Top At_Offset_1 00bc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00bd e5fc | | Load 0x2,-0x4 00be 00d9 | | Load_Top At_Offset_1 00bf 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00c0 00db | | Load_Top At_Offset_3 00c1 e001 | | Load 0x0,0x1 00c2 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 00c3 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00c4 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00c5 0000 0000 | | .XXX[0x3] 00c7 0000 | | 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00d3 | | .CONST 0x00d3 ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0003 | | .CONST 0x0003 ; Number of locals 00cb INIT_00c8: 00cb e402 | | Load 0x2,0x2 00cc e001 | | Load 0x0,0x1 00cd 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 00ce 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00cf e402 | | Load 0x2,0x2 00d0 e001 | | Load 0x0,0x1 00d1 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 00d2 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00d3 BODY_00c8: 00d3 e5ff | | Load 0x2,-0x1 00d4 e007 | | Load 0x0,0x7 00d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d6 01df | | Execute Vector,Equal 00d7 7004 |p | Jump_Nonzero 0xdc 00d8 00d9 | | Load_Top At_Offset_1 00d9 e404 | | Load 0x2,0x4 00da 01df | | Execute Vector,Equal 00db 6830 |h0 | Jump_Zero 0x10c 00dc 00d9 | | Load_Top At_Offset_1 00dd e008 | | Load 0x0,0x8 00de 180f | | Execute Package,Field_Execute,Field_Number 0xf 00df e403 | | Load 0x2,0x3 00e0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e1 00d8 | | Load_Top At_Offset_0 00e2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00e3 8009 | | Call 0x0,0x9 00e4 e403 | | Load 0x2,0x3 00e5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e6 00d8 | | Load_Top At_Offset_0 00e7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00e8 00d9 | | Load_Top At_Offset_1 00e9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00ea 0f00 | | Execute_Immediate Equal,0x0 00eb 0279 | y | Execute Discrete,And 00ec 00d9 | | Load_Top At_Offset_1 00ed 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00ee 0f00 | | Execute_Immediate Equal,0x0 00ef 0279 | y | Execute Discrete,And 00f0 6804 |h | Jump_Zero 0xf5 00f1 00ea | | Load_Encached Null_String_Cache 00f2 e403 | | Load 0x2,0x3 00f3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00f4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00f5 00d8 | | Load_Top At_Offset_0 00f6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00f7 7004 |p | Jump_Nonzero 0xfc 00f8 0092 0111 | | Action Push_String_Extended,0x111 ; "incomplete" 00fa e403 | | Load 0x2,0x3 00fb 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00fc 00d8 | | Load_Top At_Offset_0 00fd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00fe 6804 |h | Jump_Zero 0x103 00ff 0092 0112 | | Action Push_String_Extended,0x112 ; "published" 0101 e403 | | Load 0x2,0x3 0102 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0103 00d8 | | Load_Top At_Offset_0 0104 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0105 6804 |h | Jump_Zero 0x10a 0106 0092 0113 | | Action Push_String_Extended,0x113 ; "permanent" 0108 e403 | | Load 0x2,0x3 0109 1814 | | Execute Package,Field_Execute,Field_Number 0x14 010a e403 | | Load 0x2,0x3 010b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 010c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 010d ; -------------------------------------------------------------------------------------- 010d ; STRING TABLE 010d ; -------------------------------------------------------------------------------------- 010d 0010 | | .STRTAB 0x0010->0x0115 ; ", " 010e 0010 | | .STRTAB 0x0010->0x0116 ; "Internet" 010f 0016 | | .STRTAB 0x0016->0x011a ; "Ethernet" 0110 001c | | .STRTAB 0x001c->0x011e ; "notes" 0111 001f | | .STRTAB 0x001f->0x0120 ; "incomplete" 0112 0027 | ' | .STRTAB 0x0027->0x0125 ; "published" 0113 002e | . | .STRTAB 0x002e->0x012a ; "permanent" 0114 0035 | 5 | .STREND 0x0035->0x012e 0115 2c20 496e |, In| .STRTAB_STRINGS 012f 0000 | | .XXX[0x1] 0130 ; -------------------------------------------------------------------------------------- 0130 ; Debug Table 0130 ; -------------------------------------------------------------------------------------- 0130 0004 000c | | .DEBUG4 0x0004,0x000c,0xd18a,0x0000,0x0001,0x0000 0136 d0d0 c0e0 | | .XXX[0xca] 0138 d911 090c | | 013a d115 08e5 | | 013c 14c0 c0c4 | | 013e d908 d104 | | 0140 c8c0 dce5 | | 0142 14c0 c0c4 | | 0144 e0c8 294c | )L| 0146 ccc4 c514 | | 0148 c0c0 c0d0 | | 014a d0c4 d10d | | 014c 0505 0cd1 | | 014e 0504 e0c0 | | 0150 c0c4 d0d8 | | 0152 dcc0 c0c0 | | 0154 c108 d8c8 | | 0156 c0dc e4e0 | | 0158 d029 4ccc | )L | 015a c4c5 14c0 | | 015c c0c0 d0d0 | | 015e c8c1 14c0 | | 0160 c0c5 0d05 | | 0162 050c c8d8 | | 0164 d8e0 c0c0 | | 0166 c4d0 c8c0 | | 0168 cce5 14c0 | | 016a c0c4 dcdc | | 016c 294c ccc4 |)L | 016e c514 c0c0 | | 0170 c0d0 d0c9 | | 0172 0d0d 0509 | | 0174 0d15 08e0 | | 0176 c0c0 d8e0 | | 0178 c114 c0c0 | | 017a c50d 04c8 | | 017c e0c9 18c0 | | 017e c0c8 d429 | )| 0180 4ccc c4c5 |L | 0182 14c0 c0c0 | | 0184 d0d0 cce0 | | 0186 d0e0 dce5 | | 0188 14c0 c0c4 | | 018a e114 c4e0 | | 018c d115 08e5 | | 018e 14c0 c0c4 | | 0190 d8c0 dcc0 | | 0192 e4c8 294c | )L| 0194 ccc4 c514 | | 0196 c0c0 c0d0 | | 0198 d0d0 d0d4 | | 019a e0d1 18d4 | | 019c c8e0 c0c9 | | 019e 18c0 c0d1 | | 01a0 1508 e514 | | 01a2 c0c0 c4dd | | 01a4 04d8 d0c4 | | 01a6 e029 4ccc | )L | 01a8 c4c5 14c0 | | 01aa c0c0 d0d0 | | 01ac d4c0 d4c0 | | 01ae d118 c8d8 | | 01b0 e0c0 d8dc | | 01b2 c8d0 d0e0 | | 01b4 dce5 14c0 | | 01b6 c0c4 e114 | | 01b8 c4e0 d8c8 | | 01ba 294c ccc4 |)L | 01bc c514 c0c0 | | 01be c0d0 d0d5 | | 01c0 0cd1 1508 | | 01c2 e514 c0c0 | | 01c4 c4d8 c0dc | | 01c6 c0d4 e0d1 | | 01c8 18d4 c8e0 | | 01ca c0c9 18c0 | | 01cc c0c1 1429 | )| 01ce 4ccc c4c5 |L | 01d0 14c0 c0c0 | | 01d2 d0d0 d8e0 | | 01d4 c918 c4cc | | 01d6 d0e0 dce5 | | 01d8 14c0 c0c4 | | 01da e114 c4e0 | | 01dc d115 08e5 | | 01de 14c0 c0c5 | | 01e0 18c0 294c | )L| 01e2 ccc4 c514 | | 01e4 c0c0 c0d0 | | 01e6 d0dc d0d8 | | 01e8 d90d 0cd1 | | 01ea 1915 18c0 | | 01ec c0c1 0cd0 | | 01ee e0dc e0c0 | | 01f0 c0c0 e0d0 | | 01f2 e0d9 08d5 | | 01f4 1829 4ccc | )L | 01f6 c4c5 14c0 | | 01f8 c0c0 d0d0 | | 01fa e0c0 c0c0 | | 01fc c0d0 d0e0 | | 01fe dce5 14c0 | |