|
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: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0f80a5
└─⟦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 0638 | 8 | .CONST 0x0638 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0030 | 0 | .CONST 0x0030 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001c | | .CONST 0x001c ; Number of locals
000b INIT_0008:
000b 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
000d 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
000f 00bf | | Action Accept_Activation
0010 0092 0277 | w| Action Push_String_Extended,0x277 ; "!machine.rcf.rcf1_2_"
0012 0092 0278 | x| Action Push_String_Extended,0x278 ; "!machine.rcf.rcf1_2_host_only_views"
0014 0092 0279 | y| Action Push_String_Extended,0x279 ; "!machine.rcf.rcf1_2_regular_views"
0016 0092 027a | z| Action Push_String_Extended,0x27a ; "!machine.rcf.rcf1_2_freeze_file"
0018 0092 027b | {| Action Push_String_Extended,0x27b ; "_!machine.rcf.rcf1_2_freeze_file"
001a 0092 027c | || Action Push_String_Extended,0x27c ; "!machine.rcf.rcf1_2_demote_file"
001c 0092 027d | }| Action Push_String_Extended,0x27d ; "!machine.rcf.rcf1_2_install_file"
001e 0092 027e | ~| Action Push_String_Extended,0x27e ; "!machine.rcf.rcf1_2_code_file"
0020 0092 027f | | Action Push_String_Extended,0x27f ; "[_!machine.rcf.rcf1_2_install_file,_!machine.rcf.rcf1_2_code_file]"
0022 0092 0280 | | Action Push_String_Extended,0x280 ; "<ERRORS>"
0024 0092 0281 | | Action Push_String_Extended,0x281 ; "<PROGRESS>"
0026 0092 0282 | | Action Push_String_Extended,0x282 ; "rcf.host_only"
0028 029d 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call
002a 029d 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call
002c 1d0d | | Execute_Immediate Reference_Lex_1,0xd
002d 00c7 | | Action Elaborate_Subprogram
002e 1d0e | | Execute_Immediate Reference_Lex_1,0xe
002f 00c7 | | Action Elaborate_Subprogram
0030 BODY_0008:
0030 00bc | | Action Signal_Activated
0031 00bb | | Action Signal_Completion
0032 0000 0000 | | .BLANK 0000[0x6]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 0040 | @ | .CONST 0x0040 ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0003 | | .CONST 0x0003 ; Number of locals
003b INIT_0038:
003b 0092 0283 | | Action Push_String_Extended,0x283 ; "[_!machine.rcf.rcf1_2_host_only_views,_!machine.rcf.rcf1_2_regular_views]"
003d e001 | | Load 0x0,0x1
003e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
003f 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0040 BODY_0038:
0040 e002 | | Load 0x0,0x2
0041 180e | | Execute Package,Field_Execute,Field_Number 0xe
0042 480a |H | Short_Literal 0xa
0043 0092 0284 | | Action Push_String_Extended,0x284 ; "Find_All_Target_Worlds"
0045 e003 | | Load 0x0,0x3
0046 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0047 821b | | Call 0x1,0x1b
0048 e002 | | Load 0x0,0x2
0049 180e | | Execute Package,Field_Execute,Field_Number 0xe
004a 480a |H | Short_Literal 0xa
004b 0092 0285 | | Action Push_String_Extended,0x285 ; "Resolving frozen items: freeze_file => !machine.rcf.rcf1_2_freeze_file, Naming => [_!machine.rcf.rcf1_2_host_only_views,_!machine.rcf.rcf1_2_regular_views]?'c(ada)'s(i,c)[,$,$$.state.tool_state.[,@state_file]]'if(frozen)"
004d e003 | | Load 0x0,0x3
004e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
004f e002 | | Load 0x0,0x2
0050 180e | | Execute Package,Field_Execute,Field_Number 0xe
0051 e002 | | Load 0x0,0x2
0052 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0053 e212 | | Load 0x1,0x12
0054 e003 | | Load 0x0,0x3
0055 180e | | Execute Package,Field_Execute,Field_Number 0xe
0056 0092 0286 | | Action Push_String_Extended,0x286 ; "<QUIET>"
0058 4801 |H | Short_Literal 0x1
0059 00ea | | Load_Encached Null_String_Cache
005a 0092 0287 | | Action Push_String_Extended,0x287 ; "[_!machine.rcf.rcf1_2_host_only_views,_!machine.rcf.rcf1_2_regular_views]?'c(ada)'s(i,c)[,$,$$.state.tool_state.[,@state_file]]'if(frozen)"
005c e004 | | Load 0x0,0x4
005d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
005e e002 | | Load 0x0,0x2
005f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0060 e002 | | Load 0x0,0x2
0061 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0062 e003 | | Load 0x0,0x3
0063 180f | | Execute Package,Field_Execute,Field_Number 0xf
0064 e002 | | Load 0x0,0x2
0065 180e | | Execute Package,Field_Execute,Field_Number 0xe
0066 480a |H | Short_Literal 0xa
0067 0092 0288 | | Action Push_String_Extended,0x288 ; "Resolving coded units: code_file => !machine.rcf.rcf1_2_code_file, Naming => [_!machine.rcf.rcf1_2_host_only_views,_!machine.rcf.rcf1_2_regular_views]?'c(ada)'s(c)"
0069 e003 | | Load 0x0,0x3
006a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
006b e002 | | Load 0x0,0x2
006c 180e | | Execute Package,Field_Execute,Field_Number 0xe
006d e002 | | Load 0x0,0x2
006e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
006f e216 | | Load 0x1,0x16
0070 e003 | | Load 0x0,0x3
0071 180e | | Execute Package,Field_Execute,Field_Number 0xe
0072 0092 0286 | | Action Push_String_Extended,0x286 ; "<QUIET>"
0074 4801 |H | Short_Literal 0x1
0075 00ea | | Load_Encached Null_String_Cache
0076 0092 0289 | | Action Push_String_Extended,0x289 ; "[_!machine.rcf.rcf1_2_host_only_views,_!machine.rcf.rcf1_2_regular_views]?'c(ada)'s(c)"
0078 e004 | | Load 0x0,0x4
0079 1810 | | Execute Package,Field_Execute,Field_Number 0x10
007a e002 | | Load 0x0,0x2
007b 180e | | Execute Package,Field_Execute,Field_Number 0xe
007c e002 | | Load 0x0,0x2
007d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
007e e003 | | Load 0x0,0x3
007f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0080 e002 | | Load 0x0,0x2
0081 180e | | Execute Package,Field_Execute,Field_Number 0xe
0082 480a |H | Short_Literal 0xa
0083 0092 028a | | Action Push_String_Extended,0x28a ; "Resolving installed units: install_file => !machine.rcf.rcf1_2_install_file, Naming => [_!machine.rcf.rcf1_2_host_only_views,_!machine.rcf.rcf1_2_regular_views]?'c(ada)'s(i)"
0085 e003 | | Load 0x0,0x3
0086 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0087 e002 | | Load 0x0,0x2
0088 180e | | Execute Package,Field_Execute,Field_Number 0xe
0089 e002 | | Load 0x0,0x2
008a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
008b e215 | | Load 0x1,0x15
008c e003 | | Load 0x0,0x3
008d 180e | | Execute Package,Field_Execute,Field_Number 0xe
008e 0092 0286 | | Action Push_String_Extended,0x286 ; "<QUIET>"
0090 4801 |H | Short_Literal 0x1
0091 00ea | | Load_Encached Null_String_Cache
0092 0092 028b | | Action Push_String_Extended,0x28b ; "[_!machine.rcf.rcf1_2_host_only_views,_!machine.rcf.rcf1_2_regular_views]?'c(ada)'s(i)"
0094 e004 | | Load 0x0,0x4
0095 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0096 e002 | | Load 0x0,0x2
0097 180e | | Execute Package,Field_Execute,Field_Number 0xe
0098 e002 | | Load 0x0,0x2
0099 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
009a e003 | | Load 0x0,0x3
009b 180f | | Execute Package,Field_Execute,Field_Number 0xf
009c e002 | | Load 0x0,0x2
009d 180e | | Execute Package,Field_Execute,Field_Number 0xe
009e 480a |H | Short_Literal 0xa
009f 0092 028c | | Action Push_String_Extended,0x28c ; "Library.Unfreeze (_!machine.rcf.rcf1_2_freeze_file);"
00a1 e003 | | Load 0x0,0x3
00a2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00a3 0092 028d | | Action Push_String_Extended,0x28d ; "<PROFILE>"
00a5 4800 |H | Short_Literal 0x0
00a6 e213 | | Load 0x1,0x13
00a7 e004 | | Load 0x0,0x4
00a8 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00a9 e002 | | Load 0x0,0x2
00aa 180e | | Execute Package,Field_Execute,Field_Number 0xe
00ab 480a |H | Short_Literal 0xa
00ac 0092 028e | | Action Push_String_Extended,0x28e ; "Compilation.Demote ('_'!machine.rcf.rcf1_2_demote_file);"
00ae e003 | | Load 0x0,0x3
00af 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b0 0092 028d | | Action Push_String_Extended,0x28d ; "<PROFILE>"
00b2 4800 |H | Short_Literal 0x0
00b3 0092 028f | | Action Push_String_Extended,0x28f ; "<WORLDS>"
00b5 00db | | Load_Top At_Offset_3
00b6 e217 | | Load 0x1,0x17
00b7 e001 | | Load 0x0,0x1
00b8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ba 0000 0000 | | .BLANK 0000[0x6]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 4801 |H | Short_Literal 0x1
00c4 821c | | Call 0x1,0x1c
00c5 0092 028d | | Action Push_String_Extended,0x28d ; "<PROFILE>"
00c7 4800 |H | Short_Literal 0x0
00c8 e001 | | Load 0x0,0x1
00c9 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00ca 4803 |H | Short_Literal 0x3
00cb 4801 |H | Short_Literal 0x1
00cc 0092 0290 | | Action Push_String_Extended,0x290 ; "_!machine.rcf.rcf1_2_code_file"
00ce e001 | | Load 0x0,0x1
00cf 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00d0 0092 028d | | Action Push_String_Extended,0x28d ; "<PROFILE>"
00d2 4800 |H | Short_Literal 0x0
00d3 e001 | | Load 0x0,0x1
00d4 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00d5 4802 |H | Short_Literal 0x2
00d6 4801 |H | Short_Literal 0x1
00d7 0092 0291 | | Action Push_String_Extended,0x291 ; "_!machine.rcf.rcf1_2_install_file"
00d9 e001 | | Load 0x0,0x1
00da 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00db 4800 |H | Short_Literal 0x0
00dc 821c | | Call 0x1,0x1c
00dd 0092 028d | | Action Push_String_Extended,0x28d ; "<PROFILE>"
00df 4800 |H | Short_Literal 0x0
00e0 e213 | | Load 0x1,0x13
00e1 e004 | | Load 0x0,0x4
00e2 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00e3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e4 0000 0000 | | .BLANK 0000[0x4]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 0101 | | .CONST 0x0101 ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0009 | | .CONST 0x0009 ; Number of locals
00eb INIT_00e8:
00eb e005 | | Load 0x0,0x5
00ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ed 02c7 | | Declare_Variable Any
00ee 00d8 | | Load_Top At_Offset_0
00ef 1c00 | | Execute_Immediate Run_Utility,0x0
00f0 e005 | | Load 0x0,0x5
00f1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f2 02c7 | | Declare_Variable Any
00f3 00d8 | | Load_Top At_Offset_0
00f4 1c00 | | Execute_Immediate Run_Utility,0x0
00f5 0092 0292 | | Action Push_String_Extended,0x292 ; "!machine.rcf"
00f7 029f 017b | {| Declare_Subprogram INIT_0178,For_Call
00f9 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call
00fb 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call
00fd 029f 020b | | Declare_Subprogram INIT_0208,For_Call
00ff 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call
0101 BODY_00e8:
0101 8408 | | Call 0x2,0x8
0102 8409 | | Call 0x2,0x9
0103 8407 | | Call 0x2,0x7
0104 e402 | | Load 0x2,0x2
0105 e005 | | Load 0x0,0x5
0106 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0107 c402 | | Store 0x2,0x2
0108 e403 | | Load 0x2,0x3
0109 e005 | | Load 0x0,0x5
010a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
010b c403 | | Store 0x2,0x3
010c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
010d 0000 0000 | | .XXX[0x3]
010f 0000 | |
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0128 | ( | .CONST 0x0128 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0004 | | .CONST 0x0004 ; Number of locals
0113 INIT_0110:
0113 e006 | | Load 0x0,0x6
0114 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0115 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0116 02c7 | | Declare_Variable Any
0117 4801 |H | Short_Literal 0x1
0118 e006 | | Load 0x0,0x6
0119 1b0e | | Execute Package,Field_Read,Field_Number 0xe
011a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
011b 0092 0293 | | Action Push_String_Extended,0x293 ; "_!machine.rcf.rcf1_2_regular_views"
011d e006 | | Load 0x0,0x6
011e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
011f 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0120 a402 | | Store_Unchecked 0x2,0x2
0121 e007 | | Load 0x0,0x7
0122 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0123 02ff | | Declare_Variable Variant_Record
0124 00d8 | | Load_Top At_Offset_0
0125 1c00 | | Execute_Immediate Run_Utility,0x0
0126 e007 | | Load 0x0,0x7
0127 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0128 BODY_0110:
0128 00cf | | Action Mark_Auxiliary
0129 7842 |xB | Jump 0x16c
012a e007 | | Load 0x0,0x7
012b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
012c 00db | | Load_Top At_Offset_3
012d 6046 |`F | Indirect_Literal Discrete,0x174,{0x00000000, 0x00004000}
012e e008 | | Load 0x0,0x8
012f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0130 e402 | | Load 0x2,0x2
0131 e006 | | Load 0x0,0x6
0132 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0133 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0134 e006 | | Load 0x0,0x6
0135 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0136 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0137 e006 | | Load 0x0,0x6
0138 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0139 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
013a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
013b 00d1 | | Pop_Control Pop_Count_1
013c 005a | Z | Store_Top Discrete,At_Offset_2
013d 00d9 | | Load_Top At_Offset_1
013e 700c |p | Jump_Nonzero 0x14b
013f 6034 |`4 | Indirect_Literal Discrete,0x174,{0x00000000, 0x00004000}
0140 e008 | | Load 0x0,0x8
0141 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0142 e5ff | | Load 0x2,-0x1
0143 00e1 | | Load_Encached Boolean_Cache
0144 011c | | Execute Any,Convert_Unchecked
0145 1c01 | | Execute_Immediate Run_Utility,0x1
0146 e21a | | Load 0x1,0x1a
0147 e403 | | Load 0x2,0x3
0148 e009 | | Load 0x0,0x9
0149 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
014a 781b |x | Jump 0x166
014b e002 | | Load 0x0,0x2
014c 180e | | Execute Package,Field_Execute,Field_Number 0xe
014d 4806 |H | Short_Literal 0x6
014e 0092 0294 | | Action Push_String_Extended,0x294 ; "Error while obtaining version of switch file for"
0150 e402 | | Load 0x2,0x2
0151 e006 | | Load 0x0,0x6
0152 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0153 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0154 e006 | | Load 0x0,0x6
0155 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0156 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0157 01cc | | Execute Vector,Catenate
0158 0092 0295 | | Action Push_String_Extended,0x295 ; ": "
015a 01cc | | Execute Vector,Catenate
015b e404 | | Load 0x2,0x4
015c e007 | | Load 0x0,0x7
015d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015e 011c | | Execute Any,Convert_Unchecked
015f 1c01 | | Execute_Immediate Run_Utility,0x1
0160 01cc | | Execute Vector,Catenate
0161 0092 0296 | | Action Push_String_Extended,0x296 ; ". Assuming the view was not host-only."
0163 01cc | | Execute Vector,Catenate
0164 e003 | | Load 0x0,0x3
0165 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0166 00db | | Load_Top At_Offset_3
0167 e006 | | Load 0x0,0x6
0168 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0169 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
016a c402 | | Store 0x2,0x2
016b 00c9 | | Action Pop_Auxiliary_Loop
016c 00db | | Load_Top At_Offset_3
016d e006 | | Load 0x0,0x6
016e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
016f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0170 6fb9 |o | Jump_Zero 0x12a
0171 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0172 0000 0000 | | .XXX[0x2]
0174 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0182 | | .CONST 0x0182 ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0003 | | .CONST 0x0003 ; Number of locals
017b INIT_0178:
017b e007 | | Load 0x0,0x7
017c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
017d 02ff | | Declare_Variable Variant_Record
017e 00d8 | | Load_Top At_Offset_0
017f 1c00 | | Execute_Immediate Run_Utility,0x0
0180 e007 | | Load 0x0,0x7
0181 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0182 BODY_0178:
0182 e007 | | Load 0x0,0x7
0183 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0184 00da | | Load_Top At_Offset_2
0185 67ee |g | Indirect_Literal Discrete,0x174,{0x00000000, 0x00004000}
0186 e008 | | Load 0x0,0x8
0187 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0188 e7ff | | Load 0x3,-0x1
0189 e006 | | Load 0x0,0x6
018a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
018b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
018c e006 | | Load 0x0,0x6
018d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
018e 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
018f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0190 00d1 | | Pop_Control Pop_Count_1
0191 0059 | Y | Store_Top Discrete,At_Offset_1
0192 00d8 | | Load_Top At_Offset_0
0193 681a |h | Jump_Zero 0x1ae
0194 e002 | | Load 0x0,0x2
0195 180e | | Execute Package,Field_Execute,Field_Number 0xe
0196 4806 |H | Short_Literal 0x6
0197 0092 0294 | | Action Push_String_Extended,0x294 ; "Error while obtaining version of switch file for"
0199 e7ff | | Load 0x3,-0x1
019a e006 | | Load 0x0,0x6
019b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
019c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
019d 01cc | | Execute Vector,Catenate
019e 0092 0295 | | Action Push_String_Extended,0x295 ; ": "
01a0 01cc | | Execute Vector,Catenate
01a1 00db | | Load_Top At_Offset_3
01a2 e007 | | Load 0x0,0x7
01a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01a4 011c | | Execute Any,Convert_Unchecked
01a5 1c01 | | Execute_Immediate Run_Utility,0x1
01a6 01cc | | Execute Vector,Catenate
01a7 0092 0296 | | Action Push_String_Extended,0x296 ; ". Assuming the view was not host-only."
01a9 01cc | | Execute Vector,Catenate
01aa e003 | | Load 0x0,0x3
01ab 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01ac 4800 |H | Short_Literal 0x0
01ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ae 67c5 |g | Indirect_Literal Discrete,0x174,{0x00000000, 0x00004000}
01af e008 | | Load 0x0,0x8
01b0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01b1 e21a | | Load 0x1,0x1a
01b2 e602 | | Load 0x3,0x2
01b3 e009 | | Load 0x0,0x9
01b4 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
01b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b6 0000 0000 | | .XXX[0x2]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bf | | .CONST 0x01bf ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0002 | | .CONST 0x0002 ; Number of locals
01bb INIT_01b8:
01bb 00da | | Load_Top At_Offset_2
01bc e006 | | Load 0x0,0x6
01bd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01be 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01bf BODY_01b8:
01bf 00db | | Load_Top At_Offset_3
01c0 8405 | | Call 0x2,0x5
01c1 680e |h | Jump_Zero 0x1d0
01c2 e002 | | Load 0x0,0x2
01c3 180e | | Execute Package,Field_Execute,Field_Number 0xe
01c4 480a |H | Short_Literal 0xa
01c5 0092 0297 | | Action Push_String_Extended,0x297 ; "Adding host_only view "
01c7 00db | | Load_Top At_Offset_3
01c8 01cc | | Execute Vector,Catenate
01c9 e003 | | Load 0x0,0x3
01ca 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01cb 00d8 | | Load_Top At_Offset_0
01cc e402 | | Load 0x2,0x2
01cd e005 | | Load 0x0,0x5
01ce 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
01cf 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01d0 e002 | | Load 0x0,0x2
01d1 180e | | Execute Package,Field_Execute,Field_Number 0xe
01d2 480a |H | Short_Literal 0xa
01d3 0092 0298 | | Action Push_String_Extended,0x298 ; "Adding view "
01d5 00db | | Load_Top At_Offset_3
01d6 01cc | | Execute Vector,Catenate
01d7 e003 | | Load 0x0,0x3
01d8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01d9 00d8 | | Load_Top At_Offset_0
01da e403 | | Load 0x2,0x3
01db e005 | | Load 0x0,0x5
01dc 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
01dd 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01de 0000 0000 | | .XXX[0x2]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01ea | | .CONST 0x01ea ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0003 | | .CONST 0x0003 ; Number of locals
01e3 INIT_01e0:
01e3 e00a | | Load 0x0,0xa
01e4 1b18 | | Execute Package,Field_Read,Field_Number 0x18
01e5 02c7 | | Declare_Variable Any
01e6 00d8 | | Load_Top At_Offset_0
01e7 1c00 | | Execute_Immediate Run_Utility,0x0
01e8 029f 023b | ;| Declare_Subprogram INIT_0238,For_Call
01ea BODY_01e0:
01ea 00d9 | | Load_Top At_Offset_1
01eb 0120 | | Execute Any,Is_Value
01ec 6803 |h | Jump_Zero 0x1f0
01ed e00a | | Load 0x0,0xa
01ee 1b18 | | Execute Package,Field_Read,Field_Number 0x18
01ef 7801 |x | Jump 0x1f1
01f0 00d9 | | Load_Top At_Offset_1
01f1 e00a | | Load 0x0,0xa
01f2 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01f3 c602 | | Store 0x3,0x2
01f4 00cf | | Action Mark_Auxiliary
01f5 7806 |x | Jump 0x1fc
01f6 8603 | | Call 0x3,0x3
01f7 00da | | Load_Top At_Offset_2
01f8 e00a | | Load 0x0,0xa
01f9 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01fa c602 | | Store 0x3,0x2
01fb 00c9 | | Action Pop_Auxiliary_Loop
01fc 00da | | Load_Top At_Offset_2
01fd e00a | | Load 0x0,0xa
01fe 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01ff 6ff6 |o | Jump_Zero 0x1f6
0200 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0201 0000 0000 | | .BLANK 0000[0x7]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0213 | | .CONST 0x0213 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b e402 | | Load 0x2,0x2
020c 00ea | | Load_Encached Null_String_Cache
020d e210 | | Load 0x1,0x10
020e 4801 |H | Short_Literal 0x1
020f e005 | | Load 0x0,0x5
0210 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0211 c402 | | Store 0x2,0x2
0212 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0213 TRAP_0208:
0213 0007 | | Action Break_Optional
0214 e002 | | Load 0x0,0x2
0215 180e | | Execute Package,Field_Execute,Field_Number 0xe
0216 4807 |H | Short_Literal 0x7
0217 0092 0299 | | Action Push_String_Extended,0x299 ; "Unable to create file !machine.rcf.rcf1_2_host_only_views"
0219 e003 | | Load 0x0,0x3
021a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
021b 00cc | | Action Pop_Block
021c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
021d 0000 0000 | | .XXX[0x3]
021f 0000 | |
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 022b | + | .CONST 0x022b ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 e403 | | Load 0x2,0x3
0224 00ea | | Load_Encached Null_String_Cache
0225 e211 | | Load 0x1,0x11
0226 4801 |H | Short_Literal 0x1
0227 e005 | | Load 0x0,0x5
0228 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0229 c403 | | Store 0x2,0x3
022a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
022b TRAP_0220:
022b 0007 | | Action Break_Optional
022c e002 | | Load 0x0,0x2
022d 180e | | Execute Package,Field_Execute,Field_Number 0xe
022e 4807 |H | Short_Literal 0x7
022f 0092 029a | | Action Push_String_Extended,0x29a ; "Unable to create file !machine.rcf.rcf1_2_regular_views"
0231 e003 | | Load 0x0,0x3
0232 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0233 00cc | | Action Pop_Block
0234 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0235 0000 0000 | | .XXX[0x3]
0237 0000 | |
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 0251 | Q | .CONST 0x0251 ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0003 | | .CONST 0x0003 ; Number of locals
023b INIT_0238:
023b e602 | | Load 0x3,0x2
023c e00a | | Load 0x0,0xa
023d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
023e e006 | | Load 0x0,0x6
023f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0240 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0241 02c7 | | Declare_Variable Any
0242 4801 |H | Short_Literal 0x1
0243 e006 | | Load 0x0,0x6
0244 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0245 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0246 0092 029b | | Action Push_String_Extended,0x29b ; "!??'c(combined_view)'t("
0248 e802 | | Load 0x4,0x2
0249 01cc | | Execute Vector,Catenate
024a 0092 029c | | Action Push_String_Extended,0x29c ; ")"
024c 01cc | | Execute Vector,Catenate
024d e006 | | Load 0x0,0x6
024e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
024f 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0250 a803 | | Store_Unchecked 0x4,0x3
0251 BODY_0238:
0251 e002 | | Load 0x0,0x2
0252 180e | | Execute Package,Field_Execute,Field_Number 0xe
0253 480a |H | Short_Literal 0xa
0254 0092 029d | | Action Push_String_Extended,0x29d ; "Done resolving "
0256 e802 | | Load 0x4,0x2
0257 01cc | | Execute Vector,Catenate
0258 0092 029e | | Action Push_String_Extended,0x29e ; " views"
025a 01cc | | Execute Vector,Catenate
025b e003 | | Load 0x0,0x3
025c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
025d 0092 029f | | Action Push_String_Extended,0x29f ; "!Targets."
025f 00da | | Load_Top At_Offset_2
0260 01cc | | Execute Vector,Catenate
0261 e402 | | Load 0x2,0x2
0262 e005 | | Load 0x0,0x5
0263 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0264 00cf | | Action Mark_Auxiliary
0265 780b |x | Jump 0x271
0266 00d9 | | Load_Top At_Offset_1
0267 e006 | | Load 0x0,0x6
0268 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0269 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
026a 8406 | | Call 0x2,0x6
026b 00d9 | | Load_Top At_Offset_1
026c e006 | | Load 0x0,0x6
026d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
026e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
026f c803 | | Store 0x4,0x3
0270 00c9 | | Action Pop_Auxiliary_Loop
0271 00d9 | | Load_Top At_Offset_1
0272 e006 | | Load 0x0,0x6
0273 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0274 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0275 6ff0 |o | Jump_Zero 0x266
0276 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0277 ; --------------------------------------------------------------------------------------
0277 ; STRING TABLE
0277 ; --------------------------------------------------------------------------------------
0277 0054 | T | .STRTAB 0x0054->0x02a1 ; "!machine.rcf.rcf1_2_"
0278 0066 | f | .STRTAB 0x0066->0x02ab ; "!machine.rcf.rcf1_2_host_only_views"
0279 0087 | | .STRTAB 0x0087->0x02bc ; "!machine.rcf.rcf1_2_regular_views"
027a 00a6 | | .STRTAB 0x00a6->0x02cd ; "!machine.rcf.rcf1_2_freeze_file"
027b 00c3 | | .STRTAB 0x00c3->0x02dc ; "_!machine.rcf.rcf1_2_freeze_file"
027c 00e1 | | .STRTAB 0x00e1->0x02ec ; "!machine.rcf.rcf1_2_demote_file"
027d 00fe | | .STRTAB 0x00fe->0x02fc ; "!machine.rcf.rcf1_2_install_file"
027e 011c | | .STRTAB 0x011c->0x030c ; "!machine.rcf.rcf1_2_code_file"
027f 0137 | 7 | .STRTAB 0x0137->0x031a ; "[_!machine.rcf.rcf1_2_install_file,_!machine.rcf.rcf1_2_code_file]"
0280 0177 | w | .STRTAB 0x0177->0x033b ; "<ERRORS>"
0281 017d | } | .STRTAB 0x017d->0x033f ; "<PROGRESS>"
0282 0185 | | .STRTAB 0x0185->0x0344 ; "rcf.host_only"
0283 0190 | | .STRTAB 0x0190->0x034b ; "[_!machine.rcf.rcf1_2_host_only_views,_!machine.rcf.rcf1_2_regular_views]"
0284 01d7 | | .STRTAB 0x01d7->0x036f ; "Find_All_Target_Worlds"
0285 01eb | | .STRTAB 0x01eb->0x037a ; "Resolving frozen items: freeze_file => !machine.rcf.rcf1_2_freeze_file, Naming => [_!machine.rcf.rcf1_2_host_only_views,_!machine.rcf.rcf1_2_regular_views]?'c(ada)'s(i,c)[,$,$$.state.tool_state.[,@state_file]]'if(frozen)"
0286 02c5 | | .STRTAB 0x02c5->0x03e8 ; "<QUIET>"
0287 02ca | | .STRTAB 0x02ca->0x03ec ; "[_!machine.rcf.rcf1_2_host_only_views,_!machine.rcf.rcf1_2_regular_views]?'c(ada)'s(i,c)[,$,$$.state.tool_state.[,@state_file]]'if(frozen)"
0288 0352 | R | .STRTAB 0x0352->0x0431 ; "Resolving coded units: code_file => !machine.rcf.rcf1_2_code_file, Naming => [_!machine.rcf.rcf1_2_host_only_views,_!machine.rcf.rcf1_2_regular_views]?'c(ada)'s(c)"
0289 03f3 | | .STRTAB 0x03f3->0x0482 ; "[_!machine.rcf.rcf1_2_host_only_views,_!machine.rcf.rcf1_2_regular_views]?'c(ada)'s(c)"
028a 0447 | G | .STRTAB 0x0447->0x04ad ; "Resolving installed units: install_file => !machine.rcf.rcf1_2_install_file, Naming => [_!machine.rcf.rcf1_2_host_only_views,_!machine.rcf.rcf1_2_regular_views]?'c(ada)'s(i)"
028b 04f2 | | .STRTAB 0x04f2->0x0504 ; "[_!machine.rcf.rcf1_2_host_only_views,_!machine.rcf.rcf1_2_regular_views]?'c(ada)'s(i)"
028c 0546 | F | .STRTAB 0x0546->0x052f ; "Library.Unfreeze (_!machine.rcf.rcf1_2_freeze_file);"
028d 0578 | x | .STRTAB 0x0578->0x0549 ; "<PROFILE>"
028e 057f | | .STRTAB 0x057f->0x054d ; "Compilation.Demote ('_'!machine.rcf.rcf1_2_demote_file);"
028f 05b5 | | .STRTAB 0x05b5->0x0569 ; "<WORLDS>"
0290 05bb | | .STRTAB 0x05bb->0x056d ; "_!machine.rcf.rcf1_2_code_file"
0291 05d7 | | .STRTAB 0x05d7->0x057c ; "_!machine.rcf.rcf1_2_install_file"
0292 05f6 | | .STRTAB 0x05f6->0x058d ; "!machine.rcf"
0293 0600 | | .STRTAB 0x0600->0x0593 ; "_!machine.rcf.rcf1_2_regular_views"
0294 0620 | | .STRTAB 0x0620->0x05a4 ; "Error while obtaining version of switch file for"
0295 064e | N | .STRTAB 0x064e->0x05bc ; ": "
0296 064e | N | .STRTAB 0x064e->0x05bd ; ". Assuming the view was not host-only."
0297 0673 | s | .STRTAB 0x0673->0x05d0 ; "Adding host_only view "
0298 0687 | | .STRTAB 0x0687->0x05db ; "Adding view "
0299 0691 | | .STRTAB 0x0691->0x05e1 ; "Unable to create file !machine.rcf.rcf1_2_host_only_views"
029a 06c8 | | .STRTAB 0x06c8->0x05fe ; "Unable to create file !machine.rcf.rcf1_2_regular_views"
029b 06fd | | .STRTAB 0x06fd->0x0619 ; "!??'c(combined_view)'t("
029c 0712 | | .STRTAB 0x0712->0x0625 ; ")"
029d 0711 | | .STRTAB 0x0711->0x0625 ; "Done resolving "
029e 071e | | .STRTAB 0x071e->0x062d ; " views"
029f 0722 | " | .STRTAB 0x0722->0x0630 ; "!Targets."
02a0 0729 | ) | .STREND 0x0729->0x0634
02a1 216d 6163 |!mac| .STRTAB_STRINGS
0635 0000 0000 | | .XXX[0x3]
0637 0000 | |
0638 ; --------------------------------------------------------------------------------------
0638 ; Debug Table
0638 ; --------------------------------------------------------------------------------------
0638 0004 000e | | .DEBUG4 0x0004,0x000e,0x0bb6,0x0000,0x0001,0x0000
063e 0000 0000 | | .BLANK 0000[0x1c2]