|
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_02f8e7
└─⟦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 0138 | 8 | .CONST 0x0138 ; 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 0033 | 3 | .CONST 0x0033 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0016 | | .CONST 0x0016 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 000d e002 | | Load 0x0,0x2 000e 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 000f 00bf | | Action Accept_Activation 0010 0007 | | Action Break_Optional 0011 0007 | | Action Break_Optional 0012 0007 | | Action Break_Optional 0013 0092 0104 | | Action Push_String_Extended,0x104 ; "\x07 Timed out awaiting input." 0015 0007 | | Action Break_Optional 0016 e003 | | Load 0x0,0x3 0017 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0018 e003 | | Load 0x0,0x3 0019 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001a 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call 001c 4802 |H | Short_Literal 0x2 001d 032d | - | Declare_Type Record,Defined 001e 4800 |H | Short_Literal 0x0 001f e004 | | Load 0x0,0x4 0020 02a0 | | Declare_Subprogram Null_Subprogram 0021 038e | | Declare_Type Package,Defined 0022 0387 | | Declare_Variable Package 0023 00d8 | | Load_Top At_Offset_0 0024 020f | | Execute Module,Activate 0025 029d 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call 0027 029d 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call 0029 029d 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call 002b 029d 009b | | Declare_Subprogram INIT_0098,For_Outer_Call 002d 029d 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call 002f 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0030 00c7 | | Action Elaborate_Subprogram 0031 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0032 00c7 | | Action Elaborate_Subprogram 0033 BODY_0008: 0033 00bc | | Action Signal_Activated 0034 00bb | | Action Signal_Completion 0035 0000 0000 | | .XXX[0x3] 0037 0000 | | 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003b | ; | .CONST 0x003b ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0001 | | .CONST 0x0001 ; Number of locals 003b BODY_0038: 003b INIT_0038: 003b 4608 |F | Jump_Case 0x9 003c 7808 |x | Jump 0x45 ; case 0x0 003d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 003e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 003f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0040 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0041 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 0042 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 0043 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 0044 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 0045 e5ff | | Load 0x2,-0x1 0046 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0047 0125 | % | Execute Any,Set_Constraint 0048 e5ff | | Load 0x2,-0x1 0049 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 004a 1c00 | | Execute_Immediate Run_Utility,0x0 004b e5ff | | Load 0x2,-0x1 004c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 004d 0125 | % | Execute Any,Set_Constraint 004e e5ff | | Load 0x2,-0x1 004f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0050 1c00 | | Execute_Immediate Run_Utility,0x0 0051 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0052 0000 0000 | | .BLANK 0000[0x6] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b e005 | | Load 0x0,0x5 005c 180e | | Execute Package,Field_Execute,Field_Number 0xe 005d 4808 |H | Short_Literal 0x8 005e 0092 0105 | | Action Push_String_Extended,0x105 ; "Unexpected exception raised in " 0060 e5ff | | Load 0x2,-0x1 0061 01cc | | Execute Vector,Catenate 0062 e006 | | Load 0x0,0x6 0063 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0064 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0065 0000 0000 | | .XXX[0x3] 0067 0000 | | 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b e5fe | | Load 0x2,-0x2 006c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 006d 00ea | | Load_Encached Null_String_Cache 006e e5ff | | Load 0x2,-0x1 006f 4801 |H | Short_Literal 0x1 0070 e003 | | Load 0x0,0x3 0071 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0072 e5fe | | Load 0x2,-0x2 0073 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0074 e5fe | | Load 0x2,-0x2 0075 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0076 e003 | | Load 0x0,0x3 0077 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0078 e5fe | | Load 0x2,-0x2 0079 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 007a e003 | | Load 0x0,0x3 007b 181f | | Execute Package,Field_Execute,Field_Number 0x1f 007c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 007d 0000 0000 | | .XXX[0x3] 007f 0000 | | 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0087 | | .CONST 0x0087 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0002 | | .CONST 0x0002 ; Number of locals 0083 INIT_0080: 0083 e5ff | | Load 0x2,-0x1 0084 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0085 e003 | | Load 0x0,0x3 0086 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0087 BODY_0080: 0087 e5ff | | Load 0x2,-0x1 0088 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0089 e003 | | Load 0x0,0x3 008a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 008b e5ff | | Load 0x2,-0x1 008c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 008d e5ff | | Load 0x2,-0x1 008e e402 | | Load 0x2,0x2 008f 8213 | | Call 0x1,0x13 0090 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0091 0000 0000 | | .BLANK 0000[0x7] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b e5fc | | Load 0x2,-0x4 009c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 009d 0092 0106 | | Action Push_String_Extended,0x106 ; "echo => " 009f e5fe | | Load 0x2,-0x2 00a0 00e1 | | Load_Encached Boolean_Cache 00a1 025e | ^ | Execute Discrete,Convert 00a2 1c01 | | Execute_Immediate Run_Utility,0x1 00a3 01cc | | Execute Vector,Catenate 00a4 0092 0107 | | Action Push_String_Extended,0x107 ; ", editing => " 00a6 01cc | | Execute Vector,Catenate 00a7 e5fd | | Load 0x2,-0x3 00a8 01cc | | Execute Vector,Catenate 00a9 e5ff | | Load 0x2,-0x1 00aa 4800 |H | Short_Literal 0x0 00ab e003 | | Load 0x0,0x3 00ac 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00ad e5fc | | Load 0x2,-0x4 00ae 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00af e5fc | | Load 0x2,-0x4 00b0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00b1 e003 | | Load 0x0,0x3 00b2 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00b3 e5fc | | Load 0x2,-0x4 00b4 e5ff | | Load 0x2,-0x1 00b5 8213 | | Call 0x1,0x13 00b6 00d1 | | Pop_Control Pop_Count_1 00b7 e005 | | Load 0x0,0x5 00b8 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 00b9 e005 | | Load 0x0,0x5 00ba 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 00bb e005 | | Load 0x0,0x5 00bc 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 00bd e005 | | Load 0x0,0x5 00be 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 00bf 484f |HO | Short_Literal 0x4f 00c0 e005 | | Load 0x0,0x5 00c1 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 00c2 0092 0108 | | Action Push_String_Extended,0x108 ; "Server" 00c4 0092 0109 | | Action Push_String_Extended,0x109 ; "KIND" 00c6 e007 | | Load 0x0,0x7 00c7 180e | | Execute Package,Field_Execute,Field_Number 0xe 00c8 e008 | | Load 0x0,0x8 00c9 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00ca 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00cb 0000 0000 | | .BLANK 0000[0x5] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d7 | | .CONST 0x00d7 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0003 | | .CONST 0x0003 ; Number of locals 00d3 INIT_00d0: 00d3 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call 00d5 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 00d7 BODY_00d0: 00d7 8402 | | Call 0x2,0x2 00d8 8403 | | Call 0x2,0x3 00d9 e003 | | Load 0x0,0x3 00da 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00db e003 | | Load 0x0,0x3 00dc 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00dd e003 | | Load 0x0,0x3 00de 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00df e003 | | Load 0x0,0x3 00e0 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00e1 e003 | | Load 0x0,0x3 00e2 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00e3 e003 | | Load 0x0,0x3 00e4 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00e5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e6 0000 0000 | | .XXX[0x2] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 00f2 | | .CONST 0x00f2 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb e5ff | | Load 0x2,-0x1 00ec 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ed e003 | | Load 0x0,0x3 00ee 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00ef e5ff | | Load 0x2,-0x1 00f0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00f1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00f2 TRAP_00e8: 00f2 0007 | | Action Break_Optional 00f3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00f4 0000 0000 | | .BLANK 0000[0x4] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0102 | | .CONST 0x0102 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb e5ff | | Load 0x2,-0x1 00fc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00fd e003 | | Load 0x0,0x3 00fe 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00ff e5ff | | Load 0x2,-0x1 0100 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0101 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0102 TRAP_00f8: 0102 0007 | | Action Break_Optional 0103 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0104 ; -------------------------------------------------------------------------------------- 0104 ; STRING TABLE 0104 ; -------------------------------------------------------------------------------------- 0104 000e | | .STRTAB 0x000e->0x010b ; "\x07 Timed out awaiting input." 0105 0027 | ' | .STRTAB 0x0027->0x0118 ; "Unexpected exception raised in " 0106 0044 | D | .STRTAB 0x0044->0x0128 ; "echo => " 0107 004a | J | .STRTAB 0x004a->0x012c ; ", editing => " 0108 0055 | U | .STRTAB 0x0055->0x0132 ; "Server" 0109 0059 | Y | .STRTAB 0x0059->0x0135 ; "KIND" 010a 005b | [ | .STREND 0x005b->0x0137 010b 0720 5469 | Ti| .STRTAB_STRINGS 0138 ; -------------------------------------------------------------------------------------- 0138 ; Debug Table 0138 ; -------------------------------------------------------------------------------------- 0138 0004 0000 | | .DEBUG4 0x0004,0x0000,0xb046,0x0000,0x0001,0x0000 013e 00d8 1c00 | | .XXX[0x56] 0140 e5fe e402 | | 0142 017d 00d8 | } | 0144 e247 e5ff | G | 0146 e29c 1d9d | | 0148 e29e 1d9f | | 014a e246 1842 | F B| 014c c247 4503 | GE | 014e e246 1b43 | F C| 0150 010f 6802 | h | 0152 e225 0257 | % W| 0154 0100 0000 | | 0156 0000 0000 | | 0158 0563 056e | c n| 015a 0002 e24a | J| 015c 0322 e5fe | " | 015e e402 3800 | 8 | 0160 e5fd e402 | | 0162 3801 00d8 |8 | 0164 e247 e5ff | G | 0166 e2a3 1da4 | | 0168 e2a5 1da6 | | 016a e246 1842 | F B| 016c c247 4504 | GE | 016e e246 1b43 | F C| 0170 010f 6802 | h | 0172 e225 0257 | % W| 0174 0100 0000 | | 0176 0000 0000 | | 0178 0581 058d | | 017a 0002 e5fe | | 017c e002 181e | | 017e e002 1b1d | | 0180 03f1 00d8 | | 0182 e247 e5ff | G | 0184 e2b1 1db2 | | 0186 e2b3 1db4 | | 0188 e246 1842 | F B| 018a c247 c402 | G | 018c 4503 e246 |E F| 018e 1b43 010f | C | 0190 6802 e225 |h %| 0192 0257 0100 | W | 0194 0000 0000 | | .BLANK 0000[0x4] 0198 059f 05ab | | .XXX[0x1a] 019a 0002 e5fe | | 019c e002 1b1d | | 019e 03f1 00d8 | | 01a0 e247 e5ff | G | 01a2 e2b1 1db2 | | 01a4 e2b3 1db4 | | 01a6 e246 1842 | F B| 01a8 c247 c402 | G | 01aa 4503 e246 |E F| 01ac 1b43 010f | C | 01ae 6802 e225 |h %| 01b0 0257 0100 | W | 01b2 0000 0000 | | .BLANK 0000[0x6] 01b8 05bf 05cb | | .XXX[0x1a] 01ba 0002 e5fe | | 01bc e018 1b0e | | 01be 03f1 00d8 | | 01c0 e247 e5ff | G | 01c2 e2b8 1db9 | | 01c4 e2ba 1dbb | | 01c6 e246 1842 | F B| 01c8 c247 c402 | G | 01ca 4503 e246 |E F| 01cc 1b43 010f | C | 01ce 6802 e225 |h %| 01d0 0257 0100 | W | 01d2 0000 0000 | | .BLANK 0000[0x6] 01d8 05de 05ea | | .XXX[0x19] 01da 0002 e5fe | | 01dc 00e1 03f1 | | 01de 00d8 e247 | G| 01e0 e5ff e295 | | 01e2 1d96 e297 | | 01e4 1d98 e246 | F| 01e6 1842 c247 | B G| 01e8 c402 4503 | E | 01ea e246 1b43 | F C| 01ec 010f 6802 | h | 01ee e225 0257 | % W| 01f0 0100 | | 01f1 0000 0000 | | .BLANK 0000[0x7] 01f8 0606 0611 | | .XXX[0x8] 01fa 0002 e24b | K| 01fc 0322 e5fe | " | 01fe e402 3800 | 8 |