|
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_5e40f2
└─⟦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 06b8 | | .CONST 0x06b8 ; 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 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 00ea | | .CONST 0x00ea ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0023 | # | .CONST 0x0023 ; Number of locals 001b INIT_0018: 001b 00e9 | | Load_Encached String_Cache 001c 02a0 | | Declare_Subprogram Null_Subprogram 001d 4818 |H | Short_Literal 0x18 001e 03d3 | | Declare_Type Access,Defined,Accesses_Protected 001f 4800 |H | Short_Literal 0x0 0020 480d |H | Short_Literal 0xd 0021 029f 037b | {| Declare_Subprogram INIT_0378,For_Call 0023 03fd | | Declare_Type Discrete,Defined 0024 e001 | | Load 0x0,0x1 0025 e002 | | Load 0x0,0x2 0026 00da | | Load_Top At_Offset_2 0027 4800 |H | Short_Literal 0x0 0028 4801 |H | Short_Literal 0x1 0029 480d |H | Short_Literal 0xd 002a 0092 03c7 | | Action Push_String_Extended,0x3c7 ; "local_Username .. local_password => unspecified,others => Boolean" 002c 00ea | | Load_Encached Null_String_Cache 002d 00ea | | Load_Encached Null_String_Cache 002e 4801 |H | Short_Literal 0x1 002f 480d |H | Short_Literal 0xd 0030 e003 | | Load 0x0,0x3 0031 0387 | | Declare_Variable Package 0032 00d8 | | Load_Top At_Offset_0 0033 020f | | Execute Module,Activate 0034 0092 03c8 | | Action Push_String_Extended,0x3c8 ; "Pad, " 0036 e5fb | | Load 0x2,-0x5 0037 01cc | | Execute Vector,Catenate 0038 00d9 | | Load_Top At_Offset_1 0039 1820 | | Execute Package,Field_Execute,Field_Number 0x20 003a 4801 |H | Short_Literal 0x1 003b 4802 |H | Short_Literal 0x2 003c 00da | | Load_Top At_Offset_2 003d e404 | | Load 0x2,0x4 003e 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 003f 00e1 | | Load_Encached Boolean_Cache 0040 03f1 | | Declare_Variable Discrete,With_Value 0041 4801 |H | Short_Literal 0x1 0042 4803 |H | Short_Literal 0x3 0043 00db | | Load_Top At_Offset_3 0044 e404 | | Load 0x2,0x4 0045 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0046 00e1 | | Load_Encached Boolean_Cache 0047 03f1 | | Declare_Variable Discrete,With_Value 0048 4800 |H | Short_Literal 0x0 0049 4805 |H | Short_Literal 0x5 004a e405 | | Load 0x2,0x5 004b e404 | | Load 0x2,0x4 004c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 004d 00e1 | | Load_Encached Boolean_Cache 004e 03f1 | | Declare_Variable Discrete,With_Value 004f 4800 |H | Short_Literal 0x0 0050 4806 |H | Short_Literal 0x6 0051 e405 | | Load 0x2,0x5 0052 e404 | | Load 0x2,0x4 0053 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0054 00e1 | | Load_Encached Boolean_Cache 0055 03f1 | | Declare_Variable Discrete,With_Value 0056 4800 |H | Short_Literal 0x0 0057 480a |H | Short_Literal 0xa 0058 e405 | | Load 0x2,0x5 0059 e404 | | Load 0x2,0x4 005a 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 005b 00e1 | | Load_Encached Boolean_Cache 005c 03f1 | | Declare_Variable Discrete,With_Value 005d 00d9 | | Load_Top At_Offset_1 005e 4804 |H | Short_Literal 0x4 005f e405 | | Load 0x2,0x5 0060 e404 | | Load 0x2,0x4 0061 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0062 00e1 | | Load_Encached Boolean_Cache 0063 03f1 | | Declare_Variable Discrete,With_Value 0064 e407 | | Load 0x2,0x7 0065 6806 |h | Jump_Zero 0x6c 0066 4800 |H | Short_Literal 0x0 0067 4807 |H | Short_Literal 0x7 0068 e405 | | Load 0x2,0x5 0069 e404 | | Load 0x2,0x4 006a 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 006b 7801 |x | Jump 0x6d 006c 4800 |H | Short_Literal 0x0 006d 00e1 | | Load_Encached Boolean_Cache 006e 03f1 | | Declare_Variable Discrete,With_Value 006f e408 | | Load 0x2,0x8 0070 6806 |h | Jump_Zero 0x77 0071 4800 |H | Short_Literal 0x0 0072 4808 |H | Short_Literal 0x8 0073 e405 | | Load 0x2,0x5 0074 e404 | | Load 0x2,0x4 0075 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0076 7801 |x | Jump 0x78 0077 4800 |H | Short_Literal 0x0 0078 00e1 | | Load_Encached Boolean_Cache 0079 03f1 | | Declare_Variable Discrete,With_Value 007a 4800 |H | Short_Literal 0x0 007b 4809 |H | Short_Literal 0x9 007c e405 | | Load 0x2,0x5 007d e404 | | Load 0x2,0x4 007e 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 007f 00e1 | | Load_Encached Boolean_Cache 0080 03f1 | | Declare_Variable Discrete,With_Value 0081 4800 |H | Short_Literal 0x0 0082 480b |H | Short_Literal 0xb 0083 e405 | | Load 0x2,0x5 0084 e404 | | Load 0x2,0x4 0085 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0086 00e1 | | Load_Encached Boolean_Cache 0087 03f1 | | Declare_Variable Discrete,With_Value 0088 00ea | | Load_Encached Null_String_Cache 0089 480c |H | Short_Literal 0xc 008a e405 | | Load 0x2,0x5 008b e404 | | Load 0x2,0x4 008c 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 008d 00ea | | Load_Encached Null_String_Cache 008e 480d |H | Short_Literal 0xd 008f e405 | | Load 0x2,0x5 0090 e404 | | Load 0x2,0x4 0091 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0092 e5ff | | Load 0x2,-0x1 0093 e004 | | Load 0x0,0x4 0094 180d | | Execute Package,Field_Execute,Field_Number 0xd 0095 e005 | | Load 0x0,0x5 0096 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0097 e005 | | Load 0x0,0x5 0098 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0099 e5fd | | Load 0x2,-0x3 009a 00da | | Load_Top At_Offset_2 009b e004 | | Load 0x0,0x4 009c 180e | | Execute Package,Field_Execute,Field_Number 0xe 009d 00ea | | Load_Encached Null_String_Cache 009e e5fc | | Load 0x2,-0x4 009f 00db | | Load_Top At_Offset_3 00a0 e004 | | Load 0x0,0x4 00a1 180f | | Execute Package,Field_Execute,Field_Number 0xf 00a2 e006 | | Load 0x0,0x6 00a3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00a4 00e1 | | Load_Encached Boolean_Cache 00a5 03f1 | | Declare_Variable Discrete,With_Value 00a6 e402 | | Load 0x2,0x2 00a7 0007 | | Action Break_Optional 00a8 00d8 | | Load_Top At_Offset_0 00a9 0007 | | Action Break_Optional 00aa e007 | | Load 0x0,0x7 00ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ac e007 | | Load 0x0,0x7 00ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ae e007 | | Load 0x0,0x7 00af 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00b0 02c7 | | Declare_Variable Any 00b1 00d8 | | Load_Top At_Offset_0 00b2 1c00 | | Execute_Immediate Run_Utility,0x0 00b3 e007 | | Load 0x0,0x7 00b4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00b5 02c7 | | Declare_Variable Any 00b6 00d8 | | Load_Top At_Offset_0 00b7 1c00 | | Execute_Immediate Run_Utility,0x0 00b8 e007 | | Load 0x0,0x7 00b9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ba 02c7 | | Declare_Variable Any 00bb 00d8 | | Load_Top At_Offset_0 00bc 1c00 | | Execute_Immediate Run_Utility,0x0 00bd e5fe | | Load 0x2,-0x2 00be 8008 | | Call 0x0,0x8 00bf 62b4 |b | Indirect_Literal Discrete,0x374,{0x00000000, 0x00004000} 00c0 e009 | | Load 0x0,0x9 00c1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c2 e00a | | Load 0x0,0xa 00c3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00c4 e00b | | Load 0x0,0xb 00c5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00c6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00c7 0092 03c9 | | Action Push_String_Extended,0x3c9 ; "$$" 00c9 e00b | | Load 0x0,0xb 00ca 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00cb 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 00cc 00d8 | | Load_Top At_Offset_0 00cd 0092 03ca | | Action Push_String_Extended,0x3ca ; "." 00cf 01cc | | Execute Vector,Catenate 00d0 0007 | | Action Break_Optional 00d1 0092 03cb | | Action Push_String_Extended,0x3cb ; "!Machine.Release.Archive.Environment." 00d3 00db | | Load_Top At_Offset_3 00d4 01cc | | Execute Vector,Catenate 00d5 0092 03ca | | Action Push_String_Extended,0x3ca ; "." 00d7 01cc | | Execute Vector,Catenate 00d8 0007 | | Action Break_Optional 00d9 485f |H_ | Short_Literal 0x5f 00da 4800 |H | Short_Literal 0x0 00db 4803 |H | Short_Literal 0x3 00dc 4804 |H | Short_Literal 0x4 00dd e00c | | Load 0x0,0xc 00de 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00df e00c | | Load 0x0,0xc 00e0 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00e1 01ca | | Execute Vector,Prepend 00e2 0007 | | Action Break_Optional 00e3 e00d | | Load 0x0,0xd 00e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e5 02c7 | | Declare_Variable Any 00e6 00d8 | | Load_Top At_Offset_0 00e7 1c00 | | Execute_Immediate Run_Utility,0x0 00e8 029f 03a3 | | Declare_Subprogram INIT_03a0,For_Call 00ea BODY_0018: 00ea e41c | | Load 0x2,0x1c 00eb 00da | | Load_Top At_Offset_2 00ec 0120 | | Execute Any,Is_Value 00ed 6803 |h | Jump_Zero 0xf1 00ee e00d | | Load 0x0,0xd 00ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f0 7801 |x | Jump 0xf2 00f1 00da | | Load_Top At_Offset_2 00f2 e5fa | | Load 0x2,-0x6 00f3 e00d | | Load 0x0,0xd 00f4 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 00f5 c422 | " | Store 0x2,0x22 00f6 c41c | | Store 0x2,0x1c 00f7 00d9 | | Load_Top At_Offset_1 00f8 e00d | | Load 0x0,0xd 00f9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00fa e00d | | Load 0x0,0xd 00fb 180e | | Execute Package,Field_Execute,Field_Number 0xe 00fc e41c | | Load 0x2,0x1c 00fd e00e | | Load 0x0,0xe 00fe 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00ff 00cf | | Action Mark_Auxiliary 0100 7813 |x | Jump 0x114 0101 4800 |H | Short_Literal 0x0 0102 e405 | | Load 0x2,0x5 0103 e404 | | Load 0x2,0x4 0104 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0105 7009 |p | Jump_Nonzero 0x10f 0106 e00d | | Load 0x0,0xd 0107 180e | | Execute Package,Field_Execute,Field_Number 0xe 0108 4807 |H | Short_Literal 0x7 0109 4800 |H | Short_Literal 0x0 010a e405 | | Load 0x2,0x5 010b e404 | | Load 0x2,0x4 010c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 010d e00e | | Load 0x0,0xe 010e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 010f e405 | | Load 0x2,0x5 0110 e404 | | Load 0x2,0x4 0111 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0112 c405 | | Store 0x2,0x5 0113 00c9 | | Action Pop_Auxiliary_Loop 0114 e405 | | Load 0x2,0x5 0115 e404 | | Load 0x2,0x4 0116 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0117 77e9 |w | Jump_Nonzero 0x101 0118 00ce | | Action Pop_Auxiliary 0119 e00d | | Load 0x0,0xd 011a 180e | | Execute Package,Field_Execute,Field_Number 0xe 011b 4802 |H | Short_Literal 0x2 011c 0092 03cc | | Action Push_String_Extended,0x3cc ; "Tools => " 011e e406 | | Load 0x2,0x6 011f 00e1 | | Load_Encached Boolean_Cache 0120 011c | | Execute Any,Convert_Unchecked 0121 1c01 | | Execute_Immediate Run_Utility,0x1 0122 01cc | | Execute Vector,Catenate 0123 e00e | | Load 0x0,0xe 0124 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0125 e00d | | Load 0x0,0xd 0126 180e | | Execute Package,Field_Execute,Field_Number 0xe 0127 4802 |H | Short_Literal 0x2 0128 0092 03cd | | Action Push_String_Extended,0x3cd ; "Environment => " 012a e407 | | Load 0x2,0x7 012b 00e1 | | Load_Encached Boolean_Cache 012c 011c | | Execute Any,Convert_Unchecked 012d 1c01 | | Execute_Immediate Run_Utility,0x1 012e 01cc | | Execute Vector,Catenate 012f e00e | | Load 0x0,0xe 0130 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0131 e00d | | Load 0x0,0xd 0132 180e | | Execute Package,Field_Execute,Field_Number 0xe 0133 4802 |H | Short_Literal 0x2 0134 0092 03ce | | Action Push_String_Extended,0x3ce ; "No_Mail => " 0136 e40b | | Load 0x2,0xb 0137 00e1 | | Load_Encached Boolean_Cache 0138 011c | | Execute Any,Convert_Unchecked 0139 1c01 | | Execute_Immediate Run_Utility,0x1 013a 01cc | | Execute Vector,Catenate 013b e00e | | Load 0x0,0xe 013c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 013d e00d | | Load 0x0,0xd 013e 180e | | Execute Package,Field_Execute,Field_Number 0xe 013f 4802 |H | Short_Literal 0x2 0140 0092 03cf | | Action Push_String_Extended,0x3cf ; "Install => " 0142 e408 | | Load 0x2,0x8 0143 00e1 | | Load_Encached Boolean_Cache 0144 011c | | Execute Any,Convert_Unchecked 0145 1c01 | | Execute_Immediate Run_Utility,0x1 0146 01cc | | Execute Vector,Catenate 0147 e00e | | Load 0x0,0xe 0148 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0149 e00d | | Load 0x0,0xd 014a 180e | | Execute Package,Field_Execute,Field_Number 0xe 014b 4802 |H | Short_Literal 0x2 014c 0092 03d0 | | Action Push_String_Extended,0x3d0 ; "Internal => " 014e e409 | | Load 0x2,0x9 014f 00e1 | | Load_Encached Boolean_Cache 0150 011c | | Execute Any,Convert_Unchecked 0151 1c01 | | Execute_Immediate Run_Utility,0x1 0152 01cc | | Execute Vector,Catenate 0153 e00e | | Load 0x0,0xe 0154 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0155 e00d | | Load 0x0,0xd 0156 180e | | Execute Package,Field_Execute,Field_Number 0xe 0157 4802 |H | Short_Literal 0x2 0158 0092 03d1 | | Action Push_String_Extended,0x3d1 ; "Await_Xfer => " 015a e40c | | Load 0x2,0xc 015b 00e1 | | Load_Encached Boolean_Cache 015c 011c | | Execute Any,Convert_Unchecked 015d 1c01 | | Execute_Immediate Run_Utility,0x1 015e 01cc | | Execute Vector,Catenate 015f e00e | | Load 0x0,0xe 0160 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0161 e00d | | Load 0x0,0xd 0162 180e | | Execute Package,Field_Execute,Field_Number 0xe 0163 4802 |H | Short_Literal 0x2 0164 0092 03d2 | | Action Push_String_Extended,0x3d2 ; "Await_Install => " 0166 e40d | | Load 0x2,0xd 0167 00e1 | | Load_Encached Boolean_Cache 0168 011c | | Execute Any,Convert_Unchecked 0169 1c01 | | Execute_Immediate Run_Utility,0x1 016a 01cc | | Execute Vector,Catenate 016b e00e | | Load 0x0,0xe 016c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 016d e00d | | Load 0x0,0xd 016e 180e | | Execute Package,Field_Execute,Field_Number 0xe 016f 4802 |H | Short_Literal 0x2 0170 0092 03d3 | | Action Push_String_Extended,0x3d3 ; "Verbose => " 0172 e40e | | Load 0x2,0xe 0173 00e1 | | Load_Encached Boolean_Cache 0174 011c | | Execute Any,Convert_Unchecked 0175 1c01 | | Execute_Immediate Run_Utility,0x1 0176 01cc | | Execute Vector,Catenate 0177 e00e | | Load 0x0,0xe 0178 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0179 e00d | | Load 0x0,0xd 017a 180e | | Execute Package,Field_Execute,Field_Number 0xe 017b 4802 |H | Short_Literal 0x2 017c 0092 03d4 | | Action Push_String_Extended,0x3d4 ; "MV => " 017e e40a | | Load 0x2,0xa 017f 00e1 | | Load_Encached Boolean_Cache 0180 011c | | Execute Any,Convert_Unchecked 0181 1c01 | | Execute_Immediate Run_Utility,0x1 0182 01cc | | Execute Vector,Catenate 0183 e00e | | Load 0x0,0xe 0184 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0185 e00d | | Load 0x0,0xd 0186 180e | | Execute Package,Field_Execute,Field_Number 0xe 0187 4802 |H | Short_Literal 0x2 0188 0092 03d5 | | Action Push_String_Extended,0x3d5 ; "Do_It => " 018a e40f | | Load 0x2,0xf 018b 00e1 | | Load_Encached Boolean_Cache 018c 011c | | Execute Any,Convert_Unchecked 018d 1c01 | | Execute_Immediate Run_Utility,0x1 018e 01cc | | Execute Vector,Catenate 018f e00e | | Load 0x0,0xe 0190 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0191 e00d | | Load 0x0,0xd 0192 180e | | Execute Package,Field_Execute,Field_Number 0xe 0193 4802 |H | Short_Literal 0x2 0194 0092 03d6 | | Action Push_String_Extended,0x3d6 ; "Local_Username=> " 0196 e413 | | Load 0x2,0x13 0197 01cc | | Execute Vector,Catenate 0198 e00e | | Load 0x0,0xe 0199 1813 | | Execute Package,Field_Execute,Field_Number 0x13 019a e410 | | Load 0x2,0x10 019b 01db | | Execute Vector,Length 019c 6819 |h | Jump_Zero 0x1b6 019d e41c | | Load 0x2,0x1c 019e 00ea | | Load_Encached Null_String_Cache 019f e411 | | Load 0x2,0x11 01a0 e410 | | Load 0x2,0x10 01a1 e007 | | Load 0x0,0x7 01a2 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01a3 c41c | | Store 0x2,0x1c 01a4 4801 |H | Short_Literal 0x1 01a5 e41c | | Load 0x2,0x1c 01a6 e00f | | Load 0x0,0xf 01a7 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01a8 680d |h | Jump_Zero 0x1b6 01a9 e00d | | Load 0x0,0xd 01aa 180e | | Execute Package,Field_Execute,Field_Number 0xe 01ab 4805 |H | Short_Literal 0x5 01ac 0092 03d7 | | Action Push_String_Extended,0x3d7 ; "Abandoning NETWORK_COPY; Can't change local identity." 01ae e00e | | Load 0x0,0xe 01af 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01b0 e00d | | Load 0x0,0xd 01b1 180e | | Execute Package,Field_Execute,Field_Number 0xe 01b2 e41c | | Load 0x2,0x1c 01b3 e00e | | Load 0x0,0xe 01b4 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01b5 4507 |E | Exit_Suprogram New_Top_Offset 0x7 01b6 4801 |H | Short_Literal 0x1 01b7 e006 | | Load 0x0,0x6 01b8 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01b9 e006 | | Load 0x0,0x6 01ba 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01bb 7008 |p | Jump_Nonzero 0x1c4 01bc e00d | | Load 0x0,0xd 01bd 180e | | Execute Package,Field_Execute,Field_Number 0xe 01be 4805 |H | Short_Literal 0x5 01bf 0092 03d8 | | Action Push_String_Extended,0x3d8 ; "Abandoning NETWORK_COPY: Can't set PRIVILEGED MODE." 01c1 e00e | | Load 0x0,0xe 01c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01c3 4507 |E | Exit_Suprogram New_Top_Offset 0x7 01c4 e41f | | Load 0x2,0x1f 01c5 8010 | | Call 0x0,0x10 01c6 7009 |p | Jump_Nonzero 0x1d0 01c7 0092 03d9 | | Action Push_String_Extended,0x3d9 ; "<PROFILE>" 01c9 0092 03da | | Action Push_String_Extended,0x3da ; "!Model.R1000" 01cb 4800 |H | Short_Literal 0x0 01cc 4800 |H | Short_Literal 0x0 01cd e41e | | Load 0x2,0x1e 01ce e011 | | Load 0x0,0x11 01cf 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01d0 0092 03d9 | | Action Push_String_Extended,0x3d9 ; "<PROFILE>" 01d2 e41f | | Load 0x2,0x1f 01d3 e011 | | Load 0x0,0x11 01d4 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01d5 0092 03db | | Action Push_String_Extended,0x3db ; "$$.Logs" 01d7 8010 | | Call 0x0,0x10 01d8 7009 |p | Jump_Nonzero 0x1e2 01d9 0092 03d9 | | Action Push_String_Extended,0x3d9 ; "<PROFILE>" 01db 00ea | | Load_Encached Null_String_Cache 01dc 4800 |H | Short_Literal 0x0 01dd 4801 |H | Short_Literal 0x1 01de 0092 03db | | Action Push_String_Extended,0x3db ; "$$.Logs" 01e0 e011 | | Load 0x0,0x11 01e1 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 01e2 e407 | | Load 0x2,0x7 01e3 68d8 |h | Jump_Zero 0x2bc 01e4 e40f | | Load 0x2,0xf 01e5 7006 |p | Jump_Nonzero 0x1ec 01e6 e408 | | Load 0x2,0x8 01e7 7002 |p | Jump_Nonzero 0x1ea 01e8 e406 | | Load 0x2,0x6 01e9 7801 |x | Jump 0x1eb 01ea 4801 |H | Short_Literal 0x1 01eb 7075 |pu | Jump_Nonzero 0x261 01ec e40a | | Load 0x2,0xa 01ed 6808 |h | Jump_Zero 0x1f6 01ee 0092 03dc | | Action Push_String_Extended,0x3dc ; ":NET:MOE:UDD:WAW:RELEASE:" 01f0 e41d | | Load 0x2,0x1d 01f1 01cc | | Execute Vector,Catenate 01f2 e402 | | Load 0x2,0x2 01f3 03b6 | | Declare_Variable Access,By_Allocation,With_Value 01f4 a417 | | Store_Unchecked 0x2,0x17 01f5 780c |x | Jump 0x202 01f6 0092 03dd | | Action Push_String_Extended,0x3dd ; "!!" 01f8 e412 | | Load 0x2,0x12 01f9 01cc | | Execute Vector,Catenate 01fa e420 | | Load 0x2,0x20 01fb 01cc | | Execute Vector,Catenate 01fc 0092 03de | | Action Push_String_Extended,0x3de ; "Segments" 01fe 01cc | | Execute Vector,Catenate 01ff e402 | | Load 0x2,0x2 0200 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0201 a417 | | Store_Unchecked 0x2,0x17 0202 e00d | | Load 0x0,0xd 0203 180e | | Execute Package,Field_Execute,Field_Number 0xe 0204 4803 |H | Short_Literal 0x3 0205 0092 03df | | Action Push_String_Extended,0x3df ; "Copying " 0207 e41d | | Load 0x2,0x1d 0208 01cc | | Execute Vector,Catenate 0209 0092 03e0 | | Action Push_String_Extended,0x3e0 ; " code segments from " 020b 01cc | | Execute Vector,Catenate 020c e417 | | Load 0x2,0x17 020d 0227 | ' | Execute Access,All_Reference 020e 01cc | | Execute Vector,Catenate 020f e00e | | Load 0x0,0xe 0210 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0211 0092 03e1 | | Action Push_String_Extended,0x3e1 ; "$$.Logs.Get_Xfer" 0213 00db | | Load_Top At_Offset_3 0214 01cc | | Execute Vector,Catenate 0215 e00e | | Load 0x0,0xe 0216 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0217 e00d | | Load 0x0,0xd 0218 180e | | Execute Package,Field_Execute,Field_Number 0xe 0219 4802 |H | Short_Literal 0x2 021a 0092 03e2 | | Action Push_String_Extended,0x3e2 ; "Loading code segments from " 021c e417 | | Load 0x2,0x17 021d 0227 | ' | Execute Access,All_Reference 021e 01cc | | Execute Vector,Catenate 021f e00e | | Load 0x0,0xe 0220 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0221 e40b | | Load 0x2,0xb 0222 6809 |h | Jump_Zero 0x22c 0223 e417 | | Load 0x2,0x17 0224 0227 | ' | Execute Access,All_Reference 0225 0092 03e3 | | Action Push_String_Extended,0x3e3 ; ":No_Mail.xfer" 0227 01cc | | Execute Vector,Catenate 0228 e402 | | Load 0x2,0x2 0229 03b6 | | Declare_Variable Access,By_Allocation,With_Value 022a a417 | | Store_Unchecked 0x2,0x17 022b 7808 |x | Jump 0x234 022c e417 | | Load 0x2,0x17 022d 0227 | ' | Execute Access,All_Reference 022e 0092 03e4 | | Action Push_String_Extended,0x3e4 ; ":AE.xfer" 0230 01cc | | Execute Vector,Catenate 0231 e402 | | Load 0x2,0x2 0232 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0233 a417 | | Store_Unchecked 0x2,0x17 0234 e40e | | Load 0x2,0xe 0235 e414 | | Load 0x2,0x14 0236 e413 | | Load 0x2,0x13 0237 e417 | | Load 0x2,0x17 0238 0227 | ' | Execute Access,All_Reference 0239 8012 | | Call 0x0,0x12 023a 0092 03e5 | | Action Push_String_Extended,0x3e5 ; "!Machine.Release.Environment." 023c e41d | | Load 0x2,0x1d 023d 01cc | | Execute Vector,Catenate 023e 0092 03e6 | | Action Push_String_Extended,0x3e6 ; ".Lists.Release_Subs" 0240 01cc | | Execute Vector,Catenate 0241 8010 | | Call 0x0,0x10 0242 6805 |h | Jump_Zero 0x248 0243 0092 03e7 | | Action Push_String_Extended,0x3e7 ; "<RELEASE>" 0245 e41d | | Load 0x2,0x1d 0246 8013 | | Call 0x0,0x13 0247 780c |x | Jump 0x254 0248 e00d | | Load 0x0,0xd 0249 180e | | Execute Package,Field_Execute,Field_Number 0xe 024a 4802 |H | Short_Literal 0x2 024b 0092 03e8 | | Action Push_String_Extended,0x3e8 ; "'Check_Configuration (\x22" 024d e41d | | Load 0x2,0x1d 024e 01cc | | Execute Vector,Catenate 024f 0092 03e9 | | Action Push_String_Extended,0x3e9 ; "\x22)' should be run when the release world has been restored." 0251 01cc | | Execute Vector,Catenate 0252 e00e | | Load 0x0,0xe 0253 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0254 e00d | | Load 0x0,0xd 0255 180e | | Execute Package,Field_Execute,Field_Number 0xe 0256 e00d | | Load 0x0,0xd 0257 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0258 e00e | | Load 0x0,0xe 0259 180f | | Execute Package,Field_Execute,Field_Number 0xf 025a 0092 03e1 | | Action Push_String_Extended,0x3e1 ; "$$.Logs.Get_Xfer" 025c 00db | | Load_Top At_Offset_3 025d 01cc | | Execute Vector,Catenate 025e 8014 | | Call 0x0,0x14 025f 8423 | # | Call 0x2,0x23 0260 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0261 e41a | | Load 0x2,0x1a 0262 e007 | | Load 0x0,0x7 0263 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0264 e5fa | | Load 0x2,-0x6 0265 0092 03ea | | Action Push_String_Extended,0x3ea ; "Output => $$.Logs.Network_Copy_Code" 0267 e421 | ! | Load 0x2,0x21 0268 01cc | | Execute Vector,Catenate 0269 4800 |H | Short_Literal 0x0 026a e41f | | Load 0x2,0x1f 026b 4800 |H | Short_Literal 0x0 026c 0092 03eb | | Action Push_String_Extended,0x3eb ; "\x22$$Load_Procs\x22.Network_Copy (Machine => \x22!!" 026e e412 | | Load 0x2,0x12 026f 01cc | | Execute Vector,Catenate 0270 0092 03ec | | Action Push_String_Extended,0x3ec ; "\x22," 0272 01cc | | Execute Vector,Catenate 0273 0092 03ed | | Action Push_String_Extended,0x3ed ; "Release => \x22" 0275 01cc | | Execute Vector,Catenate 0276 e41d | | Load 0x2,0x1d 0277 01cc | | Execute Vector,Catenate 0278 0092 03ec | | Action Push_String_Extended,0x3ec ; "\x22," 027a 01cc | | Execute Vector,Catenate 027b 0092 03ee | | Action Push_String_Extended,0x3ee ; "Username => \x22" 027d 01cc | | Execute Vector,Catenate 027e e413 | | Load 0x2,0x13 027f 01cc | | Execute Vector,Catenate 0280 0092 03ec | | Action Push_String_Extended,0x3ec ; "\x22," 0282 01cc | | Execute Vector,Catenate 0283 0092 03ef | | Action Push_String_Extended,0x3ef ; "Password => \x22" 0285 01cc | | Execute Vector,Catenate 0286 e414 | | Load 0x2,0x14 0287 01cc | | Execute Vector,Catenate 0288 0092 03ec | | Action Push_String_Extended,0x3ec ; "\x22," 028a 01cc | | Execute Vector,Catenate 028b 0092 03f0 | | Action Push_String_Extended,0x3f0 ; "Options => \x22DO_IT, " 028d 01cc | | Execute Vector,Catenate 028e e5fb | | Load 0x2,-0x5 028f 01cc | | Execute Vector,Catenate 0290 0092 03ec | | Action Push_String_Extended,0x3ec ; "\x22," 0292 01cc | | Execute Vector,Catenate 0293 0092 03f1 | | Action Push_String_Extended,0x3f1 ; "Response => \x22" 0295 01cc | | Execute Vector,Catenate 0296 e5fa | | Load 0x2,-0x6 0297 01cc | | Execute Vector,Catenate 0298 0092 03f2 | | Action Push_String_Extended,0x3f2 ; "\x22);" 029a 01cc | | Execute Vector,Catenate 029b e007 | | Load 0x0,0x7 029c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 029d c418 | | Store 0x2,0x18 029e c41a | | Store 0x2,0x1a 029f e41a | | Load 0x2,0x1a 02a0 e007 | | Load 0x0,0x7 02a1 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02a2 6814 |h | Jump_Zero 0x2b7 02a3 e00d | | Load 0x0,0xd 02a4 180e | | Execute Package,Field_Execute,Field_Number 0xe 02a5 4803 |H | Short_Literal 0x3 02a6 0092 03f3 | | Action Push_String_Extended,0x3f3 ; "Transfer of code segments has started as job" 02a8 e418 | | Load 0x2,0x18 02a9 00e0 | | Load_Encached Standard_Cache 02aa 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02ab 01cc | | Execute Vector,Catenate 02ac e00e | | Load 0x0,0xe 02ad 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02ae e406 | | Load 0x2,0x6 02af 700c |p | Jump_Nonzero 0x2bc 02b0 e40c | | Load 0x2,0xc 02b1 700a |p | Jump_Nonzero 0x2bc 02b2 e40d | | Load 0x2,0xd 02b3 7008 |p | Jump_Nonzero 0x2bc 02b4 60bb |` | Indirect_Literal Discrete,0x370,{0x00000000, 0x000f0000} 02b5 00ba | | Action Initiate_Delay 02b6 7805 |x | Jump 0x2bc 02b7 e00d | | Load 0x0,0xd 02b8 180e | | Execute Package,Field_Execute,Field_Number 0xe 02b9 e41a | | Load 0x2,0x1a 02ba e00e | | Load 0x0,0xe 02bb 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02bc e406 | | Load 0x2,0x6 02bd 6860 |h` | Jump_Zero 0x31e 02be e00d | | Load 0x0,0xd 02bf 180e | | Execute Package,Field_Execute,Field_Number 0xe 02c0 4803 |H | Short_Literal 0x3 02c1 0092 03f4 | | Action Push_String_Extended,0x3f4 ; "Installing " 02c3 e41d | | Load 0x2,0x1d 02c4 01cc | | Execute Vector,Catenate 02c5 0092 03f5 | | Action Push_String_Extended,0x3f5 ; " release world from !!" 02c7 01cc | | Execute Vector,Catenate 02c8 e412 | | Load 0x2,0x12 02c9 01cc | | Execute Vector,Catenate 02ca e00e | | Load 0x0,0xe 02cb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02cc 0092 03f6 | | Action Push_String_Extended,0x3f6 ; "$$.Logs.Network_Copy_Tools" 02ce 00db | | Load_Top At_Offset_3 02cf 01cc | | Execute Vector,Catenate 02d0 e00e | | Load 0x0,0xe 02d1 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02d2 e409 | | Load 0x2,0x9 02d3 680b |h | Jump_Zero 0x2df 02d4 0092 03cb | | Action Push_String_Extended,0x3cb ; "!Machine.Release.Archive.Environment." 02d6 e41d | | Load 0x2,0x1d 02d7 01cc | | Execute Vector,Catenate 02d8 0092 03f7 | | Action Push_String_Extended,0x3f7 ; ".Internal" 02da 01cc | | Execute Vector,Catenate 02db e402 | | Load 0x2,0x2 02dc 03b6 | | Declare_Variable Access,By_Allocation,With_Value 02dd a416 | | Store_Unchecked 0x2,0x16 02de 780a |x | Jump 0x2e9 02df 0092 03cb | | Action Push_String_Extended,0x3cb ; "!Machine.Release.Archive.Environment." 02e1 e41d | | Load 0x2,0x1d 02e2 01cc | | Execute Vector,Catenate 02e3 0092 03f8 | | Action Push_String_Extended,0x3f8 ; ".Release" 02e5 01cc | | Execute Vector,Catenate 02e6 e402 | | Load 0x2,0x2 02e7 03b6 | | Declare_Variable Access,By_Allocation,With_Value 02e8 a416 | | Store_Unchecked 0x2,0x16 02e9 e5fa | | Load 0x2,-0x6 02ea 0092 03f9 | | Action Push_String_Extended,0x3f9 ; "Changed_Objects, User=" 02ec e413 | | Load 0x2,0x13 02ed 01cc | | Execute Vector,Catenate 02ee 0092 03fa | | Action Push_String_Extended,0x3fa ; ", " 02f0 01cc | | Execute Vector,Catenate 02f1 0092 03fb | | Action Push_String_Extended,0x3fb ; "Pass=(" 02f3 01cc | | Execute Vector,Catenate 02f4 e414 | | Load 0x2,0x14 02f5 01cc | | Execute Vector,Catenate 02f6 0092 03fc | | Action Push_String_Extended,0x3fc ; ")" 02f8 01cc | | Execute Vector,Catenate 02f9 0092 03fd | | Action Push_String_Extended,0x3fd ; "*" 02fb 0092 03fd | | Action Push_String_Extended,0x3fd ; "*" 02fd 0092 03dd | | Action Push_String_Extended,0x3dd ; "!!" 02ff e412 | | Load 0x2,0x12 0300 01cc | | Execute Vector,Catenate 0301 e416 | | Load 0x2,0x16 0302 0227 | ' | Execute Access,All_Reference 0303 01cc | | Execute Vector,Catenate 0304 e015 | | Load 0x0,0x15 0305 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0306 e5fa | | Load 0x2,-0x6 0307 e416 | | Load 0x2,0x16 0308 0227 | ' | Execute Access,All_Reference 0309 0092 03fe | | Action Push_String_Extended,0x3fe ; "R1000, REPLACE, CHANGED_OBJECTS, PROMOTE" 030b 0092 03fd | | Action Push_String_Extended,0x3fd ; "*" 030d 0092 03fd | | Action Push_String_Extended,0x3fd ; "*" 030f 0092 03ff | | Action Push_String_Extended,0x3ff ; "?" 0311 e015 | | Load 0x0,0x15 0312 180e | | Execute Package,Field_Execute,Field_Number 0xe 0313 e00d | | Load 0x0,0xd 0314 180e | | Execute Package,Field_Execute,Field_Number 0xe 0315 e00d | | Load 0x0,0xd 0316 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0317 e00e | | Load 0x0,0xe 0318 180f | | Execute Package,Field_Execute,Field_Number 0xf 0319 0092 03f6 | | Action Push_String_Extended,0x3f6 ; "$$.Logs.Network_Copy_Tools" 031b 00db | | Load_Top At_Offset_3 031c 01cc | | Execute Vector,Catenate 031d 8014 | | Call 0x0,0x14 031e e408 | | Load 0x2,0x8 031f 682c |h, | Jump_Zero 0x34c 0320 e41b | | Load 0x2,0x1b 0321 e007 | | Load 0x0,0x7 0322 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0323 e5fa | | Load 0x2,-0x6 0324 0092 0400 | | Action Push_String_Extended,0x400 ; "Output => $$.Logs.Network_Copy_Install" 0326 e421 | ! | Load 0x2,0x21 0327 01cc | | Execute Vector,Catenate 0328 4800 |H | Short_Literal 0x0 0329 e41f | | Load 0x2,0x1f 032a 4800 |H | Short_Literal 0x0 032b 0092 0401 | | Action Push_String_Extended,0x401 ; "Install_Product" 032d e007 | | Load 0x0,0x7 032e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 032f c419 | | Store 0x2,0x19 0330 c41b | | Store 0x2,0x1b 0331 e41b | | Load 0x2,0x1b 0332 e007 | | Load 0x0,0x7 0333 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0334 6812 |h | Jump_Zero 0x347 0335 e00d | | Load 0x0,0xd 0336 180e | | Execute Package,Field_Execute,Field_Number 0xe 0337 4803 |H | Short_Literal 0x3 0338 0092 0402 | | Action Push_String_Extended,0x402 ; "INSTALL_PRODUCT procedure has started as job" 033a e419 | | Load 0x2,0x19 033b 00e0 | | Load_Encached Standard_Cache 033c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 033d 01cc | | Execute Vector,Catenate 033e e00e | | Load 0x0,0xe 033f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0340 e40d | | Load 0x2,0xd 0341 700a |p | Jump_Nonzero 0x34c 0342 e40c | | Load 0x2,0xc 0343 7008 |p | Jump_Nonzero 0x34c 0344 602b |`+ | Indirect_Literal Discrete,0x370,{0x00000000, 0x000f0000} 0345 00ba | | Action Initiate_Delay 0346 7805 |x | Jump 0x34c 0347 e00d | | Load 0x0,0xd 0348 180e | | Execute Package,Field_Execute,Field_Number 0xe 0349 e41b | | Load 0x2,0x1b 034a e00e | | Load 0x0,0xe 034b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 034c e40c | | Load 0x2,0xc 034d 680e |h | Jump_Zero 0x35c 034e e41a | | Load 0x2,0x1a 034f e007 | | Load 0x0,0x7 0350 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0351 680a |h | Jump_Zero 0x35c 0352 e00d | | Load 0x0,0xd 0353 180e | | Execute Package,Field_Execute,Field_Number 0xe 0354 4803 |H | Short_Literal 0x3 0355 0092 0403 | | Action Push_String_Extended,0x403 ; "Waiting for completion of Code segment transfer." 0357 e00e | | Load 0x0,0xe 0358 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0359 e418 | | Load 0x2,0x18 035a e007 | | Load 0x0,0x7 035b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 035c e40d | | Load 0x2,0xd 035d 680e |h | Jump_Zero 0x36c 035e e41b | | Load 0x2,0x1b 035f e007 | | Load 0x0,0x7 0360 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0361 680a |h | Jump_Zero 0x36c 0362 e00d | | Load 0x0,0xd 0363 180e | | Execute Package,Field_Execute,Field_Number 0xe 0364 4803 |H | Short_Literal 0x3 0365 0092 0404 | | Action Push_String_Extended,0x404 ; "Waiting for completion of Install_Product." 0367 e00e | | Load 0x0,0xe 0368 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0369 e419 | | Load 0x2,0x19 036a e007 | | Load 0x0,0x7 036b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 036c 8423 | # | Call 0x2,0x23 036d 4507 |E | Exit_Suprogram New_Top_Offset 0x7 036e 0000 0000 | | .XXX[0x2] 0370 0000 0000 | | .LITERAL {0x00000000, 0x000f0000} 0374 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 037b | { | .CONST 0x037b ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0001 | | .CONST 0x0001 ; Number of locals 037b BODY_0378: 037b INIT_0378: 037b 4607 |F | Jump_Case 0x8 037c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 037d 7806 |x | Jump 0x384 ; case 0x1 037e 7809 |x | Jump 0x388 ; case 0x2 037f 780d |x | Jump 0x38d ; case 0x3 0380 7810 |x | Jump 0x391 ; case 0x4 0381 7811 |x | Jump 0x393 ; case 0x5 0382 7812 |x | Jump 0x395 ; case 0x6 0383 7815 |x | Jump 0x399 ; case 0x7 0384 00da | | Load_Top At_Offset_2 0385 0091 03b9 | | Action Push_String_Extended_Indexed,0x3b9 ; "NIL" 0387 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0388 00db | | Load_Top At_Offset_3 0389 00db | | Load_Top At_Offset_3 038a 00e0 | | Load_Encached Standard_Cache 038b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 038c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 038d 00da | | Load_Top At_Offset_2 038e 00e0 | | Load_Encached Standard_Cache 038f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0390 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0391 00db | | Load_Top At_Offset_3 0392 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0393 00db | | Load_Top At_Offset_3 0394 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0395 e403 | | Load 0x2,0x3 0396 00dc | | Load_Top At_Offset_4 0397 0267 | g | Execute Discrete,Predecessor 0398 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0399 e403 | | Load 0x2,0x3 039a 00dc | | Load_Top At_Offset_4 039b 0268 | h | Execute Discrete,Successor 039c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 039d 0000 0000 | | .XXX[0x3] 039f 0000 | | 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03a3 | | .CONST 0x03a3 ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0001 | | .CONST 0x0001 ; Number of locals 03a3 BODY_03a0: 03a3 INIT_03a0: 03a3 e410 | | Load 0x2,0x10 03a4 01db | | Execute Vector,Length 03a5 6808 |h | Jump_Zero 0x3ae 03a6 e41c | | Load 0x2,0x1c 03a7 0092 0405 | | Action Push_String_Extended,0x405 ; "Restore_Identity" 03a9 00ea | | Load_Encached Null_String_Cache 03aa 00ea | | Load_Encached Null_String_Cache 03ab e007 | | Load 0x0,0x7 03ac 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03ad c41c | | Store 0x2,0x1c 03ae e415 | | Load 0x2,0x15 03af e006 | | Load 0x0,0x6 03b0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 03b1 e00d | | Load 0x0,0xd 03b2 180e | | Execute Package,Field_Execute,Field_Number 0xe 03b3 4803 |H | Short_Literal 0x3 03b4 0092 0406 | | Action Push_String_Extended,0x406 ; "End of Network_Copy" 03b6 e00e | | Load 0x0,0xe 03b7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03b8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03b9 ; -------------------------------------------------------------------------------------- 03b9 ; STRING TABLE 03b9 ; -------------------------------------------------------------------------------------- 03b9 009e | | .STRTAB 0x009e->0x0408 ; "NIL" 03ba 009f | | .STRTAB 0x009f->0x0409 ; "PAD" 03bb 00a0 | | .STRTAB 0x00a0->0x040b ; "TOOLS" 03bc 00a3 | | .STRTAB 0x00a3->0x040d ; "ENVIRONMENT" 03bd 00ac | | .STRTAB 0x00ac->0x0413 ; "NO_MAIL" 03be 00b1 | | .STRTAB 0x00b1->0x0416 ; "INSTALL" 03bf 00b6 | | .STRTAB 0x00b6->0x041a ; "INTERNAL" 03c0 00bc | | .STRTAB 0x00bc->0x041e ; "AWAIT_XFER" 03c1 00c4 | | .STRTAB 0x00c4->0x0423 ; "AWAIT_INSTALL" 03c2 00cf | | .STRTAB 0x00cf->0x0429 ; "VERBOSE" 03c3 00d4 | | .STRTAB 0x00d4->0x042d ; "MV" 03c4 00d4 | | .STRTAB 0x00d4->0x042e ; "DO_IT" 03c5 00d7 | | .STRTAB 0x00d7->0x0430 ; "LOCAL_USERNAME" 03c6 00e3 | | .STRTAB 0x00e3->0x0437 ; "LOCAL_PASSWORD" 03c7 00ef | | .STRTAB 0x00ef->0x043e ; "local_Username .. local_password => unspecified,others => Boolean" 03c8 012e | . | .STRTAB 0x012e->0x045f ; "Pad, " 03c9 0131 | 1 | .STRTAB 0x0131->0x0461 ; "$$" 03ca 0131 | 1 | .STRTAB 0x0131->0x0462 ; "." 03cb 0130 | 0 | .STRTAB 0x0130->0x0463 ; "!Machine.Release.Archive.Environment." 03cc 0153 | S | .STRTAB 0x0153->0x0475 ; "Tools => " 03cd 0162 | b | .STRTAB 0x0162->0x047e ; "Environment => " 03ce 0171 | q | .STRTAB 0x0171->0x0486 ; "No_Mail => " 03cf 0180 | | .STRTAB 0x0180->0x048f ; "Install => " 03d0 018f | | .STRTAB 0x018f->0x0497 ; "Internal => " 03d1 019e | | .STRTAB 0x019e->0x04a0 ; "Await_Xfer => " 03d2 01ad | | .STRTAB 0x01ad->0x04a8 ; "Await_Install => " 03d3 01bc | | .STRTAB 0x01bc->0x04b1 ; "Verbose => " 03d4 01cb | | .STRTAB 0x01cb->0x04b9 ; "MV => " 03d5 01da | | .STRTAB 0x01da->0x04c2 ; "Do_It => " 03d6 01e9 | | .STRTAB 0x01e9->0x04ca ; "Local_Username=> " 03d7 01f8 | | .STRTAB 0x01f8->0x04d3 ; "Abandoning NETWORK_COPY; Can't change local identity." 03d8 022b | + | .STRTAB 0x022b->0x04ed ; "Abandoning NETWORK_COPY: Can't set PRIVILEGED MODE." 03d9 025c | \ | .STRTAB 0x025c->0x0507 ; "<PROFILE>" 03da 0263 | c | .STRTAB 0x0263->0x050b ; "!Model.R1000" 03db 026d | m | .STRTAB 0x026d->0x0511 ; "$$.Logs" 03dc 0272 | r | .STRTAB 0x0272->0x0515 ; ":NET:MOE:UDD:WAW:RELEASE:" 03dd 0289 | | .STRTAB 0x0289->0x0521 ; "!!" 03de 0289 | | .STRTAB 0x0289->0x0522 ; "Segments" 03df 028f | | .STRTAB 0x028f->0x0526 ; "Copying " 03e0 0295 | | .STRTAB 0x0295->0x052a ; " code segments from " 03e1 02a7 | | .STRTAB 0x02a7->0x0534 ; "$$.Logs.Get_Xfer" 03e2 02b5 | | .STRTAB 0x02b5->0x053c ; "Loading code segments from " 03e3 02ce | | .STRTAB 0x02ce->0x054a ; ":No_Mail.xfer" 03e4 02d9 | | .STRTAB 0x02d9->0x0550 ; ":AE.xfer" 03e5 02df | | .STRTAB 0x02df->0x0554 ; "!Machine.Release.Environment." 03e6 02fa | | .STRTAB 0x02fa->0x0563 ; ".Lists.Release_Subs" 03e7 030b | | .STRTAB 0x030b->0x056c ; "<RELEASE>" 03e8 0312 | | .STRTAB 0x0312->0x0571 ; "'Check_Configuration (\x22" 03e9 0327 | ' | .STRTAB 0x0327->0x057c ; "\x22)' should be run when the release world has been restored." 03ea 0360 | ` | .STRTAB 0x0360->0x059a ; "Output => $$.Logs.Network_Copy_Code" 03eb 0381 | | .STRTAB 0x0381->0x05ab ; "\x22$$Load_Procs\x22.Network_Copy (Machine => \x22!!" 03ec 03ab | | .STRTAB 0x03ab->0x05c1 ; "\x22," 03ed 03ab | | .STRTAB 0x03ab->0x05c2 ; "Release => \x22" 03ee 03b6 | | .STRTAB 0x03b6->0x05c9 ; "Username => \x22" 03ef 03c1 | | .STRTAB 0x03c1->0x05cf ; "Password => \x22" 03f0 03cc | | .STRTAB 0x03cc->0x05d6 ; "Options => \x22DO_IT, " 03f1 03de | | .STRTAB 0x03de->0x05e0 ; "Response => \x22" 03f2 03e9 | | .STRTAB 0x03e9->0x05e6 ; "\x22);" 03f3 03ea | | .STRTAB 0x03ea->0x05e8 ; "Transfer of code segments has started as job" 03f4 0414 | | .STRTAB 0x0414->0x05fe ; "Installing " 03f5 041d | | .STRTAB 0x041d->0x0603 ; " release world from !!" 03f6 0431 | 1 | .STRTAB 0x0431->0x060e ; "$$.Logs.Network_Copy_Tools" 03f7 0449 | I | .STRTAB 0x0449->0x061b ; ".Internal" 03f8 0450 | P | .STRTAB 0x0450->0x0620 ; ".Release" 03f9 0456 | V | .STRTAB 0x0456->0x0624 ; "Changed_Objects, User=" 03fa 046a | j | .STRTAB 0x046a->0x062f ; ", " 03fb 046a | j | .STRTAB 0x046a->0x0630 ; "Pass=(" 03fc 046e | n | .STRTAB 0x046e->0x0633 ; ")" 03fd 046d | m | .STRTAB 0x046d->0x0633 ; "*" 03fe 046c | l | .STRTAB 0x046c->0x0634 ; "R1000, REPLACE, CHANGED_OBJECTS, PROMOTE" 03ff 0492 | | .STRTAB 0x0492->0x0648 ; "?" 0400 0491 | | .STRTAB 0x0491->0x0648 ; "Output => $$.Logs.Network_Copy_Install" 0401 04b5 | | .STRTAB 0x04b5->0x065b ; "Install_Product" 0402 04c2 | | .STRTAB 0x04c2->0x0663 ; "INSTALL_PRODUCT procedure has started as job" 0403 04ec | | .STRTAB 0x04ec->0x0679 ; "Waiting for completion of Code segment transfer." 0404 051a | | .STRTAB 0x051a->0x0691 ; "Waiting for completion of Install_Product." 0405 0542 | B | .STRTAB 0x0542->0x06a6 ; "Restore_Identity" 0406 0550 | P | .STRTAB 0x0550->0x06ae ; "End of Network_Copy" 0407 0561 | a | .STREND 0x0561->0x06b7 0408 4e49 4c50 |NILP| .STRTAB_STRINGS 06b8 ; -------------------------------------------------------------------------------------- 06b8 ; Debug Table 06b8 ; -------------------------------------------------------------------------------------- 06b8 0004 000e | | .DEBUG4 0x0004,0x000e,0x8884,0x0000,0x0001,0x0000 06be 4d51 4915 |MQI | .XXX[0x142] 06c0 0534 5c00 | 4\ | 06c2 6951 4905 |iQI | 06c4 394d 413d |9MA=| 06c6 4951 7d4d |IQ}M| 06c8 5149 1505 |QI | 06ca 34b9 4d51 |4 MQ| 06cc 4915 0535 |I 5| 06ce 7d25 1001 |}% | 06d0 f640 9400 | @ | 06d2 1925 4d7d | %M}| 06d4 3915 5c5c |9 \\| 06d6 0041 4d51 | AMQ| 06d8 0539 1105 | 9 | 06da 4910 b909 |I | 06dc 3d3d 3115 |==1 | 06de 0538 01fa | 8 | 06e0 408c 001d |@ | 06e2 3915 515d |9 Q]| 06e4 3d49 2c5c |=I,\| 06e6 006d 5149 | mQI| 06e8 0539 4d41 | 9MA| 06ea 3d49 517d |=IQ}| 06ec 1115 194c | L| 06ee b939 1551 | 9 Q| 06f0 5d3d 492d |]=I-| 06f2 7d39 0535 |}9 5| 06f4 1401 fa40 | @| 06f6 8c00 1121 | !| 06f8 3d4d 505c |=MP\| 06fa 0059 5149 | YQI| 06fc 0539 4d41 | 9MA| 06fe 3d49 517d |=IQ}| 0700 1115 194c | L| 0702 b921 3d4d | !=M| 0704 517d 2510 |Q}% | 0706 01fa 408c | @ | 0708 0019 4d3d | M=| 070a 0d2d 1550 | - P| 070c 5c00 6151 |\ aQ| 070e 4905 394d |I 9M| 0710 413d 4951 |A=IQ| 0712 7d11 1519 |} | 0714 4cb9 4d3d |L M=| 0716 0d2d 1551 | - Q| 0718 7d25 1000 |}% | 071a 000c 0000 | | 071c 0850 002d | P -| 071e 2539 5115 |%9Q | 0720 490d 2105 |I ! | 0722 391d 1408 |9 | 0724 0000 0010 | | 0726 000c 0021 | !| 0728 27a8 0064 |' d| 072a 0048 0004 | H | 072c 0000 0000 | | 072e 009c 0008 | | 0730 0004 0004 | | 0732 0034 000c | 4 | 0734 0004 0004 | | 0736 0038 0010 | 8 | 0738 0004 0004 | | 073a 003c 0014 | < | 073c 0004 0004 | | 073e 0040 0018 | @ | 0740 0004 0004 | | 0742 0044 001c | D | 0744 0004 0004 | | 0746 0048 0020 | H | 0748 0004 0004 | | 074a 004c 0024 | L $| 074c 0004 0004 | | 074e 0050 0028 | P (| 0750 0004 0004 | | 0752 0054 002c | T ,| 0754 0004 0004 | | 0756 0058 0030 | X 0| 0758 0004 0004 | | 075a 005c 0034 | \ 4| 075c 0004 0004 | | 075e 0060 0038 | ` 8| 0760 0004 0004 | | 0762 0064 003c | d <| 0764 0004 0004 | | 0766 0068 0040 | h @| 0768 0004 0004 | | 076a 006c 0044 | l D| 076c 0004 0004 | | 076e 0070 0048 | p H| 0770 0004 0004 | | 0772 0074 004c | t L| 0774 0004 0004 | | 0776 0078 0050 | x P| 0778 0004 0004 | | 077a 007c 0054 | | T| 077c 0004 0004 | | 077e 0080 0058 | X| 0780 0004 0004 | | 0782 0084 005c | \| 0784 0004 0004 | | 0786 0088 0060 | `| 0788 0004 0004 | | 078a 008c 0064 | d| 078c 0004 0004 | | 078e 0090 0068 | h| 0790 0004 0004 | | 0792 0094 006c | l| 0794 0004 0000 | | 0796 00b0 006c | l| 0798 0004 0004 | | 079a 0098 006c | l| 079c 0000 0000 | | 079e 00b0 0070 | p| 07a0 006c 0004 | l | 07a2 0048 0074 | H t| 07a4 006c 0004 | l | 07a6 004c 0078 | L x| 07a8 006c 0004 | l | 07aa 0050 007c | P || 07ac 006c 0004 | l | 07ae 0054 0080 | T | 07b0 006c 0004 | l | 07b2 0058 0084 | X | 07b4 006c 0004 | l | 07b6 005c 0088 | \ | 07b8 006c 0004 | l | 07ba 0060 008c | ` | 07bc 006c 0004 | l | 07be 0064 0090 | d | 07c0 006c 0004 | l | 07c2 0068 0094 | h | 07c4 006c 0004 | l | 07c6 006c 0098 | l | 07c8 006c 0004 | l | 07ca 0070 009c | p | 07cc 006c 0004 | l | 07ce 0074 00a0 | t | 07d0 006c 0004 | l | 07d2 0078 00a4 | x | 07d4 006c 0004 | l | 07d6 007c 00a8 | | | 07d8 006c 0004 | l | 07da 0080 00ac | | 07dc 006c 0004 | l | 07de 0084 00b0 | | 07e0 006c 0004 | l | 07e2 0088 00b4 | | 07e4 006c 0004 | l | 07e6 008c 00b8 | | 07e8 006c 0004 | l | 07ea 0090 00bc | | 07ec 006c 0004 | l | 07ee 0094 00c0 | | 07f0 006c 0004 | l | 07f2 0098 00c4 | | 07f4 006c 0004 | l | 07f6 009c 00c8 | | 07f8 006c 0004 | l | 07fa 00a0 00cc | | 07fc 006c 0004 | l | 07fe 00a4 00d0 | |