DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦06553e226⟧

    Length: 8192 (0x2000)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0698fd

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

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 0fa0       |    |		.CONST	0x0fa0								; 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 8009       |    |		.CONST	0x8009								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00d3       |    |		.CONST	0x00d3								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 004a       | J  |		.CONST	0x004a								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4802       |H   |		Short_Literal	0x2
000d 029f 00db  |    |		Declare_Subprogram	INIT_00d8,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 00c4       |    |		Action	Make_Default
0011 00c4       |    |		Action	Make_Default
0012 00c4       |    |		Action	Make_Default
0013 00c4       |    |		Action	Make_Default
0014 00c4       |    |		Action	Make_Default
0015 00c4       |    |		Action	Make_Default
0016 00c4       |    |		Action	Make_Default
0017 00c4       |    |		Action	Make_Default
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 00c4       |    |		Action	Make_Default
001c 00c4       |    |		Action	Make_Default
001d 00c4       |    |		Action	Make_Default
001e 00c4       |    |		Action	Make_Default
001f 00c4       |    |		Action	Make_Default
0020 00c4       |    |		Action	Make_Default
0021 00c4       |    |		Action	Make_Default
0022 00c4       |    |		Action	Make_Default
0023 00c4       |    |		Action	Make_Default
0024 00c4       |    |		Action	Make_Default
0025 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
0027 c21b       |    |		Store	0x1,0x1b
0028 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
002a c221       | !  |		Store	0x1,0x21
002b 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
002d c21c       |    |		Store	0x1,0x1c
002e 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
0030 c21d       |    |		Store	0x1,0x1d
0031 029a 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call,Visible,Unelaborated
0033 c21e       |    |		Store	0x1,0x1e
0034 029a 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call,Visible,Unelaborated
0036 c212       |    |		Store	0x1,0x12
0037 029a 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call,Visible,Unelaborated
0039 c220       |    |		Store	0x1,0x20
003a 029a 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Outer_Call,Visible,Unelaborated
003c c222       | "  |		Store	0x1,0x22
003d 00bf       |    |		Action	Accept_Activation
003e 0092 0b8b  |    |		Action	Push_String_Extended,0xb8b					; "Remote_Passwords"
0040 e001       |    |		Load	0x0,0x1
0041 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
0042 0007       |    |		Action	Break_Optional
0043 e002       |    |		Load	0x0,0x2
0044 1916       |    |		Execute	Package,Field_Reference,Field_Number 0x16
0045 0007       |    |		Action	Break_Optional
0046 0092 0b8c  |    |		Action	Push_String_Extended,0xb8c					; "OTHERS"
0048 0092 0b8d  |    |		Action	Push_String_Extended,0xb8d					; "Profile.Remote_Passwords"
004a 4800       |H   |		Short_Literal	0x0
004b 487f       |H   |		Short_Literal	0x7f
004c e003       |    |		Load	0x0,0x3
004d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
004e 03f8       |    |		Declare_Type	Discrete,Constrained
004f e20d       |    |		Load	0x1,0xd
0050 0266       | f  |		Execute	Discrete,Bounds
0051 e004       |    |		Load	0x0,0x4
0052 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0053 02a0       |    |		Declare_Subprogram	Null_Subprogram
0054 4801       |H   |		Short_Literal	0x1
0055 035d       | ]  |		Declare_Type	Array,Defined
0056 00d8       |    |		Load_Top	At_Offset_0
0057 0337       | 7  |		Declare_Variable	Array
0058 00d8       |    |		Load_Top	At_Offset_0
0059 0335       | 5  |		Declare_Variable	Array,Duplicate
005a 00cd       |    |		Action	Spare6_Action
005b 4800       |H   |		Short_Literal	0x0
005c 4800       |H   |		Short_Literal	0x0
005d 00da       |    |		Load_Top	At_Offset_2
005e 01d6       |    |		Execute	Vector,Field_Write
005f 4801       |H   |		Short_Literal	0x1
0060 4801       |H   |		Short_Literal	0x1
0061 00da       |    |		Load_Top	At_Offset_2
0062 01d6       |    |		Execute	Vector,Field_Write
0063 4802       |H   |		Short_Literal	0x2
0064 4802       |H   |		Short_Literal	0x2
0065 00da       |    |		Load_Top	At_Offset_2
0066 01d6       |    |		Execute	Vector,Field_Write
0067 00d9       |    |		Load_Top	At_Offset_1
0068 01d4       |    |		Execute	Vector,Structure_Write
0069 e001       |    |		Load	0x0,0x1
006a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
006b e001       |    |		Load	0x0,0x1
006c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
006d e001       |    |		Load	0x0,0x1
006e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
006f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0070 4803       |H   |		Short_Literal	0x3
0071 032d       | -  |		Declare_Type	Record,Defined
0072 00e4       |    |		Load_Encached	Positive_Cache
0073 0266       | f  |		Execute	Discrete,Bounds
0074 00da       |    |		Load_Top	At_Offset_2
0075 02a0       |    |		Declare_Subprogram	Null_Subprogram
0076 4801       |H   |		Short_Literal	0x1
0077 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
0078 e005       |    |		Load	0x0,0x5
0079 e006       |    |		Load	0x0,0x6
007a 00db       |    |		Load_Top	At_Offset_3
007b 00db       |    |		Load_Top	At_Offset_3
007c 480a       |H   |		Short_Literal	0xa
007d e007       |    |		Load	0x0,0x7
007e 0387       |    |		Declare_Variable	Package
007f 00d8       |    |		Load_Top	At_Offset_0
0080 020f       |    |		Execute	Module,Activate
0081 00d8       |    |		Load_Top	At_Offset_0
0082 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0083 00d8       |    |		Load_Top	At_Offset_0
0084 e008       |    |		Load	0x0,0x8
0085 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0086 e001       |    |		Load	0x0,0x1
0087 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0088 029f 0323  |   #|		Declare_Subprogram	INIT_0320,For_Call
008a 4803       |H   |		Short_Literal	0x3
008b 032d       | -  |		Declare_Type	Record,Defined
008c 029b 0343  |   C|		Declare_Subprogram	INIT_0340,For_Outer_Call,Unelaborated
008e 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
008f 00c7       |    |		Action	Elaborate_Subprogram
0090 029d 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Outer_Call
0092 029d 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Outer_Call
0094 e009       |    |		Load	0x0,0x9
0095 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0096 00c6       |    |		Action	Check_Subprogram_Elaborated
0097 00db       |    |		Load_Top	At_Offset_3
0098 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
0099 e00a       |    |		Load	0x0,0xa
009a e00b       |    |		Load	0x0,0xb
009b 4800       |H   |		Short_Literal	0x0
009c 0007       |    |		Action	Break_Optional
009d 029d 03d3  |    |		Declare_Subprogram	INIT_03d0,For_Outer_Call
009f 029d 03f3  |    |		Declare_Subprogram	INIT_03f0,For_Outer_Call
00a1 029d 041b  |    |		Declare_Subprogram	INIT_0418,For_Outer_Call
00a3 029d 0423  |   #|		Declare_Subprogram	INIT_0420,For_Outer_Call
00a5 029d 0433  |   3|		Declare_Subprogram	INIT_0430,For_Outer_Call
00a7 029d 0443  |   C|		Declare_Subprogram	INIT_0440,For_Outer_Call
00a9 029d 0453  |   S|		Declare_Subprogram	INIT_0450,For_Outer_Call
00ab 029d 046b  |   k|		Declare_Subprogram	INIT_0468,For_Outer_Call
00ad 029d 0483  |    |		Declare_Subprogram	INIT_0480,For_Outer_Call
00af 029d 0493  |    |		Declare_Subprogram	INIT_0490,For_Outer_Call
00b1 029d 04ab  |    |		Declare_Subprogram	INIT_04a8,For_Outer_Call
00b3 029d 04fb  |    |		Declare_Subprogram	INIT_04f8,For_Outer_Call
00b5 029d 0553  |   S|		Declare_Subprogram	INIT_0550,For_Outer_Call
00b7 029d 05fb  |    |		Declare_Subprogram	INIT_05f8,For_Outer_Call
00b9 029d 0633  |   3|		Declare_Subprogram	INIT_0630,For_Outer_Call
00bb 029d 0663  |   c|		Declare_Subprogram	INIT_0660,For_Outer_Call
00bd 029d 0673  |   s|		Declare_Subprogram	INIT_0670,For_Outer_Call
00bf 029d 068b  |    |		Declare_Subprogram	INIT_0688,For_Outer_Call
00c1 029d 0743  |   C|		Declare_Subprogram	INIT_0740,For_Outer_Call
00c3 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
00c4 00c7       |    |		Action	Elaborate_Subprogram
00c5 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00c6 00c7       |    |		Action	Elaborate_Subprogram
00c7 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
00c8 00c7       |    |		Action	Elaborate_Subprogram
00c9 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
00ca 00c7       |    |		Action	Elaborate_Subprogram
00cb 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00cc 00c7       |    |		Action	Elaborate_Subprogram
00cd 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
00ce 00c7       |    |		Action	Elaborate_Subprogram
00cf 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00d0 00c7       |    |		Action	Elaborate_Subprogram
00d1 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00d2 00c7       |    |		Action	Elaborate_Subprogram
00d3			BODY_0008:
00d3 00bc       |    |		Action	Signal_Activated
00d4 00bb       |    |		Action	Signal_Completion
00d5 0000 0000  |    |		.XXX[0x3]
00d7 0000       |    |
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db       |    |		.CONST	0x00db								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0001       |    |		.CONST	0x0001								; Number of locals
00db			BODY_00d8:
00db			INIT_00d8:
00db 4607       |F   |		Jump_Case	0x8
00dc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00dd 7806       |x   |		Jump	0xe4								; case 0x1
00de 7809       |x   |		Jump	0xe8								; case 0x2
00df 780d       |x   |		Jump	0xed								; case 0x3
00e0 7810       |x   |		Jump	0xf1								; case 0x4
00e1 7811       |x   |		Jump	0xf3								; case 0x5
00e2 7812       |x   |		Jump	0xf5								; case 0x6
00e3 7815       |x   |		Jump	0xf9								; case 0x7
00e4 00da       |    |		Load_Top	At_Offset_2
00e5 0091 0b88  |    |		Action	Push_String_Extended_Indexed,0xb88				; "NONE"
00e7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00e8 00db       |    |		Load_Top	At_Offset_3
00e9 00db       |    |		Load_Top	At_Offset_3
00ea 00e0       |    |		Load_Encached	Standard_Cache
00eb 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00ec 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ed 00da       |    |		Load_Top	At_Offset_2
00ee 00e0       |    |		Load_Encached	Standard_Cache
00ef 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00f0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00f1 00db       |    |		Load_Top	At_Offset_3
00f2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00f3 00db       |    |		Load_Top	At_Offset_3
00f4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00f5 e20d       |    |		Load	0x1,0xd
00f6 00dc       |    |		Load_Top	At_Offset_4
00f7 0267       | g  |		Execute	Discrete,Predecessor
00f8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00f9 e20d       |    |		Load	0x1,0xd
00fa 00dc       |    |		Load_Top	At_Offset_4
00fb 0268       | h  |		Execute	Discrete,Successor
00fc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00fd 0000 0000  |    |		.XXX[0x3]
00ff 0000       |    |
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 012f       | /  |		.CONST	0x012f								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0013       |    |		.CONST	0x0013								; Number of locals
0103			INIT_0100:
0103 00e1       |    |		Load_Encached	Boolean_Cache
0104 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0105 03e9       |    |		Declare_Variable	Discrete,Duplicate
0106 e5fe       |    |		Load	0x2,-0x2
0107 01db       |    |		Execute	Vector,Length
0108 0e00       |    |		Execute_Immediate	Not_Equal,0x0
0109 0007       |    |		Action	Break_Optional
010a 0092 0b8e  |    |		Action	Push_String_Extended,0xb8e					; "source password"
010c e5fd       |    |		Load	0x2,-0x3
010d 00da       |    |		Load_Top	At_Offset_2
010e 8240       | @  |		Call	0x1,0x40
010f 029f 075b  |   [|		Declare_Subprogram	INIT_0758,For_Call
0111 e009       |    |		Load	0x0,0x9
0112 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0113 00c6       |    |		Action	Check_Subprogram_Elaborated
0114 e22f       | /  |		Load	0x1,0x2f
0115 4806       |H   |		Short_Literal	0x6
0116 4802       |H   |		Short_Literal	0x2
0117 0099       |    |		Action	Reference_Dynamic
0118 e00c       |    |		Load	0x0,0xc
0119 e00d       |    |		Load	0x0,0xd
011a 480b       |H   |		Short_Literal	0xb
011b 0007       |    |		Action	Break_Optional
011c 029f 079b  |    |		Declare_Subprogram	INIT_0798,For_Call
011e 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
011f 00c6       |    |		Action	Check_Subprogram_Elaborated
0120 0092 0b8f  |    |		Action	Push_String_Extended,0xb8f					; "Create"
0122 480c       |H   |		Short_Literal	0xc
0123 4802       |H   |		Short_Literal	0x2
0124 0099       |    |		Action	Reference_Dynamic
0125 4802       |H   |		Short_Literal	0x2
0126 4802       |H   |		Short_Literal	0x2
0127 0099       |    |		Action	Reference_Dynamic
0128 4803       |H   |		Short_Literal	0x3
0129 4802       |H   |		Short_Literal	0x2
012a 0099       |    |		Action	Reference_Dynamic
012b e00e       |    |		Load	0x0,0xe
012c e00f       |    |		Load	0x0,0xf
012d 4813       |H   |		Short_Literal	0x13
012e 0007       |    |		Action	Break_Optional
012f			BODY_0100:
012f e5fb       |    |		Load	0x2,-0x5
0130 4822       |H"  |		Short_Literal	0x22
0131 0092 0b90  |    |		Action	Push_String_Extended,0xb90					; "New_File => \x22"
0133 e5ff       |    |		Load	0x2,-0x1
0134 01cc       |    |		Execute	Vector,Catenate
0135 0092 0b91  |    |		Action	Push_String_Extended,0xb91					; "\x22, Source_File => \x22"
0137 01cc       |    |		Execute	Vector,Catenate
0138 e5fe       |    |		Load	0x2,-0x2
0139 01cc       |    |		Execute	Vector,Catenate
013a 0092 0b92  |    |		Action	Push_String_Extended,0xb92					; "\x22, Encryption => "
013c 01cc       |    |		Execute	Vector,Catenate
013d e5fc       |    |		Load	0x2,-0x4
013e e20d       |    |		Load	0x1,0xd
013f 011c       |    |		Execute	Any,Convert_Unchecked
0140 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0141 01cc       |    |		Execute	Vector,Catenate
0142 0092 0b93  |    |		Action	Push_String_Extended,0xb93					; ", Response => \x22"
0144 01cc       |    |		Execute	Vector,Catenate
0145 e5fb       |    |		Load	0x2,-0x5
0146 01cc       |    |		Execute	Vector,Catenate
0147 01cb       |    |		Execute	Vector,Append
0148 e40d       |    |		Load	0x2,0xd
0149 480e       |H   |		Short_Literal	0xe
014a 4802       |H   |		Short_Literal	0x2
014b 0099       |    |		Action	Reference_Dynamic
014c 480f       |H   |		Short_Literal	0xf
014d 4802       |H   |		Short_Literal	0x2
014e 0099       |    |		Action	Reference_Dynamic
014f 4810       |H   |		Short_Literal	0x10
0150 4802       |H   |		Short_Literal	0x2
0151 0099       |    |		Action	Reference_Dynamic
0152 4811       |H   |		Short_Literal	0x11
0153 4802       |H   |		Short_Literal	0x2
0154 0099       |    |		Action	Reference_Dynamic
0155 8230       | 0  |		Call	0x1,0x30
0156 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0157 0000       |    |		.XXX[0x1]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0171       | q  |		.CONST	0x0171								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 000b       |    |		.CONST	0x000b								; Number of locals
015b			INIT_0158:
015b 00e1       |    |		Load_Encached	Boolean_Cache
015c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
015d 03e9       |    |		Declare_Variable	Discrete,Duplicate
015e 029f 080b  |    |		Declare_Subprogram	INIT_0808,For_Call
0160 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
0161 00c6       |    |		Action	Check_Subprogram_Elaborated
0162 0092 0b94  |    |		Action	Push_String_Extended,0xb94					; "Set_Default"
0164 4804       |H   |		Short_Literal	0x4
0165 4802       |H   |		Short_Literal	0x2
0166 0099       |    |		Action	Reference_Dynamic
0167 4802       |H   |		Short_Literal	0x2
0168 4802       |H   |		Short_Literal	0x2
0169 0099       |    |		Action	Reference_Dynamic
016a 4803       |H   |		Short_Literal	0x3
016b 4802       |H   |		Short_Literal	0x2
016c 0099       |    |		Action	Reference_Dynamic
016d e010       |    |		Load	0x0,0x10
016e e011       |    |		Load	0x0,0x11
016f 480b       |H   |		Short_Literal	0xb
0170 0007       |    |		Action	Break_Optional
0171			BODY_0158:
0171 e5fd       |    |		Load	0x2,-0x3
0172 4822       |H"  |		Short_Literal	0x22
0173 0092 0b95  |    |		Action	Push_String_Extended,0xb95					; "Existing_File => \x22"
0175 e5ff       |    |		Load	0x2,-0x1
0176 01cc       |    |		Execute	Vector,Catenate
0177 0092 0b96  |    |		Action	Push_String_Extended,0xb96					; "\x22, For_Session => \x22"
0179 01cc       |    |		Execute	Vector,Catenate
017a e5fe       |    |		Load	0x2,-0x2
017b 01cc       |    |		Execute	Vector,Catenate
017c 0092 0b97  |    |		Action	Push_String_Extended,0xb97					; "\x22, Response => \x22"
017e 01cc       |    |		Execute	Vector,Catenate
017f e5fd       |    |		Load	0x2,-0x3
0180 01cc       |    |		Execute	Vector,Catenate
0181 01cb       |    |		Execute	Vector,Append
0182 e405       |    |		Load	0x2,0x5
0183 4806       |H   |		Short_Literal	0x6
0184 4802       |H   |		Short_Literal	0x2
0185 0099       |    |		Action	Reference_Dynamic
0186 4807       |H   |		Short_Literal	0x7
0187 4802       |H   |		Short_Literal	0x2
0188 0099       |    |		Action	Reference_Dynamic
0189 4808       |H   |		Short_Literal	0x8
018a 4802       |H   |		Short_Literal	0x2
018b 0099       |    |		Action	Reference_Dynamic
018c 4809       |H   |		Short_Literal	0x9
018d 4802       |H   |		Short_Literal	0x2
018e 0099       |    |		Action	Reference_Dynamic
018f 8230       | 0  |		Call	0x1,0x30
0190 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0191 0000 0000  |    |		.BLANK	0000[0x7]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01c1       |    |		.CONST	0x01c1								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0012       |    |		.CONST	0x0012								; Number of locals
019b			INIT_0198:
019b 00e1       |    |		Load_Encached	Boolean_Cache
019c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
019d 03e9       |    |		Declare_Variable	Discrete,Duplicate
019e e5ff       |    |		Load	0x2,-0x1
019f e009       |    |		Load	0x0,0x9
01a0 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01a1 029f 0853  |   S|		Declare_Subprogram	INIT_0850,For_Call
01a3 e009       |    |		Load	0x0,0x9
01a4 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
01a5 00c6       |    |		Action	Check_Subprogram_Elaborated
01a6 e22f       | /  |		Load	0x1,0x2f
01a7 4805       |H   |		Short_Literal	0x5
01a8 4802       |H   |		Short_Literal	0x2
01a9 0099       |    |		Action	Reference_Dynamic
01aa e012       |    |		Load	0x0,0x12
01ab e013       |    |		Load	0x0,0x13
01ac 480a       |H   |		Short_Literal	0xa
01ad 0007       |    |		Action	Break_Optional
01ae 029f 0883  |    |		Declare_Subprogram	INIT_0880,For_Call
01b0 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
01b1 00c6       |    |		Action	Check_Subprogram_Elaborated
01b2 0092 0b98  |    |		Action	Push_String_Extended,0xb98					; "Add"
01b4 480b       |H   |		Short_Literal	0xb
01b5 4802       |H   |		Short_Literal	0x2
01b6 0099       |    |		Action	Reference_Dynamic
01b7 4802       |H   |		Short_Literal	0x2
01b8 4802       |H   |		Short_Literal	0x2
01b9 0099       |    |		Action	Reference_Dynamic
01ba 4803       |H   |		Short_Literal	0x3
01bb 4802       |H   |		Short_Literal	0x2
01bc 0099       |    |		Action	Reference_Dynamic
01bd e014       |    |		Load	0x0,0x14
01be e015       |    |		Load	0x0,0x15
01bf 4812       |H   |		Short_Literal	0x12
01c0 0007       |    |		Action	Break_Optional
01c1			BODY_0198:
01c1 e5fa       |    |		Load	0x2,-0x6
01c2 4822       |H"  |		Short_Literal	0x22
01c3 0092 0b99  |    |		Action	Push_String_Extended,0xb99					; "New_Hostname => \x22"
01c5 e5ff       |    |		Load	0x2,-0x1
01c6 01cc       |    |		Execute	Vector,Catenate
01c7 0092 0b96  |    |		Action	Push_String_Extended,0xb96					; "\x22, For_Session => \x22"
01c9 01cc       |    |		Execute	Vector,Catenate
01ca e5fb       |    |		Load	0x2,-0x5
01cb 01cc       |    |		Execute	Vector,Catenate
01cc 0092 0b97  |    |		Action	Push_String_Extended,0xb97					; "\x22, Response => \x22"
01ce 01cc       |    |		Execute	Vector,Catenate
01cf e5fa       |    |		Load	0x2,-0x6
01d0 01cc       |    |		Execute	Vector,Catenate
01d1 01cb       |    |		Execute	Vector,Append
01d2 e40c       |    |		Load	0x2,0xc
01d3 480d       |H   |		Short_Literal	0xd
01d4 4802       |H   |		Short_Literal	0x2
01d5 0099       |    |		Action	Reference_Dynamic
01d6 480e       |H   |		Short_Literal	0xe
01d7 4802       |H   |		Short_Literal	0x2
01d8 0099       |    |		Action	Reference_Dynamic
01d9 480f       |H   |		Short_Literal	0xf
01da 4802       |H   |		Short_Literal	0x2
01db 0099       |    |		Action	Reference_Dynamic
01dc 4810       |H   |		Short_Literal	0x10
01dd 4802       |H   |		Short_Literal	0x2
01de 0099       |    |		Action	Reference_Dynamic
01df 8230       | 0  |		Call	0x1,0x30
01e0 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
01e1 0000 0000  |    |		.BLANK	0000[0x7]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 0213       |    |		.CONST	0x0213								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0013       |    |		.CONST	0x0013								; Number of locals
01eb			INIT_01e8:
01eb 00e1       |    |		Load_Encached	Boolean_Cache
01ec 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01ed 00e1       |    |		Load_Encached	Boolean_Cache
01ee 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01ef 03e9       |    |		Declare_Variable	Discrete,Duplicate
01f0 e5ff       |    |		Load	0x2,-0x1
01f1 e009       |    |		Load	0x0,0x9
01f2 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01f3 029f 0923  |   #|		Declare_Subprogram	INIT_0920,For_Call
01f5 e009       |    |		Load	0x0,0x9
01f6 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
01f7 00c6       |    |		Action	Check_Subprogram_Elaborated
01f8 e22f       | /  |		Load	0x1,0x2f
01f9 4806       |H   |		Short_Literal	0x6
01fa 4802       |H   |		Short_Literal	0x2
01fb 0099       |    |		Action	Reference_Dynamic
01fc e016       |    |		Load	0x0,0x16
01fd e017       |    |		Load	0x0,0x17
01fe 480b       |H   |		Short_Literal	0xb
01ff 0007       |    |		Action	Break_Optional
0200 029f 096b  |   k|		Declare_Subprogram	INIT_0968,For_Call
0202 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
0203 00c6       |    |		Action	Check_Subprogram_Elaborated
0204 0092 0b9a  |    |		Action	Push_String_Extended,0xb9a					; "Change"
0206 480c       |H   |		Short_Literal	0xc
0207 4802       |H   |		Short_Literal	0x2
0208 0099       |    |		Action	Reference_Dynamic
0209 4803       |H   |		Short_Literal	0x3
020a 4802       |H   |		Short_Literal	0x2
020b 0099       |    |		Action	Reference_Dynamic
020c 4804       |H   |		Short_Literal	0x4
020d 4802       |H   |		Short_Literal	0x2
020e 0099       |    |		Action	Reference_Dynamic
020f e018       |    |		Load	0x0,0x18
0210 e019       |    |		Load	0x0,0x19
0211 4813       |H   |		Short_Literal	0x13
0212 0007       |    |		Action	Break_Optional
0213			BODY_01e8:
0213 e5fa       |    |		Load	0x2,-0x6
0214 4822       |H"  |		Short_Literal	0x22
0215 0092 0b9b  |    |		Action	Push_String_Extended,0xb9b					; "Existing_Hostname => \x22"
0217 e5ff       |    |		Load	0x2,-0x1
0218 01cc       |    |		Execute	Vector,Catenate
0219 0092 0b96  |    |		Action	Push_String_Extended,0xb96					; "\x22, For_Session => \x22"
021b 01cc       |    |		Execute	Vector,Catenate
021c e5fb       |    |		Load	0x2,-0x5
021d 01cc       |    |		Execute	Vector,Catenate
021e 0092 0b97  |    |		Action	Push_String_Extended,0xb97					; "\x22, Response => \x22"
0220 01cc       |    |		Execute	Vector,Catenate
0221 e5fa       |    |		Load	0x2,-0x6
0222 01cc       |    |		Execute	Vector,Catenate
0223 01cb       |    |		Execute	Vector,Append
0224 e40d       |    |		Load	0x2,0xd
0225 480e       |H   |		Short_Literal	0xe
0226 4802       |H   |		Short_Literal	0x2
0227 0099       |    |		Action	Reference_Dynamic
0228 480f       |H   |		Short_Literal	0xf
0229 4802       |H   |		Short_Literal	0x2
022a 0099       |    |		Action	Reference_Dynamic
022b 4810       |H   |		Short_Literal	0x10
022c 4802       |H   |		Short_Literal	0x2
022d 0099       |    |		Action	Reference_Dynamic
022e 4811       |H   |		Short_Literal	0x11
022f 4802       |H   |		Short_Literal	0x2
0230 0099       |    |		Action	Reference_Dynamic
0231 8230       | 0  |		Call	0x1,0x30
0232 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0233 0000 0000  |    |		.BLANK	0000[0x5]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 0263       | c  |		.CONST	0x0263								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0013       |    |		.CONST	0x0013								; Number of locals
023b			INIT_0238:
023b 00e1       |    |		Load_Encached	Boolean_Cache
023c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
023d 00e1       |    |		Load_Encached	Boolean_Cache
023e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
023f 03e9       |    |		Declare_Variable	Discrete,Duplicate
0240 e5ff       |    |		Load	0x2,-0x1
0241 e009       |    |		Load	0x0,0x9
0242 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0243 029f 0a0b  |    |		Declare_Subprogram	INIT_0a08,For_Call
0245 e009       |    |		Load	0x0,0x9
0246 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0247 00c6       |    |		Action	Check_Subprogram_Elaborated
0248 e22f       | /  |		Load	0x1,0x2f
0249 4806       |H   |		Short_Literal	0x6
024a 4802       |H   |		Short_Literal	0x2
024b 0099       |    |		Action	Reference_Dynamic
024c e01a       |    |		Load	0x0,0x1a
024d e01b       |    |		Load	0x0,0x1b
024e 480b       |H   |		Short_Literal	0xb
024f 0007       |    |		Action	Break_Optional
0250 029f 0a33  |   3|		Declare_Subprogram	INIT_0a30,For_Call
0252 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
0253 00c6       |    |		Action	Check_Subprogram_Elaborated
0254 0092 0b9c  |    |		Action	Push_String_Extended,0xb9c					; "Delete"
0256 480c       |H   |		Short_Literal	0xc
0257 4802       |H   |		Short_Literal	0x2
0258 0099       |    |		Action	Reference_Dynamic
0259 4803       |H   |		Short_Literal	0x3
025a 4802       |H   |		Short_Literal	0x2
025b 0099       |    |		Action	Reference_Dynamic
025c 4804       |H   |		Short_Literal	0x4
025d 4802       |H   |		Short_Literal	0x2
025e 0099       |    |		Action	Reference_Dynamic
025f e01c       |    |		Load	0x0,0x1c
0260 e01d       |    |		Load	0x0,0x1d
0261 4813       |H   |		Short_Literal	0x13
0262 0007       |    |		Action	Break_Optional
0263			BODY_0238:
0263 e5fd       |    |		Load	0x2,-0x3
0264 4822       |H"  |		Short_Literal	0x22
0265 0092 0b9b  |    |		Action	Push_String_Extended,0xb9b					; "Existing_Hostname => \x22"
0267 e5ff       |    |		Load	0x2,-0x1
0268 01cc       |    |		Execute	Vector,Catenate
0269 0092 0b96  |    |		Action	Push_String_Extended,0xb96					; "\x22, For_Session => \x22"
026b 01cc       |    |		Execute	Vector,Catenate
026c e5fe       |    |		Load	0x2,-0x2
026d 01cc       |    |		Execute	Vector,Catenate
026e 0092 0b97  |    |		Action	Push_String_Extended,0xb97					; "\x22, Response => \x22"
0270 01cc       |    |		Execute	Vector,Catenate
0271 e5fd       |    |		Load	0x2,-0x3
0272 01cc       |    |		Execute	Vector,Catenate
0273 01cb       |    |		Execute	Vector,Append
0274 e40d       |    |		Load	0x2,0xd
0275 480e       |H   |		Short_Literal	0xe
0276 4802       |H   |		Short_Literal	0x2
0277 0099       |    |		Action	Reference_Dynamic
0278 480f       |H   |		Short_Literal	0xf
0279 4802       |H   |		Short_Literal	0x2
027a 0099       |    |		Action	Reference_Dynamic
027b 4810       |H   |		Short_Literal	0x10
027c 4802       |H   |		Short_Literal	0x2
027d 0099       |    |		Action	Reference_Dynamic
027e 4811       |H   |		Short_Literal	0x11
027f 4802       |H   |		Short_Literal	0x2
0280 0099       |    |		Action	Reference_Dynamic
0281 8230       | 0  |		Call	0x1,0x30
0282 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0283 0000 0000  |    |		.BLANK	0000[0x5]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b       |    |		.CONST	0x028b								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0001       |    |		.CONST	0x0001								; Number of locals
028b			BODY_0288:
028b			INIT_0288:
028b 00db       |    |		Load_Top	At_Offset_3
028c 0092 0b9d  |    |		Action	Push_String_Extended,0xb9d					; "password"
028e e5ff       |    |		Load	0x2,-0x1
028f e004       |    |		Load	0x0,0x4
0290 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0291 823d       | =  |		Call	0x1,0x3d
0292 e008       |    |		Load	0x0,0x8
0293 1865       | e  |		Execute	Package,Field_Execute,Field_Number 0x65
0294 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0295 0000 0000  |    |		.XXX[0x3]
0297 0000       |    |
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02c3       |    |		.CONST	0x02c3								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0012       |    |		.CONST	0x0012								; Number of locals
029b			INIT_0298:
029b 00e1       |    |		Load_Encached	Boolean_Cache
029c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
029d 03e9       |    |		Declare_Variable	Discrete,Duplicate
029e 0092 0b9e  |    |		Action	Push_String_Extended,0xb9e					; "old password"
02a0 e5ff       |    |		Load	0x2,-0x1
02a1 e004       |    |		Load	0x0,0x4
02a2 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02a3 029f 0ab3  |    |		Declare_Subprogram	INIT_0ab0,For_Call
02a5 e009       |    |		Load	0x0,0x9
02a6 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
02a7 00c6       |    |		Action	Check_Subprogram_Elaborated
02a8 e22f       | /  |		Load	0x1,0x2f
02a9 4805       |H   |		Short_Literal	0x5
02aa 4802       |H   |		Short_Literal	0x2
02ab 0099       |    |		Action	Reference_Dynamic
02ac e01e       |    |		Load	0x0,0x1e
02ad e01f       |    |		Load	0x0,0x1f
02ae 480a       |H   |		Short_Literal	0xa
02af 0007       |    |		Action	Break_Optional
02b0 029f 0af3  |    |		Declare_Subprogram	INIT_0af0,For_Call
02b2 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
02b3 00c6       |    |		Action	Check_Subprogram_Elaborated
02b4 0092 0b9f  |    |		Action	Push_String_Extended,0xb9f					; "Update"
02b6 480b       |H   |		Short_Literal	0xb
02b7 4802       |H   |		Short_Literal	0x2
02b8 0099       |    |		Action	Reference_Dynamic
02b9 4802       |H   |		Short_Literal	0x2
02ba 4802       |H   |		Short_Literal	0x2
02bb 0099       |    |		Action	Reference_Dynamic
02bc 4803       |H   |		Short_Literal	0x3
02bd 4802       |H   |		Short_Literal	0x2
02be 0099       |    |		Action	Reference_Dynamic
02bf e020       |    |		Load	0x0,0x20
02c0 e021       | !  |		Load	0x0,0x21
02c1 4812       |H   |		Short_Literal	0x12
02c2 0007       |    |		Action	Break_Optional
02c3			BODY_0298:
02c3 e5fd       |    |		Load	0x2,-0x3
02c4 4822       |H"  |		Short_Literal	0x22
02c5 0092 0ba0  |    |		Action	Push_String_Extended,0xba0					; "For_Session => \x22"
02c7 e5fe       |    |		Load	0x2,-0x2
02c8 01cc       |    |		Execute	Vector,Catenate
02c9 0092 0b97  |    |		Action	Push_String_Extended,0xb97					; "\x22, Response => \x22"
02cb 01cc       |    |		Execute	Vector,Catenate
02cc e5fd       |    |		Load	0x2,-0x3
02cd 01cc       |    |		Execute	Vector,Catenate
02ce 01cb       |    |		Execute	Vector,Append
02cf e40c       |    |		Load	0x2,0xc
02d0 480d       |H   |		Short_Literal	0xd
02d1 4802       |H   |		Short_Literal	0x2
02d2 0099       |    |		Action	Reference_Dynamic
02d3 480e       |H   |		Short_Literal	0xe
02d4 4802       |H   |		Short_Literal	0x2
02d5 0099       |    |		Action	Reference_Dynamic
02d6 480f       |H   |		Short_Literal	0xf
02d7 4802       |H   |		Short_Literal	0x2
02d8 0099       |    |		Action	Reference_Dynamic
02d9 4810       |H   |		Short_Literal	0x10
02da 4802       |H   |		Short_Literal	0x2
02db 0099       |    |		Action	Reference_Dynamic
02dc 8230       | 0  |		Call	0x1,0x30
02dd 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02de 0000 0000  |    |		.XXX[0x2]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02ff       |    |		.CONST	0x02ff								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 000c       |    |		.CONST	0x000c								; Number of locals
02e3			INIT_02e0:
02e3 00e1       |    |		Load_Encached	Boolean_Cache
02e4 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02e5 03e9       |    |		Declare_Variable	Discrete,Duplicate
02e6 e022       | "  |		Load	0x0,0x22
02e7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02e8 02c7       |    |		Declare_Variable	Any
02e9 e022       | "  |		Load	0x0,0x22
02ea 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02eb a404       |    |		Store_Unchecked	0x2,0x4
02ec 029f 0b63  |   c|		Declare_Subprogram	INIT_0b60,For_Call
02ee 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
02ef 00c6       |    |		Action	Check_Subprogram_Elaborated
02f0 0092 0ba1  |    |		Action	Push_String_Extended,0xba1					; "Get_Default"
02f2 4805       |H   |		Short_Literal	0x5
02f3 4802       |H   |		Short_Literal	0x2
02f4 0099       |    |		Action	Reference_Dynamic
02f5 4802       |H   |		Short_Literal	0x2
02f6 4802       |H   |		Short_Literal	0x2
02f7 0099       |    |		Action	Reference_Dynamic
02f8 4803       |H   |		Short_Literal	0x3
02f9 4802       |H   |		Short_Literal	0x2
02fa 0099       |    |		Action	Reference_Dynamic
02fb e023       | #  |		Load	0x0,0x23
02fc e024       | $  |		Load	0x0,0x24
02fd 480c       |H   |		Short_Literal	0xc
02fe 0007       |    |		Action	Break_Optional
02ff			BODY_02e0:
02ff e5fe       |    |		Load	0x2,-0x2
0300 4822       |H"  |		Short_Literal	0x22
0301 0092 0ba0  |    |		Action	Push_String_Extended,0xba0					; "For_Session => \x22"
0303 e5ff       |    |		Load	0x2,-0x1
0304 01cc       |    |		Execute	Vector,Catenate
0305 0092 0b97  |    |		Action	Push_String_Extended,0xb97					; "\x22, Response => \x22"
0307 01cc       |    |		Execute	Vector,Catenate
0308 e5fe       |    |		Load	0x2,-0x2
0309 01cc       |    |		Execute	Vector,Catenate
030a 01cb       |    |		Execute	Vector,Append
030b e406       |    |		Load	0x2,0x6
030c 4807       |H   |		Short_Literal	0x7
030d 4802       |H   |		Short_Literal	0x2
030e 0099       |    |		Action	Reference_Dynamic
030f 4808       |H   |		Short_Literal	0x8
0310 4802       |H   |		Short_Literal	0x2
0311 0099       |    |		Action	Reference_Dynamic
0312 4809       |H   |		Short_Literal	0x9
0313 4802       |H   |		Short_Literal	0x2
0314 0099       |    |		Action	Reference_Dynamic
0315 480a       |H   |		Short_Literal	0xa
0316 4802       |H   |		Short_Literal	0x2
0317 0099       |    |		Action	Reference_Dynamic
0318 8230       | 0  |		Call	0x1,0x30
0319 e404       |    |		Load	0x2,0x4
031a e022       | "  |		Load	0x0,0x22
031b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
031c 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
031d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
031e 0000 0000  |    |		.XXX[0x2]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323       | #  |		.CONST	0x0323								; Address of begin
0321 0004       |    |		.CONST	0x0004								; Address of exception handler
0322 0001       |    |		.CONST	0x0001								; Number of locals
0323			BODY_0320:
0323			INIT_0320:
0323 4608       |F   |		Jump_Case	0x9
0324 7808       |x   |		Jump	0x32d								; case 0x0
0325 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0326 7813       |x   |		Jump	0x33a								; case 0x2
0327 7812       |x   |		Jump	0x33a								; case 0x3
0328 7811       |x   |		Jump	0x33a								; case 0x4
0329 7810       |x   |		Jump	0x33a								; case 0x5
032a 780f       |x   |		Jump	0x33a								; case 0x6
032b 780e       |x   |		Jump	0x33a								; case 0x7
032c 780d       |x   |		Jump	0x33a								; case 0x8
032d 00da       |    |		Load_Top	At_Offset_2
032e 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
032f 0125       | %  |		Execute	Any,Set_Constraint
0330 00da       |    |		Load_Top	At_Offset_2
0331 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0332 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0333 00da       |    |		Load_Top	At_Offset_2
0334 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0335 0125       | %  |		Execute	Any,Set_Constraint
0336 00da       |    |		Load_Top	At_Offset_2
0337 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0338 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0339 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
033a 0869       | i  |		Execute_Immediate	Raise,0x69
033b 0000 0000  |    |		.BLANK	0000[0x5]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0354       | T  |		.CONST	0x0354								; Address of begin
0341 0380       |    |		.CONST	0x0380								; Address of exception handler
0342 0005       |    |		.CONST	0x0005								; Number of locals
0343			INIT_0340:
0343 0092 0ba2  |    |		Action	Push_String_Extended,0xba2					; "Remote_Passwords."
0345 e5fb       |    |		Load	0x2,-0x5
0346 01cc       |    |		Execute	Vector,Catenate
0347 0007       |    |		Action	Break_Optional
0348 e025       | %  |		Load	0x0,0x25
0349 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
034a e025       | %  |		Load	0x0,0x25
034b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
034c 011e       |    |		Execute	Any,Convert
034d e026       | &  |		Load	0x0,0x26
034e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
034f 02c7       |    |		Declare_Variable	Any
0350 00d8       |    |		Load_Top	At_Offset_0
0351 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0352 029f 0b73  |   s|		Declare_Subprogram	INIT_0b70,For_Call
0354			BODY_0340:
0354 00d9       |    |		Load_Top	At_Offset_1
0355 e5f9       |    |		Load	0x2,-0x7
0356 e025       | %  |		Load	0x0,0x25
0357 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
0358 c404       |    |		Store	0x2,0x4
0359 e025       | %  |		Load	0x0,0x25
035a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
035b 00da       |    |		Load_Top	At_Offset_2
035c e027       | '  |		Load	0x0,0x27
035d 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
035e e025       | %  |		Load	0x0,0x25
035f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0360 4800       |H   |		Short_Literal	0x0
0361 485b       |H[  |		Short_Literal	0x5b
0362 e402       |    |		Load	0x2,0x2
0363 01ca       |    |		Execute	Vector,Prepend
0364 0092 0ba3  |    |		Action	Push_String_Extended,0xba3					; " ("
0366 01cc       |    |		Execute	Vector,Catenate
0367 e5fa       |    |		Load	0x2,-0x6
0368 01cc       |    |		Execute	Vector,Catenate
0369 0092 0ba4  |    |		Action	Push_String_Extended,0xba4					; ");]"
036b 01cc       |    |		Execute	Vector,Catenate
036c e027       | '  |		Load	0x0,0x27
036d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
036e 85fc       |    |		Call	0x2,-0x4
036f e5fd       |    |		Load	0x2,-0x3
0370 6803       |h   |		Jump_Zero	0x374
0371 e025       | %  |		Load	0x0,0x25
0372 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0373 0257       | W  |		Execute	Discrete,Raise
0374 e5fe       |    |		Load	0x2,-0x2
0375 6805       |h   |		Jump_Zero	0x37b
0376 4800       |H   |		Short_Literal	0x0
0377 0092 0ba5  |    |		Action	Push_String_Extended,0xba5					; " has completed with warnings"
0379 8405       |    |		Call	0x2,0x5
037a 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
037b 4800       |H   |		Short_Literal	0x0
037c 0092 0ba6  |    |		Action	Push_String_Extended,0xba6					; " has completed"
037e 8405       |    |		Call	0x2,0x5
037f 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0380			TRAP_0340:
0380 e025       | %  |		Load	0x0,0x25
0381 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0382 010f       |    |		Execute	Exception,Equal
0383 6808       |h   |		Jump_Zero	0x38c
0384 e025       | %  |		Load	0x0,0x25
0385 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0386 e025       | %  |		Load	0x0,0x25
0387 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0388 0092 0ba7  |    |		Action	Push_String_Extended,0xba7					; " has terminated with errors"
038a 8405       |    |		Call	0x2,0x5
038b 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
038c e025       | %  |		Load	0x0,0x25
038d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
038e 4808       |H   |		Short_Literal	0x8
038f 0092 0ba8  |    |		Action	Push_String_Extended,0xba8					; "Unexpected "
0391 e028       | (  |		Load	0x0,0x28
0392 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0393 01cc       |    |		Execute	Vector,Catenate
0394 e027       | '  |		Load	0x0,0x27
0395 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0396 e025       | %  |		Load	0x0,0x25
0397 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0398 e025       | %  |		Load	0x0,0x25
0399 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
039a 0092 0ba9  |    |		Action	Push_String_Extended,0xba9					; " has terminated with an internal error"
039c 8405       |    |		Call	0x2,0x5
039d 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
039e 0000 0000  |    |		.XXX[0x2]
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 4801       |H   |		Short_Literal	0x1
03a4 00db       |    |		Load_Top	At_Offset_3
03a5 e026       | &  |		Load	0x0,0x26
03a6 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
03a7 6807       |h   |		Jump_Zero	0x3af
03a8 e025       | %  |		Load	0x0,0x25
03a9 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03aa 00db       |    |		Load_Top	At_Offset_3
03ab e027       | '  |		Load	0x0,0x27
03ac 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
03ad e029       | )  |		Load	0x0,0x29
03ae 0257       | W  |		Execute	Discrete,Raise
03af 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b6       |    |		.CONST	0x03b6								; Address of begin
03b1 0004       |    |		.CONST	0x0004								; Address of exception handler
03b2 0002       |    |		.CONST	0x0002								; Number of locals
03b3			INIT_03b0:
03b3 e5fc       |    |		Load	0x2,-0x4
03b4 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
03b5 0007       |    |		Action	Break_Optional
03b6			BODY_03b0:
03b6 e22b       | +  |		Load	0x1,0x2b
03b7 0322       | "  |		Declare_Variable	Record
03b8 4800       |H   |		Short_Literal	0x0
03b9 00da       |    |		Load_Top	At_Offset_2
03ba e5ff       |    |		Load	0x2,-0x1
03bb 8224       | $  |		Call	0x1,0x24
03bc 00d9       |    |		Load_Top	At_Offset_1
03bd 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03be 4800       |H   |		Short_Literal	0x0
03bf 00da       |    |		Load_Top	At_Offset_2
03c0 e5fe       |    |		Load	0x2,-0x2
03c1 8224       | $  |		Call	0x1,0x24
03c2 00d9       |    |		Load_Top	At_Offset_1
03c3 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03c4 4800       |H   |		Short_Literal	0x0
03c5 00da       |    |		Load_Top	At_Offset_2
03c6 e5fd       |    |		Load	0x2,-0x3
03c7 8224       | $  |		Call	0x1,0x24
03c8 00d9       |    |		Load_Top	At_Offset_1
03c9 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
03ca e5fc       |    |		Load	0x2,-0x4
03cb 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03cc e22d       | -  |		Load	0x1,0x2d
03cd 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
03ce 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03cf 0000       |    |		.XXX[0x1]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d9       |    |		.CONST	0x03d9								; Address of begin
03d1 0004       |    |		.CONST	0x0004								; Address of exception handler
03d2 0002       |    |		.CONST	0x0002								; Number of locals
03d3			INIT_03d0:
03d3 00da       |    |		Load_Top	At_Offset_2
03d4 01da       |    |		Execute	Vector,Bounds
03d5 e003       |    |		Load	0x0,0x3
03d6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03d7 035b       | [  |		Declare_Type	Array,Constrained
03d8 0337       | 7  |		Declare_Variable	Array
03d9			BODY_03d0:
03d9 00cf       |    |		Action	Mark_Auxiliary
03da e5ff       |    |		Load	0x2,-0x1
03db 01d9       |    |		Execute	Vector,Reverse_Bounds
03dc 0263       | c  |		Execute	Discrete,Above_Bound
03dd 7008       |p   |		Jump_Nonzero	0x3e6
03de 00d8       |    |		Load_Top	At_Offset_0
03df e5ff       |    |		Load	0x2,-0x1
03e0 01d7       |    |		Execute	Vector,Field_Read
03e1 00d9       |    |		Load_Top	At_Offset_1
03e2 e402       |    |		Load	0x2,0x2
03e3 01d6       |    |		Execute	Vector,Field_Write
03e4 00c8       |    |		Action	Pop_Auxiliary_Range
03e5 3ff8       |?   |		Loop_Increasing	0x3de
03e6 00ce       |    |		Action	Pop_Auxiliary
03e7 00d8       |    |		Load_Top	At_Offset_0
03e8 e02a       | *  |		Load	0x0,0x2a
03e9 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
03ea 01c6       |    |		Execute	Vector,Convert_To_Formal
03eb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03ec 0000 0000  |    |		.BLANK	0000[0x4]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f8       |    |		.CONST	0x03f8								; Address of begin
03f1 0004       |    |		.CONST	0x0004								; Address of exception handler
03f2 0002       |    |		.CONST	0x0002								; Number of locals
03f3			INIT_03f0:
03f3 00da       |    |		Load_Top	At_Offset_2
03f4 01da       |    |		Execute	Vector,Bounds
03f5 00e9       |    |		Load_Encached	String_Cache
03f6 035b       | [  |		Declare_Type	Array,Constrained
03f7 0337       | 7  |		Declare_Variable	Array
03f8			BODY_03f0:
03f8 00cf       |    |		Action	Mark_Auxiliary
03f9 e5ff       |    |		Load	0x2,-0x1
03fa 01d9       |    |		Execute	Vector,Reverse_Bounds
03fb 0263       | c  |		Execute	Discrete,Above_Bound
03fc 7016       |p   |		Jump_Nonzero	0x413
03fd 00d8       |    |		Load_Top	At_Offset_0
03fe e5ff       |    |		Load	0x2,-0x1
03ff 01d7       |    |		Execute	Vector,Field_Read
0400 e228       | (  |		Load	0x1,0x28
0401 0260       | `  |		Execute	Discrete,In_Type
0402 680c       |h   |		Jump_Zero	0x40f
0403 00d8       |    |		Load_Top	At_Offset_0
0404 e5ff       |    |		Load	0x2,-0x1
0405 01d7       |    |		Execute	Vector,Field_Read
0406 00d8       |    |		Load_Top	At_Offset_0
0407 00e8       |    |		Load_Encached	Character_Cache
0408 0260       | `  |		Execute	Discrete,In_Type
0409 7001       |p   |		Jump_Nonzero	0x40b
040a 0801       |    |		Execute_Immediate	Raise,0x1
040b 00d9       |    |		Load_Top	At_Offset_1
040c e402       |    |		Load	0x2,0x2
040d 01d6       |    |		Execute	Vector,Field_Write
040e 7802       |x   |		Jump	0x411
040f e02b       | +  |		Load	0x0,0x2b
0410 0257       | W  |		Execute	Discrete,Raise
0411 00c8       |    |		Action	Pop_Auxiliary_Range
0412 3fea       |?   |		Loop_Increasing	0x3fd
0413 00ce       |    |		Action	Pop_Auxiliary
0414 00d8       |    |		Load_Top	At_Offset_0
0415 00e9       |    |		Load_Encached	String_Cache
0416 01c6       |    |		Execute	Vector,Convert_To_Formal
0417 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b       |    |		.CONST	0x041b								; Address of begin
0419 0004       |    |		.CONST	0x0004								; Address of exception handler
041a 0001       |    |		.CONST	0x0001								; Number of locals
041b			BODY_0418:
041b			INIT_0418:
041b 00da       |    |		Load_Top	At_Offset_2
041c e004       |    |		Load	0x0,0x4
041d 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
041e 8239       | 9  |		Call	0x1,0x39
041f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423       | #  |		.CONST	0x0423								; Address of begin
0421 0004       |    |		.CONST	0x0004								; Address of exception handler
0422 0001       |    |		.CONST	0x0001								; Number of locals
0423			BODY_0420:
0423			INIT_0420:
0423 00db       |    |		Load_Top	At_Offset_3
0424 00db       |    |		Load_Top	At_Offset_3
0425 e004       |    |		Load	0x0,0x4
0426 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0427 8239       | 9  |		Call	0x1,0x39
0428 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0429 0000 0000  |    |		.BLANK	0000[0x7]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433       | 3  |		.CONST	0x0433								; Address of begin
0431 0004       |    |		.CONST	0x0004								; Address of exception handler
0432 0001       |    |		.CONST	0x0001								; Number of locals
0433			BODY_0430:
0433			INIT_0430:
0433 00db       |    |		Load_Top	At_Offset_3
0434 00db       |    |		Load_Top	At_Offset_3
0435 8238       | 8  |		Call	0x1,0x38
0436 e004       |    |		Load	0x0,0x4
0437 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0438 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0439 0000 0000  |    |		.BLANK	0000[0x7]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0443       | C  |		.CONST	0x0443								; Address of begin
0441 0004       |    |		.CONST	0x0004								; Address of exception handler
0442 0001       |    |		.CONST	0x0001								; Number of locals
0443			BODY_0440:
0443			INIT_0440:
0443 00db       |    |		Load_Top	At_Offset_3
0444 e22a       | *  |		Load	0x1,0x2a
0445 01d7       |    |		Execute	Vector,Field_Read
0446 00db       |    |		Load_Top	At_Offset_3
0447 8238       | 8  |		Call	0x1,0x38
0448 e004       |    |		Load	0x0,0x4
0449 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
044a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
044b 0000 0000  |    |		.BLANK	0000[0x5]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453       | S  |		.CONST	0x0453								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 0001       |    |		.CONST	0x0001								; Number of locals
0453			BODY_0450:
0453			INIT_0450:
0453 00da       |    |		Load_Top	At_Offset_2
0454 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0455 e22d       | -  |		Load	0x1,0x2d
0456 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0457 00db       |    |		Load_Top	At_Offset_3
0458 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0459 487f       |H   |		Short_Literal	0x7f
045a e02c       | ,  |		Load	0x0,0x2c
045b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
045c e02d       | -  |		Load	0x0,0x2d
045d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
045e e001       |    |		Load	0x0,0x1
045f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0460 00db       |    |		Load_Top	At_Offset_3
0461 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0462 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0463 0000 0000  |    |		.BLANK	0000[0x5]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b       | k  |		.CONST	0x046b								; Address of begin
0469 0004       |    |		.CONST	0x0004								; Address of exception handler
046a 0001       |    |		.CONST	0x0001								; Number of locals
046b			BODY_0468:
046b			INIT_0468:
046b 00db       |    |		Load_Top	At_Offset_3
046c 01db       |    |		Execute	Vector,Length
046d 6803       |h   |		Jump_Zero	0x471
046e 00da       |    |		Load_Top	At_Offset_2
046f 01db       |    |		Execute	Vector,Length
0470 7004       |p   |		Jump_Nonzero	0x475
0471 00da       |    |		Load_Top	At_Offset_2
0472 e5fe       |    |		Load	0x2,-0x2
0473 01cc       |    |		Execute	Vector,Catenate
0474 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0475 e5fd       |    |		Load	0x2,-0x3
0476 00db       |    |		Load_Top	At_Offset_3
0477 01cb       |    |		Execute	Vector,Append
0478 e5fe       |    |		Load	0x2,-0x2
0479 01cc       |    |		Execute	Vector,Catenate
047a 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
047b 0000 0000  |    |		.BLANK	0000[0x5]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483       |    |		.CONST	0x0483								; Address of begin
0481 0004       |    |		.CONST	0x0004								; Address of exception handler
0482 0001       |    |		.CONST	0x0001								; Number of locals
0483			BODY_0480:
0483			INIT_0480:
0483 00da       |    |		Load_Top	At_Offset_2
0484 6805       |h   |		Jump_Zero	0x48a
0485 e5fd       |    |		Load	0x2,-0x3
0486 e5fe       |    |		Load	0x2,-0x2
0487 e004       |    |		Load	0x0,0x4
0488 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0489 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
048a 00ea       |    |		Load_Encached	Null_String_Cache
048b 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
048c 0000 0000  |    |		.BLANK	0000[0x4]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0499       |    |		.CONST	0x0499								; Address of begin
0491 0004       |    |		.CONST	0x0004								; Address of exception handler
0492 0002       |    |		.CONST	0x0002								; Number of locals
0493			INIT_0490:
0493 4820       |H   |		Short_Literal	0x20
0494 00db       |    |		Load_Top	At_Offset_3
0495 e002       |    |		Load	0x0,0x2
0496 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0497 e002       |    |		Load	0x0,0x2
0498 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0499			BODY_0490:
0499 00d8       |    |		Load_Top	At_Offset_0
049a 0092 0baa  |    |		Action	Push_String_Extended,0xbaa					; "<NIL>"
049c 01df       |    |		Execute	Vector,Equal
049d 7005       |p   |		Jump_Nonzero	0x4a3
049e 00d8       |    |		Load_Top	At_Offset_0
049f 0092 0bab  |    |		Action	Push_String_Extended,0xbab					; "<>"
04a1 01df       |    |		Execute	Vector,Equal
04a2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04a3 4801       |H   |		Short_Literal	0x1
04a4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04a5 0000 0000  |    |		.XXX[0x3]
04a7 0000       |    |
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04b4       |    |		.CONST	0x04b4								; Address of begin
04a9 0004       |    |		.CONST	0x0004								; Address of exception handler
04aa 0003       |    |		.CONST	0x0003								; Number of locals
04ab			INIT_04a8:
04ab e022       | "  |		Load	0x0,0x22
04ac 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04ad 02c7       |    |		Declare_Variable	Any
04ae e022       | "  |		Load	0x0,0x22
04af 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04b0 a402       |    |		Store_Unchecked	0x2,0x2
04b1 e022       | "  |		Load	0x0,0x22
04b2 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04b3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04b4			BODY_04a8:
04b4 e5ff       |    |		Load	0x2,-0x1
04b5 8241       | A  |		Call	0x1,0x41
04b6 703a       |p:  |		Jump_Nonzero	0x4f1
04b7 e022       | "  |		Load	0x0,0x22
04b8 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04b9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04ba 00da       |    |		Load_Top	At_Offset_2
04bb 0120       |    |		Execute	Any,Is_Value
04bc 6803       |h   |		Jump_Zero	0x4c0
04bd e022       | "  |		Load	0x0,0x22
04be 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04bf 7801       |x   |		Jump	0x4c1
04c0 00da       |    |		Load_Top	At_Offset_2
04c1 6032       |`2  |		Indirect_Literal	Discrete,0x4f4,{0x00000000, 0x00004000}
04c2 e02e       | .  |		Load	0x0,0x2e
04c3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04c4 e02c       | ,  |		Load	0x0,0x2c
04c5 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04c6 e022       | "  |		Load	0x0,0x22
04c7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04c8 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
04c9 e5ff       |    |		Load	0x2,-0x1
04ca e022       | "  |		Load	0x0,0x22
04cb 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04cc 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
04cd c402       |    |		Store	0x2,0x2
04ce 0059       | Y  |		Store_Top	Discrete,At_Offset_1
04cf 00d8       |    |		Load_Top	At_Offset_0
04d0 6820       |h   |		Jump_Zero	0x4f1
04d1 e025       | %  |		Load	0x0,0x25
04d2 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04d3 4807       |H   |		Short_Literal	0x7
04d4 0092 0bac  |    |		Action	Push_String_Extended,0xbac					; "Unable to resolve remote passwords object \x22"
04d6 e5ff       |    |		Load	0x2,-0x1
04d7 01cc       |    |		Execute	Vector,Catenate
04d8 0092 0bad  |    |		Action	Push_String_Extended,0xbad					; "\x22 because "
04da 01cc       |    |		Execute	Vector,Catenate
04db 6018       |`   |		Indirect_Literal	Discrete,0x4f4,{0x00000000, 0x00004000}
04dc e02e       | .  |		Load	0x0,0x2e
04dd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
04de e02c       | ,  |		Load	0x0,0x2c
04df 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04e0 e02d       | -  |		Load	0x0,0x2d
04e1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04e2 4801       |H   |		Short_Literal	0x1
04e3 4800       |H   |		Short_Literal	0x0
04e4 e02c       | ,  |		Load	0x0,0x2c
04e5 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04e6 e022       | "  |		Load	0x0,0x22
04e7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04e8 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
04e9 e5ff       |    |		Load	0x2,-0x1
04ea e403       |    |		Load	0x2,0x3
04eb e022       | "  |		Load	0x0,0x22
04ec 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
04ed 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
04ee 01cc       |    |		Execute	Vector,Catenate
04ef e027       | '  |		Load	0x0,0x27
04f0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04f1 00d9       |    |		Load_Top	At_Offset_1
04f2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04f3 0000       |    |		.XXX[0x1]
04f4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 0503       |    |		.CONST	0x0503								; Address of begin
04f9 0004       |    |		.CONST	0x0004								; Address of exception handler
04fa 0003       |    |		.CONST	0x0003								; Number of locals
04fb			INIT_04f8:
04fb e022       | "  |		Load	0x0,0x22
04fc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
04fd 02c7       |    |		Declare_Variable	Any
04fe 00d8       |    |		Load_Top	At_Offset_0
04ff 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0500 e022       | "  |		Load	0x0,0x22
0501 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0502 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0503			BODY_04f8:
0503 e022       | "  |		Load	0x0,0x22
0504 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0505 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0506 00da       |    |		Load_Top	At_Offset_2
0507 0120       |    |		Execute	Any,Is_Value
0508 6803       |h   |		Jump_Zero	0x50c
0509 e022       | "  |		Load	0x0,0x22
050a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
050b 7801       |x   |		Jump	0x50d
050c 00da       |    |		Load_Top	At_Offset_2
050d 67e6       |g   |		Indirect_Literal	Discrete,0x4f4,{0x00000000, 0x00004000}
050e e02e       | .  |		Load	0x0,0x2e
050f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0510 e02c       | ,  |		Load	0x0,0x2c
0511 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0512 e022       | "  |		Load	0x0,0x22
0513 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0514 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0515 e5ff       |    |		Load	0x2,-0x1
0516 e022       | "  |		Load	0x0,0x22
0517 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0518 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0519 c402       |    |		Store	0x2,0x2
051a 0059       | Y  |		Store_Top	Discrete,At_Offset_1
051b 00d8       |    |		Load_Top	At_Offset_0
051c 682b       |h+  |		Jump_Zero	0x548
051d e025       | %  |		Load	0x0,0x25
051e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
051f 4807       |H   |		Short_Literal	0x7
0520 0092 0bae  |    |		Action	Push_String_Extended,0xbae					; "Unable to resolve "
0522 4820       |H   |		Short_Literal	0x20
0523 0092 0baf  |    |		Action	Push_String_Extended,0xbaf					; "object"
0525 e5fe       |    |		Load	0x2,-0x2
0526 823f       | ?  |		Call	0x1,0x3f
0527 01cc       |    |		Execute	Vector,Catenate
0528 0092 0bb0  |    |		Action	Push_String_Extended,0xbb0					; " \x22"
052a 01cc       |    |		Execute	Vector,Catenate
052b e5ff       |    |		Load	0x2,-0x1
052c 01cc       |    |		Execute	Vector,Catenate
052d 0092 0bad  |    |		Action	Push_String_Extended,0xbad					; "\x22 because "
052f 01cc       |    |		Execute	Vector,Catenate
0530 67c3       |g   |		Indirect_Literal	Discrete,0x4f4,{0x00000000, 0x00004000}
0531 e02e       | .  |		Load	0x0,0x2e
0532 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0533 e02c       | ,  |		Load	0x0,0x2c
0534 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0535 e02d       | -  |		Load	0x0,0x2d
0536 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0537 4801       |H   |		Short_Literal	0x1
0538 4800       |H   |		Short_Literal	0x0
0539 e02c       | ,  |		Load	0x0,0x2c
053a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
053b e022       | "  |		Load	0x0,0x22
053c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
053d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
053e e5ff       |    |		Load	0x2,-0x1
053f e403       |    |		Load	0x2,0x3
0540 e022       | "  |		Load	0x0,0x22
0541 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0542 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
0543 01cc       |    |		Execute	Vector,Catenate
0544 e027       | '  |		Load	0x0,0x27
0545 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0546 e029       | )  |		Load	0x0,0x29
0547 0257       | W  |		Execute	Discrete,Raise
0548 00d9       |    |		Load_Top	At_Offset_1
0549 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
054a 0000 0000  |    |		.BLANK	0000[0x6]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0565       | e  |		.CONST	0x0565								; Address of begin
0551 0004       |    |		.CONST	0x0004								; Address of exception handler
0552 0005       |    |		.CONST	0x0005								; Number of locals
0553			INIT_0550:
0553 e022       | "  |		Load	0x0,0x22
0554 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0555 e022       | "  |		Load	0x0,0x22
0556 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0557 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0558 e5ff       |    |		Load	0x2,-0x1
0559 e022       | "  |		Load	0x0,0x22
055a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
055b 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
055c 0092 0bb1  |    |		Action	Push_String_Extended,0xbb1					; "_SWITCHES"
055e 01cc       |    |		Execute	Vector,Catenate
055f 0007       |    |		Action	Break_Optional
0560 e022       | "  |		Load	0x0,0x22
0561 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0562 02ff       |    |		Declare_Variable	Variant_Record
0563 00d8       |    |		Load_Top	At_Offset_0
0564 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0565			BODY_0550:
0565 e022       | "  |		Load	0x0,0x22
0566 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0567 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0568 00d9       |    |		Load_Top	At_Offset_1
0569 6086       |`   |		Indirect_Literal	Discrete,0x5f0,{0x00000000, 0x00004000}
056a e02e       | .  |		Load	0x0,0x2e
056b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
056c 4800       |H   |		Short_Literal	0x0
056d e02c       | ,  |		Load	0x0,0x2c
056e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
056f e022       | "  |		Load	0x0,0x22
0570 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0571 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0572 e404       |    |		Load	0x2,0x4
0573 e022       | "  |		Load	0x0,0x22
0574 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0575 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
0576 00d1       |    |		Pop_Control	Pop_Count_1
0577 005b       | [  |		Store_Top	Discrete,At_Offset_3
0578 00da       |    |		Load_Top	At_Offset_2
0579 6851       |hQ  |		Jump_Zero	0x5cb
057a e5fd       |    |		Load	0x2,-0x3
057b 682f       |h/  |		Jump_Zero	0x5ab
057c e022       | "  |		Load	0x0,0x22
057d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
057e e5fc       |    |		Load	0x2,-0x4
057f 00da       |    |		Load_Top	At_Offset_2
0580 4853       |HS  |		Short_Literal	0x53
0581 606e       |`n  |		Indirect_Literal	Discrete,0x5f0,{0x00000000, 0x00004000}
0582 e02e       | .  |		Load	0x0,0x2e
0583 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0584 e404       |    |		Load	0x2,0x4
0585 e02f       | /  |		Load	0x0,0x2f
0586 184d       | M  |		Execute	Package,Field_Execute,Field_Number 0x4d
0587 00d1       |    |		Pop_Control	Pop_Count_1
0588 c5fc       |    |		Store	0x2,-0x4
0589 c402       |    |		Store	0x2,0x2
058a 00db       |    |		Load_Top	At_Offset_3
058b 700b       |p   |		Jump_Nonzero	0x597
058c e025       | %  |		Load	0x0,0x25
058d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
058e 4802       |H   |		Short_Literal	0x2
058f e022       | "  |		Load	0x0,0x22
0590 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0591 0092 0bb2  |    |		Action	Push_String_Extended,0xbb2					; "Created session switch file <1>"
0593 e405       |    |		Load	0x2,0x5
0594 e027       | '  |		Load	0x0,0x27
0595 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0596 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0597 e025       | %  |		Load	0x0,0x25
0598 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0599 4807       |H   |		Short_Literal	0x7
059a e022       | "  |		Load	0x0,0x22
059b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
059c 4829       |H)  |		Short_Literal	0x29
059d 0092 0bb3  |    |		Action	Push_String_Extended,0xbb3					; "Unable to open session switch file for <1> ("
059f e402       |    |		Load	0x2,0x2
05a0 e022       | "  |		Load	0x0,0x22
05a1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05a2 011c       |    |		Execute	Any,Convert_Unchecked
05a3 1c01       |    |		Execute_Immediate	Run_Utility,0x1
05a4 01cc       |    |		Execute	Vector,Catenate
05a5 01cb       |    |		Execute	Vector,Append
05a6 e5ff       |    |		Load	0x2,-0x1
05a7 e027       | '  |		Load	0x0,0x27
05a8 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
05a9 e029       | )  |		Load	0x0,0x29
05aa 0257       | W  |		Execute	Discrete,Raise
05ab e025       | %  |		Load	0x0,0x25
05ac 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05ad 4807       |H   |		Short_Literal	0x7
05ae e022       | "  |		Load	0x0,0x22
05af 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05b0 0092 0bb4  |    |		Action	Push_String_Extended,0xbb4					; "Session switch file for <1> does not exist because "
05b2 603d       |`=  |		Indirect_Literal	Discrete,0x5f0,{0x00000000, 0x00004000}
05b3 e02e       | .  |		Load	0x0,0x2e
05b4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05b5 e02c       | ,  |		Load	0x0,0x2c
05b6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
05b7 e02d       | -  |		Load	0x0,0x2d
05b8 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
05b9 4801       |H   |		Short_Literal	0x1
05ba 4800       |H   |		Short_Literal	0x0
05bb e02c       | ,  |		Load	0x0,0x2c
05bc 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
05bd e022       | "  |		Load	0x0,0x22
05be 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05bf 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
05c0 e404       |    |		Load	0x2,0x4
05c1 e403       |    |		Load	0x2,0x3
05c2 e022       | "  |		Load	0x0,0x22
05c3 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
05c4 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
05c5 01cc       |    |		Execute	Vector,Catenate
05c6 e5ff       |    |		Load	0x2,-0x1
05c7 e027       | '  |		Load	0x0,0x27
05c8 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
05c9 e029       | )  |		Load	0x0,0x29
05ca 0257       | W  |		Execute	Discrete,Raise
05cb e030       | 0  |		Load	0x0,0x30
05cc 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
05cd 00d9       |    |		Load_Top	At_Offset_1
05ce e5fc       |    |		Load	0x2,-0x4
05cf 4800       |H   |		Short_Literal	0x0
05d0 601f       |`   |		Indirect_Literal	Discrete,0x5f0,{0x00000000, 0x00004000}
05d1 e02e       | .  |		Load	0x0,0x2e
05d2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
05d3 e5fe       |    |		Load	0x2,-0x2
05d4 e030       | 0  |		Load	0x0,0x30
05d5 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
05d6 c5fc       |    |		Store	0x2,-0x4
05d7 00d1       |    |		Pop_Control	Pop_Count_1
05d8 c402       |    |		Store	0x2,0x2
05d9 00db       |    |		Load_Top	At_Offset_3
05da 6814       |h   |		Jump_Zero	0x5ef
05db e025       | %  |		Load	0x0,0x25
05dc 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05dd 4807       |H   |		Short_Literal	0x7
05de e022       | "  |		Load	0x0,0x22
05df 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05e0 4829       |H)  |		Short_Literal	0x29
05e1 0092 0bb3  |    |		Action	Push_String_Extended,0xbb3					; "Unable to open session switch file for <1> ("
05e3 e402       |    |		Load	0x2,0x2
05e4 e022       | "  |		Load	0x0,0x22
05e5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05e6 011c       |    |		Execute	Any,Convert_Unchecked
05e7 1c01       |    |		Execute_Immediate	Run_Utility,0x1
05e8 01cc       |    |		Execute	Vector,Catenate
05e9 01cb       |    |		Execute	Vector,Append
05ea e5ff       |    |		Load	0x2,-0x1
05eb e027       | '  |		Load	0x0,0x27
05ec 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
05ed e029       | )  |		Load	0x0,0x29
05ee 0257       | W  |		Execute	Discrete,Raise
05ef 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
05f0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
05f4 0000 0000  |    |		.BLANK	0000[0x4]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 0600       |    |		.CONST	0x0600								; Address of begin
05f9 0004       |    |		.CONST	0x0004								; Address of exception handler
05fa 0002       |    |		.CONST	0x0002								; Number of locals
05fb			INIT_05f8:
05fb e022       | "  |		Load	0x0,0x22
05fc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05fd 02c7       |    |		Declare_Variable	Any
05fe 00d8       |    |		Load_Top	At_Offset_0
05ff 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0600			BODY_05f8:
0600 00db       |    |		Load_Top	At_Offset_3
0601 01db       |    |		Execute	Vector,Length
0602 7006       |p   |		Jump_Nonzero	0x609
0603 e031       | 1  |		Load	0x0,0x31
0604 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0605 e031       | 1  |		Load	0x0,0x31
0606 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0607 c402       |    |		Store	0x2,0x2
0608 7822       |x"  |		Jump	0x62b
0609 0092 0bb5  |    |		Action	Push_String_Extended,0xbb5					; "specified session"
060b e5ff       |    |		Load	0x2,-0x1
060c 8243       | C  |		Call	0x1,0x43
060d c402       |    |		Store	0x2,0x2
060e 00d8       |    |		Load_Top	At_Offset_0
060f e022       | "  |		Load	0x0,0x22
0610 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0611 e032       | 2  |		Load	0x0,0x32
0612 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0613 012f       | /  |		Execute	Any,Equal
0614 7016       |p   |		Jump_Nonzero	0x62b
0615 e025       | %  |		Load	0x0,0x25
0616 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0617 4807       |H   |		Short_Literal	0x7
0618 e022       | "  |		Load	0x0,0x22
0619 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
061a 0092 0bb6  |    |		Action	Push_String_Extended,0xbb6					; "<1> is not an object of class Session; you must specify a naming expression like "
061c e031       | 1  |		Load	0x0,0x31
061d 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
061e e031       | 1  |		Load	0x0,0x31
061f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0620 e031       | 1  |		Load	0x0,0x31
0621 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0622 01cc       |    |		Execute	Vector,Catenate
0623 0092 0bb7  |    |		Action	Push_String_Extended,0xbb7					; ".S_1"
0625 01cc       |    |		Execute	Vector,Catenate
0626 e402       |    |		Load	0x2,0x2
0627 e027       | '  |		Load	0x0,0x27
0628 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0629 e029       | )  |		Load	0x0,0x29
062a 0257       | W  |		Execute	Discrete,Raise
062b 00d8       |    |		Load_Top	At_Offset_0
062c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
062d 0000 0000  |    |		.XXX[0x3]
062f 0000       |    |
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 063d       | =  |		.CONST	0x063d								; Address of begin
0631 0652       | R  |		.CONST	0x0652								; Address of exception handler
0632 0003       |    |		.CONST	0x0003								; Number of locals
0633			INIT_0630:
0633 e022       | "  |		Load	0x0,0x22
0634 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0635 02c7       |    |		Declare_Variable	Any
0636 00d8       |    |		Load_Top	At_Offset_0
0637 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0638 e02f       | /  |		Load	0x0,0x2f
0639 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
063a 02c7       |    |		Declare_Variable	Any
063b 00d8       |    |		Load_Top	At_Offset_0
063c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
063d			BODY_0630:
063d 00be       |    |		Action	Activate_Tasks
063e 00d8       |    |		Load_Top	At_Offset_0
063f 4800       |H   |		Short_Literal	0x0
0640 4800       |H   |		Short_Literal	0x0
0641 e5ff       |    |		Load	0x2,-0x1
0642 8245       | E  |		Call	0x1,0x45
0643 8244       | D  |		Call	0x1,0x44
0644 c403       |    |		Store	0x2,0x3
0645 e227       | '  |		Load	0x1,0x27
0646 00d9       |    |		Load_Top	At_Offset_1
0647 e02f       | /  |		Load	0x0,0x2f
0648 1841       | A  |		Execute	Package,Field_Execute,Field_Number 0x41
0649 8242       | B  |		Call	0x1,0x42
064a c402       |    |		Store	0x2,0x2
064b 00d8       |    |		Load_Top	At_Offset_0
064c e02f       | /  |		Load	0x0,0x2f
064d 1b50       | P  |		Execute	Package,Field_Read,Field_Number 0x50
064e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
064f c403       |    |		Store	0x2,0x3
0650 00d9       |    |		Load_Top	At_Offset_1
0651 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0652			TRAP_0630:
0652 0007       |    |		Action	Break_Optional
0653 00d9       |    |		Load_Top	At_Offset_1
0654 e030       | 0  |		Load	0x0,0x30
0655 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0656 6805       |h   |		Jump_Zero	0x65c
0657 00d9       |    |		Load_Top	At_Offset_1
0658 e02f       | /  |		Load	0x0,0x2f
0659 1b50       | P  |		Execute	Package,Field_Read,Field_Number 0x50
065a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
065b c403       |    |		Store	0x2,0x3
065c 00d8       |    |		Load_Top	At_Offset_0
065d 0101       |    |		Execute	Exception,Reraise
065e 0000 0000  |    |		.XXX[0x2]
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 0663       | c  |		.CONST	0x0663								; Address of begin
0661 0004       |    |		.CONST	0x0004								; Address of exception handler
0662 0001       |    |		.CONST	0x0001								; Number of locals
0663			BODY_0660:
0663			INIT_0660:
0663 00da       |    |		Load_Top	At_Offset_2
0664 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0665 e001       |    |		Load	0x0,0x1
0666 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0667 e009       |    |		Load	0x0,0x9
0668 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0669 e226       | &  |		Load	0x1,0x26
066a 01df       |    |		Execute	Vector,Equal
066b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
066c 0000 0000  |    |		.BLANK	0000[0x4]
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 0673       | s  |		.CONST	0x0673								; Address of begin
0671 0004       |    |		.CONST	0x0004								; Address of exception handler
0672 0001       |    |		.CONST	0x0001								; Number of locals
0673			BODY_0670:
0673			INIT_0670:
0673 4820       |H   |		Short_Literal	0x20
0674 4820       |H   |		Short_Literal	0x20
0675 e5fe       |    |		Load	0x2,-0x2
0676 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0677 e001       |    |		Load	0x0,0x1
0678 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0679 e5fe       |    |		Load	0x2,-0x2
067a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
067b e001       |    |		Load	0x0,0x1
067c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
067d 823f       | ?  |		Call	0x1,0x3f
067e e5fe       |    |		Load	0x2,-0x2
067f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0680 e001       |    |		Load	0x0,0x1
0681 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0682 823f       | ?  |		Call	0x1,0x3f
0683 00db       |    |		Load_Top	At_Offset_3
0684 e008       |    |		Load	0x0,0x8
0685 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0686 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0687 0000       |    |		.XXX[0x1]
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 0692       |    |		.CONST	0x0692								; Address of begin
0689 06c9       |    |		.CONST	0x06c9								; Address of exception handler
068a 0003       |    |		.CONST	0x0003								; Number of locals
068b			INIT_0688:
068b e008       |    |		Load	0x0,0x8
068c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
068d 02c7       |    |		Declare_Variable	Any
068e 00d8       |    |		Load_Top	At_Offset_0
068f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0690 00e3       |    |		Load_Encached	Natural_Cache
0691 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0692			BODY_0688:
0692 00d9       |    |		Load_Top	At_Offset_1
0693 e5fd       |    |		Load	0x2,-0x3
0694 0092 0bb8  |    |		Action	Push_String_Extended,0xbb8					; "SYNCHRONIZED"
0696 e5fe       |    |		Load	0x2,-0x2
0697 4801       |H   |		Short_Literal	0x1
0698 e008       |    |		Load	0x0,0x8
0699 1882       |    |		Execute	Package,Field_Execute,Field_Number 0x82
069a c402       |    |		Store	0x2,0x2
069b e025       | %  |		Load	0x0,0x25
069c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
069d 4802       |H   |		Short_Literal	0x2
069e 0092 0bb9  |    |		Action	Push_String_Extended,0xbb9					; "Writing remote passwords to "
06a0 e402       |    |		Load	0x2,0x2
06a1 e008       |    |		Load	0x0,0x8
06a2 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
06a3 01cc       |    |		Execute	Vector,Catenate
06a4 e027       | '  |		Load	0x0,0x27
06a5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
06a6 00cf       |    |		Action	Mark_Auxiliary
06a7 e5ff       |    |		Load	0x2,-0x1
06a8 01d9       |    |		Execute	Vector,Reverse_Bounds
06a9 0263       | c  |		Execute	Discrete,Above_Bound
06aa 7011       |p   |		Jump_Nonzero	0x6bc
06ab 00db       |    |		Load_Top	At_Offset_3
06ac 7008       |p   |		Jump_Nonzero	0x6b5
06ad 00d8       |    |		Load_Top	At_Offset_0
06ae e5ff       |    |		Load	0x2,-0x1
06af 01d5       |    |		Execute	Vector,Field_Reference
06b0 8247       | G  |		Call	0x1,0x47
06b1 6803       |h   |		Jump_Zero	0x6b5
06b2 00d8       |    |		Load_Top	At_Offset_0
06b3 a403       |    |		Store_Unchecked	0x2,0x3
06b4 7805       |x   |		Jump	0x6ba
06b5 00d8       |    |		Load_Top	At_Offset_0
06b6 e5ff       |    |		Load	0x2,-0x1
06b7 01d5       |    |		Execute	Vector,Field_Reference
06b8 e402       |    |		Load	0x2,0x2
06b9 8248       | H  |		Call	0x1,0x48
06ba 00c8       |    |		Action	Pop_Auxiliary_Range
06bb 3fef       |?   |		Loop_Increasing	0x6ab
06bc 00ce       |    |		Action	Pop_Auxiliary
06bd 00d8       |    |		Load_Top	At_Offset_0
06be 6805       |h   |		Jump_Zero	0x6c4
06bf 00d8       |    |		Load_Top	At_Offset_0
06c0 e5ff       |    |		Load	0x2,-0x1
06c1 01d5       |    |		Execute	Vector,Field_Reference
06c2 00da       |    |		Load_Top	At_Offset_2
06c3 8248       | H  |		Call	0x1,0x48
06c4 00d9       |    |		Load_Top	At_Offset_1
06c5 e008       |    |		Load	0x0,0x8
06c6 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
06c7 c402       |    |		Store	0x2,0x2
06c8 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
06c9			TRAP_0688:
06c9 4922       |I"  |		Short_Literal	0x122
06ca 010f       |    |		Execute	Exception,Equal
06cb 7006       |p   |		Jump_Nonzero	0x6d2
06cc 4923       |I#  |		Short_Literal	0x123
06cd 010f       |    |		Execute	Exception,Equal
06ce 7003       |p   |		Jump_Nonzero	0x6d2
06cf 4924       |I$  |		Short_Literal	0x124
06d0 010f       |    |		Execute	Exception,Equal
06d1 680a       |h   |		Jump_Zero	0x6dc
06d2 e5fc       |    |		Load	0x2,-0x4
06d3 4802       |H   |		Short_Literal	0x2
06d4 0092 0bba  |    |		Action	Push_String_Extended,0xbba					; "Remote_Passwords object does not exist; check your Profile.Remote_Passwords session switch"
06d6 0092 0bbb  |    |		Action	Push_String_Extended,0xbbb					; "NONEXISTENT_OBJECT"
06d8 e026       | &  |		Load	0x0,0x26
06d9 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
06da c5fc       |    |		Store	0x2,-0x4
06db 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
06dc 4931       |I1  |		Short_Literal	0x131
06dd 010f       |    |		Execute	Exception,Equal
06de 680f       |h   |		Jump_Zero	0x6ee
06df e5fc       |    |		Load	0x2,-0x4
06e0 4802       |H   |		Short_Literal	0x2
06e1 0092 0bbc  |    |		Action	Push_String_Extended,0xbbc					; "Insufficient privilege to access "
06e3 e5fe       |    |		Load	0x2,-0x2
06e4 01cc       |    |		Execute	Vector,Catenate
06e5 0092 0bbd  |    |		Action	Push_String_Extended,0xbbd					; "; check the ACLs on your Remote_Passwords file"
06e7 01cc       |    |		Execute	Vector,Catenate
06e8 0092 0bbe  |    |		Action	Push_String_Extended,0xbbe					; "ACCESS_ERROR"
06ea e026       | &  |		Load	0x0,0x26
06eb 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
06ec c5fc       |    |		Store	0x2,-0x4
06ed 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
06ee 4932       |I2  |		Short_Literal	0x132
06ef 010f       |    |		Execute	Exception,Equal
06f0 6812       |h   |		Jump_Zero	0x703
06f1 e5fc       |    |		Load	0x2,-0x4
06f2 4802       |H   |		Short_Literal	0x2
06f3 0092 0bbf  |    |		Action	Push_String_Extended,0xbbf					; "Remote_Passwords file "
06f5 e5fe       |    |		Load	0x2,-0x2
06f6 01cc       |    |		Execute	Vector,Catenate
06f7 0092 0bc0  |    |		Action	Push_String_Extended,0xbc0					; " is not checked out; use Cmvc.Check_Out"
06f9 01cc       |    |		Execute	Vector,Catenate
06fa 0092 0bc1  |    |		Action	Push_String_Extended,0xbc1					; " before attempting this operation again"
06fc 01cc       |    |		Execute	Vector,Catenate
06fd 0092 0bc2  |    |		Action	Push_String_Extended,0xbc2					; "POLICY_ERROR"
06ff e026       | &  |		Load	0x0,0x26
0700 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0701 c5fc       |    |		Store	0x2,-0x4
0702 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0703 4934       |I4  |		Short_Literal	0x134
0704 010f       |    |		Execute	Exception,Equal
0705 6812       |h   |		Jump_Zero	0x718
0706 e5fc       |    |		Load	0x2,-0x4
0707 4802       |H   |		Short_Literal	0x2
0708 0092 0bbf  |    |		Action	Push_String_Extended,0xbbf					; "Remote_Passwords file "
070a e5fe       |    |		Load	0x2,-0x2
070b 01cc       |    |		Execute	Vector,Catenate
070c 0092 0bc3  |    |		Action	Push_String_Extended,0xbc3					; " is frozen; use Library.Unfreeze before attempting"
070e 01cc       |    |		Execute	Vector,Catenate
070f 0092 0bc4  |    |		Action	Push_String_Extended,0xbc4					; " this operation again"
0711 01cc       |    |		Execute	Vector,Catenate
0712 0092 0bc2  |    |		Action	Push_String_Extended,0xbc2					; "POLICY_ERROR"
0714 e026       | &  |		Load	0x0,0x26
0715 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0716 c5fc       |    |		Store	0x2,-0x4
0717 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0718 4935       |I5  |		Short_Literal	0x135
0719 010f       |    |		Execute	Exception,Equal
071a 6812       |h   |		Jump_Zero	0x72d
071b e5fc       |    |		Load	0x2,-0x4
071c 4802       |H   |		Short_Literal	0x2
071d 0092 0bbf  |    |		Action	Push_String_Extended,0xbbf					; "Remote_Passwords file "
071f e5fe       |    |		Load	0x2,-0x2
0720 01cc       |    |		Execute	Vector,Catenate
0721 0092 0bc5  |    |		Action	Push_String_Extended,0xbc5					; " is locked; use What.Locks to determine who is"
0723 01cc       |    |		Execute	Vector,Catenate
0724 0092 0bc6  |    |		Action	Push_String_Extended,0xbc6					; " holding the locks on this object"
0726 01cc       |    |		Execute	Vector,Catenate
0727 0092 0bc7  |    |		Action	Push_String_Extended,0xbc7					; "LOCK_ERROR"
0729 e026       | &  |		Load	0x0,0x26
072a 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
072b c5fc       |    |		Store	0x2,-0x4
072c 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
072d 00da       |    |		Load_Top	At_Offset_2
072e e008       |    |		Load	0x0,0x8
072f 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0730 6804       |h   |		Jump_Zero	0x735
0731 00da       |    |		Load_Top	At_Offset_2
0732 e008       |    |		Load	0x0,0x8
0733 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0734 c402       |    |		Store	0x2,0x2
0735 e5fc       |    |		Load	0x2,-0x4
0736 4802       |H   |		Short_Literal	0x2
0737 e028       | (  |		Load	0x0,0x28
0738 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0739 0092 0bc8  |    |		Action	Push_String_Extended,0xbc8					; "UNHANDLED_EXCEPTION"
073b e026       | &  |		Load	0x0,0x26
073c 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
073d c5fc       |    |		Store	0x2,-0x4
073e 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
073f 0000       |    |		.XXX[0x1]
0740 ; --------------------------------------------------------------------------------------
0740 ; SUBPROGRAM
0740 ; --------------------------------------------------------------------------------------
0740 0743       | C  |		.CONST	0x0743								; Address of begin
0741 0004       |    |		.CONST	0x0004								; Address of exception handler
0742 0001       |    |		.CONST	0x0001								; Number of locals
0743			BODY_0740:
0743			INIT_0740:
0743 e5fc       |    |		Load	0x2,-0x4
0744 0120       |    |		Execute	Any,Is_Value
0745 6803       |h   |		Jump_Zero	0x749
0746 e026       | &  |		Load	0x0,0x26
0747 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0748 7801       |x   |		Jump	0x74a
0749 e5fc       |    |		Load	0x2,-0x4
074a e5fd       |    |		Load	0x2,-0x3
074b e5fe       |    |		Load	0x2,-0x2
074c e022       | "  |		Load	0x0,0x22
074d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
074e 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
074f e5ff       |    |		Load	0x2,-0x1
0750 8249       | I  |		Call	0x1,0x49
0751 c5fc       |    |		Store	0x2,-0x4
0752 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0753 0000 0000  |    |		.BLANK	0000[0x5]
0758 ; --------------------------------------------------------------------------------------
0758 ; SUBPROGRAM
0758 ; --------------------------------------------------------------------------------------
0758 075e       | ^  |		.CONST	0x075e								; Address of begin
0759 077b       | {  |		.CONST	0x077b								; Address of exception handler
075a 0002       |    |		.CONST	0x0002								; Number of locals
075b			INIT_0758:
075b e7fc       |    |		Load	0x3,-0x4
075c 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
075d 0007       |    |		Action	Break_Optional
075e			BODY_0758:
075e e22b       | +  |		Load	0x1,0x2b
075f 0322       | "  |		Declare_Variable	Record
0760 4800       |H   |		Short_Literal	0x0
0761 00da       |    |		Load_Top	At_Offset_2
0762 e7ff       |    |		Load	0x3,-0x1
0763 8224       | $  |		Call	0x1,0x24
0764 00d9       |    |		Load_Top	At_Offset_1
0765 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0766 4800       |H   |		Short_Literal	0x0
0767 00da       |    |		Load_Top	At_Offset_2
0768 e7fe       |    |		Load	0x3,-0x2
0769 8224       | $  |		Call	0x1,0x24
076a 00d9       |    |		Load_Top	At_Offset_1
076b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
076c 4800       |H   |		Short_Literal	0x0
076d 00da       |    |		Load_Top	At_Offset_2
076e e5fc       |    |		Load	0x2,-0x4
076f e405       |    |		Load	0x2,0x5
0770 e7fd       |    |		Load	0x3,-0x3
0771 823b       | ;  |		Call	0x1,0x3b
0772 823d       | =  |		Call	0x1,0x3d
0773 8224       | $  |		Call	0x1,0x24
0774 00d9       |    |		Load_Top	At_Offset_1
0775 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0776 e7fc       |    |		Load	0x3,-0x4
0777 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0778 e22d       | -  |		Load	0x1,0x2d
0779 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
077a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
077b			TRAP_0758:
077b e02b       | +  |		Load	0x0,0x2b
077c 010f       |    |		Execute	Exception,Equal
077d 6816       |h   |		Jump_Zero	0x794
077e e025       | %  |		Load	0x0,0x25
077f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0780 4806       |H   |		Short_Literal	0x6
0781 4822       |H"  |		Short_Literal	0x22
0782 0092 0bc9  |    |		Action	Push_String_Extended,0xbc9					; "Unable to read source entry for hostname \x22"
0784 e7ff       |    |		Load	0x3,-0x1
0785 01cc       |    |		Execute	Vector,Catenate
0786 0092 0bca  |    |		Action	Push_String_Extended,0xbca					; "\x22 because Source_Password is invalid for this entry."
0788 01cc       |    |		Execute	Vector,Catenate
0789 0092 0bcb  |    |		Action	Push_String_Extended,0xbcb					; "  This entry will not appear in the new file \x22"
078b 01cc       |    |		Execute	Vector,Catenate
078c e5ff       |    |		Load	0x2,-0x1
078d 01cc       |    |		Execute	Vector,Catenate
078e 01cb       |    |		Execute	Vector,Append
078f e027       | '  |		Load	0x0,0x27
0790 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0791 4801       |H   |		Short_Literal	0x1
0792 a403       |    |		Store_Unchecked	0x2,0x3
0793 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0794 0100       |    |		Execute	Exception,Raise
0795 0000 0000  |    |		.XXX[0x3]
0797 0000       |    |
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 07b1       |    |		.CONST	0x07b1								; Address of begin
0799 07fc       |    |		.CONST	0x07fc								; Address of exception handler
079a 0006       |    |		.CONST	0x0006								; Number of locals
079b			INIT_0798:
079b e02e       | .  |		Load	0x0,0x2e
079c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
079d 02c7       |    |		Declare_Variable	Any
079e 00d8       |    |		Load_Top	At_Offset_0
079f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07a0 e022       | "  |		Load	0x0,0x22
07a1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
07a2 02c7       |    |		Declare_Variable	Any
07a3 00d8       |    |		Load_Top	At_Offset_0
07a4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07a5 e22f       | /  |		Load	0x1,0x2f
07a6 0322       | "  |		Declare_Variable	Record
07a7 00d8       |    |		Load_Top	At_Offset_0
07a8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07a9 e026       | &  |		Load	0x0,0x26
07aa 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
07ab 02c7       |    |		Declare_Variable	Any
07ac 00d8       |    |		Load_Top	At_Offset_0
07ad 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07ae 00d9       |    |		Load_Top	At_Offset_1
07af 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
07b0 0007       |    |		Action	Break_Optional
07b1			BODY_0798:
07b1 00da       |    |		Load_Top	At_Offset_2
07b2 823e       | >  |		Call	0x1,0x3e
07b3 00d1       |    |		Pop_Control	Pop_Count_1
07b4 e404       |    |		Load	0x2,0x4
07b5 6825       |h%  |		Jump_Zero	0x7db
07b6 0092 0bcc  |    |		Action	Push_String_Extended,0xbcc					; "specified source"
07b8 e5fe       |    |		Load	0x2,-0x2
07b9 8243       | C  |		Call	0x1,0x43
07ba c603       |    |		Store	0x3,0x3
07bb e025       | %  |		Load	0x0,0x25
07bc 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
07bd 4802       |H   |		Short_Literal	0x2
07be e022       | "  |		Load	0x0,0x22
07bf 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
07c0 0092 0bcd  |    |		Action	Push_String_Extended,0xbcd					; "Reading remote password entries from <1>"
07c2 e603       |    |		Load	0x3,0x3
07c3 e027       | '  |		Load	0x0,0x27
07c4 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
07c5 00d9       |    |		Load_Top	At_Offset_1
07c6 0120       |    |		Execute	Any,Is_Value
07c7 6803       |h   |		Jump_Zero	0x7cb
07c8 e026       | &  |		Load	0x0,0x26
07c9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
07ca 7801       |x   |		Jump	0x7cc
07cb 00d9       |    |		Load_Top	At_Offset_1
07cc 00db       |    |		Load_Top	At_Offset_3
07cd e603       |    |		Load	0x3,0x3
07ce e407       |    |		Load	0x2,0x7
07cf 4808       |H   |		Short_Literal	0x8
07d0 4802       |H   |		Short_Literal	0x2
07d1 0099       |    |		Action	Reference_Dynamic
07d2 4809       |H   |		Short_Literal	0x9
07d3 4802       |H   |		Short_Literal	0x2
07d4 0099       |    |		Action	Reference_Dynamic
07d5 e009       |    |		Load	0x0,0x9
07d6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
07d7 00d1       |    |		Pop_Control	Pop_Count_1
07d8 c605       |    |		Store	0x3,0x5
07d9 00d9       |    |		Load_Top	At_Offset_1
07da 8231       | 1  |		Call	0x1,0x31
07db e033       | 3  |		Load	0x0,0x33
07dc 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
07dd e02e       | .  |		Load	0x0,0x2e
07de 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
07df c602       |    |		Store	0x3,0x2
07e0 00d9       |    |		Load_Top	At_Offset_1
07e1 0120       |    |		Execute	Any,Is_Value
07e2 6803       |h   |		Jump_Zero	0x7e6
07e3 e026       | &  |		Load	0x0,0x26
07e4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
07e5 7801       |x   |		Jump	0x7e7
07e6 00d9       |    |		Load_Top	At_Offset_1
07e7 e602       |    |		Load	0x3,0x2
07e8 e5ff       |    |		Load	0x2,-0x1
07e9 e604       |    |		Load	0x3,0x4
07ea 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
07eb e22d       | -  |		Load	0x1,0x2d
07ec 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
07ed 8249       | I  |		Call	0x1,0x49
07ee c605       |    |		Store	0x3,0x5
07ef e602       |    |		Load	0x3,0x2
07f0 4801       |H   |		Short_Literal	0x1
07f1 4801       |H   |		Short_Literal	0x1
07f2 e605       |    |		Load	0x3,0x5
07f3 e026       | &  |		Load	0x0,0x26
07f4 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
07f5 0f00       |    |		Execute_Immediate	Equal,0x0
07f6 e02e       | .  |		Load	0x0,0x2e
07f7 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
07f8 c602       |    |		Store	0x3,0x2
07f9 00d9       |    |		Load_Top	At_Offset_1
07fa 8231       | 1  |		Call	0x1,0x31
07fb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07fc			TRAP_0798:
07fc e029       | )  |		Load	0x0,0x29
07fd 010f       |    |		Execute	Exception,Equal
07fe 6803       |h   |		Jump_Zero	0x802
07ff 4801       |H   |		Short_Literal	0x1
0800 a402       |    |		Store_Unchecked	0x2,0x2
0801 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0802 0100       |    |		Execute	Exception,Raise
0803 0000 0000  |    |		.BLANK	0000[0x5]
0808 ; --------------------------------------------------------------------------------------
0808 ; SUBPROGRAM
0808 ; --------------------------------------------------------------------------------------
0808 081a       |    |		.CONST	0x081a								; Address of begin
0809 083e       | >  |		.CONST	0x083e								; Address of exception handler
080a 0004       |    |		.CONST	0x0004								; Number of locals
080b			INIT_0808:
080b e022       | "  |		Load	0x0,0x22
080c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
080d 02c7       |    |		Declare_Variable	Any
080e 00d8       |    |		Load_Top	At_Offset_0
080f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0810 e022       | "  |		Load	0x0,0x22
0811 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0812 02c7       |    |		Declare_Variable	Any
0813 00d8       |    |		Load_Top	At_Offset_0
0814 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0815 e02f       | /  |		Load	0x0,0x2f
0816 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0817 02c7       |    |		Declare_Variable	Any
0818 00d8       |    |		Load_Top	At_Offset_0
0819 1c00       |    |		Execute_Immediate	Run_Utility,0x0
081a			BODY_0808:
081a 00be       |    |		Action	Activate_Tasks
081b e5ff       |    |		Load	0x2,-0x1
081c 8242       | B  |		Call	0x1,0x42
081d c602       |    |		Store	0x3,0x2
081e e5fe       |    |		Load	0x2,-0x2
081f 8245       | E  |		Call	0x1,0x45
0820 c603       |    |		Store	0x3,0x3
0821 00d8       |    |		Load_Top	At_Offset_0
0822 4801       |H   |		Short_Literal	0x1
0823 4802       |H   |		Short_Literal	0x2
0824 e603       |    |		Load	0x3,0x3
0825 8244       | D  |		Call	0x1,0x44
0826 c604       |    |		Store	0x3,0x4
0827 00da       |    |		Load_Top	At_Offset_2
0828 e022       | "  |		Load	0x0,0x22
0829 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
082a 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
082b e227       | '  |		Load	0x1,0x27
082c 00da       |    |		Load_Top	At_Offset_2
082d e02f       | /  |		Load	0x0,0x2f
082e 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
082f 00d8       |    |		Load_Top	At_Offset_0
0830 e02f       | /  |		Load	0x0,0x2f
0831 1b50       | P  |		Execute	Package,Field_Read,Field_Number 0x50
0832 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0833 c604       |    |		Store	0x3,0x4
0834 e025       | %  |		Load	0x0,0x25
0835 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0836 4803       |H   |		Short_Literal	0x3
0837 00db       |    |		Load_Top	At_Offset_3
0838 0092 0bce  |    |		Action	Push_String_Extended,0xbce					; "<1> has been established as the default remote passwords file for session <2>"
083a e602       |    |		Load	0x3,0x2
083b e027       | '  |		Load	0x0,0x27
083c 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
083d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
083e			TRAP_0808:
083e e029       | )  |		Load	0x0,0x29
083f 010f       |    |		Execute	Exception,Equal
0840 680c       |h   |		Jump_Zero	0x84d
0841 4801       |H   |		Short_Literal	0x1
0842 a402       |    |		Store_Unchecked	0x2,0x2
0843 00d9       |    |		Load_Top	At_Offset_1
0844 e030       | 0  |		Load	0x0,0x30
0845 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0846 6805       |h   |		Jump_Zero	0x84c
0847 00d9       |    |		Load_Top	At_Offset_1
0848 e02f       | /  |		Load	0x0,0x2f
0849 1b50       | P  |		Execute	Package,Field_Read,Field_Number 0x50
084a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
084b c604       |    |		Store	0x3,0x4
084c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
084d 0100       |    |		Execute	Exception,Raise
084e 0000 0000  |    |		.XXX[0x2]
0850 ; --------------------------------------------------------------------------------------
0850 ; SUBPROGRAM
0850 ; --------------------------------------------------------------------------------------
0850 0856       | V  |		.CONST	0x0856								; Address of begin
0851 0004       |    |		.CONST	0x0004								; Address of exception handler
0852 0002       |    |		.CONST	0x0002								; Number of locals
0853			INIT_0850:
0853 e7fc       |    |		Load	0x3,-0x4
0854 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0855 0007       |    |		Action	Break_Optional
0856			BODY_0850:
0856 e404       |    |		Load	0x2,0x4
0857 e7ff       |    |		Load	0x3,-0x1
0858 e009       |    |		Load	0x0,0x9
0859 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
085a 01df       |    |		Execute	Vector,Equal
085b a402       |    |		Store_Unchecked	0x2,0x2
085c e402       |    |		Load	0x2,0x2
085d 6803       |h   |		Jump_Zero	0x861
085e 4800       |H   |		Short_Literal	0x0
085f a7fb       |    |		Store_Unchecked	0x3,-0x5
0860 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0861 e22b       | +  |		Load	0x1,0x2b
0862 0322       | "  |		Declare_Variable	Record
0863 4800       |H   |		Short_Literal	0x0
0864 00da       |    |		Load_Top	At_Offset_2
0865 e7ff       |    |		Load	0x3,-0x1
0866 8224       | $  |		Call	0x1,0x24
0867 00d9       |    |		Load_Top	At_Offset_1
0868 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0869 4800       |H   |		Short_Literal	0x0
086a 00da       |    |		Load_Top	At_Offset_2
086b e7fe       |    |		Load	0x3,-0x2
086c 8224       | $  |		Call	0x1,0x24
086d 00d9       |    |		Load_Top	At_Offset_1
086e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
086f 4800       |H   |		Short_Literal	0x0
0870 00da       |    |		Load_Top	At_Offset_2
0871 e7fd       |    |		Load	0x3,-0x3
0872 8224       | $  |		Call	0x1,0x24
0873 00d9       |    |		Load_Top	At_Offset_1
0874 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0875 e7fc       |    |		Load	0x3,-0x4
0876 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0877 e22d       | -  |		Load	0x1,0x2d
0878 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0879 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
087a 0000 0000  |    |		.BLANK	0000[0x6]
0880 ; --------------------------------------------------------------------------------------
0880 ; SUBPROGRAM
0880 ; --------------------------------------------------------------------------------------
0880 0899       |    |		.CONST	0x0899								; Address of begin
0881 0918       |    |		.CONST	0x0918								; Address of exception handler
0882 0006       |    |		.CONST	0x0006								; Number of locals
0883			INIT_0880:
0883 e02e       | .  |		Load	0x0,0x2e
0884 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0885 02c7       |    |		Declare_Variable	Any
0886 00d8       |    |		Load_Top	At_Offset_0
0887 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0888 e022       | "  |		Load	0x0,0x22
0889 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
088a 02c7       |    |		Declare_Variable	Any
088b 00d8       |    |		Load_Top	At_Offset_0
088c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
088d e22f       | /  |		Load	0x1,0x2f
088e 0322       | "  |		Declare_Variable	Record
088f 00d8       |    |		Load_Top	At_Offset_0
0890 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0891 e026       | &  |		Load	0x0,0x26
0892 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0893 02c7       |    |		Declare_Variable	Any
0894 00d8       |    |		Load_Top	At_Offset_0
0895 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0896 00d9       |    |		Load_Top	At_Offset_1
0897 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0898 0007       |    |		Action	Break_Optional
0899			BODY_0880:
0899 e5fb       |    |		Load	0x2,-0x5
089a 8246       | F  |		Call	0x1,0x46
089b c603       |    |		Store	0x3,0x3
089c 00da       |    |		Load_Top	At_Offset_2
089d 823e       | >  |		Call	0x1,0x3e
089e 00d1       |    |		Pop_Control	Pop_Count_1
089f 00d9       |    |		Load_Top	At_Offset_1
08a0 0120       |    |		Execute	Any,Is_Value
08a1 6803       |h   |		Jump_Zero	0x8a5
08a2 e026       | &  |		Load	0x0,0x26
08a3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
08a4 7801       |x   |		Jump	0x8a6
08a5 00d9       |    |		Load_Top	At_Offset_1
08a6 00db       |    |		Load_Top	At_Offset_3
08a7 e603       |    |		Load	0x3,0x3
08a8 e406       |    |		Load	0x2,0x6
08a9 4807       |H   |		Short_Literal	0x7
08aa 4802       |H   |		Short_Literal	0x2
08ab 0099       |    |		Action	Reference_Dynamic
08ac 4808       |H   |		Short_Literal	0x8
08ad 4802       |H   |		Short_Literal	0x2
08ae 0099       |    |		Action	Reference_Dynamic
08af e009       |    |		Load	0x0,0x9
08b0 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
08b1 00d1       |    |		Pop_Control	Pop_Count_1
08b2 c605       |    |		Store	0x3,0x5
08b3 00d9       |    |		Load_Top	At_Offset_1
08b4 8231       | 1  |		Call	0x1,0x31
08b5 e402       |    |		Load	0x2,0x2
08b6 6813       |h   |		Jump_Zero	0x8ca
08b7 e025       | %  |		Load	0x0,0x25
08b8 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
08b9 4807       |H   |		Short_Literal	0x7
08ba e022       | "  |		Load	0x0,0x22
08bb 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
08bc 0092 0bcf  |    |		Action	Push_String_Extended,0xbcf					; "Hostname \x22"
08be e404       |    |		Load	0x2,0x4
08bf 01cc       |    |		Execute	Vector,Catenate
08c0 0092 0bd0  |    |		Action	Push_String_Extended,0xbd0					; "\x22 already appears in <1>, use Change"
08c2 01cc       |    |		Execute	Vector,Catenate
08c3 0092 0bd1  |    |		Action	Push_String_Extended,0xbd1					; " if you want to modify the existing value"
08c5 01cc       |    |		Execute	Vector,Catenate
08c6 e603       |    |		Load	0x3,0x3
08c7 e027       | '  |		Load	0x0,0x27
08c8 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
08c9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
08ca e22b       | +  |		Load	0x1,0x2b
08cb 0322       | "  |		Declare_Variable	Record
08cc 4800       |H   |		Short_Literal	0x0
08cd 00da       |    |		Load_Top	At_Offset_2
08ce e5ff       |    |		Load	0x2,-0x1
08cf 8224       | $  |		Call	0x1,0x24
08d0 00d9       |    |		Load_Top	At_Offset_1
08d1 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
08d2 4800       |H   |		Short_Literal	0x0
08d3 00da       |    |		Load_Top	At_Offset_2
08d4 e5fe       |    |		Load	0x2,-0x2
08d5 8224       | $  |		Call	0x1,0x24
08d6 00d9       |    |		Load_Top	At_Offset_1
08d7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
08d8 4800       |H   |		Short_Literal	0x0
08d9 00da       |    |		Load_Top	At_Offset_2
08da e5fc       |    |		Load	0x2,-0x4
08db 0092 0bd2  |    |		Action	Push_String_Extended,0xbd2					; "new password"
08dd e5fd       |    |		Load	0x2,-0x3
08de e004       |    |		Load	0x0,0x4
08df 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
08e0 823d       | =  |		Call	0x1,0x3d
08e1 8224       | $  |		Call	0x1,0x24
08e2 00d9       |    |		Load_Top	At_Offset_1
08e3 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
08e4 00db       |    |		Load_Top	At_Offset_3
08e5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
08e6 e22d       | -  |		Load	0x1,0x2d
08e7 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
08e8 e033       | 3  |		Load	0x0,0x33
08e9 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
08ea e02e       | .  |		Load	0x0,0x2e
08eb 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
08ec c602       |    |		Store	0x3,0x2
08ed 00d9       |    |		Load_Top	At_Offset_1
08ee 0120       |    |		Execute	Any,Is_Value
08ef 6803       |h   |		Jump_Zero	0x8f3
08f0 e026       | &  |		Load	0x0,0x26
08f1 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
08f2 7801       |x   |		Jump	0x8f4
08f3 00d9       |    |		Load_Top	At_Offset_1
08f4 e602       |    |		Load	0x3,0x2
08f5 e603       |    |		Load	0x3,0x3
08f6 e604       |    |		Load	0x3,0x4
08f7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
08f8 e22d       | -  |		Load	0x1,0x2d
08f9 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
08fa 824a       | J  |		Call	0x1,0x4a
08fb c605       |    |		Store	0x3,0x5
08fc e602       |    |		Load	0x3,0x2
08fd 4801       |H   |		Short_Literal	0x1
08fe 4801       |H   |		Short_Literal	0x1
08ff e605       |    |		Load	0x3,0x5
0900 e026       | &  |		Load	0x0,0x26
0901 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0902 0f00       |    |		Execute_Immediate	Equal,0x0
0903 e02e       | .  |		Load	0x0,0x2e
0904 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0905 c602       |    |		Store	0x3,0x2
0906 00d9       |    |		Load_Top	At_Offset_1
0907 8231       | 1  |		Call	0x1,0x31
0908 e025       | %  |		Load	0x0,0x25
0909 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
090a 4803       |H   |		Short_Literal	0x3
090b e022       | "  |		Load	0x0,0x22
090c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
090d 0092 0bcf  |    |		Action	Push_String_Extended,0xbcf					; "Hostname \x22"
090f e404       |    |		Load	0x2,0x4
0910 01cc       |    |		Execute	Vector,Catenate
0911 0092 0bd3  |    |		Action	Push_String_Extended,0xbd3					; "\x22 has been successfully added to <1>"
0913 01cc       |    |		Execute	Vector,Catenate
0914 e603       |    |		Load	0x3,0x3
0915 e027       | '  |		Load	0x0,0x27
0916 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0917 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0918			TRAP_0880:
0918 e029       | )  |		Load	0x0,0x29
0919 010f       |    |		Execute	Exception,Equal
091a 6803       |h   |		Jump_Zero	0x91e
091b 4801       |H   |		Short_Literal	0x1
091c a402       |    |		Store_Unchecked	0x2,0x2
091d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
091e 0100       |    |		Execute	Exception,Raise
091f 0000       |    |		.XXX[0x1]
0920 ; --------------------------------------------------------------------------------------
0920 ; SUBPROGRAM
0920 ; --------------------------------------------------------------------------------------
0920 0926       | &  |		.CONST	0x0926								; Address of begin
0921 0004       |    |		.CONST	0x0004								; Address of exception handler
0922 0002       |    |		.CONST	0x0002								; Number of locals
0923			INIT_0920:
0923 e7fc       |    |		Load	0x3,-0x4
0924 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0925 0007       |    |		Action	Break_Optional
0926			BODY_0920:
0926 e405       |    |		Load	0x2,0x5
0927 e7ff       |    |		Load	0x3,-0x1
0928 e009       |    |		Load	0x0,0x9
0929 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
092a 01df       |    |		Execute	Vector,Equal
092b 6821       |h!  |		Jump_Zero	0x94d
092c 4801       |H   |		Short_Literal	0x1
092d a402       |    |		Store_Unchecked	0x2,0x2
092e e22b       | +  |		Load	0x1,0x2b
092f 0322       | "  |		Declare_Variable	Record
0930 4800       |H   |		Short_Literal	0x0
0931 00da       |    |		Load_Top	At_Offset_2
0932 e5ff       |    |		Load	0x2,-0x1
0933 8224       | $  |		Call	0x1,0x24
0934 00d9       |    |		Load_Top	At_Offset_1
0935 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0936 4800       |H   |		Short_Literal	0x0
0937 00da       |    |		Load_Top	At_Offset_2
0938 e5fe       |    |		Load	0x2,-0x2
0939 8224       | $  |		Call	0x1,0x24
093a 00d9       |    |		Load_Top	At_Offset_1
093b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
093c 4800       |H   |		Short_Literal	0x0
093d 00da       |    |		Load_Top	At_Offset_2
093e e5fc       |    |		Load	0x2,-0x4
093f 0092 0bd2  |    |		Action	Push_String_Extended,0xbd2					; "new password"
0941 e5fd       |    |		Load	0x2,-0x3
0942 e004       |    |		Load	0x0,0x4
0943 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0944 823d       | =  |		Call	0x1,0x3d
0945 8224       | $  |		Call	0x1,0x24
0946 00d9       |    |		Load_Top	At_Offset_1
0947 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0948 e7fc       |    |		Load	0x3,-0x4
0949 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
094a e22d       | -  |		Load	0x1,0x2d
094b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
094c 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
094d e22b       | +  |		Load	0x1,0x2b
094e 0322       | "  |		Declare_Variable	Record
094f 4800       |H   |		Short_Literal	0x0
0950 00da       |    |		Load_Top	At_Offset_2
0951 e7ff       |    |		Load	0x3,-0x1
0952 8224       | $  |		Call	0x1,0x24
0953 00d9       |    |		Load_Top	At_Offset_1
0954 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0955 4800       |H   |		Short_Literal	0x0
0956 00da       |    |		Load_Top	At_Offset_2
0957 e7fe       |    |		Load	0x3,-0x2
0958 8224       | $  |		Call	0x1,0x24
0959 00d9       |    |		Load_Top	At_Offset_1
095a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
095b 4800       |H   |		Short_Literal	0x0
095c 00da       |    |		Load_Top	At_Offset_2
095d e7fd       |    |		Load	0x3,-0x3
095e 8224       | $  |		Call	0x1,0x24
095f 00d9       |    |		Load_Top	At_Offset_1
0960 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0961 e7fc       |    |		Load	0x3,-0x4
0962 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0963 e22d       | -  |		Load	0x1,0x2d
0964 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0965 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0966 0000 0000  |    |		.XXX[0x2]
0968 ; --------------------------------------------------------------------------------------
0968 ; SUBPROGRAM
0968 ; --------------------------------------------------------------------------------------
0968 0981       |    |		.CONST	0x0981								; Address of begin
0969 09fb       |    |		.CONST	0x09fb								; Address of exception handler
096a 0006       |    |		.CONST	0x0006								; Number of locals
096b			INIT_0968:
096b e02e       | .  |		Load	0x0,0x2e
096c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
096d 02c7       |    |		Declare_Variable	Any
096e 00d8       |    |		Load_Top	At_Offset_0
096f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0970 e022       | "  |		Load	0x0,0x22
0971 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0972 02c7       |    |		Declare_Variable	Any
0973 00d8       |    |		Load_Top	At_Offset_0
0974 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0975 e22f       | /  |		Load	0x1,0x2f
0976 0322       | "  |		Declare_Variable	Record
0977 00d8       |    |		Load_Top	At_Offset_0
0978 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0979 e026       | &  |		Load	0x0,0x26
097a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
097b 02c7       |    |		Declare_Variable	Any
097c 00d8       |    |		Load_Top	At_Offset_0
097d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
097e 00d9       |    |		Load_Top	At_Offset_1
097f 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0980 0007       |    |		Action	Break_Optional
0981			BODY_0968:
0981 e5fb       |    |		Load	0x2,-0x5
0982 8246       | F  |		Call	0x1,0x46
0983 c603       |    |		Store	0x3,0x3
0984 00da       |    |		Load_Top	At_Offset_2
0985 823e       | >  |		Call	0x1,0x3e
0986 00d1       |    |		Pop_Control	Pop_Count_1
0987 00d9       |    |		Load_Top	At_Offset_1
0988 0120       |    |		Execute	Any,Is_Value
0989 6803       |h   |		Jump_Zero	0x98d
098a e026       | &  |		Load	0x0,0x26
098b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
098c 7801       |x   |		Jump	0x98e
098d 00d9       |    |		Load_Top	At_Offset_1
098e 00db       |    |		Load_Top	At_Offset_3
098f e603       |    |		Load	0x3,0x3
0990 e407       |    |		Load	0x2,0x7
0991 4808       |H   |		Short_Literal	0x8
0992 4802       |H   |		Short_Literal	0x2
0993 0099       |    |		Action	Reference_Dynamic
0994 4809       |H   |		Short_Literal	0x9
0995 4802       |H   |		Short_Literal	0x2
0996 0099       |    |		Action	Reference_Dynamic
0997 e009       |    |		Load	0x0,0x9
0998 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0999 00d1       |    |		Pop_Control	Pop_Count_1
099a c605       |    |		Store	0x3,0x5
099b 00d9       |    |		Load_Top	At_Offset_1
099c 8231       | 1  |		Call	0x1,0x31
099d e402       |    |		Load	0x2,0x2
099e 702d       |p-  |		Jump_Nonzero	0x9cc
099f e025       | %  |		Load	0x0,0x25
09a0 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
09a1 4802       |H   |		Short_Literal	0x2
09a2 e022       | "  |		Load	0x0,0x22
09a3 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
09a4 0092 0bcf  |    |		Action	Push_String_Extended,0xbcf					; "Hostname \x22"
09a6 e405       |    |		Load	0x2,0x5
09a7 01cc       |    |		Execute	Vector,Catenate
09a8 0092 0bd4  |    |		Action	Push_String_Extended,0xbd4					; "\x22 does not appear in <1>"
09aa 01cc       |    |		Execute	Vector,Catenate
09ab e603       |    |		Load	0x3,0x3
09ac e027       | '  |		Load	0x0,0x27
09ad 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
09ae e22b       | +  |		Load	0x1,0x2b
09af 0322       | "  |		Declare_Variable	Record
09b0 4800       |H   |		Short_Literal	0x0
09b1 00da       |    |		Load_Top	At_Offset_2
09b2 e5ff       |    |		Load	0x2,-0x1
09b3 8224       | $  |		Call	0x1,0x24
09b4 00d9       |    |		Load_Top	At_Offset_1
09b5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
09b6 4800       |H   |		Short_Literal	0x0
09b7 00da       |    |		Load_Top	At_Offset_2
09b8 e5fe       |    |		Load	0x2,-0x2
09b9 8224       | $  |		Call	0x1,0x24
09ba 00d9       |    |		Load_Top	At_Offset_1
09bb 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
09bc 4800       |H   |		Short_Literal	0x0
09bd 00da       |    |		Load_Top	At_Offset_2
09be e5fc       |    |		Load	0x2,-0x4
09bf 0092 0bd2  |    |		Action	Push_String_Extended,0xbd2					; "new password"
09c1 e5fd       |    |		Load	0x2,-0x3
09c2 e004       |    |		Load	0x0,0x4
09c3 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
09c4 823d       | =  |		Call	0x1,0x3d
09c5 8224       | $  |		Call	0x1,0x24
09c6 00d9       |    |		Load_Top	At_Offset_1
09c7 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
09c8 00db       |    |		Load_Top	At_Offset_3
09c9 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
09ca e22d       | -  |		Load	0x1,0x2d
09cb 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
09cc e033       | 3  |		Load	0x0,0x33
09cd 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
09ce e02e       | .  |		Load	0x0,0x2e
09cf 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
09d0 c602       |    |		Store	0x3,0x2
09d1 00d9       |    |		Load_Top	At_Offset_1
09d2 0120       |    |		Execute	Any,Is_Value
09d3 6803       |h   |		Jump_Zero	0x9d7
09d4 e026       | &  |		Load	0x0,0x26
09d5 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
09d6 7801       |x   |		Jump	0x9d8
09d7 00d9       |    |		Load_Top	At_Offset_1
09d8 e602       |    |		Load	0x3,0x2
09d9 e603       |    |		Load	0x3,0x3
09da e604       |    |		Load	0x3,0x4
09db 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
09dc e22d       | -  |		Load	0x1,0x2d
09dd 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
09de 824a       | J  |		Call	0x1,0x4a
09df c605       |    |		Store	0x3,0x5
09e0 e602       |    |		Load	0x3,0x2
09e1 4801       |H   |		Short_Literal	0x1
09e2 4801       |H   |		Short_Literal	0x1
09e3 e605       |    |		Load	0x3,0x5
09e4 e026       | &  |		Load	0x0,0x26
09e5 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
09e6 0f00       |    |		Execute_Immediate	Equal,0x0
09e7 e02e       | .  |		Load	0x0,0x2e
09e8 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
09e9 c602       |    |		Store	0x3,0x2
09ea 00d9       |    |		Load_Top	At_Offset_1
09eb 8231       | 1  |		Call	0x1,0x31
09ec e025       | %  |		Load	0x0,0x25
09ed 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
09ee 4803       |H   |		Short_Literal	0x3
09ef e022       | "  |		Load	0x0,0x22
09f0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
09f1 4822       |H"  |		Short_Literal	0x22
09f2 0092 0bd5  |    |		Action	Push_String_Extended,0xbd5					; "<1> has been successfully modified for hostname \x22"
09f4 e405       |    |		Load	0x2,0x5
09f5 01cc       |    |		Execute	Vector,Catenate
09f6 01cb       |    |		Execute	Vector,Append
09f7 e603       |    |		Load	0x3,0x3
09f8 e027       | '  |		Load	0x0,0x27
09f9 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
09fa 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
09fb			TRAP_0968:
09fb e029       | )  |		Load	0x0,0x29
09fc 010f       |    |		Execute	Exception,Equal
09fd 6803       |h   |		Jump_Zero	0xa01
09fe 4801       |H   |		Short_Literal	0x1
09ff a403       |    |		Store_Unchecked	0x2,0x3
0a00 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a01 0100       |    |		Execute	Exception,Raise
0a02 0000 0000  |    |		.BLANK	0000[0x6]
0a08 ; --------------------------------------------------------------------------------------
0a08 ; SUBPROGRAM
0a08 ; --------------------------------------------------------------------------------------
0a08 0a0e       |    |		.CONST	0x0a0e								; Address of begin
0a09 0004       |    |		.CONST	0x0004								; Address of exception handler
0a0a 0002       |    |		.CONST	0x0002								; Number of locals
0a0b			INIT_0a08:
0a0b e7fc       |    |		Load	0x3,-0x4
0a0c 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0a0d 0007       |    |		Action	Break_Optional
0a0e			BODY_0a08:
0a0e e405       |    |		Load	0x2,0x5
0a0f e7ff       |    |		Load	0x3,-0x1
0a10 e009       |    |		Load	0x0,0x9
0a11 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0a12 01df       |    |		Execute	Vector,Equal
0a13 6803       |h   |		Jump_Zero	0xa17
0a14 4801       |H   |		Short_Literal	0x1
0a15 a402       |    |		Store_Unchecked	0x2,0x2
0a16 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0a17 e22b       | +  |		Load	0x1,0x2b
0a18 0322       | "  |		Declare_Variable	Record
0a19 4800       |H   |		Short_Literal	0x0
0a1a 00da       |    |		Load_Top	At_Offset_2
0a1b e7ff       |    |		Load	0x3,-0x1
0a1c 8224       | $  |		Call	0x1,0x24
0a1d 00d9       |    |		Load_Top	At_Offset_1
0a1e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0a1f 4800       |H   |		Short_Literal	0x0
0a20 00da       |    |		Load_Top	At_Offset_2
0a21 e7fe       |    |		Load	0x3,-0x2
0a22 8224       | $  |		Call	0x1,0x24
0a23 00d9       |    |		Load_Top	At_Offset_1
0a24 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0a25 4800       |H   |		Short_Literal	0x0
0a26 00da       |    |		Load_Top	At_Offset_2
0a27 e7fd       |    |		Load	0x3,-0x3
0a28 8224       | $  |		Call	0x1,0x24
0a29 00d9       |    |		Load_Top	At_Offset_1
0a2a 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0a2b e7fc       |    |		Load	0x3,-0x4
0a2c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0a2d e22d       | -  |		Load	0x1,0x2d
0a2e 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0a2f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0a30 ; --------------------------------------------------------------------------------------
0a30 ; SUBPROGRAM
0a30 ; --------------------------------------------------------------------------------------
0a30 0a49       | I  |		.CONST	0x0a49								; Address of begin
0a31 0aa9       |    |		.CONST	0x0aa9								; Address of exception handler
0a32 0006       |    |		.CONST	0x0006								; Number of locals
0a33			INIT_0a30:
0a33 e02e       | .  |		Load	0x0,0x2e
0a34 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0a35 02c7       |    |		Declare_Variable	Any
0a36 00d8       |    |		Load_Top	At_Offset_0
0a37 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0a38 e022       | "  |		Load	0x0,0x22
0a39 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0a3a 02c7       |    |		Declare_Variable	Any
0a3b 00d8       |    |		Load_Top	At_Offset_0
0a3c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0a3d e22f       | /  |		Load	0x1,0x2f
0a3e 0322       | "  |		Declare_Variable	Record
0a3f 00d8       |    |		Load_Top	At_Offset_0
0a40 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0a41 e026       | &  |		Load	0x0,0x26
0a42 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0a43 02c7       |    |		Declare_Variable	Any
0a44 00d8       |    |		Load_Top	At_Offset_0
0a45 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0a46 00d9       |    |		Load_Top	At_Offset_1
0a47 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0a48 0007       |    |		Action	Break_Optional
0a49			BODY_0a30:
0a49 e5fe       |    |		Load	0x2,-0x2
0a4a 8246       | F  |		Call	0x1,0x46
0a4b c603       |    |		Store	0x3,0x3
0a4c 00da       |    |		Load_Top	At_Offset_2
0a4d 823e       | >  |		Call	0x1,0x3e
0a4e 00d1       |    |		Pop_Control	Pop_Count_1
0a4f 00d9       |    |		Load_Top	At_Offset_1
0a50 0120       |    |		Execute	Any,Is_Value
0a51 6803       |h   |		Jump_Zero	0xa55
0a52 e026       | &  |		Load	0x0,0x26
0a53 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0a54 7801       |x   |		Jump	0xa56
0a55 00d9       |    |		Load_Top	At_Offset_1
0a56 00db       |    |		Load_Top	At_Offset_3
0a57 e603       |    |		Load	0x3,0x3
0a58 e407       |    |		Load	0x2,0x7
0a59 4808       |H   |		Short_Literal	0x8
0a5a 4802       |H   |		Short_Literal	0x2
0a5b 0099       |    |		Action	Reference_Dynamic
0a5c 4809       |H   |		Short_Literal	0x9
0a5d 4802       |H   |		Short_Literal	0x2
0a5e 0099       |    |		Action	Reference_Dynamic
0a5f e009       |    |		Load	0x0,0x9
0a60 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0a61 00d1       |    |		Pop_Control	Pop_Count_1
0a62 c605       |    |		Store	0x3,0x5
0a63 00d9       |    |		Load_Top	At_Offset_1
0a64 8231       | 1  |		Call	0x1,0x31
0a65 e402       |    |		Load	0x2,0x2
0a66 6830       |h0  |		Jump_Zero	0xa97
0a67 e033       | 3  |		Load	0x0,0x33
0a68 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0a69 e02e       | .  |		Load	0x0,0x2e
0a6a 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0a6b c602       |    |		Store	0x3,0x2
0a6c 00d9       |    |		Load_Top	At_Offset_1
0a6d 0120       |    |		Execute	Any,Is_Value
0a6e 6803       |h   |		Jump_Zero	0xa72
0a6f e026       | &  |		Load	0x0,0x26
0a70 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0a71 7801       |x   |		Jump	0xa73
0a72 00d9       |    |		Load_Top	At_Offset_1
0a73 e602       |    |		Load	0x3,0x2
0a74 e603       |    |		Load	0x3,0x3
0a75 e604       |    |		Load	0x3,0x4
0a76 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0a77 e22d       | -  |		Load	0x1,0x2d
0a78 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0a79 824a       | J  |		Call	0x1,0x4a
0a7a c605       |    |		Store	0x3,0x5
0a7b e602       |    |		Load	0x3,0x2
0a7c 4801       |H   |		Short_Literal	0x1
0a7d 4801       |H   |		Short_Literal	0x1
0a7e e605       |    |		Load	0x3,0x5
0a7f e026       | &  |		Load	0x0,0x26
0a80 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0a81 0f00       |    |		Execute_Immediate	Equal,0x0
0a82 e02e       | .  |		Load	0x0,0x2e
0a83 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0a84 c602       |    |		Store	0x3,0x2
0a85 00d9       |    |		Load_Top	At_Offset_1
0a86 8231       | 1  |		Call	0x1,0x31
0a87 e025       | %  |		Load	0x0,0x25
0a88 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0a89 4803       |H   |		Short_Literal	0x3
0a8a e022       | "  |		Load	0x0,0x22
0a8b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0a8c 0092 0bcf  |    |		Action	Push_String_Extended,0xbcf					; "Hostname \x22"
0a8e e405       |    |		Load	0x2,0x5
0a8f 01cc       |    |		Execute	Vector,Catenate
0a90 0092 0bd6  |    |		Action	Push_String_Extended,0xbd6					; "\x22 has been deleted from <1>"
0a92 01cc       |    |		Execute	Vector,Catenate
0a93 e603       |    |		Load	0x3,0x3
0a94 e027       | '  |		Load	0x0,0x27
0a95 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0a96 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0a97 4801       |H   |		Short_Literal	0x1
0a98 a404       |    |		Store_Unchecked	0x2,0x4
0a99 e025       | %  |		Load	0x0,0x25
0a9a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0a9b 4806       |H   |		Short_Literal	0x6
0a9c e022       | "  |		Load	0x0,0x22
0a9d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0a9e 0092 0bcf  |    |		Action	Push_String_Extended,0xbcf					; "Hostname \x22"
0aa0 e405       |    |		Load	0x2,0x5
0aa1 01cc       |    |		Execute	Vector,Catenate
0aa2 0092 0bd4  |    |		Action	Push_String_Extended,0xbd4					; "\x22 does not appear in <1>"
0aa4 01cc       |    |		Execute	Vector,Catenate
0aa5 e603       |    |		Load	0x3,0x3
0aa6 e027       | '  |		Load	0x0,0x27
0aa7 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0aa8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0aa9			TRAP_0a30:
0aa9 e029       | )  |		Load	0x0,0x29
0aaa 010f       |    |		Execute	Exception,Equal
0aab 6803       |h   |		Jump_Zero	0xaaf
0aac 4801       |H   |		Short_Literal	0x1
0aad a403       |    |		Store_Unchecked	0x2,0x3
0aae 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0aaf 0100       |    |		Execute	Exception,Raise
0ab0 ; --------------------------------------------------------------------------------------
0ab0 ; SUBPROGRAM
0ab0 ; --------------------------------------------------------------------------------------
0ab0 0ab9       |    |		.CONST	0x0ab9								; Address of begin
0ab1 0ad6       |    |		.CONST	0x0ad6								; Address of exception handler
0ab2 0003       |    |		.CONST	0x0003								; Number of locals
0ab3			INIT_0ab0:
0ab3 e7fd       |    |		Load	0x3,-0x3
0ab4 e004       |    |		Load	0x0,0x4
0ab5 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0ab6 e7fc       |    |		Load	0x3,-0x4
0ab7 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0ab8 0007       |    |		Action	Break_Optional
0ab9			BODY_0ab0:
0ab9 e22b       | +  |		Load	0x1,0x2b
0aba 0322       | "  |		Declare_Variable	Record
0abb 4800       |H   |		Short_Literal	0x0
0abc 00da       |    |		Load_Top	At_Offset_2
0abd e7ff       |    |		Load	0x3,-0x1
0abe 8224       | $  |		Call	0x1,0x24
0abf 00d9       |    |		Load_Top	At_Offset_1
0ac0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0ac1 4800       |H   |		Short_Literal	0x0
0ac2 00da       |    |		Load_Top	At_Offset_2
0ac3 e7fe       |    |		Load	0x3,-0x2
0ac4 8224       | $  |		Call	0x1,0x24
0ac5 00d9       |    |		Load_Top	At_Offset_1
0ac6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0ac7 4800       |H   |		Short_Literal	0x0
0ac8 00da       |    |		Load_Top	At_Offset_2
0ac9 e602       |    |		Load	0x3,0x2
0aca e404       |    |		Load	0x2,0x4
0acb e7fd       |    |		Load	0x3,-0x3
0acc 823b       | ;  |		Call	0x1,0x3b
0acd 823c       | <  |		Call	0x1,0x3c
0ace 8224       | $  |		Call	0x1,0x24
0acf 00d9       |    |		Load_Top	At_Offset_1
0ad0 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0ad1 e7fc       |    |		Load	0x3,-0x4
0ad2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0ad3 e22d       | -  |		Load	0x1,0x2d
0ad4 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0ad5 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0ad6			TRAP_0ab0:
0ad6 e02b       | +  |		Load	0x0,0x2b
0ad7 010f       |    |		Execute	Exception,Equal
0ad8 6810       |h   |		Jump_Zero	0xae9
0ad9 e025       | %  |		Load	0x0,0x25
0ada 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0adb 4807       |H   |		Short_Literal	0x7
0adc 4822       |H"  |		Short_Literal	0x22
0add 0092 0bd7  |    |		Action	Push_String_Extended,0xbd7					; "A decryption error was detected while updating the entry for hostname \x22"
0adf e7ff       |    |		Load	0x3,-0x1
0ae0 01cc       |    |		Execute	Vector,Catenate
0ae1 01cb       |    |		Execute	Vector,Append
0ae2 e027       | '  |		Load	0x0,0x27
0ae3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0ae4 4800       |H   |		Short_Literal	0x0
0ae5 a7fb       |    |		Store_Unchecked	0x3,-0x5
0ae6 4801       |H   |		Short_Literal	0x1
0ae7 a402       |    |		Store_Unchecked	0x2,0x2
0ae8 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0ae9 0100       |    |		Execute	Exception,Raise
0aea 0000 0000  |    |		.BLANK	0000[0x6]
0af0 ; --------------------------------------------------------------------------------------
0af0 ; SUBPROGRAM
0af0 ; --------------------------------------------------------------------------------------
0af0 0b09       |    |		.CONST	0x0b09								; Address of begin
0af1 0b53       | S  |		.CONST	0x0b53								; Address of exception handler
0af2 0006       |    |		.CONST	0x0006								; Number of locals
0af3			INIT_0af0:
0af3 e02e       | .  |		Load	0x0,0x2e
0af4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0af5 02c7       |    |		Declare_Variable	Any
0af6 00d8       |    |		Load_Top	At_Offset_0
0af7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0af8 e022       | "  |		Load	0x0,0x22
0af9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0afa 02c7       |    |		Declare_Variable	Any
0afb 00d8       |    |		Load_Top	At_Offset_0
0afc 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0afd e22f       | /  |		Load	0x1,0x2f
0afe 0322       | "  |		Declare_Variable	Record
0aff 00d8       |    |		Load_Top	At_Offset_0
0b00 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0b01 e026       | &  |		Load	0x0,0x26
0b02 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0b03 02c7       |    |		Declare_Variable	Any
0b04 00d8       |    |		Load_Top	At_Offset_0
0b05 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0b06 00d9       |    |		Load_Top	At_Offset_1
0b07 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0b08 0007       |    |		Action	Break_Optional
0b09			BODY_0af0:
0b09 e5fe       |    |		Load	0x2,-0x2
0b0a 8246       | F  |		Call	0x1,0x46
0b0b c603       |    |		Store	0x3,0x3
0b0c 00da       |    |		Load_Top	At_Offset_2
0b0d 823e       | >  |		Call	0x1,0x3e
0b0e 00d1       |    |		Pop_Control	Pop_Count_1
0b0f 00d9       |    |		Load_Top	At_Offset_1
0b10 0120       |    |		Execute	Any,Is_Value
0b11 6803       |h   |		Jump_Zero	0xb15
0b12 e026       | &  |		Load	0x0,0x26
0b13 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0b14 7801       |x   |		Jump	0xb16
0b15 00d9       |    |		Load_Top	At_Offset_1
0b16 00db       |    |		Load_Top	At_Offset_3
0b17 e603       |    |		Load	0x3,0x3
0b18 e406       |    |		Load	0x2,0x6
0b19 4807       |H   |		Short_Literal	0x7
0b1a 4802       |H   |		Short_Literal	0x2
0b1b 0099       |    |		Action	Reference_Dynamic
0b1c 4808       |H   |		Short_Literal	0x8
0b1d 4802       |H   |		Short_Literal	0x2
0b1e 0099       |    |		Action	Reference_Dynamic
0b1f e009       |    |		Load	0x0,0x9
0b20 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0b21 00d1       |    |		Pop_Control	Pop_Count_1
0b22 c605       |    |		Store	0x3,0x5
0b23 00d9       |    |		Load_Top	At_Offset_1
0b24 8231       | 1  |		Call	0x1,0x31
0b25 e402       |    |		Load	0x2,0x2
0b26 7021       |p!  |		Jump_Nonzero	0xb48
0b27 e033       | 3  |		Load	0x0,0x33
0b28 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0b29 e02e       | .  |		Load	0x0,0x2e
0b2a 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0b2b c602       |    |		Store	0x3,0x2
0b2c 00d9       |    |		Load_Top	At_Offset_1
0b2d 0120       |    |		Execute	Any,Is_Value
0b2e 6803       |h   |		Jump_Zero	0xb32
0b2f e026       | &  |		Load	0x0,0x26
0b30 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0b31 7801       |x   |		Jump	0xb33
0b32 00d9       |    |		Load_Top	At_Offset_1
0b33 e602       |    |		Load	0x3,0x2
0b34 e603       |    |		Load	0x3,0x3
0b35 e604       |    |		Load	0x3,0x4
0b36 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0b37 e22d       | -  |		Load	0x1,0x2d
0b38 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0b39 824a       | J  |		Call	0x1,0x4a
0b3a c605       |    |		Store	0x3,0x5
0b3b e602       |    |		Load	0x3,0x2
0b3c 4801       |H   |		Short_Literal	0x1
0b3d 4801       |H   |		Short_Literal	0x1
0b3e e605       |    |		Load	0x3,0x5
0b3f e026       | &  |		Load	0x0,0x26
0b40 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0b41 0f00       |    |		Execute_Immediate	Equal,0x0
0b42 e02e       | .  |		Load	0x0,0x2e
0b43 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0b44 c602       |    |		Store	0x3,0x2
0b45 00d9       |    |		Load_Top	At_Offset_1
0b46 8231       | 1  |		Call	0x1,0x31
0b47 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b48 e025       | %  |		Load	0x0,0x25
0b49 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0b4a 4805       |H   |		Short_Literal	0x5
0b4b e022       | "  |		Load	0x0,0x22
0b4c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0b4d 0092 0bd8  |    |		Action	Push_String_Extended,0xbd8					; "Old password is invalid, <1> was not updated"
0b4f e603       |    |		Load	0x3,0x3
0b50 e027       | '  |		Load	0x0,0x27
0b51 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0b52 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b53			TRAP_0af0:
0b53 e029       | )  |		Load	0x0,0x29
0b54 010f       |    |		Execute	Exception,Equal
0b55 6803       |h   |		Jump_Zero	0xb59
0b56 4801       |H   |		Short_Literal	0x1
0b57 a402       |    |		Store_Unchecked	0x2,0x2
0b58 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b59 0100       |    |		Execute	Exception,Raise
0b5a 0000 0000  |    |		.BLANK	0000[0x6]
0b60 ; --------------------------------------------------------------------------------------
0b60 ; SUBPROGRAM
0b60 ; --------------------------------------------------------------------------------------
0b60 0b63       | c  |		.CONST	0x0b63								; Address of begin
0b61 0b67       | g  |		.CONST	0x0b67								; Address of exception handler
0b62 0001       |    |		.CONST	0x0001								; Number of locals
0b63			BODY_0b60:
0b63			INIT_0b60:
0b63 e5ff       |    |		Load	0x2,-0x1
0b64 8246       | F  |		Call	0x1,0x46
0b65 c404       |    |		Store	0x2,0x4
0b66 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b67			TRAP_0b60:
0b67 e029       | )  |		Load	0x0,0x29
0b68 010f       |    |		Execute	Exception,Equal
0b69 6803       |h   |		Jump_Zero	0xb6d
0b6a 4801       |H   |		Short_Literal	0x1
0b6b a402       |    |		Store_Unchecked	0x2,0x2
0b6c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b6d 0100       |    |		Execute	Exception,Raise
0b6e 0000 0000  |    |		.XXX[0x2]
0b70 ; --------------------------------------------------------------------------------------
0b70 ; SUBPROGRAM
0b70 ; --------------------------------------------------------------------------------------
0b70 0b73       | s  |		.CONST	0x0b73								; Address of begin
0b71 0004       |    |		.CONST	0x0004								; Address of exception handler
0b72 0001       |    |		.CONST	0x0001								; Number of locals
0b73			BODY_0b70:
0b73			INIT_0b70:
0b73 e025       | %  |		Load	0x0,0x25
0b74 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0b75 4800       |H   |		Short_Literal	0x0
0b76 485d       |H]  |		Short_Literal	0x5d
0b77 485b       |H[  |		Short_Literal	0x5b
0b78 e402       |    |		Load	0x2,0x2
0b79 01ca       |    |		Execute	Vector,Prepend
0b7a e7ff       |    |		Load	0x3,-0x1
0b7b 01cc       |    |		Execute	Vector,Catenate
0b7c 01cb       |    |		Execute	Vector,Append
0b7d e027       | '  |		Load	0x0,0x27
0b7e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0b7f e403       |    |		Load	0x2,0x3
0b80 e025       | %  |		Load	0x0,0x25
0b81 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0b82 00db       |    |		Load_Top	At_Offset_3
0b83 6803       |h   |		Jump_Zero	0xb87
0b84 e025       | %  |		Load	0x0,0x25
0b85 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
0b86 0257       | W  |		Execute	Discrete,Raise
0b87 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0b88 ; --------------------------------------------------------------------------------------
0b88 ; STRING TABLE
0b88 ; --------------------------------------------------------------------------------------
0b88 00a4       |    |		.STRTAB	0x00a4->0x0bda							; "NONE"
0b89 00a6       |    |		.STRTAB	0x00a6->0x0bdc							; "HEX"
0b8a 00a7       |    |		.STRTAB	0x00a7->0x0bdd							; "DES"
0b8b 00a8       |    |		.STRTAB	0x00a8->0x0bdf							; "Remote_Passwords"
0b8c 00b6       |    |		.STRTAB	0x00b6->0x0be7							; "OTHERS"
0b8d 00ba       |    |		.STRTAB	0x00ba->0x0bea							; "Profile.Remote_Passwords"
0b8e 00d0       |    |		.STRTAB	0x00d0->0x0bf6							; "source password"
0b8f 00dd       |    |		.STRTAB	0x00dd->0x0bfd							; "Create"
0b90 00e1       |    |		.STRTAB	0x00e1->0x0c00							; "New_File => \x22"
0b91 00ec       |    |		.STRTAB	0x00ec->0x0c07							; "\x22, Source_File => \x22"
0b92 00fd       |    |		.STRTAB	0x00fd->0x0c10							; "\x22, Encryption => "
0b93 010c       |    |		.STRTAB	0x010c->0x0c19							; ", Response => \x22"
0b94 0119       |    |		.STRTAB	0x0119->0x0c20							; "Set_Default"
0b95 0122       | "  |		.STRTAB	0x0122->0x0c26							; "Existing_File => \x22"
0b96 0132       | 2  |		.STRTAB	0x0132->0x0c2f							; "\x22, For_Session => \x22"
0b97 0143       | C  |		.STRTAB	0x0143->0x0c38							; "\x22, Response => \x22"
0b98 0151       | Q  |		.STRTAB	0x0151->0x0c40							; "Add"
0b99 0152       | R  |		.STRTAB	0x0152->0x0c42							; "New_Hostname => \x22"
0b9a 0161       | a  |		.STRTAB	0x0161->0x0c4a							; "Change"
0b9b 0165       | e  |		.STRTAB	0x0165->0x0c4d							; "Existing_Hostname => \x22"
0b9c 0179       | y  |		.STRTAB	0x0179->0x0c58							; "Delete"
0b9d 017d       | }  |		.STRTAB	0x017d->0x0c5b							; "password"
0b9e 0183       |    |		.STRTAB	0x0183->0x0c5f							; "old password"
0b9f 018d       |    |		.STRTAB	0x018d->0x0c65							; "Update"
0ba0 0191       |    |		.STRTAB	0x0191->0x0c68							; "For_Session => \x22"
0ba1 019f       |    |		.STRTAB	0x019f->0x0c70							; "Get_Default"
0ba2 01a8       |    |		.STRTAB	0x01a8->0x0c76							; "Remote_Passwords."
0ba3 01b7       |    |		.STRTAB	0x01b7->0x0c7e							; " ("
0ba4 01b7       |    |		.STRTAB	0x01b7->0x0c7f							; ");]"
0ba5 01b8       |    |		.STRTAB	0x01b8->0x0c81							; " has completed with warnings"
0ba6 01d2       |    |		.STRTAB	0x01d2->0x0c8f							; " has completed"
0ba7 01de       |    |		.STRTAB	0x01de->0x0c96							; " has terminated with errors"
0ba8 01f7       |    |		.STRTAB	0x01f7->0x0ca3							; "Unexpected "
0ba9 0200       |    |		.STRTAB	0x0200->0x0ca9							; " has terminated with an internal error"
0baa 0224       | $  |		.STRTAB	0x0224->0x0cbc							; "<NIL>"
0bab 0227       | '  |		.STRTAB	0x0227->0x0cbe							; "<>"
0bac 0227       | '  |		.STRTAB	0x0227->0x0cbf							; "Unable to resolve remote passwords object \x22"
0bad 0250       | P  |		.STRTAB	0x0250->0x0cd5							; "\x22 because "
0bae 0258       | X  |		.STRTAB	0x0258->0x0cda							; "Unable to resolve "
0baf 0268       | h  |		.STRTAB	0x0268->0x0ce3							; "object"
0bb0 026c       | l  |		.STRTAB	0x026c->0x0ce6							; " \x22"
0bb1 026c       | l  |		.STRTAB	0x026c->0x0ce7							; "_SWITCHES"
0bb2 0273       | s  |		.STRTAB	0x0273->0x0ceb							; "Created session switch file <1>"
0bb3 0290       |    |		.STRTAB	0x0290->0x0cfb							; "Unable to open session switch file for <1> ("
0bb4 02ba       |    |		.STRTAB	0x02ba->0x0d11							; "Session switch file for <1> does not exist because "
0bb5 02eb       |    |		.STRTAB	0x02eb->0x0d2a							; "specified session"
0bb6 02fa       |    |		.STRTAB	0x02fa->0x0d33							; "<1> is not an object of class Session; you must specify a naming expression like "
0bb7 0349       | I  |		.STRTAB	0x0349->0x0d5b							; ".S_1"
0bb8 034b       | K  |		.STRTAB	0x034b->0x0d5d							; "SYNCHRONIZED"
0bb9 0355       | U  |		.STRTAB	0x0355->0x0d63							; "Writing remote passwords to "
0bba 036f       | o  |		.STRTAB	0x036f->0x0d71							; "Remote_Passwords object does not exist; check your Profile.Remote_Passwords session switch"
0bbb 03c7       |    |		.STRTAB	0x03c7->0x0d9e							; "NONEXISTENT_OBJECT"
0bbc 03d7       |    |		.STRTAB	0x03d7->0x0da7							; "Insufficient privilege to access "
0bbd 03f6       |    |		.STRTAB	0x03f6->0x0db8							; "; check the ACLs on your Remote_Passwords file"
0bbe 0422       | "  |		.STRTAB	0x0422->0x0dcf							; "ACCESS_ERROR"
0bbf 042c       | ,  |		.STRTAB	0x042c->0x0dd5							; "Remote_Passwords file "
0bc0 0440       | @  |		.STRTAB	0x0440->0x0de0							; " is not checked out; use Cmvc.Check_Out"
0bc1 0465       | e  |		.STRTAB	0x0465->0x0df3							; " before attempting this operation again"
0bc2 048a       |    |		.STRTAB	0x048a->0x0e07							; "POLICY_ERROR"
0bc3 0494       |    |		.STRTAB	0x0494->0x0e0d							; " is frozen; use Library.Unfreeze before attempting"
0bc4 04c4       |    |		.STRTAB	0x04c4->0x0e26							; " this operation again"
0bc5 04d7       |    |		.STRTAB	0x04d7->0x0e30							; " is locked; use What.Locks to determine who is"
0bc6 0503       |    |		.STRTAB	0x0503->0x0e47							; " holding the locks on this object"
0bc7 0522       | "  |		.STRTAB	0x0522->0x0e58							; "LOCK_ERROR"
0bc8 052a       | *  |		.STRTAB	0x052a->0x0e5d							; "UNHANDLED_EXCEPTION"
0bc9 053b       | ;  |		.STRTAB	0x053b->0x0e66							; "Unable to read source entry for hostname \x22"
0bca 0563       | c  |		.STRTAB	0x0563->0x0e7b							; "\x22 because Source_Password is invalid for this entry."
0bcb 0595       |    |		.STRTAB	0x0595->0x0e95							; "  This entry will not appear in the new file \x22"
0bcc 05c1       |    |		.STRTAB	0x05c1->0x0eac							; "specified source"
0bcd 05cf       |    |		.STRTAB	0x05cf->0x0eb4							; "Reading remote password entries from <1>"
0bce 05f5       |    |		.STRTAB	0x05f5->0x0ec8							; "<1> has been established as the default remote passwords file for session <2>"
0bcf 0640       | @  |		.STRTAB	0x0640->0x0eef							; "Hostname \x22"
0bd0 0648       | H  |		.STRTAB	0x0648->0x0ef4							; "\x22 already appears in <1>, use Change"
0bd1 066a       | j  |		.STRTAB	0x066a->0x0f06							; " if you want to modify the existing value"
0bd2 0691       |    |		.STRTAB	0x0691->0x0f1a							; "new password"
0bd3 069b       |    |		.STRTAB	0x069b->0x0f20							; "\x22 has been successfully added to <1>"
0bd4 06bd       |    |		.STRTAB	0x06bd->0x0f32							; "\x22 does not appear in <1>"
0bd5 06d3       |    |		.STRTAB	0x06d3->0x0f3e							; "<1> has been successfully modified for hostname \x22"
0bd6 0702       |    |		.STRTAB	0x0702->0x0f57							; "\x22 has been deleted from <1>"
0bd7 071b       |    |		.STRTAB	0x071b->0x0f64							; "A decryption error was detected while updating the entry for hostname \x22"
0bd8 0760       | `  |		.STRTAB	0x0760->0x0f88							; "Old password is invalid, <1> was not updated"
0bd9 078a       |    |		.STREND 0x078a->0x0f9e
0bda 4e4f 4e45  |NONE|		.STRTAB_STRINGS
0f9e 0000 0000  |    |		.XXX[0x2]
0fa0 ; --------------------------------------------------------------------------------------
0fa0 ; Debug Table
0fa0 ; --------------------------------------------------------------------------------------
0fa0 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0xca0e,0x0000,0x0001,0x0000
0fa6 0000 0000  |    |		.BLANK	0000[0x5a]