|
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]