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