|
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_2950e5
└─⟦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 0118 | | .CONST 0x0118 ; 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 001d | | .CONST 0x001d ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0013 | | .CONST 0x0013 ; Number of locals 000b INIT_0008: 000b 0092 00dc | | Action Push_String_Extended,0xdc ; "Host_Only" 000d 0129 | ) | Execute Any,Make_Visible 000e 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 0010 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 0012 00bf | | Action Accept_Activation 0013 00e3 | | Load_Encached Natural_Cache 0014 00ea | | Load_Encached Null_String_Cache 0015 029d 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call 0017 029d 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call 0019 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001a 00c7 | | Action Elaborate_Subprogram 001b 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001c 00c7 | | Action Elaborate_Subprogram 001d BODY_0008: 001d 00bc | | Action Signal_Activated 001e 00bb | | Action Signal_Completion 001f 0000 | | .XXX[0x1] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 002b | + | .CONST 0x002b ; Address of begin 0021 0033 | 3 | .CONST 0x0033 ; Address of exception handler 0022 0003 | | .CONST 0x0003 ; Number of locals 0023 INIT_0020: 0023 482e |H. | Short_Literal 0x2e 0024 8212 | | Call 0x1,0x12 0025 01cb | | Execute Vector,Append 0026 00db | | Load_Top At_Offset_3 0027 01cc | | Execute Vector,Catenate 0028 0007 | | Action Break_Optional 0029 e210 | | Load 0x1,0x10 002a 0007 | | Action Break_Optional 002b BODY_0020: 002b 6024 |`$ | Indirect_Literal Discrete,0x50,{0x00000000, 0x00004000} 002c e001 | | Load 0x0,0x1 002d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 002e 00db | | Load_Top At_Offset_3 002f e5fe | | Load 0x2,-0x2 0030 e002 | | Load 0x0,0x2 0031 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 0032 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0033 TRAP_0020: 0033 e002 | | Load 0x0,0x2 0034 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0035 010f | | Execute Exception,Equal 0036 680b |h | Jump_Zero 0x42 0037 e003 | | Load 0x0,0x3 0038 180e | | Execute Package,Field_Execute,Field_Number 0xe 0039 4805 |H | Short_Literal 0x5 003a 0092 00dd | | Action Push_String_Extended,0xdd ; "Undefined switch name " 003c e402 | | Load 0x2,0x2 003d 01cc | | Execute Vector,Catenate 003e e004 | | Load 0x0,0x4 003f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0040 4800 |H | Short_Literal 0x0 0041 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0042 e003 | | Load 0x0,0x3 0043 180e | | Execute Package,Field_Execute,Field_Number 0xe 0044 4805 |H | Short_Literal 0x5 0045 0092 00de | | Action Push_String_Extended,0xde ; "Unhandled exception " 0047 4800 |H | Short_Literal 0x0 0048 4801 |H | Short_Literal 0x1 0049 e005 | | Load 0x0,0x5 004a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 004b 01cc | | Execute Vector,Catenate 004c e004 | | Load 0x0,0x4 004d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 004e 4800 |H | Short_Literal 0x0 004f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0050 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0054 0000 0000 | | .BLANK 0000[0x4] 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 00da | | Load_Top At_Offset_2 005c 8213 | | Call 0x1,0x13 005d e20d | | Load 0x1,0xd 005e 820e | | Call 0x1,0xe 005f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 0092 00df | | Action Push_String_Extended,0xdf ; "Rcf" 0065 00ca | | Action Exit_Nullary_Function 0066 0000 0000 | | .XXX[0x2] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 007a | z | .CONST 0x007a ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0005 | | .CONST 0x0005 ; Number of locals 006b INIT_0068: 006b e006 | | Load 0x0,0x6 006c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 006d 02c7 | | Declare_Variable Any 006e 00d8 | | Load_Top At_Offset_0 006f 1c00 | | Execute_Immediate Run_Utility,0x0 0070 e006 | | Load 0x0,0x6 0071 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0072 02c7 | | Declare_Variable Any 0073 00d8 | | Load_Top At_Offset_0 0074 1c00 | | Execute_Immediate Run_Utility,0x0 0075 e006 | | Load 0x0,0x6 0076 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0077 e006 | | Load 0x0,0x6 0078 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0079 1b0f | | Execute Package,Field_Read,Field_Number 0xf 007a BODY_0068: 007a e006 | | Load 0x0,0x6 007b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007c e402 | | Load 0x2,0x2 007d 0120 | | Execute Any,Is_Value 007e 6803 |h | Jump_Zero 0x82 007f e006 | | Load 0x0,0x6 0080 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0081 7801 |x | Jump 0x83 0082 e402 | | Load 0x2,0x2 0083 6054 |`T | Indirect_Literal Discrete,0xd8,{0x00000000, 0x00004000} 0084 e001 | | Load 0x0,0x1 0085 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0086 e5ff | | Load 0x2,-0x1 0087 e006 | | Load 0x0,0x6 0088 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0089 1811 | | Execute Package,Field_Execute,Field_Number 0x11 008a e006 | | Load 0x0,0x6 008b 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d 008c 181f | | Execute Package,Field_Execute,Field_Number 0x1f 008d c402 | | Store 0x2,0x2 008e 005a | Z | Store_Top Discrete,At_Offset_2 008f 00d9 | | Load_Top At_Offset_1 0090 6818 |h | Jump_Zero 0xa9 0091 e003 | | Load 0x0,0x3 0092 180e | | Execute Package,Field_Execute,Field_Number 0xe 0093 4806 |H | Short_Literal 0x6 0094 0092 00e0 | | Action Push_String_Extended,0xe0 ; "Got " 0096 e404 | | Load 0x2,0x4 0097 e006 | | Load 0x0,0x6 0098 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0099 011c | | Execute Any,Convert_Unchecked 009a 1c01 | | Execute_Immediate Run_Utility,0x1 009b 01cc | | Execute Vector,Catenate 009c 0092 00e1 | | Action Push_String_Extended,0xe1 ; " while trying to get switch file for view " 009e 01cc | | Execute Vector,Catenate 009f e5ff | | Load 0x2,-0x1 00a0 e006 | | Load 0x0,0x6 00a1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00a2 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 00a3 01cc | | Execute Vector,Catenate 00a4 e004 | | Load 0x0,0x4 00a5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a6 e006 | | Load 0x0,0x6 00a7 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a9 e006 | | Load 0x0,0x6 00aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ab 00db | | Load_Top At_Offset_3 00ac 0120 | | Execute Any,Is_Value 00ad 6803 |h | Jump_Zero 0xb1 00ae e006 | | Load 0x0,0x6 00af 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00b0 7801 |x | Jump 0xb2 00b1 00db | | Load_Top At_Offset_3 00b2 6025 |`% | Indirect_Literal Discrete,0xd8,{0x00000000, 0x00004000} 00b3 e001 | | Load 0x0,0x1 00b4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00b5 4800 |H | Short_Literal 0x0 00b6 e402 | | Load 0x2,0x2 00b7 e006 | | Load 0x0,0x6 00b8 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39 00b9 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00ba c403 | | Store 0x2,0x3 00bb 005a | Z | Store_Top Discrete,At_Offset_2 00bc 00d9 | | Load_Top At_Offset_1 00bd 7002 |p | Jump_Nonzero 0xc0 00be 00da | | Load_Top At_Offset_2 00bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c0 e003 | | Load 0x0,0x3 00c1 180e | | Execute Package,Field_Execute,Field_Number 0xe 00c2 4806 |H | Short_Literal 0x6 00c3 0092 00e0 | | Action Push_String_Extended,0xe0 ; "Got " 00c5 e404 | | Load 0x2,0x4 00c6 e006 | | Load 0x0,0x6 00c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c8 011c | | Execute Any,Convert_Unchecked 00c9 1c01 | | Execute_Immediate Run_Utility,0x1 00ca 01cc | | Execute Vector,Catenate 00cb 0092 00e1 | | Action Push_String_Extended,0xe1 ; " while trying to get switch file for view " 00cd 01cc | | Execute Vector,Catenate 00ce e5ff | | Load 0x2,-0x1 00cf e006 | | Load 0x0,0x6 00d0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00d1 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 00d2 01cc | | Execute Vector,Catenate 00d3 e004 | | Load 0x0,0x4 00d4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00d5 e006 | | Load 0x0,0x6 00d6 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00d7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d8 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 00dc ; -------------------------------------------------------------------------------------- 00dc ; STRING TABLE 00dc ; -------------------------------------------------------------------------------------- 00dc 000e | | .STRTAB 0x000e->0x00e3 ; "Host_Only" 00dd 0015 | | .STRTAB 0x0015->0x00e7 ; "Undefined switch name " 00de 0029 | ) | .STRTAB 0x0029->0x00f2 ; "Unhandled exception " 00df 003b | ; | .STRTAB 0x003b->0x00fc ; "Rcf" 00e0 003c | < | .STRTAB 0x003c->0x00fe ; "Got " 00e1 003e | > | .STRTAB 0x003e->0x0100 ; " while trying to get switch file for view " 00e2 0066 | f | .STREND 0x0066->0x0115 00e3 486f 7374 |Host| .STRTAB_STRINGS 0115 0000 0000 | | .XXX[0x3] 0117 0000 | | 0118 ; -------------------------------------------------------------------------------------- 0118 ; Debug Table 0118 ; -------------------------------------------------------------------------------------- 0118 0004 000c | | .DEBUG4 0x0004,0x000c,0x7b4e,0x0000,0x0001,0x0000 011e 0000 0000 | | .BLANK 0000[0xe2]