|
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_11cacfe
└─⟦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 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 0021 | ! | .CONST 0x0021 ; Address of begin 0019 004b | K | .CONST 0x004b ; Address of exception handler 001a 0004 | | .CONST 0x0004 ; Number of locals 001b INIT_0018: 001b e001 | | Load 0x0,0x1 001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001d 00e1 | | Load_Encached Boolean_Cache 001e 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 001f 029f 008b | | Declare_Subprogram INIT_0088,For_Call 0021 BODY_0018: 0021 e5f9 | | Load 0x2,-0x7 0022 e002 | | Load 0x0,0x2 0023 180e | | Execute Package,Field_Execute,Field_Number 0xe 0024 e5f9 | | Load 0x2,-0x7 0025 e5fa | | Load 0x2,-0x6 0026 e5fb | | Load 0x2,-0x5 0027 e5fc | | Load 0x2,-0x4 0028 e5fd | | Load 0x2,-0x3 0029 e5fe | | Load 0x2,-0x2 002a e5ff | | Load 0x2,-0x1 002b e003 | | Load 0x0,0x3 002c 180f | | Execute Package,Field_Execute,Field_Number 0xf 002d e004 | | Load 0x0,0x4 002e 180f | | Execute Package,Field_Execute,Field_Number 0xf 002f e001 | | Load 0x0,0x1 0030 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0031 e5ff | | Load 0x2,-0x1 0032 e5fe | | Load 0x2,-0x2 0033 e001 | | Load 0x0,0x1 0034 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0035 005b | [ | Store_Top Discrete,At_Offset_3 0036 e5fa | | Load 0x2,-0x6 0037 6809 |h | Jump_Zero 0x41 0038 0092 0094 | | Action Push_String_Extended,0x94 ; "Using port number" 003a 00db | | Load_Top At_Offset_3 003b 00e0 | | Load_Encached Standard_Cache 003c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 003d 01cc | | Execute Vector,Catenate 003e e005 | | Load 0x0,0x5 003f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0040 7806 |x | Jump 0x47 0041 e5fc | | Load 0x2,-0x4 0042 e5fd | | Load 0x2,-0x3 0043 e5fb | | Load 0x2,-0x5 0044 e402 | | Load 0x2,0x2 0045 e006 | | Load 0x0,0x6 0046 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0047 e001 | | Load 0x0,0x1 0048 180f | | Execute Package,Field_Execute,Field_Number 0xf 0049 8404 | | Call 0x2,0x4 004a 4508 |E | Exit_Suprogram New_Top_Offset 0x8 004b TRAP_0018: 004b e001 | | Load 0x0,0x1 004c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 004d 010f | | Execute Exception,Equal 004e 6806 |h | Jump_Zero 0x55 004f 0092 0095 | | Action Push_String_Extended,0x95 ; "Terminating because of a network problem starting the server" 0051 e005 | | Load 0x0,0x5 0052 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0053 8404 | | Call 0x2,0x4 0054 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0055 e001 | | Load 0x0,0x1 0056 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0057 010f | | Execute Exception,Equal 0058 6806 |h | Jump_Zero 0x5f 0059 0092 0096 | | Action Push_String_Extended,0x96 ; "Terminating because a specified context was invalid" 005b e005 | | Load 0x0,0x5 005c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 005d 8404 | | Call 0x2,0x4 005e 4508 |E | Exit_Suprogram New_Top_Offset 0x8 005f e006 | | Load 0x0,0x6 0060 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0061 010f | | Execute Exception,Equal 0062 6808 |h | Jump_Zero 0x6b 0063 0092 0097 | | Action Push_String_Extended,0x97 ; "Terminating because of a remote shell error" 0065 e005 | | Load 0x0,0x5 0066 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0067 e001 | | Load 0x0,0x1 0068 180f | | Execute Package,Field_Execute,Field_Number 0xf 0069 8404 | | Call 0x2,0x4 006a 4508 |E | Exit_Suprogram New_Top_Offset 0x8 006b e004 | | Load 0x0,0x4 006c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006d 010f | | Execute Exception,Equal 006e 6806 |h | Jump_Zero 0x75 006f 0092 0098 | | Action Push_String_Extended,0x98 ; "Terminating because Insight is not authorized for this machine" 0071 e005 | | Load 0x0,0x5 0072 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0073 8404 | | Call 0x2,0x4 0074 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0075 e004 | | Load 0x0,0x4 0076 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0077 010f | | Execute Exception,Equal 0078 6806 |h | Jump_Zero 0x7f 0079 0092 0099 | | Action Push_String_Extended,0x99 ; "Terminating because the Insight token limit has been exceeded" 007b e005 | | Load 0x0,0x5 007c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 007d 8404 | | Call 0x2,0x4 007e 4508 |E | Exit_Suprogram New_Top_Offset 0x8 007f 8404 | | Call 0x2,0x4 0080 00d8 | | Load_Top At_Offset_0 0081 0101 | | Execute Exception,Reraise 0082 0000 0000 | | .BLANK 0000[0x6] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b e403 | | Load 0x2,0x3 008c 6806 |h | Jump_Zero 0x93 008d 4800 |H | Short_Literal 0x0 008e a403 | | Store_Unchecked 0x2,0x3 008f e003 | | Load 0x0,0x3 0090 180e | | Execute Package,Field_Execute,Field_Number 0xe 0091 e002 | | Load 0x0,0x2 0092 180f | | Execute Package,Field_Execute,Field_Number 0xf 0093 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0094 ; -------------------------------------------------------------------------------------- 0094 ; STRING TABLE 0094 ; -------------------------------------------------------------------------------------- 0094 000e | | .STRTAB 0x000e->0x009b ; "Using port number" 0095 001d | | .STRTAB 0x001d->0x00a3 ; "Terminating because of a network problem starting the server" 0096 0057 | W | .STRTAB 0x0057->0x00c1 ; "Terminating because a specified context was invalid" 0097 0088 | | .STRTAB 0x0088->0x00db ; "Terminating because of a remote shell error" 0098 00b1 | | .STRTAB 0x00b1->0x00f0 ; "Terminating because Insight is not authorized for this machine" 0099 00ed | | .STRTAB 0x00ed->0x010f ; "Terminating because the Insight token limit has been exceeded" 009a 0128 | ( | .STREND 0x0128->0x012e 009b 5573 696e |Usin| .STRTAB_STRINGS 012e 0000 0000 | | .XXX[0x2] 0130 ; -------------------------------------------------------------------------------------- 0130 ; Debug Table 0130 ; -------------------------------------------------------------------------------------- 0130 0004 0011 | | .DEBUG4 0x0004,0x0011,0x8a5d,0x0000,0x0001,0x0000 0136 a5b9 9d7d | }| .XXX[0xca] 0138 7ce5 cdd1 || | 013a c995 85b5 | | 013c 89d5 9919 | | 013e d881 7001 | p | 0140 cd9d 95d1 | | 0142 8d7d 7ce5 | }| | 0144 cdd1 c995 | | 0146 85b5 89d5 | | 0148 9919 d881 | | 014a cdb9 95e1 | | 014c d18d 7d7c | }|| 014e e5cd d1c9 | | 0150 9585 b589 | | 0152 d599 19d8 | | 0154 81cd 89d5 | | 0156 b5c1 8d7d | }| 0158 7ce5 cdd1 || | 015a c995 85b5 | | 015c 89d5 9919 | | 015e d881 bdc1 | | 0160 d1a5 b57d | }| 0162 a5b9 7d85 | } | 0164 d985 a5b1 | | 0166 7d7c e5cd |}| | 0168 d1c9 9585 | | 016a b589 d599 | | 016c 19d8 81bd | | 016e c1d1 a5b5 | | 0170 7dcd 89d5 |} | 0172 b5c1 8d7d | }| 0174 7ce5 cdd1 || | 0176 c995 85b5 | | 0178 89d5 9919 | | 017a d881 cdd1 | | 017c bdcd cd8d | | 017e 7d7c e5cd |}| | 0180 d1c9 9585 | | 0182 b589 d599 | | 0184 19d8 81cd | | 0186 c1d5 d189 | | 0188 858d ad8d | | 018a 7d7c e5cd |}| | 018c d1c9 9585 | | 018e b589 d599 | | 0190 198c 81cd | | 0192 c1d5 d18d | | 0194 7d7c e5cd |}| | 0196 d1c9 9585 | | 0198 b589 d599 | | 019a 19a4 81cd | | 019c c1d5 d1b9 | | 019e 7d7c e5cd |}| | 01a0 d1c9 9585 | | 01a2 b589 d599 | | 01a4 1941 0d8d | A | 01a6 a481 7001 | p | 01a8 cd9d 95d1 | | 01aa b97d 7ce5 | }| | 01ac cdd1 c995 | | 01ae 85b5 89d5 | | 01b0 9919 418d | A | 01b2 a481 cd95 | | 01b4 d189 d599 | | 01b6 7d7c e5cd |}| | 01b8 d1c9 9585 | | 01ba b589 d599 | | 01bc 1941 8da4 | A | 01be 81cd 95d1 | | 01c0 89d5 997d | }| 01c2 7ce5 cdd1 || | 01c4 c995 85b5 | | 01c6 89d5 9919 | | 01c8 4155 8da4 |AU | 01ca 81cd 95d1 | | 01cc 89d5 997d | }| 01ce 7ce5 cdd1 || | 01d0 c995 85b5 | | 01d2 89d5 9919 | | 01d4 418d a550 |A P| 01d6 c881 7d7d | }}| 01d8 91d1 7d7c | }|| 01da e5cd d1c9 | | 01dc 9585 b589 | | 01de d599 19d8 | | 01e0 81e1 7dcd | } | 01e2 b995 e1d1 | | 01e4 8d7d 7ce5 | }| | 01e6 cdd1 c995 | | 01e8 85b5 89d5 | | 01ea 9919 d880 | | 01ec ecec ec01 | | 01ee a5cd d1c9 | | 01f0 9585 b4e9 | | 01f2 50a0 c0b0 |P | 01f4 d8d8 a4f5 | | 01f6 ccdc c9e1 | | 01f8 7d9d 8dbd |} | 01fa d5b9 d17d | }| 01fc 7cdd a5cd || | 01fe d1c9 9585 | |