|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0bf8df
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0708 | | .CONST 0x0708 ; 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 8004 | | .CONST 0x8004 ; 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 0101 | | .CONST 0x0101 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0028 | ( | .CONST 0x0028 ; 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 480e |H | Short_Literal 0xe 0021 029f 0363 | c| Declare_Subprogram INIT_0360,For_Call 0023 03fd | | Declare_Type Discrete,Defined 0024 e002 | | Load 0x0,0x2 0025 e003 | | Load 0x0,0x3 0026 00da | | Load_Top At_Offset_2 0027 4800 |H | Short_Literal 0x0 0028 4801 |H | Short_Literal 0x1 0029 480e |H | Short_Literal 0xe 002a 0092 03b0 | | Action Push_String_Extended,0x3b0 ; "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 480e |H | Short_Literal 0xe 0030 e004 | | Load 0x0,0x4 0031 0387 | | Declare_Variable Package 0032 00d8 | | Load_Top At_Offset_0 0033 020f | | Execute Module,Activate 0034 0092 03b1 | | Action Push_String_Extended,0x3b1 ; "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 4801 |H | Short_Literal 0x1 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 4807 |H | Short_Literal 0x7 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 4801 |H | Short_Literal 0x1 0057 4806 |H | Short_Literal 0x6 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 4800 |H | Short_Literal 0x0 005e 480b |H | Short_Literal 0xb 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 00da | | Load_Top At_Offset_2 0065 4804 |H | Short_Literal 0x4 0066 e405 | | Load 0x2,0x5 0067 e404 | | Load 0x2,0x4 0068 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0069 00e1 | | Load_Encached Boolean_Cache 006a 03f1 | | Declare_Variable Discrete,With_Value 006b e407 | | Load 0x2,0x7 006c 6806 |h | Jump_Zero 0x73 006d 4801 |H | Short_Literal 0x1 006e 4808 |H | Short_Literal 0x8 006f e405 | | Load 0x2,0x5 0070 e404 | | Load 0x2,0x4 0071 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0072 7801 |x | Jump 0x74 0073 4800 |H | Short_Literal 0x0 0074 00e1 | | Load_Encached Boolean_Cache 0075 03f1 | | Declare_Variable Discrete,With_Value 0076 e408 | | Load 0x2,0x8 0077 6806 |h | Jump_Zero 0x7e 0078 4801 |H | Short_Literal 0x1 0079 4809 |H | Short_Literal 0x9 007a e405 | | Load 0x2,0x5 007b e404 | | Load 0x2,0x4 007c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 007d 7801 |x | Jump 0x7f 007e 4800 |H | Short_Literal 0x0 007f 00e1 | | Load_Encached Boolean_Cache 0080 03f1 | | Declare_Variable Discrete,With_Value 0081 4800 |H | Short_Literal 0x0 0082 480a |H | Short_Literal 0xa 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 4800 |H | Short_Literal 0x0 0089 480c |H | Short_Literal 0xc 008a e405 | | Load 0x2,0x5 008b e404 | | Load 0x2,0x4 008c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 008d 00e1 | | Load_Encached Boolean_Cache 008e 03f1 | | Declare_Variable Discrete,With_Value 008f 00ea | | Load_Encached Null_String_Cache 0090 480d |H | Short_Literal 0xd 0091 e405 | | Load 0x2,0x5 0092 e404 | | Load 0x2,0x4 0093 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0094 00ea | | Load_Encached Null_String_Cache 0095 480e |H | Short_Literal 0xe 0096 e405 | | Load 0x2,0x5 0097 e404 | | Load 0x2,0x4 0098 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0099 e5ff | | Load 0x2,-0x1 009a 8005 | | Call 0x0,0x5 009b e006 | | Load 0x0,0x6 009c 1819 | | Execute Package,Field_Execute,Field_Number 0x19 009d e006 | | Load 0x0,0x6 009e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 009f e5fd | | Load 0x2,-0x3 00a0 00da | | Load_Top At_Offset_2 00a1 8007 | | Call 0x0,0x7 00a2 00ea | | Load_Encached Null_String_Cache 00a3 e5fc | | Load 0x2,-0x4 00a4 00db | | Load_Top At_Offset_3 00a5 8008 | | Call 0x0,0x8 00a6 e402 | | Load 0x2,0x2 00a7 0007 | | Action Break_Optional 00a8 00d8 | | Load_Top At_Offset_0 00a9 0007 | | Action Break_Optional 00aa e009 | | Load 0x0,0x9 00ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ac e009 | | Load 0x0,0x9 00ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ae e009 | | Load 0x0,0x9 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 e009 | | Load 0x0,0x9 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 e009 | | Load 0x0,0x9 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 800a | | Call 0x0,0xa 00bf 6298 |b | Indirect_Literal Discrete,0x358,{0x00000000, 0x00004000} 00c0 e00b | | Load 0x0,0xb 00c1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c2 e00c | | Load 0x0,0xc 00c3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00c4 e00d | | Load 0x0,0xd 00c5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00c6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00c7 0092 03b2 | | Action Push_String_Extended,0x3b2 ; "$$" 00c9 e00d | | Load 0x0,0xd 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 03b3 | | Action Push_String_Extended,0x3b3 ; "." 00cf 01cc | | Execute Vector,Catenate 00d0 0007 | | Action Break_Optional 00d1 0092 03b4 | | Action Push_String_Extended,0x3b4 ; "!Machine.Release.Archive.Environment." 00d3 00db | | Load_Top At_Offset_3 00d4 01cc | | Execute Vector,Catenate 00d5 0092 03b3 | | Action Push_String_Extended,0x3b3 ; "." 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 e00e | | Load 0x0,0xe 00de 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00df e00e | | Load 0x0,0xe 00e0 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00e1 01ca | | Execute Vector,Prepend 00e2 0007 | | Action Break_Optional 00e3 e00f | | Load 0x0,0xf 00e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e5 02c7 | | Declare_Variable Any 00e6 e00f | | Load 0x0,0xf 00e7 180e | | Execute Package,Field_Execute,Field_Number 0xe 00e8 a422 | " | Store_Unchecked 0x2,0x22 00e9 e00f | | Load 0x0,0xf 00ea 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00eb 02c7 | | Declare_Variable Any 00ec 0092 03b5 | | Action Push_String_Extended,0x3b5 ; "Persevere, Prefix=(Hr_Mn_Sc, Symbols),:::|---|+++|>>>|++*|!!!|***|%%%, Activity = !Machine.Release.Current.Activity" 00ee e00f | | Load 0x0,0xf 00ef 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 00f0 a423 | # | Store_Unchecked 0x2,0x23 00f1 e00f | | Load 0x0,0xf 00f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f3 02c7 | | Declare_Variable Any 00f4 0092 03b6 | | Action Push_String_Extended,0x3b6 ; "Prefix=(Yr_Mn_Dy, Hr_Mn_Sc, Symbols), :::|---|+++|>>>|++*|!!!|***|%%%" 00f6 e00f | | Load 0x0,0xf 00f7 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 00f8 a424 | $ | Store_Unchecked 0x2,0x24 00f9 e010 | | Load 0x0,0x10 00fa 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00fb 0092 03b7 | | Action Push_String_Extended,0x3b7 ; "Code Segment Transfer" 00fd e006 | | Load 0x0,0x6 00fe 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 00ff 029f 038b | | Declare_Subprogram INIT_0388,For_Call 0101 BODY_0018: 0101 e424 | $ | Load 0x2,0x24 0102 e00f | | Load 0x0,0xf 0103 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0104 e00f | | Load 0x0,0xf 0105 180e | | Execute Package,Field_Execute,Field_Number 0xe 0106 4800 |H | Short_Literal 0x0 0107 0092 03b8 | | Action Push_String_Extended,0x3b8 ; "[Network_Install (Machine => \x22" 0109 e5ff | | Load 0x2,-0x1 010a 01cc | | Execute Vector,Catenate 010b 0092 03b9 | | Action Push_String_Extended,0x3b9 ; "\x22, Release => \x22" 010d 01cc | | Execute Vector,Catenate 010e e5fe | | Load 0x2,-0x2 010f 01cc | | Execute Vector,Catenate 0110 0092 03ba | | Action Push_String_Extended,0x3ba ; "\x22);" 0112 01cc | | Execute Vector,Catenate 0113 e011 | | Load 0x0,0x11 0114 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0115 00cf | | Action Mark_Auxiliary 0116 7814 |x | Jump 0x12b 0117 4800 |H | Short_Literal 0x0 0118 e405 | | Load 0x2,0x5 0119 e404 | | Load 0x2,0x4 011a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 011b 700a |p | Jump_Nonzero 0x126 011c e00f | | Load 0x0,0xf 011d 180e | | Execute Package,Field_Execute,Field_Number 0xe 011e 4807 |H | Short_Literal 0x7 011f 4800 |H | Short_Literal 0x0 0120 e405 | | Load 0x2,0x5 0121 e404 | | Load 0x2,0x4 0122 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0123 e011 | | Load 0x0,0x11 0124 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0125 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0126 e405 | | Load 0x2,0x5 0127 e404 | | Load 0x2,0x4 0128 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0129 c405 | | Store 0x2,0x5 012a 00c9 | | Action Pop_Auxiliary_Loop 012b e405 | | Load 0x2,0x5 012c e404 | | Load 0x2,0x4 012d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 012e 77e8 |w | Jump_Nonzero 0x117 012f 00ce | | Action Pop_Auxiliary 0130 e40f | | Load 0x2,0xf 0131 6845 |hE | Jump_Zero 0x177 0132 e00f | | Load 0x0,0xf 0133 180e | | Execute Package,Field_Execute,Field_Number 0xe 0134 4802 |H | Short_Literal 0x2 0135 0092 03bb | | Action Push_String_Extended,0x3bb ; "Tools => " 0137 e406 | | Load 0x2,0x6 0138 00e1 | | Load_Encached Boolean_Cache 0139 011c | | Execute Any,Convert_Unchecked 013a 1c01 | | Execute_Immediate Run_Utility,0x1 013b 01cc | | Execute Vector,Catenate 013c e011 | | Load 0x0,0x11 013d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 013e e00f | | Load 0x0,0xf 013f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0140 4802 |H | Short_Literal 0x2 0141 0092 03bc | | Action Push_String_Extended,0x3bc ; "Environment => " 0143 e407 | | Load 0x2,0x7 0144 00e1 | | Load_Encached Boolean_Cache 0145 011c | | Execute Any,Convert_Unchecked 0146 1c01 | | Execute_Immediate Run_Utility,0x1 0147 01cc | | Execute Vector,Catenate 0148 e011 | | Load 0x0,0x11 0149 1813 | | Execute Package,Field_Execute,Field_Number 0x13 014a e00f | | Load 0x0,0xf 014b 180e | | Execute Package,Field_Execute,Field_Number 0xe 014c 4802 |H | Short_Literal 0x2 014d 0092 03bd | | Action Push_String_Extended,0x3bd ; "Install => " 014f e408 | | Load 0x2,0x8 0150 00e1 | | Load_Encached Boolean_Cache 0151 011c | | Execute Any,Convert_Unchecked 0152 1c01 | | Execute_Immediate Run_Utility,0x1 0153 01cc | | Execute Vector,Catenate 0154 e011 | | Load 0x0,0x11 0155 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0156 e00f | | Load 0x0,0xf 0157 180e | | Execute Package,Field_Execute,Field_Number 0xe 0158 4802 |H | Short_Literal 0x2 0159 0092 03be | | Action Push_String_Extended,0x3be ; "Internal => " 015b e409 | | Load 0x2,0x9 015c 00e1 | | Load_Encached Boolean_Cache 015d 011c | | Execute Any,Convert_Unchecked 015e 1c01 | | Execute_Immediate Run_Utility,0x1 015f 01cc | | Execute Vector,Catenate 0160 e011 | | Load 0x0,0x11 0161 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0162 e00f | | Load 0x0,0xf 0163 180e | | Execute Package,Field_Execute,Field_Number 0xe 0164 4802 |H | Short_Literal 0x2 0165 0092 03bf | | Action Push_String_Extended,0x3bf ; "Verbose => " 0167 e40f | | Load 0x2,0xf 0168 00e1 | | Load_Encached Boolean_Cache 0169 011c | | Execute Any,Convert_Unchecked 016a 1c01 | | Execute_Immediate Run_Utility,0x1 016b 01cc | | Execute Vector,Catenate 016c e011 | | Load 0x0,0x11 016d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 016e e00f | | Load 0x0,0xf 016f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0170 4802 |H | Short_Literal 0x2 0171 0092 03c0 | | Action Push_String_Extended,0x3c0 ; "Local_Username=> " 0173 e414 | | Load 0x2,0x14 0174 01cc | | Execute Vector,Catenate 0175 e011 | | Load 0x0,0x11 0176 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0177 e411 | | Load 0x2,0x11 0178 01db | | Execute Vector,Length 0179 6819 |h | Jump_Zero 0x193 017a e41c | | Load 0x2,0x1c 017b 00ea | | Load_Encached Null_String_Cache 017c e412 | | Load 0x2,0x12 017d e411 | | Load 0x2,0x11 017e e009 | | Load 0x0,0x9 017f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0180 c41c | | Store 0x2,0x1c 0181 4801 |H | Short_Literal 0x1 0182 e41c | | Load 0x2,0x1c 0183 e012 | | Load 0x0,0x12 0184 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0185 680d |h | Jump_Zero 0x193 0186 e00f | | Load 0x0,0xf 0187 180e | | Execute Package,Field_Execute,Field_Number 0xe 0188 4805 |H | Short_Literal 0x5 0189 0092 03c1 | | Action Push_String_Extended,0x3c1 ; "Abandoning NETWORK_INSTALL; Can't change local identity." 018b e011 | | Load 0x0,0x11 018c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 018d e00f | | Load 0x0,0xf 018e 180e | | Execute Package,Field_Execute,Field_Number 0xe 018f e41c | | Load 0x2,0x1c 0190 e011 | | Load 0x0,0x11 0191 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0192 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0193 4801 |H | Short_Literal 0x1 0194 e010 | | Load 0x0,0x10 0195 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0196 e010 | | Load 0x0,0x10 0197 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0198 7008 |p | Jump_Nonzero 0x1a1 0199 e00f | | Load 0x0,0xf 019a 180e | | Execute Package,Field_Execute,Field_Number 0xe 019b 4805 |H | Short_Literal 0x5 019c 0092 03c2 | | Action Push_String_Extended,0x3c2 ; "Abandoning NETWORK_INSTALL: Can't set PRIVILEGED MODE." 019e e011 | | Load 0x0,0x11 019f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01a0 4506 |E | Exit_Suprogram New_Top_Offset 0x6 01a1 e41f | | Load 0x2,0x1f 01a2 8013 | | Call 0x0,0x13 01a3 7009 |p | Jump_Nonzero 0x1ad 01a4 0092 03c3 | | Action Push_String_Extended,0x3c3 ; "<PROFILE>" 01a6 0092 03c4 | | Action Push_String_Extended,0x3c4 ; "!Model.R1000" 01a8 4800 |H | Short_Literal 0x0 01a9 4800 |H | Short_Literal 0x0 01aa e41e | | Load 0x2,0x1e 01ab e014 | | Load 0x0,0x14 01ac 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01ad 0092 03c5 | | Action Push_String_Extended,0x3c5 ; "<ERRORS>" 01af e41f | | Load 0x2,0x1f 01b0 e014 | | Load 0x0,0x14 01b1 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01b2 0092 03c6 | | Action Push_String_Extended,0x3c6 ; "$$.Logs" 01b4 8013 | | Call 0x0,0x13 01b5 7009 |p | Jump_Nonzero 0x1bf 01b6 0092 03c5 | | Action Push_String_Extended,0x3c5 ; "<ERRORS>" 01b8 00ea | | Load_Encached Null_String_Cache 01b9 4800 |H | Short_Literal 0x0 01ba 4801 |H | Short_Literal 0x1 01bb 0092 03c6 | | Action Push_String_Extended,0x3c6 ; "$$.Logs" 01bd e014 | | Load 0x0,0x14 01be 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 01bf e407 | | Load 0x2,0x7 01c0 68c1 |h | Jump_Zero 0x282 01c1 e410 | | Load 0x2,0x10 01c2 7006 |p | Jump_Nonzero 0x1c9 01c3 e408 | | Load 0x2,0x8 01c4 7002 |p | Jump_Nonzero 0x1c7 01c5 e406 | | Load 0x2,0x6 01c6 7801 |x | Jump 0x1c8 01c7 4801 |H | Short_Literal 0x1 01c8 7061 |pa | Jump_Nonzero 0x22a 01c9 e40b | | Load 0x2,0xb 01ca 6808 |h | Jump_Zero 0x1d3 01cb 0092 03c7 | | Action Push_String_Extended,0x3c7 ; ":NET:MOE:UDD:WAW:RELEASE:" 01cd e41d | | Load 0x2,0x1d 01ce 01cc | | Execute Vector,Catenate 01cf e402 | | Load 0x2,0x2 01d0 03b6 | | Declare_Variable Access,By_Allocation,With_Value 01d1 a417 | | Store_Unchecked 0x2,0x17 01d2 780c |x | Jump 0x1df 01d3 0092 03c8 | | Action Push_String_Extended,0x3c8 ; "!!" 01d5 e413 | | Load 0x2,0x13 01d6 01cc | | Execute Vector,Catenate 01d7 e420 | | Load 0x2,0x20 01d8 01cc | | Execute Vector,Catenate 01d9 0092 03c9 | | Action Push_String_Extended,0x3c9 ; "Segments" 01db 01cc | | Execute Vector,Catenate 01dc e402 | | Load 0x2,0x2 01dd 03b6 | | Declare_Variable Access,By_Allocation,With_Value 01de a417 | | Store_Unchecked 0x2,0x17 01df e00f | | Load 0x0,0xf 01e0 180e | | Execute Package,Field_Execute,Field_Number 0xe 01e1 4803 |H | Short_Literal 0x3 01e2 0092 03ca | | Action Push_String_Extended,0x3ca ; "Copying " 01e4 e41d | | Load 0x2,0x1d 01e5 01cc | | Execute Vector,Catenate 01e6 0092 03cb | | Action Push_String_Extended,0x3cb ; " code segments from " 01e8 01cc | | Execute Vector,Catenate 01e9 e417 | | Load 0x2,0x17 01ea 0227 | ' | Execute Access,All_Reference 01eb 01cc | | Execute Vector,Catenate 01ec e011 | | Load 0x0,0x11 01ed 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01ee e423 | # | Load 0x2,0x23 01ef e00f | | Load 0x0,0xf 01f0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01f1 0092 03cc | | Action Push_String_Extended,0x3cc ; "$$.Logs.Get_Xfer" 01f3 e421 | ! | Load 0x2,0x21 01f4 01cc | | Execute Vector,Catenate 01f5 e011 | | Load 0x0,0x11 01f6 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01f7 e00f | | Load 0x0,0xf 01f8 180e | | Execute Package,Field_Execute,Field_Number 0xe 01f9 4802 |H | Short_Literal 0x2 01fa 0092 03cd | | Action Push_String_Extended,0x3cd ; "Loading code segments from " 01fc e417 | | Load 0x2,0x17 01fd 0227 | ' | Execute Access,All_Reference 01fe 01cc | | Execute Vector,Catenate 01ff e011 | | Load 0x0,0x11 0200 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0201 e40c | | Load 0x2,0xc 0202 6809 |h | Jump_Zero 0x20c 0203 e417 | | Load 0x2,0x17 0204 0227 | ' | Execute Access,All_Reference 0205 0092 03ce | | Action Push_String_Extended,0x3ce ; ":No_Mail.xfer" 0207 01cc | | Execute Vector,Catenate 0208 e402 | | Load 0x2,0x2 0209 03b6 | | Declare_Variable Access,By_Allocation,With_Value 020a a417 | | Store_Unchecked 0x2,0x17 020b 7808 |x | Jump 0x214 020c e417 | | Load 0x2,0x17 020d 0227 | ' | Execute Access,All_Reference 020e 0092 03cf | | Action Push_String_Extended,0x3cf ; ":AE.xfer" 0210 01cc | | Execute Vector,Catenate 0211 e402 | | Load 0x2,0x2 0212 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0213 a417 | | Store_Unchecked 0x2,0x17 0214 e40f | | Load 0x2,0xf 0215 e415 | | Load 0x2,0x15 0216 e414 | | Load 0x2,0x14 0217 e417 | | Load 0x2,0x17 0218 0227 | ' | Execute Access,All_Reference 0219 8015 | | Call 0x0,0x15 021a e00f | | Load 0x0,0xf 021b 180e | | Execute Package,Field_Execute,Field_Number 0xe 021c e00f | | Load 0x0,0xf 021d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 021e e011 | | Load 0x0,0x11 021f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0220 e424 | $ | Load 0x2,0x24 0221 e00f | | Load 0x0,0xf 0222 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0223 0092 03cc | | Action Push_String_Extended,0x3cc ; "$$.Logs.Get_Xfer" 0225 e421 | ! | Load 0x2,0x21 0226 01cc | | Execute Vector,Catenate 0227 8016 | | Call 0x0,0x16 0228 8428 | ( | Call 0x2,0x28 0229 4506 |E | Exit_Suprogram New_Top_Offset 0x6 022a e41a | | Load 0x2,0x1a 022b e009 | | Load 0x0,0x9 022c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 022d 0092 03c3 | | Action Push_String_Extended,0x3c3 ; "<PROFILE>" 022f 0092 03d0 | | Action Push_String_Extended,0x3d0 ; "Output => $$.Logs.Network_Install_Code" 0231 e421 | ! | Load 0x2,0x21 0232 01cc | | Execute Vector,Catenate 0233 4800 |H | Short_Literal 0x0 0234 e41f | | Load 0x2,0x1f 0235 4800 |H | Short_Literal 0x0 0236 0092 03d1 | | Action Push_String_Extended,0x3d1 ; "\x22$$Load_Procs\x22.Network_Install (Machine => \x22!!" 0238 e413 | | Load 0x2,0x13 0239 01cc | | Execute Vector,Catenate 023a 0092 03d2 | | Action Push_String_Extended,0x3d2 ; "\x22," 023c 01cc | | Execute Vector,Catenate 023d 0092 03d3 | | Action Push_String_Extended,0x3d3 ; "Release => \x22" 023f 01cc | | Execute Vector,Catenate 0240 e41d | | Load 0x2,0x1d 0241 01cc | | Execute Vector,Catenate 0242 0092 03d2 | | Action Push_String_Extended,0x3d2 ; "\x22," 0244 01cc | | Execute Vector,Catenate 0245 0092 03d4 | | Action Push_String_Extended,0x3d4 ; "Username => \x22" 0247 01cc | | Execute Vector,Catenate 0248 e414 | | Load 0x2,0x14 0249 01cc | | Execute Vector,Catenate 024a 0092 03d2 | | Action Push_String_Extended,0x3d2 ; "\x22," 024c 01cc | | Execute Vector,Catenate 024d 0092 03d5 | | Action Push_String_Extended,0x3d5 ; "Password => \x22" 024f 01cc | | Execute Vector,Catenate 0250 e415 | | Load 0x2,0x15 0251 01cc | | Execute Vector,Catenate 0252 0092 03d2 | | Action Push_String_Extended,0x3d2 ; "\x22," 0254 01cc | | Execute Vector,Catenate 0255 0092 03d6 | | Action Push_String_Extended,0x3d6 ; "Options => \x22DO_IT, " 0257 01cc | | Execute Vector,Catenate 0258 e5fb | | Load 0x2,-0x5 0259 01cc | | Execute Vector,Catenate 025a 0092 03ba | | Action Push_String_Extended,0x3ba ; "\x22);" 025c 01cc | | Execute Vector,Catenate 025d e009 | | Load 0x0,0x9 025e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 025f c418 | | Store 0x2,0x18 0260 c41a | | Store 0x2,0x1a 0261 e41a | | Load 0x2,0x1a 0262 e009 | | Load 0x0,0x9 0263 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0264 6818 |h | Jump_Zero 0x27d 0265 e00f | | Load 0x0,0xf 0266 180e | | Execute Package,Field_Execute,Field_Number 0xe 0267 4803 |H | Short_Literal 0x3 0268 0092 03d7 | | Action Push_String_Extended,0x3d7 ; "Transfer of code segments has started as job" 026a e418 | | Load 0x2,0x18 026b 00e0 | | Load_Encached Standard_Cache 026c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 026d 01cc | | Execute Vector,Catenate 026e e011 | | Load 0x0,0x11 026f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0270 00da | | Load_Top At_Offset_2 0271 e418 | | Load 0x2,0x18 0272 e017 | | Load 0x0,0x17 0273 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0274 e406 | | Load 0x2,0x6 0275 700c |p | Jump_Nonzero 0x282 0276 e40d | | Load 0x2,0xd 0277 700a |p | Jump_Nonzero 0x282 0278 e40e | | Load 0x2,0xe 0279 7008 |p | Jump_Nonzero 0x282 027a 60d9 |` | Indirect_Literal Discrete,0x354,{0x00000000, 0x000f0000} 027b 00ba | | Action Initiate_Delay 027c 7805 |x | Jump 0x282 027d e00f | | Load 0x0,0xf 027e 180e | | Execute Package,Field_Execute,Field_Number 0xe 027f e41a | | Load 0x2,0x1a 0280 e011 | | Load 0x0,0x11 0281 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0282 e406 | | Load 0x2,0x6 0283 68a0 |h | Jump_Zero 0x324 0284 e00f | | Load 0x0,0xf 0285 180e | | Execute Package,Field_Execute,Field_Number 0xe 0286 4803 |H | Short_Literal 0x3 0287 0092 03d8 | | Action Push_String_Extended,0x3d8 ; "Installing " 0289 e41d | | Load 0x2,0x1d 028a 01cc | | Execute Vector,Catenate 028b 0092 03d9 | | Action Push_String_Extended,0x3d9 ; " release world from !!" 028d 01cc | | Execute Vector,Catenate 028e e413 | | Load 0x2,0x13 028f 01cc | | Execute Vector,Catenate 0290 e011 | | Load 0x0,0x11 0291 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0292 0092 03da | | Action Push_String_Extended,0x3da ; "$$.Logs.Network_Install_Tools" 0294 e421 | ! | Load 0x2,0x21 0295 01cc | | Execute Vector,Catenate 0296 e011 | | Load 0x0,0x11 0297 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0298 e409 | | Load 0x2,0x9 0299 680b |h | Jump_Zero 0x2a5 029a 0092 03b4 | | Action Push_String_Extended,0x3b4 ; "!Machine.Release.Archive.Environment." 029c e41d | | Load 0x2,0x1d 029d 01cc | | Execute Vector,Catenate 029e 0092 03db | | Action Push_String_Extended,0x3db ; ".[Release, Internal]" 02a0 01cc | | Execute Vector,Catenate 02a1 e402 | | Load 0x2,0x2 02a2 03b6 | | Declare_Variable Access,By_Allocation,With_Value 02a3 a416 | | Store_Unchecked 0x2,0x16 02a4 780a |x | Jump 0x2af 02a5 0092 03b4 | | Action Push_String_Extended,0x3b4 ; "!Machine.Release.Archive.Environment." 02a7 e41d | | Load 0x2,0x1d 02a8 01cc | | Execute Vector,Catenate 02a9 0092 03dc | | Action Push_String_Extended,0x3dc ; ".Release" 02ab 01cc | | Execute Vector,Catenate 02ac e402 | | Load 0x2,0x2 02ad 03b6 | | Declare_Variable Access,By_Allocation,With_Value 02ae a416 | | Store_Unchecked 0x2,0x16 02af 0092 03c3 | | Action Push_String_Extended,0x3c3 ; "<PROFILE>" 02b1 0092 03dd | | Action Push_String_Extended,0x3dd ; "Changed_Objects, User=" 02b3 e414 | | Load 0x2,0x14 02b4 01cc | | Execute Vector,Catenate 02b5 0092 03de | | Action Push_String_Extended,0x3de ; ", " 02b7 01cc | | Execute Vector,Catenate 02b8 0092 03df | | Action Push_String_Extended,0x3df ; "Pass=(" 02ba 01cc | | Execute Vector,Catenate 02bb e415 | | Load 0x2,0x15 02bc 01cc | | Execute Vector,Catenate 02bd 0092 03e0 | | Action Push_String_Extended,0x3e0 ; ")" 02bf 01cc | | Execute Vector,Catenate 02c0 0092 03e1 | | Action Push_String_Extended,0x3e1 ; "*" 02c2 0092 03e1 | | Action Push_String_Extended,0x3e1 ; "*" 02c4 0092 03c8 | | Action Push_String_Extended,0x3c8 ; "!!" 02c6 e413 | | Load 0x2,0x13 02c7 01cc | | Execute Vector,Catenate 02c8 e416 | | Load 0x2,0x16 02c9 0227 | ' | Execute Access,All_Reference 02ca 01cc | | Execute Vector,Catenate 02cb e018 | | Load 0x0,0x18 02cc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02cd 0092 03c3 | | Action Push_String_Extended,0x3c3 ; "<PROFILE>" 02cf 0092 03b4 | | Action Push_String_Extended,0x3b4 ; "!Machine.Release.Archive.Environment." 02d1 e41d | | Load 0x2,0x1d 02d2 01cc | | Execute Vector,Catenate 02d3 0092 03dc | | Action Push_String_Extended,0x3dc ; ".Release" 02d5 01cc | | Execute Vector,Catenate 02d6 0092 03e2 | | Action Push_String_Extended,0x3e2 ; "R1000, REPLACE, CHANGED_OBJECTS, PROMOTE" 02d8 0092 03e1 | | Action Push_String_Extended,0x3e1 ; "*" 02da 0092 03e1 | | Action Push_String_Extended,0x3e1 ; "*" 02dc 0092 03e3 | | Action Push_String_Extended,0x3e3 ; "?" 02de e018 | | Load 0x0,0x18 02df 180e | | Execute Package,Field_Execute,Field_Number 0xe 02e0 e409 | | Load 0x2,0x9 02e1 6813 |h | Jump_Zero 0x2f5 02e2 0092 03c3 | | Action Push_String_Extended,0x3c3 ; "<PROFILE>" 02e4 0092 03b4 | | Action Push_String_Extended,0x3b4 ; "!Machine.Release.Archive.Environment." 02e6 e41d | | Load 0x2,0x1d 02e7 01cc | | Execute Vector,Catenate 02e8 0092 03e4 | | Action Push_String_Extended,0x3e4 ; ".Internal" 02ea 01cc | | Execute Vector,Catenate 02eb 0092 03e2 | | Action Push_String_Extended,0x3e2 ; "R1000, REPLACE, CHANGED_OBJECTS, PROMOTE" 02ed 0092 03e1 | | Action Push_String_Extended,0x3e1 ; "*" 02ef 0092 03e1 | | Action Push_String_Extended,0x3e1 ; "*" 02f1 0092 03e3 | | Action Push_String_Extended,0x3e3 ; "?" 02f3 e018 | | Load 0x0,0x18 02f4 180e | | Execute Package,Field_Execute,Field_Number 0xe 02f5 e40a | | Load 0x2,0xa 02f6 6822 |h" | Jump_Zero 0x319 02f7 4800 |H | Short_Literal 0x0 02f8 0092 03e5 | | Action Push_String_Extended,0x3e5 ; "D_12_6_4" 02fa 00db | | Load_Top At_Offset_3 02fb e019 | | Load 0x0,0x19 02fc 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 02fd 6814 |h | Jump_Zero 0x312 02fe 0092 03c3 | | Action Push_String_Extended,0x3c3 ; "<PROFILE>" 0300 0092 03e6 | | Action Push_String_Extended,0x3e6 ; "Replace, Remake" 0302 0092 03e1 | | Action Push_String_Extended,0x3e1 ; "*" 0304 0092 03e1 | | Action Push_String_Extended,0x3e1 ; "*" 0306 0092 03c8 | | Action Push_String_Extended,0x3c8 ; "!!" 0308 e413 | | Load 0x2,0x13 0309 01cc | | Execute Vector,Catenate 030a e420 | | Load 0x2,0x20 030b 01cc | | Execute Vector,Catenate 030c 0092 03e7 | | Action Push_String_Extended,0x3e7 ; "Dfs_Image" 030e 01cc | | Execute Vector,Catenate 030f e018 | | Load 0x0,0x18 0310 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0311 7807 |x | Jump 0x319 0312 e00f | | Load 0x0,0xf 0313 180e | | Execute Package,Field_Execute,Field_Number 0xe 0314 4806 |H | Short_Literal 0x6 0315 0092 03e8 | | Action Push_String_Extended,0x3e8 ; "The Dfs will not be installed over the network because your machine is currently running a release which does not allow this operation. Use the tape procedure instead." 0317 e011 | | Load 0x0,0x11 0318 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0319 e00f | | Load 0x0,0xf 031a 180e | | Execute Package,Field_Execute,Field_Number 0xe 031b e00f | | Load 0x0,0xf 031c 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 031d e011 | | Load 0x0,0x11 031e 180f | | Execute Package,Field_Execute,Field_Number 0xf 031f 0092 03da | | Action Push_String_Extended,0x3da ; "$$.Logs.Network_Install_Tools" 0321 e421 | ! | Load 0x2,0x21 0322 01cc | | Execute Vector,Catenate 0323 8016 | | Call 0x0,0x16 0324 e41a | | Load 0x2,0x1a 0325 e009 | | Load 0x0,0x9 0326 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0327 6816 |h | Jump_Zero 0x33e 0328 e418 | | Load 0x2,0x18 0329 e017 | | Load 0x0,0x17 032a 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 032b 6812 |h | Jump_Zero 0x33e 032c 4801 |H | Short_Literal 0x1 032d 00db | | Load_Top At_Offset_3 032e e418 | | Load 0x2,0x18 032f e017 | | Load 0x0,0x17 0330 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0331 e019 | | Load 0x0,0x19 0332 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0333 680a |h | Jump_Zero 0x33e 0334 e00f | | Load 0x0,0xf 0335 180e | | Execute Package,Field_Execute,Field_Number 0xe 0336 4803 |H | Short_Literal 0x3 0337 0092 03e9 | | Action Push_String_Extended,0x3e9 ; "Waiting for completion of Code segment transfer." 0339 e011 | | Load 0x0,0x11 033a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 033b e418 | | Load 0x2,0x18 033c e009 | | Load 0x0,0x9 033d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 033e e408 | | Load 0x2,0x8 033f 6808 |h | Jump_Zero 0x348 0340 0092 03c3 | | Action Push_String_Extended,0x3c3 ; "<PROFILE>" 0342 e41f | | Load 0x2,0x1f 0343 0092 03ea | | Action Push_String_Extended,0x3ea ; "Install_Product" 0345 e009 | | Load 0x0,0x9 0346 180f | | Execute Package,Field_Execute,Field_Number 0xf 0347 7807 |x | Jump 0x34f 0348 e00f | | Load 0x0,0xf 0349 180e | | Execute Package,Field_Execute,Field_Number 0xe 034a 4802 |H | Short_Literal 0x2 034b 0092 03eb | | Action Push_String_Extended,0x3eb ; "Install_Product can now be run to install the new release." 034d e011 | | Load 0x0,0x11 034e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 034f 8428 | ( | Call 0x2,0x28 0350 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0351 0000 0000 | | .XXX[0x3] 0353 0000 | | 0354 0000 0000 | | .LITERAL {0x00000000, 0x000f0000} 0358 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 035c 0000 0000 | | .BLANK 0000[0x4] 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0363 | c | .CONST 0x0363 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0001 | | .CONST 0x0001 ; Number of locals 0363 BODY_0360: 0363 INIT_0360: 0363 4607 |F | Jump_Case 0x8 0364 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0365 7807 |x | Jump 0x36d ; case 0x1 0366 780a |x | Jump 0x371 ; case 0x2 0367 780e |x | Jump 0x376 ; case 0x3 0368 7811 |x | Jump 0x37a ; case 0x4 0369 7812 |x | Jump 0x37c ; case 0x5 036a 7813 |x | Jump 0x37e ; case 0x6 036b 7816 |x | Jump 0x382 ; case 0x7 036c 4302 |C | .XXX[0x1] 036d 00da | | Load_Top At_Offset_2 036e 0091 03a1 | | Action Push_String_Extended_Indexed,0x3a1 ; "NIL" 0370 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0371 00db | | Load_Top At_Offset_3 0372 00db | | Load_Top At_Offset_3 0373 00e0 | | Load_Encached Standard_Cache 0374 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0375 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0376 00da | | Load_Top At_Offset_2 0377 00e0 | | Load_Encached Standard_Cache 0378 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0379 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 037a 00db | | Load_Top At_Offset_3 037b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 037c 00db | | Load_Top At_Offset_3 037d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 037e e403 | | Load 0x2,0x3 037f 00dc | | Load_Top At_Offset_4 0380 0267 | g | Execute Discrete,Predecessor 0381 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0382 e403 | | Load 0x2,0x3 0383 00dc | | Load_Top At_Offset_4 0384 0268 | h | Execute Discrete,Successor 0385 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0386 0000 0000 | | .XXX[0x2] 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 038b | | .CONST 0x038b ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0001 | | .CONST 0x0001 ; Number of locals 038b BODY_0388: 038b INIT_0388: 038b e411 | | Load 0x2,0x11 038c 01db | | Execute Vector,Length 038d 6808 |h | Jump_Zero 0x396 038e e41c | | Load 0x2,0x1c 038f 0092 03ec | | Action Push_String_Extended,0x3ec ; "Restore_Identity" 0391 00ea | | Load_Encached Null_String_Cache 0392 00ea | | Load_Encached Null_String_Cache 0393 e009 | | Load 0x0,0x9 0394 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0395 c41c | | Store 0x2,0x1c 0396 e425 | % | Load 0x2,0x25 0397 e010 | | Load 0x0,0x10 0398 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0399 e00f | | Load 0x0,0xf 039a 180e | | Execute Package,Field_Execute,Field_Number 0xe 039b 4800 |H | Short_Literal 0x0 039c 0092 03ed | | Action Push_String_Extended,0x3ed ; "[Network_Install has completed]" 039e e011 | | Load 0x0,0x11 039f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03a0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03a1 ; -------------------------------------------------------------------------------------- 03a1 ; STRING TABLE 03a1 ; -------------------------------------------------------------------------------------- 03a1 009c | | .STRTAB 0x009c->0x03ef ; "NIL" 03a2 009d | | .STRTAB 0x009d->0x03f0 ; "PAD" 03a3 009e | | .STRTAB 0x009e->0x03f2 ; "TOOLS" 03a4 00a1 | | .STRTAB 0x00a1->0x03f4 ; "ENVIRONMENT" 03a5 00aa | | .STRTAB 0x00aa->0x03fa ; "NO_MAIL" 03a6 00af | | .STRTAB 0x00af->0x03fd ; "INSTALL" 03a7 00b4 | | .STRTAB 0x00b4->0x0401 ; "DFS" 03a8 00b5 | | .STRTAB 0x00b5->0x0402 ; "INTERNAL" 03a9 00bb | | .STRTAB 0x00bb->0x0406 ; "AWAIT_XFER" 03aa 00c3 | | .STRTAB 0x00c3->0x040b ; "AWAIT_INSTALL" 03ab 00ce | | .STRTAB 0x00ce->0x0412 ; "VERBOSE" 03ac 00d3 | | .STRTAB 0x00d3->0x0415 ; "MV" 03ad 00d3 | | .STRTAB 0x00d3->0x0416 ; "DO_IT" 03ae 00d6 | | .STRTAB 0x00d6->0x0419 ; "LOCAL_USERNAME" 03af 00e2 | | .STRTAB 0x00e2->0x0420 ; "LOCAL_PASSWORD" 03b0 00ee | | .STRTAB 0x00ee->0x0427 ; "local_Username .. local_password => unspecified,others => Boolean" 03b1 012d | - | .STRTAB 0x012d->0x0447 ; "Pad, " 03b2 0130 | 0 | .STRTAB 0x0130->0x044a ; "$$" 03b3 0130 | 0 | .STRTAB 0x0130->0x044b ; "." 03b4 012f | / | .STRTAB 0x012f->0x044b ; "!Machine.Release.Archive.Environment." 03b5 0152 | R | .STRTAB 0x0152->0x045e ; "Persevere, Prefix=(Hr_Mn_Sc, Symbols),:::|---|+++|>>>|++*|!!!|***|%%%, Activity = !Machine.Release.Current.Activity" 03b6 01c3 | | .STRTAB 0x01c3->0x0497 ; "Prefix=(Yr_Mn_Dy, Hr_Mn_Sc, Symbols), :::|---|+++|>>>|++*|!!!|***|%%%" 03b7 0206 | | .STRTAB 0x0206->0x04ba ; "Code Segment Transfer" 03b8 0219 | | .STRTAB 0x0219->0x04c4 ; "[Network_Install (Machine => \x22" 03b9 0235 | 5 | .STRTAB 0x0235->0x04d3 ; "\x22, Release => \x22" 03ba 0242 | B | .STRTAB 0x0242->0x04db ; "\x22);" 03bb 0243 | C | .STRTAB 0x0243->0x04dc ; "Tools => " 03bc 0252 | R | .STRTAB 0x0252->0x04e5 ; "Environment => " 03bd 0261 | a | .STRTAB 0x0261->0x04ed ; "Install => " 03be 0270 | p | .STRTAB 0x0270->0x04f6 ; "Internal => " 03bf 027f | | .STRTAB 0x027f->0x04fe ; "Verbose => " 03c0 028e | | .STRTAB 0x028e->0x0507 ; "Local_Username=> " 03c1 029d | | .STRTAB 0x029d->0x050f ; "Abandoning NETWORK_INSTALL; Can't change local identity." 03c2 02d3 | | .STRTAB 0x02d3->0x052b ; "Abandoning NETWORK_INSTALL: Can't set PRIVILEGED MODE." 03c3 0307 | | .STRTAB 0x0307->0x0546 ; "<PROFILE>" 03c4 030e | | .STRTAB 0x030e->0x054b ; "!Model.R1000" 03c5 0318 | | .STRTAB 0x0318->0x0551 ; "<ERRORS>" 03c6 031e | | .STRTAB 0x031e->0x0555 ; "$$.Logs" 03c7 0323 | # | .STRTAB 0x0323->0x0558 ; ":NET:MOE:UDD:WAW:RELEASE:" 03c8 033a | : | .STRTAB 0x033a->0x0565 ; "!!" 03c9 033a | : | .STRTAB 0x033a->0x0566 ; "Segments" 03ca 0340 | @ | .STRTAB 0x0340->0x056a ; "Copying " 03cb 0346 | F | .STRTAB 0x0346->0x056e ; " code segments from " 03cc 0358 | X | .STRTAB 0x0358->0x0578 ; "$$.Logs.Get_Xfer" 03cd 0366 | f | .STRTAB 0x0366->0x0580 ; "Loading code segments from " 03ce 037f | | .STRTAB 0x037f->0x058d ; ":No_Mail.xfer" 03cf 038a | | .STRTAB 0x038a->0x0594 ; ":AE.xfer" 03d0 0390 | | .STRTAB 0x0390->0x0598 ; "Output => $$.Logs.Network_Install_Code" 03d1 03b4 | | .STRTAB 0x03b4->0x05ab ; "\x22$$Load_Procs\x22.Network_Install (Machine => \x22!!" 03d2 03e1 | | .STRTAB 0x03e1->0x05c2 ; "\x22," 03d3 03e1 | | .STRTAB 0x03e1->0x05c3 ; "Release => \x22" 03d4 03ec | | .STRTAB 0x03ec->0x05ca ; "Username => \x22" 03d5 03f7 | | .STRTAB 0x03f7->0x05d0 ; "Password => \x22" 03d6 0402 | | .STRTAB 0x0402->0x05d7 ; "Options => \x22DO_IT, " 03d7 0414 | | .STRTAB 0x0414->0x05e1 ; "Transfer of code segments has started as job" 03d8 043e | > | .STRTAB 0x043e->0x05f7 ; "Installing " 03d9 0447 | G | .STRTAB 0x0447->0x05fc ; " release world from !!" 03da 045b | [ | .STRTAB 0x045b->0x0607 ; "$$.Logs.Network_Install_Tools" 03db 0476 | v | .STRTAB 0x0476->0x0616 ; ".[Release, Internal]" 03dc 0488 | | .STRTAB 0x0488->0x0620 ; ".Release" 03dd 048e | | .STRTAB 0x048e->0x0624 ; "Changed_Objects, User=" 03de 04a2 | | .STRTAB 0x04a2->0x062f ; ", " 03df 04a2 | | .STRTAB 0x04a2->0x0630 ; "Pass=(" 03e0 04a6 | | .STRTAB 0x04a6->0x0633 ; ")" 03e1 04a5 | | .STRTAB 0x04a5->0x0633 ; "*" 03e2 04a4 | | .STRTAB 0x04a4->0x0634 ; "R1000, REPLACE, CHANGED_OBJECTS, PROMOTE" 03e3 04ca | | .STRTAB 0x04ca->0x0648 ; "?" 03e4 04c9 | | .STRTAB 0x04c9->0x0648 ; ".Internal" 03e5 04d0 | | .STRTAB 0x04d0->0x064d ; "D_12_6_4" 03e6 04d6 | | .STRTAB 0x04d6->0x0651 ; "Replace, Remake" 03e7 04e3 | | .STRTAB 0x04e3->0x0658 ; "Dfs_Image" 03e8 04ea | | .STRTAB 0x04ea->0x065d ; "The Dfs will not be installed over the network because your machine is currently running a release which does not allow this operation. Use the tape procedure instead." 03e9 0590 | | .STRTAB 0x0590->0x06b1 ; "Waiting for completion of Code segment transfer." 03ea 05be | | .STRTAB 0x05be->0x06c9 ; "Install_Product" 03eb 05cb | | .STRTAB 0x05cb->0x06d0 ; "Install_Product can now be run to install the new release." 03ec 0603 | | .STRTAB 0x0603->0x06ed ; "Restore_Identity" 03ed 0611 | | .STRTAB 0x0611->0x06f5 ; "[Network_Install has completed]" 03ee 062e | . | .STREND 0x062e->0x0705 03ef 4e49 4c50 |NILP| .STRTAB_STRINGS 0705 0000 0000 | | .XXX[0x3] 0707 0000 | | 0708 ; -------------------------------------------------------------------------------------- 0708 ; Debug Table 0708 ; -------------------------------------------------------------------------------------- 0708 0004 0002 | | .DEBUG4 0x0004,0x0002,0x1aa5,0x0000,0x0001,0x0000 070e 0000 0000 | | .BLANK 0000[0xf2]