|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_08f0ad
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5900 |Y | .CONST 0x5900 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0023 | # | .CONST 0x0023 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0014 | | .CONST 0x0014 ; Number of locals
000b INIT_0008:
000b 0092 00f4 | | Action Push_String_Extended,0xf4 ; "Host_Only"
000d 0129 | ) | Execute Any,Make_Visible
000e 0092 00f5 | | Action Push_String_Extended,0xf5 ; "Trace_Command_Output"
0010 0129 | ) | Execute Any,Make_Visible
0011 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated
0013 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
0015 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
0017 00bf | | Action Accept_Activation
0018 00ea | | Load_Encached Null_String_Cache
0019 029d 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call
001b 029d 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call
001d 1d0f | | Execute_Immediate Reference_Lex_1,0xf
001e 00c7 | | Action Elaborate_Subprogram
001f 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0020 00c7 | | Action Elaborate_Subprogram
0021 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0022 00c7 | | Action Elaborate_Subprogram
0023 BODY_0008:
0023 00bc | | Action Signal_Activated
0024 00bb | | Action Signal_Completion
0025 0000 0000 | | .XXX[0x3]
0027 0000 | |
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 0032 | 2 | .CONST 0x0032 ; Address of begin
0029 003a | : | .CONST 0x003a ; Address of exception handler
002a 0003 | | .CONST 0x0003 ; Number of locals
002b INIT_0028:
002b 482e |H. | Short_Literal 0x2e
002c 8213 | | Call 0x1,0x13
002d 01cb | | Execute Vector,Append
002e 00db | | Load_Top At_Offset_3
002f 01cc | | Execute Vector,Catenate
0030 0007 | | Action Break_Optional
0031 00e3 | | Load_Encached Natural_Cache
0032 BODY_0028:
0032 6025 |`% | Indirect_Literal Discrete,0x58,{0x00000000, 0x00004000}
0033 e002 | | Load 0x0,0x2
0034 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0035 00db | | Load_Top At_Offset_3
0036 e5fe | | Load 0x2,-0x2
0037 e003 | | Load 0x0,0x3
0038 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
0039 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
003a TRAP_0028:
003a e003 | | Load 0x0,0x3
003b 1b16 | | Execute Package,Field_Read,Field_Number 0x16
003c 010f | | Execute Exception,Equal
003d 680b |h | Jump_Zero 0x49
003e e004 | | Load 0x0,0x4
003f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0040 4805 |H | Short_Literal 0x5
0041 0092 00f6 | | Action Push_String_Extended,0xf6 ; "Undefined switch name "
0043 e402 | | Load 0x2,0x2
0044 01cc | | Execute Vector,Catenate
0045 e005 | | Load 0x0,0x5
0046 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0047 4800 |H | Short_Literal 0x0
0048 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0049 e004 | | Load 0x0,0x4
004a 180e | | Execute Package,Field_Execute,Field_Number 0xe
004b 4805 |H | Short_Literal 0x5
004c 0092 00f7 | | Action Push_String_Extended,0xf7 ; "Unhandled exception "
004e 4800 |H | Short_Literal 0x0
004f 4801 |H | Short_Literal 0x1
0050 e006 | | Load 0x0,0x6
0051 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0052 01cc | | Execute Vector,Catenate
0053 e005 | | Load 0x0,0x5
0054 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0055 4800 |H | Short_Literal 0x0
0056 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0057 0000 | | .XXX[0x1]
0058 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
005c 0000 0000 | | .BLANK 0000[0x4]
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 00da | | Load_Top At_Offset_2
0064 e007 | | Load 0x0,0x7
0065 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0066 012f | / | Execute Any,Equal
0067 6802 |h | Jump_Zero 0x6a
0068 4801 |H | Short_Literal 0x1
0069 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
006a 00da | | Load_Top At_Offset_2
006b 8214 | | Call 0x1,0x14
006c e20d | | Load 0x1,0xd
006d 820f | | Call 0x1,0xf
006e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
006f 0000 | | .XXX[0x1]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 00da | | Load_Top At_Offset_2
0074 8214 | | Call 0x1,0x14
0075 e20e | | Load 0x1,0xe
0076 820f | | Call 0x1,0xf
0077 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 0092 00f8 | | Action Push_String_Extended,0xf8 ; "Rci"
007d 00ca | | Action Exit_Nullary_Function
007e 0000 0000 | | .XXX[0x2]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0092 | | .CONST 0x0092 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0005 | | .CONST 0x0005 ; Number of locals
0083 INIT_0080:
0083 e007 | | Load 0x0,0x7
0084 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0085 02c7 | | Declare_Variable Any
0086 00d8 | | Load_Top At_Offset_0
0087 1c00 | | Execute_Immediate Run_Utility,0x0
0088 e007 | | Load 0x0,0x7
0089 1b14 | | Execute Package,Field_Read,Field_Number 0x14
008a 02c7 | | Declare_Variable Any
008b 00d8 | | Load_Top At_Offset_0
008c 1c00 | | Execute_Immediate Run_Utility,0x0
008d e007 | | Load 0x0,0x7
008e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008f e007 | | Load 0x0,0x7
0090 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0091 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0092 BODY_0080:
0092 e007 | | Load 0x0,0x7
0093 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0094 e402 | | Load 0x2,0x2
0095 0120 | | Execute Any,Is_Value
0096 6803 |h | Jump_Zero 0x9a
0097 e007 | | Load 0x0,0x7
0098 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0099 7801 |x | Jump 0x9b
009a e402 | | Load 0x2,0x2
009b 6054 |`T | Indirect_Literal Discrete,0xf0,{0x00000000, 0x00004000}
009c e002 | | Load 0x0,0x2
009d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
009e e5ff | | Load 0x2,-0x1
009f e007 | | Load 0x0,0x7
00a0 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
00a1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00a2 e007 | | Load 0x0,0x7
00a3 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
00a4 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00a5 c402 | | Store 0x2,0x2
00a6 005a | Z | Store_Top Discrete,At_Offset_2
00a7 00d9 | | Load_Top At_Offset_1
00a8 6818 |h | Jump_Zero 0xc1
00a9 e004 | | Load 0x0,0x4
00aa 180e | | Execute Package,Field_Execute,Field_Number 0xe
00ab 4806 |H | Short_Literal 0x6
00ac 0092 00f9 | | Action Push_String_Extended,0xf9 ; "Got "
00ae e404 | | Load 0x2,0x4
00af e007 | | Load 0x0,0x7
00b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b1 011c | | Execute Any,Convert_Unchecked
00b2 1c01 | | Execute_Immediate Run_Utility,0x1
00b3 01cc | | Execute Vector,Catenate
00b4 0092 00fa | | Action Push_String_Extended,0xfa ; " while trying to get switch file for view "
00b6 01cc | | Execute Vector,Catenate
00b7 e5ff | | Load 0x2,-0x1
00b8 e007 | | Load 0x0,0x7
00b9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00ba 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00bb 01cc | | Execute Vector,Catenate
00bc e005 | | Load 0x0,0x5
00bd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00be e007 | | Load 0x0,0x7
00bf 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c1 e007 | | Load 0x0,0x7
00c2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c3 00db | | Load_Top At_Offset_3
00c4 0120 | | Execute Any,Is_Value
00c5 6803 |h | Jump_Zero 0xc9
00c6 e007 | | Load 0x0,0x7
00c7 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00c8 7801 |x | Jump 0xca
00c9 00db | | Load_Top At_Offset_3
00ca 6025 |`% | Indirect_Literal Discrete,0xf0,{0x00000000, 0x00004000}
00cb e002 | | Load 0x0,0x2
00cc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00cd 4800 |H | Short_Literal 0x0
00ce e402 | | Load 0x2,0x2
00cf e007 | | Load 0x0,0x7
00d0 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
00d1 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00d2 c403 | | Store 0x2,0x3
00d3 005a | Z | Store_Top Discrete,At_Offset_2
00d4 00d9 | | Load_Top At_Offset_1
00d5 7002 |p | Jump_Nonzero 0xd8
00d6 00da | | Load_Top At_Offset_2
00d7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00d8 e004 | | Load 0x0,0x4
00d9 180e | | Execute Package,Field_Execute,Field_Number 0xe
00da 4806 |H | Short_Literal 0x6
00db 0092 00f9 | | Action Push_String_Extended,0xf9 ; "Got "
00dd e404 | | Load 0x2,0x4
00de e007 | | Load 0x0,0x7
00df 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e0 011c | | Execute Any,Convert_Unchecked
00e1 1c01 | | Execute_Immediate Run_Utility,0x1
00e2 01cc | | Execute Vector,Catenate
00e3 0092 00fa | | Action Push_String_Extended,0xfa ; " while trying to get switch file for view "
00e5 01cc | | Execute Vector,Catenate
00e6 e5ff | | Load 0x2,-0x1
00e7 e007 | | Load 0x0,0x7
00e8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00e9 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00ea 01cc | | Execute Vector,Catenate
00eb e005 | | Load 0x0,0x5
00ec 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00ed e007 | | Load 0x0,0x7
00ee 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f0 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
00f4 ; --------------------------------------------------------------------------------------
00f4 ; STRING TABLE
00f4 ; --------------------------------------------------------------------------------------
00f4 0010 | | .STRTAB 0x0010->0x00fc ; "Host_Only"
00f5 0017 | | .STRTAB 0x0017->0x0100 ; "Trace_Command_Output"
00f6 0029 | ) | .STRTAB 0x0029->0x010a ; "Undefined switch name "
00f7 003d | = | .STRTAB 0x003d->0x0115 ; "Unhandled exception "
00f8 004f | O | .STRTAB 0x004f->0x011f ; "Rci"
00f9 0050 | P | .STRTAB 0x0050->0x0121 ; "Got "
00fa 0052 | R | .STRTAB 0x0052->0x0123 ; " while trying to get switch file for view "
00fb 007a | z | .STREND 0x007a->0x0138
00fc 486f 7374 |Host| .STRTAB_STRINGS
0138 ; --------------------------------------------------------------------------------------
0138 ; Debug Table
0138 ; --------------------------------------------------------------------------------------
0138 0004 0009 | | .DEBUG4 0x0004,0x0009,0x9260,0x0000,0x0001,0x0007
013e 000b 015a | Z| .DBG4T 0x000b,0x015a,0x8000,0x0000
0142 0018 0161 | a| .DBG4T 0x0018,0x0161,0x8000,0x8000
0146 002b 016f | + o| .DBG4T 0x002b,0x016f,0x0002,0x0000
014a 0063 0178 | c x| .DBG4T 0x0063,0x0178,0x0002,0x0000
014e 0073 017d | s }| .DBG4T 0x0073,0x017d,0x0002,0x0000
0152 007b 0180 | { | .DBG4T 0x007b,0x0180,0x0002,0x0000
0156 0083 0183 | | .DBG4T 0x0083,0x0183,0x0002,0x0000
015a ; --------------------------------------------------------------------------------------
015a ; Debug chain
015a ; --------------------------------------------------------------------------------------
015a 0005 0000 | | .DBGLEN 0x0005,0x0000
015c 000b 000e | | .DBGLNO 0x000b,0x000e,0x0011,0x0013,0x0015
0161 ; --------------------------------------------------------------------------------------
0161 ; Debug chain
0161 ; --------------------------------------------------------------------------------------
0161 0006 0000 | | .DBGLEN 0x0006,0x0000
0163 0018 0019 | | .DBGLNO 0x0018,0x0019,0x001b,0x001d,0x001f,0x0021
0169 0004 0005 | | .XXX[0x6]
016b 0006 0007 | |
016d 0008 0009 | |
016f ; --------------------------------------------------------------------------------------
016f ; Debug chain
016f ; --------------------------------------------------------------------------------------
016f 0002 0005 | | .DBGLEN 0x0002,0x0005
0171 002b 0031 | + 1| .DBGLNO 0x002b,0x0031,0x0032,0x003e,0x0047,0x0049,0x0055
0178 ; --------------------------------------------------------------------------------------
0178 ; Debug chain
0178 ; --------------------------------------------------------------------------------------
0178 0000 0003 | | .DBGLEN 0x0000,0x0003
017a 0063 0068 | c h| .DBGLNO 0x0063,0x0068,0x006a
017d ; --------------------------------------------------------------------------------------
017d ; Debug chain
017d ; --------------------------------------------------------------------------------------
017d 0000 0001 | | .DBGLEN 0x0000,0x0001
017f 0073 | s | .DBGLNO 0x0073
0180 ; --------------------------------------------------------------------------------------
0180 ; Debug chain
0180 ; --------------------------------------------------------------------------------------
0180 0000 0001 | | .DBGLEN 0x0000,0x0001
0182 007b | { | .DBGLNO 0x007b
0183 ; --------------------------------------------------------------------------------------
0183 ; Debug chain
0183 ; --------------------------------------------------------------------------------------
0183 0004 0009 | | .DBGLEN 0x0004,0x0009
0185 0083 0088 | | .DBGLNO 0x0083,0x0088,0x008d,0x008f,0x0092,0x00a7,0x00a9,0x00be,0x00c1,0x00d4,0x00d6,0x00d8,0x00ed
0192 0000 0000 | | .BLANK 0000[0x6e]