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