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