|
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 68ed 8c0a |h | .XXX[0x1c] 0138 68ed cc03 |h | 013a 8c03 8c0a | | 013c 8120 080c | | 013e b800 1c0a | | 0140 68ee 0c0a |h | 0142 68ee 8c0a |h | 0144 68ef cc0a |h | 0146 68ef ec0a |h | 0148 68f0 0c0a |h | 014a 68f0 2c0a |h , | 014c 68f1 6c0a |h l | 014e 68f1 ac0a |h | 0150 68f1 ec00 |h | 0152 1c00 1c00 | | .BLANK 1c00[0x1c] 016e 1d20 0121 | !| .XXX[0x92] 0170 f388 3c0f | < | 0172 e520 0121 | !| 0174 f380 086c | l| 0176 640a 8120 |d | 0178 040d 7803 | x | 017a 600c d803 |` | 017c 640c dd20 |d | 017e 0120 0003 | | 0180 6807 5921 |h Y!| 0182 7921 7803 |y!x | 0184 6807 5921 |h Y!| 0186 7d21 7c03 |}!| | 0188 6807 5921 |h Y!| 018a 8121 8003 | ! | 018c 6807 5921 |h Y!| 018e 8521 8403 | ! | 0190 6807 5920 |h Y | 0192 2121 8803 |!! | 0194 6807 5921 |h Y!| 0196 8d21 8c03 | ! | 0198 6807 5921 |h Y!| 019a 9121 9003 | ! | 019c 6807 5921 |h Y!| 019e 9521 9403 | ! | 01a0 6807 5920 |h Y | 01a2 5921 9803 |Y! | 01a4 6807 5920 |h Y | 01a6 5921 9c03 |Y! | 01a8 6807 5921 |h Y!| 01aa a121 a003 | ! | 01ac 6807 5920 |h Y | 01ae 5921 a403 |Y! | 01b0 6807 5920 |h Y | 01b2 2121 a803 |!! | 01b4 6807 5920 |h Y | 01b6 4121 ac03 |A! | 01b8 6807 5921 |h Y!| 01ba b121 b003 | ! | 01bc 6807 5921 |h Y!| 01be b521 b403 | ! | 01c0 6807 5920 |h Y | 01c2 5121 b803 |Q! | 01c4 6807 5920 |h Y | 01c6 2d21 bc03 |-! | 01c8 6807 5920 |h Y | 01ca 2921 c003 |)! | 01cc 6807 5920 |h Y | 01ce 2921 c403 |)! | 01d0 6807 5920 |h Y | 01d2 0d21 c803 | ! | 01d4 6807 5921 |h Y!| 01d6 cd21 cc03 | ! | 01d8 6807 5920 |h Y | 01da 1521 d003 | ! | 01dc 6807 5920 |h Y | 01de 1521 d403 | ! | 01e0 6807 5920 |h Y | 01e2 1d21 dc03 | ! | 01e4 6807 5920 |h Y | 01e6 2521 e003 |%! | 01e8 6807 5920 |h Y | 01ea 2521 ec03 |%! | 01ec 6807 5920 |h Y | 01ee 5521 f003 |U! | 01f0 6807 5921 |h Y!| 01f2 7520 0521 |u !| 01f4 fc03 6788 | g | 01f6 9407 58ff | X | 01f8 ed21 fd21 | ! !| 01fa d803 6807 | h | 01fc 5921 fd21 |Y! !| 01fe e403 6807 | h |