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

⟦32019c941⟧

    Length: 6144 (0x1800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦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 0a18       |    |		.CONST	0x0a18								; 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 8006       |    |		.CONST	0x8006								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00af       |    |		.CONST	0x00af								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 003a       | :  |		.CONST	0x003a								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4801       |H   |		Short_Literal	0x1
000d 029f 00bb  |    |		Declare_Subprogram	INIT_00b8,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 00c4       |    |		Action	Make_Default
0026 00c4       |    |		Action	Make_Default
0027 00c4       |    |		Action	Make_Default
0028 00c4       |    |		Action	Make_Default
0029 00c4       |    |		Action	Make_Default
002a 00c4       |    |		Action	Make_Default
002b 00c4       |    |		Action	Make_Default
002c 00c4       |    |		Action	Make_Default
002d 00c4       |    |		Action	Make_Default
002e 00c4       |    |		Action	Make_Default
002f 00c4       |    |		Action	Make_Default
0030 00c4       |    |		Action	Make_Default
0031 e001       |    |		Load	0x0,0x1
0032 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
0033 e002       |    |		Load	0x0,0x2
0034 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0035 029f 0793  |    |		Declare_Subprogram	INIT_0790,For_Call
0037 4802       |H   |		Short_Literal	0x2
0038 032e       | .  |		Declare_Type	Record,Defined,Visible
0039 c22d       | -  |		Store	0x1,0x2d
003a e003       |    |		Load	0x0,0x3
003b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
003c 0129       | )  |		Execute	Any,Make_Visible
003d c21d       |    |		Store	0x1,0x1d
003e 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated
0040 c21e       |    |		Store	0x1,0x1e
0041 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
0043 c21f       |    |		Store	0x1,0x1f
0044 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
0046 c220       |    |		Store	0x1,0x20
0047 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0049 c226       | &  |		Store	0x1,0x26
004a 029a 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call,Visible,Unelaborated
004c c221       | !  |		Store	0x1,0x21
004d 029a 0283  |    |		Declare_Subprogram	INIT_0280,For_Outer_Call,Visible,Unelaborated
004f c22b       | +  |		Store	0x1,0x2b
0050 029a 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Outer_Call,Visible,Unelaborated
0052 c22c       | ,  |		Store	0x1,0x2c
0053 029a 034b  |   K|		Declare_Subprogram	INIT_0348,For_Outer_Call,Visible,Unelaborated
0055 c224       | $  |		Store	0x1,0x24
0056 029a 041b  |    |		Declare_Subprogram	INIT_0418,For_Outer_Call,Visible,Unelaborated
0058 c225       | %  |		Store	0x1,0x25
0059 029a 0443  |   C|		Declare_Subprogram	INIT_0440,For_Outer_Call,Visible,Unelaborated
005b c22a       | *  |		Store	0x1,0x2a
005c 029a 049b  |    |		Declare_Subprogram	INIT_0498,For_Outer_Call,Visible,Unelaborated
005e c22e       | .  |		Store	0x1,0x2e
005f 00bf       |    |		Action	Accept_Activation
0060 e004       |    |		Load	0x0,0x4
0061 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0062 e005       |    |		Load	0x0,0x5
0063 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0064 00e1       |    |		Load_Encached	Boolean_Cache
0065 e005       |    |		Load	0x0,0x5
0066 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0067 4900       |I   |		Short_Literal	0x100
0068 e006       |    |		Load	0x0,0x6
0069 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
006a 1c07       |    |		Execute_Immediate	Run_Utility,0x7
006b 4900       |I   |		Short_Literal	0x100
006c e006       |    |		Load	0x0,0x6
006d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
006e 1c07       |    |		Execute_Immediate	Run_Utility,0x7
006f 4900       |I   |		Short_Literal	0x100
0070 e006       |    |		Load	0x0,0x6
0071 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0072 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0073 4900       |I   |		Short_Literal	0x100
0074 e006       |    |		Load	0x0,0x6
0075 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0076 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0077 e22d       | -  |		Load	0x1,0x2d
0078 029f 04c3  |    |		Declare_Subprogram	INIT_04c0,For_Call
007a 4809       |H   |		Short_Literal	0x9
007b 032d       | -  |		Declare_Type	Record,Defined
007c 029d 04fb  |    |		Declare_Subprogram	INIT_04f8,For_Outer_Call
007e 029d 0533  |   3|		Declare_Subprogram	INIT_0530,For_Outer_Call
0080 e007       |    |		Load	0x0,0x7
0081 e008       |    |		Load	0x0,0x8
0082 e22f       | /  |		Load	0x1,0x2f
0083 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
0084 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
0085 e009       |    |		Load	0x0,0x9
0086 0387       |    |		Declare_Variable	Package
0087 00d8       |    |		Load_Top	At_Offset_0
0088 020f       |    |		Execute	Module,Activate
0089 029d 0563  |   c|		Declare_Subprogram	INIT_0560,For_Outer_Call
008b 029d 0573  |   s|		Declare_Subprogram	INIT_0570,For_Outer_Call
008d 029d 0583  |    |		Declare_Subprogram	INIT_0580,For_Outer_Call
008f 029d 0593  |    |		Declare_Subprogram	INIT_0590,For_Outer_Call
0091 029d 0623  |   #|		Declare_Subprogram	INIT_0620,For_Outer_Call
0093 029d 0643  |   C|		Declare_Subprogram	INIT_0640,For_Outer_Call
0095 029d 0653  |   S|		Declare_Subprogram	INIT_0650,For_Outer_Call
0097 029d 066b  |   k|		Declare_Subprogram	INIT_0668,For_Outer_Call
0099 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
009a 00c7       |    |		Action	Elaborate_Subprogram
009b 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
009c 00c7       |    |		Action	Elaborate_Subprogram
009d 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
009e 00c7       |    |		Action	Elaborate_Subprogram
009f 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
00a0 00c7       |    |		Action	Elaborate_Subprogram
00a1 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00a2 00c7       |    |		Action	Elaborate_Subprogram
00a3 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00a4 00c7       |    |		Action	Elaborate_Subprogram
00a5 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
00a6 00c7       |    |		Action	Elaborate_Subprogram
00a7 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
00a8 00c7       |    |		Action	Elaborate_Subprogram
00a9 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00aa 00c7       |    |		Action	Elaborate_Subprogram
00ab 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00ac 00c7       |    |		Action	Elaborate_Subprogram
00ad 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
00ae 00c7       |    |		Action	Elaborate_Subprogram
00af			BODY_0008:
00af 00bc       |    |		Action	Signal_Activated
00b0 00bb       |    |		Action	Signal_Completion
00b1 0000 0000  |    |		.BLANK	0000[0x7]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb 4607       |F   |		Jump_Case	0x8
00bc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00bd 7806       |x   |		Jump	0xc4								; case 0x1
00be 7809       |x   |		Jump	0xc8								; case 0x2
00bf 780d       |x   |		Jump	0xcd								; case 0x3
00c0 7810       |x   |		Jump	0xd1								; case 0x4
00c1 7811       |x   |		Jump	0xd3								; case 0x5
00c2 7812       |x   |		Jump	0xd5								; case 0x6
00c3 7815       |x   |		Jump	0xd9								; case 0x7
00c4 00da       |    |		Load_Top	At_Offset_2
00c5 0091 07a9  |    |		Action	Push_String_Extended_Indexed,0x7a9				; "TEXT"
00c7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00c8 00db       |    |		Load_Top	At_Offset_3
00c9 00db       |    |		Load_Top	At_Offset_3
00ca 00e0       |    |		Load_Encached	Standard_Cache
00cb 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00cc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00cd 00da       |    |		Load_Top	At_Offset_2
00ce 00e0       |    |		Load_Encached	Standard_Cache
00cf 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00d0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00d1 00db       |    |		Load_Top	At_Offset_3
00d2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00d3 00db       |    |		Load_Top	At_Offset_3
00d4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00d5 e20d       |    |		Load	0x1,0xd
00d6 00dc       |    |		Load_Top	At_Offset_4
00d7 0267       | g  |		Execute	Discrete,Predecessor
00d8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00d9 e20d       |    |		Load	0x1,0xd
00da 00dc       |    |		Load_Top	At_Offset_4
00db 0268       | h  |		Execute	Discrete,Successor
00dc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00dd 0000 0000  |    |		.XXX[0x3]
00df 0000       |    |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00f4       |    |		.CONST	0x00f4								; Address of begin
00e1 0164       | d  |		.CONST	0x0164								; Address of exception handler
00e2 0006       |    |		.CONST	0x0006								; Number of locals
00e3			INIT_00e0:
00e3 e004       |    |		Load	0x0,0x4
00e4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00e5 e004       |    |		Load	0x0,0x4
00e6 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00e7 03f1       |    |		Declare_Variable	Discrete,With_Value
00e8 e22f       | /  |		Load	0x1,0x2f
00e9 0322       | "  |		Declare_Variable	Record
00ea 00d8       |    |		Load_Top	At_Offset_0
00eb 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00ec 00e1       |    |		Load_Encached	Boolean_Cache
00ed 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
00ee e21d       |    |		Load	0x1,0x1d
00ef 02c7       |    |		Declare_Variable	Any
00f0 00d8       |    |		Load_Top	At_Offset_0
00f1 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00f2 029f 0683  |    |		Declare_Subprogram	INIT_0680,For_Call
00f4			BODY_00e0:
00f4 00d9       |    |		Load_Top	At_Offset_1
00f5 c5fa       |    |		Store	0x2,-0x6
00f6 e402       |    |		Load	0x2,0x2
00f7 e232       | 2  |		Load	0x1,0x32
00f8 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00f9 7006       |p   |		Jump_Nonzero	0x100
00fa e402       |    |		Load	0x2,0x2
00fb e232       | 2  |		Load	0x1,0x32
00fc 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00fd e403       |    |		Load	0x2,0x3
00fe 017d       | }  |		Execute	Record,Structure_Write
00ff 784b       |xK  |		Jump	0x14b
0100 e402       |    |		Load	0x2,0x2
0101 e232       | 2  |		Load	0x1,0x32
0102 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0103 700f       |p   |		Jump_Nonzero	0x113
0104 00d9       |    |		Load_Top	At_Offset_1
0105 e5fc       |    |		Load	0x2,-0x4
0106 e403       |    |		Load	0x2,0x3
0107 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
0108 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0109 e002       |    |		Load	0x0,0x2
010a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
010b c405       |    |		Store	0x2,0x5
010c 8237       | 7  |		Call	0x1,0x37
010d e402       |    |		Load	0x2,0x2
010e e232       | 2  |		Load	0x1,0x32
010f 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0110 e403       |    |		Load	0x2,0x3
0111 017d       | }  |		Execute	Record,Structure_Write
0112 7838       |x8  |		Jump	0x14b
0113 e402       |    |		Load	0x2,0x2
0114 e232       | 2  |		Load	0x1,0x32
0115 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0116 e403       |    |		Load	0x2,0x3
0117 017d       | }  |		Execute	Record,Structure_Write
0118 00db       |    |		Load_Top	At_Offset_3
0119 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
011a 6825       |h%  |		Jump_Zero	0x140
011b 00db       |    |		Load_Top	At_Offset_3
011c 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
011d e004       |    |		Load	0x0,0x4
011e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
011f 027f       |    |		Execute	Discrete,Equal
0120 681f       |h   |		Jump_Zero	0x140
0121 4800       |H   |		Short_Literal	0x0
0122 e5fe       |    |		Load	0x2,-0x2
0123 e403       |    |		Load	0x2,0x3
0124 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0125 e006       |    |		Load	0x0,0x6
0126 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0127 e00a       |    |		Load	0x0,0xa
0128 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0129 680b       |h   |		Jump_Zero	0x135
012a 4800       |H   |		Short_Literal	0x0
012b e5fd       |    |		Load	0x2,-0x3
012c e403       |    |		Load	0x2,0x3
012d 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
012e e006       |    |		Load	0x0,0x6
012f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0130 e00a       |    |		Load	0x0,0xa
0131 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0132 6802       |h   |		Jump_Zero	0x135
0133 4800       |H   |		Short_Literal	0x0
0134 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0135 00db       |    |		Load_Top	At_Offset_3
0136 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
0137 e5fb       |    |		Load	0x2,-0x5
0138 017d       | }  |		Execute	Record,Structure_Write
0139 e5fb       |    |		Load	0x2,-0x5
013a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
013b e00b       |    |		Load	0x0,0xb
013c 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
013d 7002       |p   |		Jump_Nonzero	0x140
013e 4801       |H   |		Short_Literal	0x1
013f 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0140 00da       |    |		Load_Top	At_Offset_2
0141 6809       |h   |		Jump_Zero	0x14b
0142 00d9       |    |		Load_Top	At_Offset_1
0143 e5fc       |    |		Load	0x2,-0x4
0144 e403       |    |		Load	0x2,0x3
0145 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
0146 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0147 e002       |    |		Load	0x0,0x2
0148 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0149 c405       |    |		Store	0x2,0x5
014a 8237       | 7  |		Call	0x1,0x37
014b 00da       |    |		Load_Top	At_Offset_2
014c 680d       |h   |		Jump_Zero	0x15a
014d e5fd       |    |		Load	0x2,-0x3
014e e5fe       |    |		Load	0x2,-0x2
014f 8406       |    |		Call	0x2,0x6
0150 4801       |H   |		Short_Literal	0x1
0151 e5fa       |    |		Load	0x2,-0x6
0152 e003       |    |		Load	0x0,0x3
0153 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0154 6804       |h   |		Jump_Zero	0x159
0155 e004       |    |		Load	0x0,0x4
0156 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0157 e232       | 2  |		Load	0x1,0x32
0158 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0159 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
015a e00c       |    |		Load	0x0,0xc
015b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
015c 480a       |H   |		Short_Literal	0xa
015d 0092 07ab  |    |		Action	Push_String_Extended,0x7ab					; "Reusing the existing connection to "
015f e5ff       |    |		Load	0x2,-0x1
0160 01cc       |    |		Execute	Vector,Catenate
0161 e00d       |    |		Load	0x0,0xd
0162 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0163 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0164			TRAP_00e0:
0164 0007       |    |		Action	Break_Optional
0165 e5fa       |    |		Load	0x2,-0x6
0166 0092 07ac  |    |		Action	Push_String_Extended,0x7ac					; "Acquire"
0168 8239       | 9  |		Call	0x1,0x39
0169 c5fa       |    |		Store	0x2,-0x6
016a 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
016b 0000 0000  |    |		.BLANK	0000[0x5]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0177       | w  |		.CONST	0x0177								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0002       |    |		.CONST	0x0002								; Number of locals
0173			INIT_0170:
0173 e21d       |    |		Load	0x1,0x1d
0174 02c7       |    |		Declare_Variable	Any
0175 00d8       |    |		Load_Top	At_Offset_0
0176 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0177			BODY_0170:
0177 00d8       |    |		Load_Top	At_Offset_0
0178 e5f9       |    |		Load	0x2,-0x7
0179 e5fa       |    |		Load	0x2,-0x6
017a e5fb       |    |		Load	0x2,-0x5
017b e5fc       |    |		Load	0x2,-0x4
017c e5fd       |    |		Load	0x2,-0x3
017d 821e       |    |		Call	0x1,0x1e
017e 00d1       |    |		Pop_Control	Pop_Count_1
017f c402       |    |		Store	0x2,0x2
0180 4802       |H   |		Short_Literal	0x2
0181 00d9       |    |		Load_Top	At_Offset_1
0182 e003       |    |		Load	0x0,0x3
0183 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0184 7008       |p   |		Jump_Nonzero	0x18d
0185 e5f8       |    |		Load	0x2,-0x8
0186 e5fa       |    |		Load	0x2,-0x6
0187 e5fe       |    |		Load	0x2,-0x2
0188 e5f9       |    |		Load	0x2,-0x7
0189 e5ff       |    |		Load	0x2,-0x1
018a 8221       | !  |		Call	0x1,0x21
018b c5f8       |    |		Store	0x2,-0x8
018c 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
018d 00d8       |    |		Load_Top	At_Offset_0
018e c5f8       |    |		Store	0x2,-0x8
018f 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 01a9       |    |		.CONST	0x01a9								; Address of begin
0191 01c3       |    |		.CONST	0x01c3								; Address of exception handler
0192 0005       |    |		.CONST	0x0005								; Number of locals
0193			INIT_0190:
0193 e004       |    |		Load	0x0,0x4
0194 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0195 e004       |    |		Load	0x0,0x4
0196 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0197 03f1       |    |		Declare_Variable	Discrete,With_Value
0198 e22f       | /  |		Load	0x1,0x2f
0199 0322       | "  |		Declare_Variable	Record
019a 00d8       |    |		Load_Top	At_Offset_0
019b 1c01       |    |		Execute_Immediate	Run_Utility,0x1
019c 00d9       |    |		Load_Top	At_Offset_1
019d e232       | 2  |		Load	0x1,0x32
019e 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
019f 00d9       |    |		Load_Top	At_Offset_1
01a0 017d       | }  |		Execute	Record,Structure_Write
01a1 00d8       |    |		Load_Top	At_Offset_0
01a2 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
01a3 e006       |    |		Load	0x0,0x6
01a4 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01a5 e21d       |    |		Load	0x1,0x1d
01a6 02c7       |    |		Declare_Variable	Any
01a7 00d8       |    |		Load_Top	At_Offset_0
01a8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01a9			BODY_0190:
01a9 e004       |    |		Load	0x0,0x4
01aa 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01ab e232       | 2  |		Load	0x1,0x32
01ac 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01ad 00d8       |    |		Load_Top	At_Offset_0
01ae e5ff       |    |		Load	0x2,-0x1
01af e5fe       |    |		Load	0x2,-0x2
01b0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01b1 e002       |    |		Load	0x0,0x2
01b2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01b3 c405       |    |		Store	0x2,0x5
01b4 8237       | 7  |		Call	0x1,0x37
01b5 00d8       |    |		Load_Top	At_Offset_0
01b6 c5fd       |    |		Store	0x2,-0x3
01b7 e5ff       |    |		Load	0x2,-0x1
01b8 6809       |h   |		Jump_Zero	0x1c2
01b9 e00c       |    |		Load	0x0,0xc
01ba 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01bb 4802       |H   |		Short_Literal	0x2
01bc 0092 07ad  |    |		Action	Push_String_Extended,0x7ad					; "Released the connection to "
01be e404       |    |		Load	0x2,0x4
01bf 01cc       |    |		Execute	Vector,Catenate
01c0 e00d       |    |		Load	0x0,0xd
01c1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01c2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01c3			TRAP_0190:
01c3 0007       |    |		Action	Break_Optional
01c4 e5fd       |    |		Load	0x2,-0x3
01c5 0092 07ae  |    |		Action	Push_String_Extended,0x7ae					; "Release"
01c7 8239       | 9  |		Call	0x1,0x39
01c8 c5fd       |    |		Store	0x2,-0x3
01c9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01ca 0000 0000  |    |		.BLANK	0000[0x6]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01e9       |    |		.CONST	0x01e9								; Address of begin
01d1 0203       |    |		.CONST	0x0203								; Address of exception handler
01d2 0005       |    |		.CONST	0x0005								; Number of locals
01d3			INIT_01d0:
01d3 e004       |    |		Load	0x0,0x4
01d4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01d5 e004       |    |		Load	0x0,0x4
01d6 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01d7 03f1       |    |		Declare_Variable	Discrete,With_Value
01d8 e22f       | /  |		Load	0x1,0x2f
01d9 0322       | "  |		Declare_Variable	Record
01da 00d8       |    |		Load_Top	At_Offset_0
01db 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01dc 00d9       |    |		Load_Top	At_Offset_1
01dd e232       | 2  |		Load	0x1,0x32
01de 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01df 00d9       |    |		Load_Top	At_Offset_1
01e0 017d       | }  |		Execute	Record,Structure_Write
01e1 00d8       |    |		Load_Top	At_Offset_0
01e2 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
01e3 e006       |    |		Load	0x0,0x6
01e4 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01e5 e21d       |    |		Load	0x1,0x1d
01e6 02c7       |    |		Declare_Variable	Any
01e7 00d8       |    |		Load_Top	At_Offset_0
01e8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01e9			BODY_01d0:
01e9 e004       |    |		Load	0x0,0x4
01ea 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01eb e232       | 2  |		Load	0x1,0x32
01ec 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01ed 00d8       |    |		Load_Top	At_Offset_0
01ee e5ff       |    |		Load	0x2,-0x1
01ef e5fe       |    |		Load	0x2,-0x2
01f0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01f1 e002       |    |		Load	0x0,0x2
01f2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01f3 c405       |    |		Store	0x2,0x5
01f4 8237       | 7  |		Call	0x1,0x37
01f5 00d8       |    |		Load_Top	At_Offset_0
01f6 c5fd       |    |		Store	0x2,-0x3
01f7 e5ff       |    |		Load	0x2,-0x1
01f8 6809       |h   |		Jump_Zero	0x202
01f9 e00c       |    |		Load	0x0,0xc
01fa 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01fb 4802       |H   |		Short_Literal	0x2
01fc 0092 07af  |    |		Action	Push_String_Extended,0x7af					; "Destroyed the connection to "
01fe e404       |    |		Load	0x2,0x4
01ff 01cc       |    |		Execute	Vector,Catenate
0200 e00d       |    |		Load	0x0,0xd
0201 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0202 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0203			TRAP_01d0:
0203 0007       |    |		Action	Break_Optional
0204 e5fd       |    |		Load	0x2,-0x3
0205 0092 07b0  |    |		Action	Push_String_Extended,0x7b0					; "Destroy"
0207 8239       | 9  |		Call	0x1,0x39
0208 c5fd       |    |		Store	0x2,-0x3
0209 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
020a 0000 0000  |    |		.BLANK	0000[0x6]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0225       | %  |		.CONST	0x0225								; Address of begin
0211 0279       | y  |		.CONST	0x0279								; Address of exception handler
0212 0004       |    |		.CONST	0x0004								; Number of locals
0213			INIT_0210:
0213 e21d       |    |		Load	0x1,0x1d
0214 02c7       |    |		Declare_Variable	Any
0215 00d8       |    |		Load_Top	At_Offset_0
0216 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0217 e004       |    |		Load	0x0,0x4
0218 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0219 e004       |    |		Load	0x0,0x4
021a 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
021b 03f1       |    |		Declare_Variable	Discrete,With_Value
021c e22f       | /  |		Load	0x1,0x2f
021d 0322       | "  |		Declare_Variable	Record
021e 00d8       |    |		Load_Top	At_Offset_0
021f 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0220 00d9       |    |		Load_Top	At_Offset_1
0221 e232       | 2  |		Load	0x1,0x32
0222 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0223 00d9       |    |		Load_Top	At_Offset_1
0224 017d       | }  |		Execute	Record,Structure_Write
0225			BODY_0210:
0225 00da       |    |		Load_Top	At_Offset_2
0226 c5fb       |    |		Store	0x2,-0x5
0227 e5fe       |    |		Load	0x2,-0x2
0228 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0229 e00b       |    |		Load	0x0,0xb
022a 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
022b 6803       |h   |		Jump_Zero	0x22f
022c e00e       |    |		Load	0x0,0xe
022d 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
022e 7006       |p   |		Jump_Nonzero	0x235
022f e5fb       |    |		Load	0x2,-0x5
0230 0092 07b1  |    |		Action	Push_String_Extended,0x7b1					; "Set_Remote_Directory"
0232 8238       | 8  |		Call	0x1,0x38
0233 c5fb       |    |		Store	0x2,-0x5
0234 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0235 4800       |H   |		Short_Literal	0x0
0236 e5ff       |    |		Load	0x2,-0x1
0237 00da       |    |		Load_Top	At_Offset_2
0238 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0239 e006       |    |		Load	0x0,0x6
023a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
023b e00a       |    |		Load	0x0,0xa
023c 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
023d 680b       |h   |		Jump_Zero	0x249
023e e5fd       |    |		Load	0x2,-0x3
023f 01db       |    |		Execute	Vector,Length
0240 7008       |p   |		Jump_Nonzero	0x249
0241 e00c       |    |		Load	0x0,0xc
0242 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0243 4801       |H   |		Short_Literal	0x1
0244 0092 07b2  |    |		Action	Push_String_Extended,0x7b2					; "Reusing the existing directory"
0246 e00d       |    |		Load	0x0,0xd
0247 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0248 7822       |x"  |		Jump	0x26b
0249 00da       |    |		Load_Top	At_Offset_2
024a e5fc       |    |		Load	0x2,-0x4
024b 4801       |H   |		Short_Literal	0x1
024c 4800       |H   |		Short_Literal	0x0
024d 4800       |H   |		Short_Literal	0x0
024e 00ea       |    |		Load_Encached	Null_String_Cache
024f e5fe       |    |		Load	0x2,-0x2
0250 e5ff       |    |		Load	0x2,-0x1
0251 8224       | $  |		Call	0x1,0x24
0252 c402       |    |		Store	0x2,0x2
0253 4802       |H   |		Short_Literal	0x2
0254 00db       |    |		Load_Top	At_Offset_3
0255 e003       |    |		Load	0x0,0x3
0256 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0257 6803       |h   |		Jump_Zero	0x25b
0258 00da       |    |		Load_Top	At_Offset_2
0259 c5fb       |    |		Store	0x2,-0x5
025a 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
025b 00d9       |    |		Load_Top	At_Offset_1
025c e232       | 2  |		Load	0x1,0x32
025d 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
025e 00d9       |    |		Load_Top	At_Offset_1
025f 017d       | }  |		Execute	Record,Structure_Write
0260 00d8       |    |		Load_Top	At_Offset_0
0261 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0262 e5ff       |    |		Load	0x2,-0x1
0263 e006       |    |		Load	0x0,0x6
0264 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0265 00d1       |    |		Pop_Control	Pop_Count_1
0266 4800       |H   |		Short_Literal	0x0
0267 00da       |    |		Load_Top	At_Offset_2
0268 00da       |    |		Load_Top	At_Offset_2
0269 e232       | 2  |		Load	0x1,0x32
026a 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
026b e5fd       |    |		Load	0x2,-0x3
026c 01db       |    |		Execute	Vector,Length
026d 680a       |h   |		Jump_Zero	0x278
026e e5fb       |    |		Load	0x2,-0x5
026f e5fc       |    |		Load	0x2,-0x4
0270 4801       |H   |		Short_Literal	0x1
0271 4800       |H   |		Short_Literal	0x0
0272 4800       |H   |		Short_Literal	0x0
0273 00ea       |    |		Load_Encached	Null_String_Cache
0274 e5fe       |    |		Load	0x2,-0x2
0275 e5fd       |    |		Load	0x2,-0x3
0276 8224       | $  |		Call	0x1,0x24
0277 c5fb       |    |		Store	0x2,-0x5
0278 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0279			TRAP_0210:
0279 0007       |    |		Action	Break_Optional
027a e5fb       |    |		Load	0x2,-0x5
027b 0092 07b1  |    |		Action	Push_String_Extended,0x7b1					; "Set_Remote_Directory"
027d 8239       | 9  |		Call	0x1,0x39
027e c5fb       |    |		Store	0x2,-0x5
027f 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0287       |    |		.CONST	0x0287								; Address of begin
0281 02ae       |    |		.CONST	0x02ae								; Address of exception handler
0282 0002       |    |		.CONST	0x0002								; Number of locals
0283			INIT_0280:
0283 e21d       |    |		Load	0x1,0x1d
0284 02c7       |    |		Declare_Variable	Any
0285 00d8       |    |		Load_Top	At_Offset_0
0286 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0287			BODY_0280:
0287 00d8       |    |		Load_Top	At_Offset_0
0288 c5fa       |    |		Store	0x2,-0x6
0289 e5fd       |    |		Load	0x2,-0x3
028a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
028b e00b       |    |		Load	0x0,0xb
028c 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
028d 7006       |p   |		Jump_Nonzero	0x294
028e e5fa       |    |		Load	0x2,-0x6
028f 0092 07b3  |    |		Action	Push_String_Extended,0x7b3					; "Put"
0291 8238       | 8  |		Call	0x1,0x38
0292 c5fa       |    |		Store	0x2,-0x6
0293 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0294 e5fc       |    |		Load	0x2,-0x4
0295 700b       |p   |		Jump_Nonzero	0x2a1
0296 00d8       |    |		Load_Top	At_Offset_0
0297 e5fb       |    |		Load	0x2,-0x5
0298 4800       |H   |		Short_Literal	0x0
0299 e5fd       |    |		Load	0x2,-0x3
029a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
029b e5fe       |    |		Load	0x2,-0x2
029c e5ff       |    |		Load	0x2,-0x1
029d e002       |    |		Load	0x0,0x2
029e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
029f c402       |    |		Store	0x2,0x2
02a0 780a       |x   |		Jump	0x2ab
02a1 00d8       |    |		Load_Top	At_Offset_0
02a2 e5fb       |    |		Load	0x2,-0x5
02a3 4803       |H   |		Short_Literal	0x3
02a4 e5fd       |    |		Load	0x2,-0x3
02a5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02a6 e5fe       |    |		Load	0x2,-0x2
02a7 e5ff       |    |		Load	0x2,-0x1
02a8 e002       |    |		Load	0x0,0x2
02a9 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02aa c402       |    |		Store	0x2,0x2
02ab 00d8       |    |		Load_Top	At_Offset_0
02ac c5fa       |    |		Store	0x2,-0x6
02ad 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
02ae			TRAP_0280:
02ae 0007       |    |		Action	Break_Optional
02af e5fa       |    |		Load	0x2,-0x6
02b0 0092 07b3  |    |		Action	Push_String_Extended,0x7b3					; "Put"
02b2 8239       | 9  |		Call	0x1,0x39
02b3 c5fa       |    |		Store	0x2,-0x6
02b4 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
02b5 0000 0000  |    |		.XXX[0x3]
02b7 0000       |    |
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02c8       |    |		.CONST	0x02c8								; Address of begin
02b9 033d       | =  |		.CONST	0x033d								; Address of exception handler
02ba 0005       |    |		.CONST	0x0005								; Number of locals
02bb			INIT_02b8:
02bb e21d       |    |		Load	0x1,0x1d
02bc 02c7       |    |		Declare_Variable	Any
02bd 00d8       |    |		Load_Top	At_Offset_0
02be 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02bf 00e1       |    |		Load_Encached	Boolean_Cache
02c0 e001       |    |		Load	0x0,0x1
02c1 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02c2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02c3 e001       |    |		Load	0x0,0x1
02c4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02c5 02c7       |    |		Declare_Variable	Any
02c6 00d8       |    |		Load_Top	At_Offset_0
02c7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02c8			BODY_02b8:
02c8 00db       |    |		Load_Top	At_Offset_3
02c9 c5fa       |    |		Store	0x2,-0x6
02ca e5fd       |    |		Load	0x2,-0x3
02cb 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02cc e00b       |    |		Load	0x0,0xb
02cd 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
02ce 7006       |p   |		Jump_Nonzero	0x2d5
02cf e5fa       |    |		Load	0x2,-0x6
02d0 0092 07b4  |    |		Action	Push_String_Extended,0x7b4					; "Get"
02d2 8238       | 8  |		Call	0x1,0x38
02d3 c5fa       |    |		Store	0x2,-0x6
02d4 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
02d5 e001       |    |		Load	0x0,0x1
02d6 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02d7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02d8 00d9       |    |		Load_Top	At_Offset_1
02d9 0120       |    |		Execute	Any,Is_Value
02da 6803       |h   |		Jump_Zero	0x2de
02db e001       |    |		Load	0x0,0x1
02dc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02dd 7801       |x   |		Jump	0x2df
02de 00d9       |    |		Load_Top	At_Offset_1
02df 6064       |`d  |		Indirect_Literal	Discrete,0x344,{0x00000000, 0x00004000}
02e0 e00f       |    |		Load	0x0,0xf
02e1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02e2 e004       |    |		Load	0x0,0x4
02e3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02e4 e001       |    |		Load	0x0,0x1
02e5 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02e6 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02e7 e5ff       |    |		Load	0x2,-0x1
02e8 e001       |    |		Load	0x0,0x1
02e9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02ea 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
02eb c405       |    |		Store	0x2,0x5
02ec 005a       | Z  |		Store_Top	Discrete,At_Offset_2
02ed 00d9       |    |		Load_Top	At_Offset_1
02ee 0f00       |    |		Execute_Immediate	Equal,0x0
02ef 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
02f0 e5fc       |    |		Load	0x2,-0x4
02f1 680b       |h   |		Jump_Zero	0x2fd
02f2 00db       |    |		Load_Top	At_Offset_3
02f3 e5fb       |    |		Load	0x2,-0x5
02f4 4802       |H   |		Short_Literal	0x2
02f5 e5fd       |    |		Load	0x2,-0x3
02f6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02f7 e5fe       |    |		Load	0x2,-0x2
02f8 e5ff       |    |		Load	0x2,-0x1
02f9 e002       |    |		Load	0x0,0x2
02fa 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
02fb c402       |    |		Store	0x2,0x2
02fc 780a       |x   |		Jump	0x307
02fd 00db       |    |		Load_Top	At_Offset_3
02fe e5fb       |    |		Load	0x2,-0x5
02ff 4800       |H   |		Short_Literal	0x0
0300 e5fd       |    |		Load	0x2,-0x3
0301 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0302 e5fe       |    |		Load	0x2,-0x2
0303 e5ff       |    |		Load	0x2,-0x1
0304 e002       |    |		Load	0x0,0x2
0305 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0306 c402       |    |		Store	0x2,0x2
0307 00db       |    |		Load_Top	At_Offset_3
0308 c5fa       |    |		Store	0x2,-0x6
0309 4801       |H   |		Short_Literal	0x1
030a e402       |    |		Load	0x2,0x2
030b e003       |    |		Load	0x0,0x3
030c 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
030d 7014       |p   |		Jump_Nonzero	0x322
030e e5fb       |    |		Load	0x2,-0x5
030f 6811       |h   |		Jump_Zero	0x321
0310 e00c       |    |		Load	0x0,0xc
0311 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0312 4802       |H   |		Short_Literal	0x2
0313 0092 07b5  |    |		Action	Push_String_Extended,0x7b5					; "Uploaded host unit \x22"
0315 e5ff       |    |		Load	0x2,-0x1
0316 01cc       |    |		Execute	Vector,Catenate
0317 0092 07b6  |    |		Action	Push_String_Extended,0x7b6					; "\x22 from remote unit \x22"
0319 01cc       |    |		Execute	Vector,Catenate
031a e5fe       |    |		Load	0x2,-0x2
031b 01cc       |    |		Execute	Vector,Catenate
031c 0092 07b7  |    |		Action	Push_String_Extended,0x7b7					; "\x22"
031e 01cc       |    |		Execute	Vector,Catenate
031f e00d       |    |		Load	0x0,0xd
0320 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0321 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0322 e5fa       |    |		Load	0x2,-0x6
0323 4802       |H   |		Short_Literal	0x2
0324 0092 07b8  |    |		Action	Push_String_Extended,0x7b8					; "Can't get unit \x22"
0326 e5ff       |    |		Load	0x2,-0x1
0327 01cc       |    |		Execute	Vector,Catenate
0328 0092 07b9  |    |		Action	Push_String_Extended,0x7b9					; "\x22 from remote file \x22"
032a 01cc       |    |		Execute	Vector,Catenate
032b e5fe       |    |		Load	0x2,-0x2
032c 01cc       |    |		Execute	Vector,Catenate
032d 0092 07b7  |    |		Action	Push_String_Extended,0x7b7					; "\x22"
032f 01cc       |    |		Execute	Vector,Catenate
0330 8233       | 3  |		Call	0x1,0x33
0331 c5fa       |    |		Store	0x2,-0x6
0332 00da       |    |		Load_Top	At_Offset_2
0333 7008       |p   |		Jump_Nonzero	0x33c
0334 0092 07ba  |    |		Action	Push_String_Extended,0x7ba					; "<PROFILE>"
0336 0092 07bb  |    |		Action	Push_String_Extended,0x7bb					; "<WORLDS>"
0338 4801       |H   |		Short_Literal	0x1
0339 e5ff       |    |		Load	0x2,-0x1
033a e010       |    |		Load	0x0,0x10
033b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
033c 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
033d			TRAP_02b8:
033d 0007       |    |		Action	Break_Optional
033e e5fa       |    |		Load	0x2,-0x6
033f 0092 07b4  |    |		Action	Push_String_Extended,0x7b4					; "Get"
0341 8239       | 9  |		Call	0x1,0x39
0342 c5fa       |    |		Store	0x2,-0x6
0343 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0344 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 035b       | [  |		.CONST	0x035b								; Address of begin
0349 040d       |    |		.CONST	0x040d								; Address of exception handler
034a 0005       |    |		.CONST	0x0005								; Number of locals
034b			INIT_0348:
034b e21d       |    |		Load	0x1,0x1d
034c 02c7       |    |		Declare_Variable	Any
034d 00d8       |    |		Load_Top	At_Offset_0
034e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
034f e00e       |    |		Load	0x0,0xe
0350 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0351 0322       | "  |		Declare_Variable	Record
0352 00d8       |    |		Load_Top	At_Offset_0
0353 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0354 e011       |    |		Load	0x0,0x11
0355 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0356 02c7       |    |		Declare_Variable	Any
0357 00d8       |    |		Load_Top	At_Offset_0
0358 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0359 029f 070b  |    |		Declare_Subprogram	INIT_0708,For_Call
035b			BODY_0348:
035b 00db       |    |		Load_Top	At_Offset_3
035c c5f8       |    |		Store	0x2,-0x8
035d e5fe       |    |		Load	0x2,-0x2
035e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
035f e012       |    |		Load	0x0,0x12
0360 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0361 c404       |    |		Store	0x2,0x4
0362 e5ff       |    |		Load	0x2,-0x1
0363 8405       |    |		Call	0x2,0x5
0364 00db       |    |		Load_Top	At_Offset_3
0365 017d       | }  |		Execute	Record,Structure_Write
0366 00da       |    |		Load_Top	At_Offset_2
0367 4801       |H   |		Short_Literal	0x1
0368 e5f9       |    |		Load	0x2,-0x7
0369 e00e       |    |		Load	0x0,0xe
036a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
036b 00d1       |    |		Pop_Control	Pop_Count_1
036c 4802       |H   |		Short_Literal	0x2
036d 00db       |    |		Load_Top	At_Offset_3
036e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
036f e003       |    |		Load	0x0,0x3
0370 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0371 681d       |h   |		Jump_Zero	0x38f
0372 e5f9       |    |		Load	0x2,-0x7
0373 6803       |h   |		Jump_Zero	0x377
0374 4801       |H   |		Short_Literal	0x1
0375 e013       |    |		Load	0x0,0x13
0376 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0377 e00c       |    |		Load	0x0,0xc
0378 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0379 4805       |H   |		Short_Literal	0x5
037a e403       |    |		Load	0x2,0x3
037b 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
037c e003       |    |		Load	0x0,0x3
037d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
037e e00d       |    |		Load	0x0,0xd
037f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0380 e5f8       |    |		Load	0x2,-0x8
0381 00db       |    |		Load_Top	At_Offset_3
0382 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0383 e003       |    |		Load	0x0,0x3
0384 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0385 0092 07bc  |    |		Action	Push_String_Extended,0x7bc					; "Remote command \x22"
0387 e5ff       |    |		Load	0x2,-0x1
0388 01cc       |    |		Execute	Vector,Catenate
0389 0092 07bd  |    |		Action	Push_String_Extended,0x7bd					; "\x22 failed"
038b 01cc       |    |		Execute	Vector,Catenate
038c 8233       | 3  |		Call	0x1,0x33
038d c5f8       |    |		Store	0x2,-0x8
038e 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
038f 4801       |H   |		Short_Literal	0x1
0390 00db       |    |		Load_Top	At_Offset_3
0391 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0392 e003       |    |		Load	0x0,0x3
0393 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0394 6819       |h   |		Jump_Zero	0x3ae
0395 e5f9       |    |		Load	0x2,-0x7
0396 6803       |h   |		Jump_Zero	0x39a
0397 4801       |H   |		Short_Literal	0x1
0398 e013       |    |		Load	0x0,0x13
0399 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
039a e5f8       |    |		Load	0x2,-0x8
039b 00db       |    |		Load_Top	At_Offset_3
039c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
039d e003       |    |		Load	0x0,0x3
039e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
039f 00ea       |    |		Load_Encached	Null_String_Cache
03a0 8233       | 3  |		Call	0x1,0x33
03a1 c5f8       |    |		Store	0x2,-0x8
03a2 e00c       |    |		Load	0x0,0xc
03a3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03a4 4806       |H   |		Short_Literal	0x6
03a5 0092 07bc  |    |		Action	Push_String_Extended,0x7bc					; "Remote command \x22"
03a7 e5ff       |    |		Load	0x2,-0x1
03a8 01cc       |    |		Execute	Vector,Catenate
03a9 0092 07be  |    |		Action	Push_String_Extended,0x7be					; "\x22 executed with warnings"
03ab 01cc       |    |		Execute	Vector,Catenate
03ac e00d       |    |		Load	0x0,0xd
03ad 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03ae 00d9       |    |		Load_Top	At_Offset_1
03af e011       |    |		Load	0x0,0x11
03b0 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
03b1 6855       |hU  |		Jump_Zero	0x407
03b2 4800       |H   |		Short_Literal	0x0
03b3 00db       |    |		Load_Top	At_Offset_3
03b4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
03b5 00da       |    |		Load_Top	At_Offset_2
03b6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03b7 00da       |    |		Load_Top	At_Offset_2
03b8 e011       |    |		Load	0x0,0x11
03b9 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
03ba e006       |    |		Load	0x0,0x6
03bb 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03bc 00d1       |    |		Pop_Control	Pop_Count_1
03bd 00da       |    |		Load_Top	At_Offset_2
03be 4801       |H   |		Short_Literal	0x1
03bf e5f9       |    |		Load	0x2,-0x7
03c0 e00e       |    |		Load	0x0,0xe
03c1 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03c2 00d1       |    |		Pop_Control	Pop_Count_1
03c3 e5f9       |    |		Load	0x2,-0x7
03c4 6803       |h   |		Jump_Zero	0x3c8
03c5 4801       |H   |		Short_Literal	0x1
03c6 e013       |    |		Load	0x0,0x13
03c7 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
03c8 4802       |H   |		Short_Literal	0x2
03c9 00db       |    |		Load_Top	At_Offset_3
03ca 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03cb e003       |    |		Load	0x0,0x3
03cc 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
03cd 680f       |h   |		Jump_Zero	0x3dd
03ce e5f8       |    |		Load	0x2,-0x8
03cf 00db       |    |		Load_Top	At_Offset_3
03d0 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03d1 e003       |    |		Load	0x0,0x3
03d2 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
03d3 0092 07bc  |    |		Action	Push_String_Extended,0x7bc					; "Remote command \x22"
03d5 e5ff       |    |		Load	0x2,-0x1
03d6 01cc       |    |		Execute	Vector,Catenate
03d7 0092 07bd  |    |		Action	Push_String_Extended,0x7bd					; "\x22 failed"
03d9 01cc       |    |		Execute	Vector,Catenate
03da 8233       | 3  |		Call	0x1,0x33
03db c5f8       |    |		Store	0x2,-0x8
03dc 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
03dd 4801       |H   |		Short_Literal	0x1
03de 00db       |    |		Load_Top	At_Offset_3
03df 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03e0 e003       |    |		Load	0x0,0x3
03e1 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
03e2 6815       |h   |		Jump_Zero	0x3f8
03e3 e5f8       |    |		Load	0x2,-0x8
03e4 00db       |    |		Load_Top	At_Offset_3
03e5 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03e6 e003       |    |		Load	0x0,0x3
03e7 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
03e8 00ea       |    |		Load_Encached	Null_String_Cache
03e9 8233       | 3  |		Call	0x1,0x33
03ea c5f8       |    |		Store	0x2,-0x8
03eb e00c       |    |		Load	0x0,0xc
03ec 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03ed 4806       |H   |		Short_Literal	0x6
03ee 0092 07bc  |    |		Action	Push_String_Extended,0x7bc					; "Remote command \x22"
03f0 e5ff       |    |		Load	0x2,-0x1
03f1 01cc       |    |		Execute	Vector,Catenate
03f2 0092 07be  |    |		Action	Push_String_Extended,0x7be					; "\x22 executed with warnings"
03f4 01cc       |    |		Execute	Vector,Catenate
03f5 e00d       |    |		Load	0x0,0xd
03f6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03f7 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
03f8 e5f9       |    |		Load	0x2,-0x7
03f9 680c       |h   |		Jump_Zero	0x406
03fa e00c       |    |		Load	0x0,0xc
03fb 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03fc 4802       |H   |		Short_Literal	0x2
03fd 0092 07bc  |    |		Action	Push_String_Extended,0x7bc					; "Remote command \x22"
03ff e5ff       |    |		Load	0x2,-0x1
0400 01cc       |    |		Execute	Vector,Catenate
0401 0092 07bf  |    |		Action	Push_String_Extended,0x7bf					; "\x22 executed successfully"
0403 01cc       |    |		Execute	Vector,Catenate
0404 e00d       |    |		Load	0x0,0xd
0405 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0406 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0407 e5f9       |    |		Load	0x2,-0x7
0408 6803       |h   |		Jump_Zero	0x40c
0409 4801       |H   |		Short_Literal	0x1
040a e013       |    |		Load	0x0,0x13
040b 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
040c 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
040d			TRAP_0348:
040d 0007       |    |		Action	Break_Optional
040e e5f8       |    |		Load	0x2,-0x8
040f 0092 07c0  |    |		Action	Push_String_Extended,0x7c0					; "Execute_Command"
0411 8239       | 9  |		Call	0x1,0x39
0412 c5f8       |    |		Store	0x2,-0x8
0413 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0414 0000 0000  |    |		.BLANK	0000[0x4]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041f       |    |		.CONST	0x041f								; Address of begin
0419 0433       | 3  |		.CONST	0x0433								; Address of exception handler
041a 0002       |    |		.CONST	0x0002								; Number of locals
041b			INIT_0418:
041b e21d       |    |		Load	0x1,0x1d
041c 02c7       |    |		Declare_Variable	Any
041d 00d8       |    |		Load_Top	At_Offset_0
041e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
041f			BODY_0418:
041f 00d8       |    |		Load_Top	At_Offset_0
0420 c5fc       |    |		Store	0x2,-0x4
0421 e014       |    |		Load	0x0,0x14
0422 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0423 c5fb       |    |		Store	0x2,-0x5
0424 e5fd       |    |		Load	0x2,-0x3
0425 680c       |h   |		Jump_Zero	0x432
0426 e00c       |    |		Load	0x0,0xc
0427 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0428 4802       |H   |		Short_Literal	0x2
0429 0092 07c1  |    |		Action	Push_String_Extended,0x7c1					; "Executed Unit_Update_Time for remote unit \x22"
042b e5ff       |    |		Load	0x2,-0x1
042c 01cc       |    |		Execute	Vector,Catenate
042d 0092 07b7  |    |		Action	Push_String_Extended,0x7b7					; "\x22"
042f 01cc       |    |		Execute	Vector,Catenate
0430 e00d       |    |		Load	0x0,0xd
0431 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0432 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0433			TRAP_0418:
0433 0007       |    |		Action	Break_Optional
0434 e5fc       |    |		Load	0x2,-0x4
0435 0092 07c2  |    |		Action	Push_String_Extended,0x7c2					; "Unit_Update_Time"
0437 8239       | 9  |		Call	0x1,0x39
0438 c5fc       |    |		Store	0x2,-0x4
0439 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
043a 0000 0000  |    |		.BLANK	0000[0x6]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 045e       | ^  |		.CONST	0x045e								; Address of begin
0441 0491       |    |		.CONST	0x0491								; Address of exception handler
0442 0006       |    |		.CONST	0x0006								; Number of locals
0443			INIT_0440:
0443 e004       |    |		Load	0x0,0x4
0444 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0445 e004       |    |		Load	0x0,0x4
0446 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0447 03f1       |    |		Declare_Variable	Discrete,With_Value
0448 e22f       | /  |		Load	0x1,0x2f
0449 0322       | "  |		Declare_Variable	Record
044a 00d8       |    |		Load_Top	At_Offset_0
044b 1c01       |    |		Execute_Immediate	Run_Utility,0x1
044c 00d9       |    |		Load_Top	At_Offset_1
044d e232       | 2  |		Load	0x1,0x32
044e 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
044f 00d9       |    |		Load_Top	At_Offset_1
0450 017d       | }  |		Execute	Record,Structure_Write
0451 00d8       |    |		Load_Top	At_Offset_0
0452 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0453 e006       |    |		Load	0x0,0x6
0454 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0455 e21d       |    |		Load	0x1,0x1d
0456 02c7       |    |		Declare_Variable	Any
0457 00d8       |    |		Load_Top	At_Offset_0
0458 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0459 e011       |    |		Load	0x0,0x11
045a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
045b 02c7       |    |		Declare_Variable	Any
045c 00d8       |    |		Load_Top	At_Offset_0
045d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
045e			BODY_0440:
045e 00d9       |    |		Load_Top	At_Offset_1
045f c5fc       |    |		Store	0x2,-0x4
0460 4800       |H   |		Short_Literal	0x0
0461 a5fb       |    |		Store_Unchecked	0x2,-0x5
0462 e5fe       |    |		Load	0x2,-0x2
0463 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0464 e012       |    |		Load	0x0,0x12
0465 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0466 c406       |    |		Store	0x2,0x6
0467 00d9       |    |		Load_Top	At_Offset_1
0468 e5fd       |    |		Load	0x2,-0x3
0469 4801       |H   |		Short_Literal	0x1
046a 4800       |H   |		Short_Literal	0x0
046b 4800       |H   |		Short_Literal	0x0
046c 00ea       |    |		Load_Encached	Null_String_Cache
046d e5fe       |    |		Load	0x2,-0x2
046e e406       |    |		Load	0x2,0x6
046f e011       |    |		Load	0x0,0x11
0470 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0471 0092 07c3  |    |		Action	Push_String_Extended,0x7c3					; " "
0473 01cc       |    |		Execute	Vector,Catenate
0474 e5ff       |    |		Load	0x2,-0x1
0475 01cc       |    |		Execute	Vector,Catenate
0476 8224       | $  |		Call	0x1,0x24
0477 c405       |    |		Store	0x2,0x5
0478 4802       |H   |		Short_Literal	0x2
0479 00da       |    |		Load_Top	At_Offset_2
047a e003       |    |		Load	0x0,0x3
047b 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
047c 6801       |h   |		Jump_Zero	0x47e
047d 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
047e 4801       |H   |		Short_Literal	0x1
047f a5fb       |    |		Store_Unchecked	0x2,-0x5
0480 e5fd       |    |		Load	0x2,-0x3
0481 680e       |h   |		Jump_Zero	0x490
0482 e00c       |    |		Load	0x0,0xc
0483 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0484 4802       |H   |		Short_Literal	0x2
0485 0092 07c4  |    |		Action	Push_String_Extended,0x7c4					; "Executed File_Exists for remote file \x22"
0487 e5ff       |    |		Load	0x2,-0x1
0488 01cc       |    |		Execute	Vector,Catenate
0489 0092 07c5  |    |		Action	Push_String_Extended,0x7c5					; "\x22 on "
048b 01cc       |    |		Execute	Vector,Catenate
048c e404       |    |		Load	0x2,0x4
048d 01cc       |    |		Execute	Vector,Catenate
048e e00d       |    |		Load	0x0,0xd
048f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0490 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0491			TRAP_0440:
0491 0007       |    |		Action	Break_Optional
0492 e5fc       |    |		Load	0x2,-0x4
0493 0092 07c6  |    |		Action	Push_String_Extended,0x7c6					; "File_Exists"
0495 8239       | 9  |		Call	0x1,0x39
0496 c5fc       |    |		Store	0x2,-0x4
0497 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 04a8       |    |		.CONST	0x04a8								; Address of begin
0499 04b7       |    |		.CONST	0x04b7								; Address of exception handler
049a 0003       |    |		.CONST	0x0003								; Number of locals
049b			INIT_0498:
049b e21d       |    |		Load	0x1,0x1d
049c 02c7       |    |		Declare_Variable	Any
049d 00d8       |    |		Load_Top	At_Offset_0
049e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
049f e22f       | /  |		Load	0x1,0x2f
04a0 0322       | "  |		Declare_Variable	Record
04a1 00d8       |    |		Load_Top	At_Offset_0
04a2 1c01       |    |		Execute_Immediate	Run_Utility,0x1
04a3 e5ff       |    |		Load	0x2,-0x1
04a4 e232       | 2  |		Load	0x1,0x32
04a5 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
04a6 00d9       |    |		Load_Top	At_Offset_1
04a7 017d       | }  |		Execute	Record,Structure_Write
04a8			BODY_0498:
04a8 00d8       |    |		Load_Top	At_Offset_0
04a9 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
04aa 680b       |h   |		Jump_Zero	0x4b6
04ab e5ff       |    |		Load	0x2,-0x1
04ac e232       | 2  |		Load	0x1,0x32
04ad 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
04ae 00d9       |    |		Load_Top	At_Offset_1
04af 4800       |H   |		Short_Literal	0x0
04b0 00da       |    |		Load_Top	At_Offset_2
04b1 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
04b2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04b3 e002       |    |		Load	0x0,0x2
04b4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04b5 c402       |    |		Store	0x2,0x2
04b6 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04b7			TRAP_0498:
04b7 0007       |    |		Action	Break_Optional
04b8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04b9 0000 0000  |    |		.BLANK	0000[0x7]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04c3       |    |		.CONST	0x04c3								; Address of begin
04c1 0004       |    |		.CONST	0x0004								; Address of exception handler
04c2 0001       |    |		.CONST	0x0001								; Number of locals
04c3			BODY_04c0:
04c3			INIT_04c0:
04c3 4608       |F   |		Jump_Case	0x9
04c4 7808       |x   |		Jump	0x4cd								; case 0x0
04c5 7823       |x#  |		Jump	0x4e9								; case 0x1
04c6 782f       |x/  |		Jump	0x4f6								; case 0x2
04c7 782e       |x.  |		Jump	0x4f6								; case 0x3
04c8 782d       |x-  |		Jump	0x4f6								; case 0x4
04c9 782c       |x,  |		Jump	0x4f6								; case 0x5
04ca 782b       |x+  |		Jump	0x4f6								; case 0x6
04cb 782a       |x*  |		Jump	0x4f6								; case 0x7
04cc 7829       |x)  |		Jump	0x4f6								; case 0x8
04cd 00da       |    |		Load_Top	At_Offset_2
04ce 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
04cf 0125       | %  |		Execute	Any,Set_Constraint
04d0 00da       |    |		Load_Top	At_Offset_2
04d1 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
04d2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04d3 00da       |    |		Load_Top	At_Offset_2
04d4 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
04d5 0125       | %  |		Execute	Any,Set_Constraint
04d6 00da       |    |		Load_Top	At_Offset_2
04d7 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
04d8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04d9 00da       |    |		Load_Top	At_Offset_2
04da 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
04db 0125       | %  |		Execute	Any,Set_Constraint
04dc 00da       |    |		Load_Top	At_Offset_2
04dd 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
04de 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04df 00da       |    |		Load_Top	At_Offset_2
04e0 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
04e1 0125       | %  |		Execute	Any,Set_Constraint
04e2 00da       |    |		Load_Top	At_Offset_2
04e3 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
04e4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04e5 00da       |    |		Load_Top	At_Offset_2
04e6 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
04e7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04e8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
04e9 00da       |    |		Load_Top	At_Offset_2
04ea 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
04eb 0125       | %  |		Execute	Any,Set_Constraint
04ec 00da       |    |		Load_Top	At_Offset_2
04ed 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
04ee 0125       | %  |		Execute	Any,Set_Constraint
04ef 00da       |    |		Load_Top	At_Offset_2
04f0 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
04f1 0125       | %  |		Execute	Any,Set_Constraint
04f2 00da       |    |		Load_Top	At_Offset_2
04f3 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
04f4 0125       | %  |		Execute	Any,Set_Constraint
04f5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
04f6 0869       | i  |		Execute_Immediate	Raise,0x69
04f7 0000       |    |		.XXX[0x1]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 0507       |    |		.CONST	0x0507								; Address of begin
04f9 0004       |    |		.CONST	0x0004								; Address of exception handler
04fa 0003       |    |		.CONST	0x0003								; Number of locals
04fb			INIT_04f8:
04fb e004       |    |		Load	0x0,0x4
04fc 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
04fd e004       |    |		Load	0x0,0x4
04fe 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
04ff 03f1       |    |		Declare_Variable	Discrete,With_Value
0500 e004       |    |		Load	0x0,0x4
0501 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0502 e015       |    |		Load	0x0,0x15
0503 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0504 e005       |    |		Load	0x0,0x5
0505 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0506 03f1       |    |		Declare_Variable	Discrete,With_Value
0507			BODY_04f8:
0507 00d9       |    |		Load_Top	At_Offset_1
0508 e5ff       |    |		Load	0x2,-0x1
0509 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
050a 00d8       |    |		Load_Top	At_Offset_0
050b e5ff       |    |		Load	0x2,-0x1
050c 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
050d 4800       |H   |		Short_Literal	0x0
050e e5ff       |    |		Load	0x2,-0x1
050f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0510 4800       |H   |		Short_Literal	0x0
0511 e5ff       |    |		Load	0x2,-0x1
0512 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0513 e00c       |    |		Load	0x0,0xc
0514 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0515 4801       |H   |		Short_Literal	0x1
0516 0092 07c7  |    |		Action	Push_String_Extended,0x7c7					; "Initialized Job_Record for job"
0518 e402       |    |		Load	0x2,0x2
0519 00e0       |    |		Load_Encached	Standard_Cache
051a 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
051b 01cc       |    |		Execute	Vector,Catenate
051c 0092 07c8  |    |		Action	Push_String_Extended,0x7c8					; ", task"
051e 01cc       |    |		Execute	Vector,Catenate
051f 00db       |    |		Load_Top	At_Offset_3
0520 00d8       |    |		Load_Top	At_Offset_0
0521 00e2       |    |		Load_Encached	Integer_Cache
0522 0260       | `  |		Execute	Discrete,In_Type
0523 7001       |p   |		Jump_Nonzero	0x525
0524 0801       |    |		Execute_Immediate	Raise,0x1
0525 00e0       |    |		Load_Encached	Standard_Cache
0526 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0527 01cc       |    |		Execute	Vector,Catenate
0528 e00d       |    |		Load	0x0,0xd
0529 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
052a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
052b 0000 0000  |    |		.BLANK	0000[0x5]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0533       | 3  |		.CONST	0x0533								; Address of begin
0531 0004       |    |		.CONST	0x0004								; Address of exception handler
0532 0001       |    |		.CONST	0x0001								; Number of locals
0533			BODY_0530:
0533			INIT_0530:
0533 e00c       |    |		Load	0x0,0xc
0534 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0535 4801       |H   |		Short_Literal	0x1
0536 0092 07c9  |    |		Action	Push_String_Extended,0x7c9					; "Finalizing Job_Record"
0538 e00d       |    |		Load	0x0,0xd
0539 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
053a 4800       |H   |		Short_Literal	0x0
053b 00db       |    |		Load_Top	At_Offset_3
053c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
053d 4800       |H   |		Short_Literal	0x0
053e 00db       |    |		Load_Top	At_Offset_3
053f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0540 4800       |H   |		Short_Literal	0x0
0541 00db       |    |		Load_Top	At_Offset_3
0542 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0543 4800       |H   |		Short_Literal	0x0
0544 00db       |    |		Load_Top	At_Offset_3
0545 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0546 00da       |    |		Load_Top	At_Offset_2
0547 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0548 00ea       |    |		Load_Encached	Null_String_Cache
0549 e006       |    |		Load	0x0,0x6
054a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
054b 00d1       |    |		Pop_Control	Pop_Count_1
054c 00da       |    |		Load_Top	At_Offset_2
054d 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
054e 00ea       |    |		Load_Encached	Null_String_Cache
054f e006       |    |		Load	0x0,0x6
0550 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0551 00d1       |    |		Pop_Control	Pop_Count_1
0552 00da       |    |		Load_Top	At_Offset_2
0553 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0554 00ea       |    |		Load_Encached	Null_String_Cache
0555 e006       |    |		Load	0x0,0x6
0556 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0557 00d1       |    |		Pop_Control	Pop_Count_1
0558 00da       |    |		Load_Top	At_Offset_2
0559 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
055a 00ea       |    |		Load_Encached	Null_String_Cache
055b e006       |    |		Load	0x0,0x6
055c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
055d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
055e 0000 0000  |    |		.XXX[0x2]
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 0563       | c  |		.CONST	0x0563								; Address of begin
0561 0004       |    |		.CONST	0x0004								; Address of exception handler
0562 0001       |    |		.CONST	0x0001								; Number of locals
0563			BODY_0560:
0563			INIT_0560:
0563 e5fd       |    |		Load	0x2,-0x3
0564 00db       |    |		Load_Top	At_Offset_3
0565 e5fe       |    |		Load	0x2,-0x2
0566 00ea       |    |		Load_Encached	Null_String_Cache
0567 e003       |    |		Load	0x0,0x3
0568 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0569 e003       |    |		Load	0x0,0x3
056a 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
056b c5fd       |    |		Store	0x2,-0x3
056c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
056d 0000 0000  |    |		.XXX[0x3]
056f 0000       |    |
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0575       | u  |		.CONST	0x0575								; Address of begin
0571 0004       |    |		.CONST	0x0004								; Address of exception handler
0572 0002       |    |		.CONST	0x0002								; Number of locals
0573			INIT_0570:
0573 029f 0723  |   #|		Declare_Subprogram	INIT_0720,For_Call
0575			BODY_0570:
0575 e5fd       |    |		Load	0x2,-0x3
0576 0f04       |    |		Execute_Immediate	Equal,0x4
0577 6801       |h   |		Jump_Zero	0x579
0578 8402       |    |		Call	0x2,0x2
0579 00db       |    |		Load_Top	At_Offset_3
057a 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
057b 0000 0000  |    |		.BLANK	0000[0x5]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0585       |    |		.CONST	0x0585								; Address of begin
0581 0004       |    |		.CONST	0x0004								; Address of exception handler
0582 0002       |    |		.CONST	0x0002								; Number of locals
0583			INIT_0580:
0583 029f 075b  |   [|		Declare_Subprogram	INIT_0758,For_Call
0585			BODY_0580:
0585 e5fd       |    |		Load	0x2,-0x3
0586 0f04       |    |		Execute_Immediate	Equal,0x4
0587 6801       |h   |		Jump_Zero	0x589
0588 8402       |    |		Call	0x2,0x2
0589 00db       |    |		Load_Top	At_Offset_3
058a 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
058b 0000 0000  |    |		.BLANK	0000[0x5]
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 05c0       |    |		.CONST	0x05c0								; Address of begin
0591 05f6       |    |		.CONST	0x05f6								; Address of exception handler
0592 0008       |    |		.CONST	0x0008								; Number of locals
0593			INIT_0590:
0593 00e1       |    |		Load_Encached	Boolean_Cache
0594 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0595 e011       |    |		Load	0x0,0x11
0596 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0597 02c7       |    |		Declare_Variable	Any
0598 e5fa       |    |		Load	0x2,-0x6
0599 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
059a e012       |    |		Load	0x0,0x12
059b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
059c a403       |    |		Store_Unchecked	0x2,0x3
059d e016       |    |		Load	0x0,0x16
059e 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
059f 02c7       |    |		Declare_Variable	Any
05a0 e5fa       |    |		Load	0x2,-0x6
05a1 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
05a2 e012       |    |		Load	0x0,0x12
05a3 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
05a4 a404       |    |		Store_Unchecked	0x2,0x4
05a5 00d8       |    |		Load_Top	At_Offset_0
05a6 e016       |    |		Load	0x0,0x16
05a7 1860       | `  |		Execute	Package,Field_Execute,Field_Number 0x60
05a8 e016       |    |		Load	0x0,0x16
05a9 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
05aa 03f1       |    |		Declare_Variable	Discrete,With_Value
05ab e00e       |    |		Load	0x0,0xe
05ac 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
05ad 0322       | "  |		Declare_Variable	Record
05ae 00db       |    |		Load_Top	At_Offset_3
05af e00e       |    |		Load	0x0,0xe
05b0 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
05b1 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
05b2 0119       |    |		Execute	Any,Check_In_Formal_Type
05b3 00d9       |    |		Load_Top	At_Offset_1
05b4 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
05b5 00d9       |    |		Load_Top	At_Offset_1
05b6 00d9       |    |		Load_Top	At_Offset_1
05b7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
05b8 00d9       |    |		Load_Top	At_Offset_1
05b9 e5ff       |    |		Load	0x2,-0x1
05ba e5fe       |    |		Load	0x2,-0x2
05bb 8234       | 4  |		Call	0x1,0x34
05bc 00da       |    |		Load_Top	At_Offset_2
05bd e5ff       |    |		Load	0x2,-0x1
05be e5fd       |    |		Load	0x2,-0x3
05bf 8235       | 5  |		Call	0x1,0x35
05c0			BODY_0590:
05c0 e00e       |    |		Load	0x0,0xe
05c1 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
05c2 700c       |p   |		Jump_Nonzero	0x5cf
05c3 e5f9       |    |		Load	0x2,-0x7
05c4 00e1       |    |		Load_Encached	Boolean_Cache
05c5 e5fb       |    |		Load	0x2,-0x5
05c6 e406       |    |		Load	0x2,0x6
05c7 e408       |    |		Load	0x2,0x8
05c8 e407       |    |		Load	0x2,0x7
05c9 e5ff       |    |		Load	0x2,-0x1
05ca e00e       |    |		Load	0x0,0xe
05cb 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
05cc c402       |    |		Store	0x2,0x2
05cd c5f9       |    |		Store	0x2,-0x7
05ce 780e       |x   |		Jump	0x5dd
05cf e00c       |    |		Load	0x0,0xc
05d0 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05d1 4801       |H   |		Short_Literal	0x1
05d2 0092 07ca  |    |		Action	Push_String_Extended,0x7ca					; "Connection to "
05d4 e5ff       |    |		Load	0x2,-0x1
05d5 01cc       |    |		Execute	Vector,Catenate
05d6 0092 07cb  |    |		Action	Push_String_Extended,0x7cb					; " already exists for "
05d8 01cc       |    |		Execute	Vector,Catenate
05d9 e407       |    |		Load	0x2,0x7
05da 01cc       |    |		Execute	Vector,Catenate
05db e00d       |    |		Load	0x0,0xd
05dc 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05dd 4802       |H   |		Short_Literal	0x2
05de e5f9       |    |		Load	0x2,-0x7
05df e003       |    |		Load	0x0,0x3
05e0 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
05e1 6801       |h   |		Jump_Zero	0x5e3
05e2 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
05e3 e402       |    |		Load	0x2,0x2
05e4 7010       |p   |		Jump_Nonzero	0x5f5
05e5 e403       |    |		Load	0x2,0x3
05e6 e011       |    |		Load	0x0,0x11
05e7 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
05e8 680c       |h   |		Jump_Zero	0x5f5
05e9 e5f9       |    |		Load	0x2,-0x7
05ea e5fb       |    |		Load	0x2,-0x5
05eb 4801       |H   |		Short_Literal	0x1
05ec 4800       |H   |		Short_Literal	0x0
05ed 4800       |H   |		Short_Literal	0x0
05ee 00ea       |    |		Load_Encached	Null_String_Cache
05ef e5fa       |    |		Load	0x2,-0x6
05f0 e403       |    |		Load	0x2,0x3
05f1 e011       |    |		Load	0x0,0x11
05f2 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
05f3 8224       | $  |		Call	0x1,0x24
05f4 c5f9       |    |		Store	0x2,-0x7
05f5 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
05f6			TRAP_0590:
05f6 e017       |    |		Load	0x0,0x17
05f7 010f       |    |		Execute	Exception,Equal
05f8 6807       |h   |		Jump_Zero	0x600
05f9 e5f9       |    |		Load	0x2,-0x7
05fa 4802       |H   |		Short_Literal	0x2
05fb 0092 07cc  |    |		Action	Push_String_Extended,0x7cc					; "Null username specified for TELNET login"
05fd 8233       | 3  |		Call	0x1,0x33
05fe c5f9       |    |		Store	0x2,-0x7
05ff 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0600 e018       |    |		Load	0x0,0x18
0601 010f       |    |		Execute	Exception,Equal
0602 6807       |h   |		Jump_Zero	0x60a
0603 e5f9       |    |		Load	0x2,-0x7
0604 4802       |H   |		Short_Literal	0x2
0605 0092 07cd  |    |		Action	Push_String_Extended,0x7cd					; "Null password specified for TELNET login"
0607 8233       | 3  |		Call	0x1,0x33
0608 c5f9       |    |		Store	0x2,-0x7
0609 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
060a e5f9       |    |		Load	0x2,-0x7
060b 4802       |H   |		Short_Literal	0x2
060c 0092 07ce  |    |		Action	Push_String_Extended,0x7ce					; "Exception "
060e 4800       |H   |		Short_Literal	0x0
060f 4801       |H   |		Short_Literal	0x1
0610 e019       |    |		Load	0x0,0x19
0611 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0612 01cc       |    |		Execute	Vector,Catenate
0613 0092 07cf  |    |		Action	Push_String_Extended,0x7cf					; " caught in Remote_Commands.Telnet_Connect"
0615 01cc       |    |		Execute	Vector,Catenate
0616 8233       | 3  |		Call	0x1,0x33
0617 c5f9       |    |		Store	0x2,-0x7
0618 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0619 0000 0000  |    |		.BLANK	0000[0x7]
0620 ; --------------------------------------------------------------------------------------
0620 ; SUBPROGRAM
0620 ; --------------------------------------------------------------------------------------
0620 0623       | #  |		.CONST	0x0623								; Address of begin
0621 0628       | (  |		.CONST	0x0628								; Address of exception handler
0622 0001       |    |		.CONST	0x0001								; Number of locals
0623			BODY_0620:
0623			INIT_0620:
0623 e004       |    |		Load	0x0,0x4
0624 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0625 e00e       |    |		Load	0x0,0xe
0626 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0627 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0628			TRAP_0620:
0628 0007       |    |		Action	Break_Optional
0629 e00c       |    |		Load	0x0,0xc
062a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
062b 4808       |H   |		Short_Literal	0x8
062c 0092 07ce  |    |		Action	Push_String_Extended,0x7ce					; "Exception "
062e 4800       |H   |		Short_Literal	0x0
062f 4801       |H   |		Short_Literal	0x1
0630 e019       |    |		Load	0x0,0x19
0631 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0632 01cc       |    |		Execute	Vector,Catenate
0633 0092 07d0  |    |		Action	Push_String_Extended,0x7d0					; " caught in Remote_Commands.Telnet_Disconnect"
0635 01cc       |    |		Execute	Vector,Catenate
0636 e00d       |    |		Load	0x0,0xd
0637 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0638 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0639 0000 0000  |    |		.BLANK	0000[0x7]
0640 ; --------------------------------------------------------------------------------------
0640 ; SUBPROGRAM
0640 ; --------------------------------------------------------------------------------------
0640 0643       | C  |		.CONST	0x0643								; Address of begin
0641 0004       |    |		.CONST	0x0004								; Address of exception handler
0642 0001       |    |		.CONST	0x0001								; Number of locals
0643			BODY_0640:
0643			INIT_0640:
0643 00db       |    |		Load_Top	At_Offset_3
0644 4802       |H   |		Short_Literal	0x2
0645 0092 07d1  |    |		Action	Push_String_Extended,0x7d1					; "Remote connection has been broken.  Can't execute command \x22"
0647 e5ff       |    |		Load	0x2,-0x1
0648 01cc       |    |		Execute	Vector,Catenate
0649 0092 07b7  |    |		Action	Push_String_Extended,0x7b7					; "\x22"
064b 01cc       |    |		Execute	Vector,Catenate
064c 8233       | 3  |		Call	0x1,0x33
064d c5fe       |    |		Store	0x2,-0x2
064e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
064f 0000       |    |		.XXX[0x1]
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0653       | S  |		.CONST	0x0653								; Address of begin
0651 0004       |    |		.CONST	0x0004								; Address of exception handler
0652 0001       |    |		.CONST	0x0001								; Number of locals
0653			BODY_0650:
0653			INIT_0650:
0653 00db       |    |		Load_Top	At_Offset_3
0654 4802       |H   |		Short_Literal	0x2
0655 0092 07d2  |    |		Action	Push_String_Extended,0x7d2					; "Unexpected exception during "
0657 e5ff       |    |		Load	0x2,-0x1
0658 01cc       |    |		Execute	Vector,Catenate
0659 0092 07d3  |    |		Action	Push_String_Extended,0x7d3					; " operation -- "
065b 01cc       |    |		Execute	Vector,Catenate
065c 4800       |H   |		Short_Literal	0x0
065d 4801       |H   |		Short_Literal	0x1
065e e019       |    |		Load	0x0,0x19
065f 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0660 01cc       |    |		Execute	Vector,Catenate
0661 8233       | 3  |		Call	0x1,0x33
0662 c5fe       |    |		Store	0x2,-0x2
0663 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0664 0000 0000  |    |		.BLANK	0000[0x4]
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 066d       | m  |		.CONST	0x066d								; Address of begin
0669 0004       |    |		.CONST	0x0004								; Address of exception handler
066a 0002       |    |		.CONST	0x0002								; Number of locals
066b			INIT_0668:
066b e016       |    |		Load	0x0,0x16
066c 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
066d			BODY_0668:
066d 00db       |    |		Load_Top	At_Offset_3
066e e012       |    |		Load	0x0,0x12
066f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0670 e016       |    |		Load	0x0,0x16
0671 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0672 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0673 00d8       |    |		Load_Top	At_Offset_0
0674 0f01       |    |		Execute_Immediate	Equal,0x1
0675 6802       |h   |		Jump_Zero	0x678
0676 4801       |H   |		Short_Literal	0x1
0677 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0678 4800       |H   |		Short_Literal	0x0
0679 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
067a 0000 0000  |    |		.BLANK	0000[0x6]
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0683       |    |		.CONST	0x0683								; Address of begin
0681 0004       |    |		.CONST	0x0004								; Address of exception handler
0682 0001       |    |		.CONST	0x0001								; Number of locals
0683			BODY_0680:
0683			INIT_0680:
0683 e405       |    |		Load	0x2,0x5
0684 e5fb       |    |		Load	0x2,-0x5
0685 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0686 0120       |    |		Execute	Any,Is_Value
0687 6803       |h   |		Jump_Zero	0x68b
0688 e002       |    |		Load	0x0,0x2
0689 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
068a 7802       |x   |		Jump	0x68d
068b e5fb       |    |		Load	0x2,-0x5
068c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
068d e5fc       |    |		Load	0x2,-0x4
068e 00ea       |    |		Load_Encached	Null_String_Cache
068f e7fe       |    |		Load	0x3,-0x2
0690 e7ff       |    |		Load	0x3,-0x1
0691 e5ff       |    |		Load	0x2,-0x1
0692 e002       |    |		Load	0x0,0x2
0693 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0694 e5fb       |    |		Load	0x2,-0x5
0695 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0696 c405       |    |		Store	0x2,0x5
0697 4802       |H   |		Short_Literal	0x2
0698 e405       |    |		Load	0x2,0x5
0699 e003       |    |		Load	0x0,0x3
069a 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
069b 6818       |h   |		Jump_Zero	0x6b4
069c e5fb       |    |		Load	0x2,-0x5
069d 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
069e 823a       | :  |		Call	0x1,0x3a
069f 6811       |h   |		Jump_Zero	0x6b1
06a0 e00c       |    |		Load	0x0,0xc
06a1 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
06a2 4806       |H   |		Short_Literal	0x6
06a3 0092 07d4  |    |		Action	Push_String_Extended,0x7d4					; "Failed to acquire FTP connection for "
06a5 e5ff       |    |		Load	0x2,-0x1
06a6 01cc       |    |		Execute	Vector,Catenate
06a7 0092 07d5  |    |		Action	Push_String_Extended,0x7d5					; ". Error is being ignored in batch mode"
06a9 01cc       |    |		Execute	Vector,Catenate
06aa e00d       |    |		Load	0x0,0xd
06ab 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
06ac e5fa       |    |		Load	0x2,-0x6
06ad e003       |    |		Load	0x0,0x3
06ae 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06af c5fa       |    |		Store	0x2,-0x6
06b0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
06b1 e405       |    |		Load	0x2,0x5
06b2 c5fa       |    |		Store	0x2,-0x6
06b3 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
06b4 e405       |    |		Load	0x2,0x5
06b5 e5fb       |    |		Load	0x2,-0x5
06b6 e5fc       |    |		Load	0x2,-0x4
06b7 00ea       |    |		Load_Encached	Null_String_Cache
06b8 e7fe       |    |		Load	0x3,-0x2
06b9 e7ff       |    |		Load	0x3,-0x1
06ba e5ff       |    |		Load	0x2,-0x1
06bb 8236       | 6  |		Call	0x1,0x36
06bc c405       |    |		Store	0x2,0x5
06bd 4802       |H   |		Short_Literal	0x2
06be e405       |    |		Load	0x2,0x5
06bf e003       |    |		Load	0x0,0x3
06c0 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
06c1 6818       |h   |		Jump_Zero	0x6da
06c2 e5fb       |    |		Load	0x2,-0x5
06c3 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
06c4 823a       | :  |		Call	0x1,0x3a
06c5 6811       |h   |		Jump_Zero	0x6d7
06c6 e00c       |    |		Load	0x0,0xc
06c7 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
06c8 4806       |H   |		Short_Literal	0x6
06c9 0092 07d6  |    |		Action	Push_String_Extended,0x7d6					; "Failed to acquire TELNET connection to "
06cb e5ff       |    |		Load	0x2,-0x1
06cc 01cc       |    |		Execute	Vector,Catenate
06cd 0092 07d5  |    |		Action	Push_String_Extended,0x7d5					; ". Error is being ignored in batch mode"
06cf 01cc       |    |		Execute	Vector,Catenate
06d0 e00d       |    |		Load	0x0,0xd
06d1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
06d2 e5fa       |    |		Load	0x2,-0x6
06d3 e003       |    |		Load	0x0,0x3
06d4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06d5 c5fa       |    |		Store	0x2,-0x6
06d6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
06d7 e405       |    |		Load	0x2,0x5
06d8 c5fa       |    |		Store	0x2,-0x6
06d9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
06da 4801       |H   |		Short_Literal	0x1
06db e403       |    |		Load	0x2,0x3
06dc 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
06dd e004       |    |		Load	0x0,0x4
06de 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
06df e403       |    |		Load	0x2,0x3
06e0 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
06e1 e5fb       |    |		Load	0x2,-0x5
06e2 e403       |    |		Load	0x2,0x3
06e3 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
06e4 e403       |    |		Load	0x2,0x3
06e5 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
06e6 e5ff       |    |		Load	0x2,-0x1
06e7 e006       |    |		Load	0x0,0x6
06e8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06e9 00d1       |    |		Pop_Control	Pop_Count_1
06ea e403       |    |		Load	0x2,0x3
06eb 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
06ec 00db       |    |		Load_Top	At_Offset_3
06ed e006       |    |		Load	0x0,0x6
06ee 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06ef 00d1       |    |		Pop_Control	Pop_Count_1
06f0 e403       |    |		Load	0x2,0x3
06f1 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
06f2 e7fe       |    |		Load	0x3,-0x2
06f3 e006       |    |		Load	0x0,0x6
06f4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
06f5 00d1       |    |		Pop_Control	Pop_Count_1
06f6 4800       |H   |		Short_Literal	0x0
06f7 e402       |    |		Load	0x2,0x2
06f8 e403       |    |		Load	0x2,0x3
06f9 e232       | 2  |		Load	0x1,0x32
06fa 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
06fb e5fc       |    |		Load	0x2,-0x4
06fc 6809       |h   |		Jump_Zero	0x706
06fd e00c       |    |		Load	0x0,0xc
06fe 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
06ff 4802       |H   |		Short_Literal	0x2
0700 0092 07d7  |    |		Action	Push_String_Extended,0x7d7					; "Built a connection to remote machine "
0702 e5ff       |    |		Load	0x2,-0x1
0703 01cc       |    |		Execute	Vector,Catenate
0704 e00d       |    |		Load	0x0,0xd
0705 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0706 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0707 0000       |    |		.XXX[0x1]
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 0710       |    |		.CONST	0x0710								; Address of begin
0709 0004       |    |		.CONST	0x0004								; Address of exception handler
070a 0002       |    |		.CONST	0x0002								; Number of locals
070b			INIT_0708:
070b e00e       |    |		Load	0x0,0xe
070c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
070d 0322       | "  |		Declare_Variable	Record
070e 00d8       |    |		Load_Top	At_Offset_0
070f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0710			BODY_0708:
0710 00d8       |    |		Load_Top	At_Offset_0
0711 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0712 e7ff       |    |		Load	0x3,-0x1
0713 e006       |    |		Load	0x0,0x6
0714 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0715 00d1       |    |		Pop_Control	Pop_Count_1
0716 4801       |H   |		Short_Literal	0x1
0717 00d9       |    |		Load_Top	At_Offset_1
0718 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0719 00d8       |    |		Load_Top	At_Offset_0
071a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
071b 0000 0000  |    |		.BLANK	0000[0x5]
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 0743       | C  |		.CONST	0x0743								; Address of begin
0721 0004       |    |		.CONST	0x0004								; Address of exception handler
0722 0002       |    |		.CONST	0x0002								; Number of locals
0723			INIT_0720:
0723 e00c       |    |		Load	0x0,0xc
0724 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0725 e00c       |    |		Load	0x0,0xc
0726 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0727 e00c       |    |		Load	0x0,0xc
0728 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0729 e00c       |    |		Load	0x0,0xc
072a 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
072b e00c       |    |		Load	0x0,0xc
072c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
072d e00c       |    |		Load	0x0,0xc
072e 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
072f e00c       |    |		Load	0x0,0xc
0730 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0731 e00c       |    |		Load	0x0,0xc
0732 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0733 e00c       |    |		Load	0x0,0xc
0734 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0735 e00c       |    |		Load	0x0,0xc
0736 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0737 e00c       |    |		Load	0x0,0xc
0738 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0739 e00c       |    |		Load	0x0,0xc
073a 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
073b e00c       |    |		Load	0x0,0xc
073c 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
073d 0092 07d8  |    |		Action	Push_String_Extended,0x7d8					; "telnet_"
073f e5fe       |    |		Load	0x2,-0x2
0740 01cc       |    |		Execute	Vector,Catenate
0741 e01a       |    |		Load	0x0,0x1a
0742 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0743			BODY_0720:
0743 00d8       |    |		Load_Top	At_Offset_0
0744 01db       |    |		Execute	Vector,Length
0745 7009       |p   |		Jump_Nonzero	0x74f
0746 e00c       |    |		Load	0x0,0xc
0747 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0748 4807       |H   |		Short_Literal	0x7
0749 0092 07d9  |    |		Action	Push_String_Extended,0x7d9					; "Could not find telnet username specification in remote password file"
074b e00d       |    |		Load	0x0,0xd
074c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
074d e017       |    |		Load	0x0,0x17
074e 0257       | W  |		Execute	Discrete,Raise
074f 00d8       |    |		Load_Top	At_Offset_0
0750 00cb       |    |		Action	Pop_Block_With_Result
0751 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0752 0000 0000  |    |		.BLANK	0000[0x6]
0758 ; --------------------------------------------------------------------------------------
0758 ; SUBPROGRAM
0758 ; --------------------------------------------------------------------------------------
0758 077b       | {  |		.CONST	0x077b								; Address of begin
0759 0004       |    |		.CONST	0x0004								; Address of exception handler
075a 0002       |    |		.CONST	0x0002								; Number of locals
075b			INIT_0758:
075b e00c       |    |		Load	0x0,0xc
075c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
075d e00c       |    |		Load	0x0,0xc
075e 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
075f e00c       |    |		Load	0x0,0xc
0760 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0761 e00c       |    |		Load	0x0,0xc
0762 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
0763 e00c       |    |		Load	0x0,0xc
0764 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0765 e00c       |    |		Load	0x0,0xc
0766 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
0767 e00c       |    |		Load	0x0,0xc
0768 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0769 e00c       |    |		Load	0x0,0xc
076a 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
076b e00c       |    |		Load	0x0,0xc
076c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
076d e00c       |    |		Load	0x0,0xc
076e 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
076f e00c       |    |		Load	0x0,0xc
0770 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0771 e00c       |    |		Load	0x0,0xc
0772 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0773 e00c       |    |		Load	0x0,0xc
0774 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0775 0092 07d8  |    |		Action	Push_String_Extended,0x7d8					; "telnet_"
0777 e5fe       |    |		Load	0x2,-0x2
0778 01cc       |    |		Execute	Vector,Catenate
0779 e01a       |    |		Load	0x0,0x1a
077a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
077b			BODY_0758:
077b 00d8       |    |		Load_Top	At_Offset_0
077c 01db       |    |		Execute	Vector,Length
077d 7009       |p   |		Jump_Nonzero	0x787
077e e00c       |    |		Load	0x0,0xc
077f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0780 4807       |H   |		Short_Literal	0x7
0781 0092 07da  |    |		Action	Push_String_Extended,0x7da					; "Could not find telnet password specification in remote password file"
0783 e00d       |    |		Load	0x0,0xd
0784 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0785 e018       |    |		Load	0x0,0x18
0786 0257       | W  |		Execute	Discrete,Raise
0787 00d8       |    |		Load_Top	At_Offset_0
0788 00cb       |    |		Action	Pop_Block_With_Result
0789 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
078a 0000 0000  |    |		.BLANK	0000[0x6]
0790 ; --------------------------------------------------------------------------------------
0790 ; SUBPROGRAM
0790 ; --------------------------------------------------------------------------------------
0790 0793       |    |		.CONST	0x0793								; Address of begin
0791 0004       |    |		.CONST	0x0004								; Address of exception handler
0792 0001       |    |		.CONST	0x0001								; Number of locals
0793			BODY_0790:
0793			INIT_0790:
0793 4608       |F   |		Jump_Case	0x9
0794 7808       |x   |		Jump	0x79d								; case 0x0
0795 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0796 7811       |x   |		Jump	0x7a8								; case 0x2
0797 7810       |x   |		Jump	0x7a8								; case 0x3
0798 780f       |x   |		Jump	0x7a8								; case 0x4
0799 780e       |x   |		Jump	0x7a8								; case 0x5
079a 780d       |x   |		Jump	0x7a8								; case 0x6
079b 780c       |x   |		Jump	0x7a8								; case 0x7
079c 780b       |x   |		Jump	0x7a8								; case 0x8
079d e001       |    |		Load	0x0,0x1
079e 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
079f 00db       |    |		Load_Top	At_Offset_3
07a0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
07a1 00da       |    |		Load_Top	At_Offset_2
07a2 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
07a3 0125       | %  |		Execute	Any,Set_Constraint
07a4 00da       |    |		Load_Top	At_Offset_2
07a5 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
07a6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
07a7 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
07a8 0869       | i  |		Execute_Immediate	Raise,0x69
07a9 ; --------------------------------------------------------------------------------------
07a9 ; STRING TABLE
07a9 ; --------------------------------------------------------------------------------------
07a9 0066       | f  |		.STRTAB	0x0066->0x07dc							; "TEXT"
07aa 0068       | h  |		.STRTAB	0x0068->0x07de							; "BINARY"
07ab 006c       | l  |		.STRTAB	0x006c->0x07e1							; "Reusing the existing connection to "
07ac 008d       |    |		.STRTAB	0x008d->0x07f2							; "Acquire"
07ad 0092       |    |		.STRTAB	0x0092->0x07f6							; "Released the connection to "
07ae 00ab       |    |		.STRTAB	0x00ab->0x0803							; "Release"
07af 00b0       |    |		.STRTAB	0x00b0->0x0807							; "Destroyed the connection to "
07b0 00ca       |    |		.STRTAB	0x00ca->0x0815							; "Destroy"
07b1 00cf       |    |		.STRTAB	0x00cf->0x0818							; "Set_Remote_Directory"
07b2 00e1       |    |		.STRTAB	0x00e1->0x0822							; "Reusing the existing directory"
07b3 00fd       |    |		.STRTAB	0x00fd->0x0831							; "Put"
07b4 00fe       |    |		.STRTAB	0x00fe->0x0833							; "Get"
07b5 00ff       |    |		.STRTAB	0x00ff->0x0834							; "Uploaded host unit \x22"
07b6 0111       |    |		.STRTAB	0x0111->0x083e							; "\x22 from remote unit \x22"
07b7 0123       | #  |		.STRTAB	0x0123->0x0848							; "\x22"
07b8 0122       | "  |		.STRTAB	0x0122->0x0849							; "Can't get unit \x22"
07b9 0130       | 0  |		.STRTAB	0x0130->0x0851							; "\x22 from remote file \x22"
07ba 0142       | B  |		.STRTAB	0x0142->0x085b							; "<PROFILE>"
07bb 0149       | I  |		.STRTAB	0x0149->0x085f							; "<WORLDS>"
07bc 014f       | O  |		.STRTAB	0x014f->0x0863							; "Remote command \x22"
07bd 015d       | ]  |		.STRTAB	0x015d->0x086b							; "\x22 failed"
07be 0163       | c  |		.STRTAB	0x0163->0x086f							; "\x22 executed with warnings"
07bf 0179       | y  |		.STRTAB	0x0179->0x087b							; "\x22 executed successfully"
07c0 018e       |    |		.STRTAB	0x018e->0x0887							; "Execute_Command"
07c1 019b       |    |		.STRTAB	0x019b->0x088e							; "Executed Unit_Update_Time for remote unit \x22"
07c2 01c4       |    |		.STRTAB	0x01c4->0x08a4							; "Unit_Update_Time"
07c3 01d2       |    |		.STRTAB	0x01d2->0x08ac							; " "
07c4 01d1       |    |		.STRTAB	0x01d1->0x08ac							; "Executed File_Exists for remote file \x22"
07c5 01f5       |    |		.STRTAB	0x01f5->0x08bf							; "\x22 on "
07c6 01f8       |    |		.STRTAB	0x01f8->0x08c2							; "File_Exists"
07c7 0201       |    |		.STRTAB	0x0201->0x08c7							; "Initialized Job_Record for job"
07c8 021d       |    |		.STRTAB	0x021d->0x08d6							; ", task"
07c9 0221       | !  |		.STRTAB	0x0221->0x08d9							; "Finalizing Job_Record"
07ca 0234       | 4  |		.STRTAB	0x0234->0x08e4							; "Connection to "
07cb 0240       | @  |		.STRTAB	0x0240->0x08eb							; " already exists for "
07cc 0252       | R  |		.STRTAB	0x0252->0x08f5							; "Null username specified for TELNET login"
07cd 0278       | x  |		.STRTAB	0x0278->0x0909							; "Null password specified for TELNET login"
07ce 029e       |    |		.STRTAB	0x029e->0x091d							; "Exception "
07cf 02a6       |    |		.STRTAB	0x02a6->0x0922							; " caught in Remote_Commands.Telnet_Connect"
07d0 02cd       |    |		.STRTAB	0x02cd->0x0936							; " caught in Remote_Commands.Telnet_Disconnect"
07d1 02f7       |    |		.STRTAB	0x02f7->0x094c							; "Remote connection has been broken.  Can't execute command \x22"
07d2 0330       | 0  |		.STRTAB	0x0330->0x096a							; "Unexpected exception during "
07d3 034a       | J  |		.STRTAB	0x034a->0x0978							; " operation -- "
07d4 0356       | V  |		.STRTAB	0x0356->0x097f							; "Failed to acquire FTP connection for "
07d5 0379       | y  |		.STRTAB	0x0379->0x0991							; ". Error is being ignored in batch mode"
07d6 039d       |    |		.STRTAB	0x039d->0x09a4							; "Failed to acquire TELNET connection to "
07d7 03c2       |    |		.STRTAB	0x03c2->0x09b8							; "Built a connection to remote machine "
07d8 03e5       |    |		.STRTAB	0x03e5->0x09ca							; "telnet_"
07d9 03ea       |    |		.STRTAB	0x03ea->0x09ce							; "Could not find telnet username specification in remote password file"
07da 042c       | ,  |		.STRTAB	0x042c->0x09f0							; "Could not find telnet password specification in remote password file"
07db 046e       | n  |		.STREND 0x046e->0x0a12
07dc 5445 5854  |TEXT|		.STRTAB_STRINGS
0a12 0000 0000  |    |		.BLANK	0000[0x6]
0a18 ; --------------------------------------------------------------------------------------
0a18 ; Debug Table
0a18 ; --------------------------------------------------------------------------------------
0a18 0004 000f  |    |		.DEBUG4	0x0004,0x000f,0x2b41,0x0000,0x0001,0x0000
0a1e 0004 1b54  |   T|		.XXX[0x39]
0a20 0000 0000  |    |
0a22 003e e252  | > R|
0a24 8000 0000  |    |
0a26 0000 0000  |    |
0a28 0001 2e35  |  .5|
0a2a 0140 0033  | @ 3|
0a2c 0982 01a1  |    |
0a2e 7000 1003  |p   |
0a30 ee22 effe  | "  |
0a32 0001 984c  |   L|
0a34 0003 30b8  |  0 |
0a36 03ee 1ef0  |    |
0a38 0000 0000  |    |
0a3a 0000 0010  |    |
0a3c 0000 0000  |    |
0a3e 0000 0008  |    |
0a40 0012 e350  |   P|
0a42 0000 0000  |    |
0a44 0000 0007  |    |
0a46 fe00 0198  |    |
0a48 4c00 0000  |L   |
0a4a 0003 ee29  |   )|
0a4c 3000 0000  |0   |
0a4e 0000 0000  |    |
0a50 1000 0000  |    |
0a52 0000 0000  |    |
0a54 0800 12e3  |    |
0a56 5000       |P   |
0a57 0000 0000  |    |		.BLANK	0000[0x5]
0a5c 4800 0330  |H  0|		.XXX[0x19]
0a5e a003 edff  |    |
0a60 6003 edfa  |`   |
0a62 5803 ee5b  |X  [|
0a64 7801 f71a  |x   |
0a66 2400 0793  |$   |
0a68 1900 3ee3  |  > |
0a6a 6480 3ee4  |d > |
0a6c 0e00 008d  |    |
0a6e 2b00 0829  |+  )|
0a70 dc00 0000  |    |
0a72 0000 7dc9  |  } |
0a74 6f00       |o   |
0a75 0000 0000  |    |		.BLANK	0000[0x4]
0a79 01e9 6e01  |  n |		.XXX[0x11]
0a7b 0000 8d23  |   #|
0a7d 0c50 42e0  | PB |
0a7f 0270 0011  | p  |
0a81 a460 0011  | `  |
0a83 a560 0105  | `  |
0a85 3b80 0000  |;   |
0a87 0000 0fb9  |    |
0a89 4de0       |M   |
0a8a 0000 0000  |    |		.BLANK	0000[0x4]
0a8e 003d 2dc0  | =- |		.XXX[0x15]
0a90 2000 11a4  |    |
0a92 618a 085c  |a  \|
0a94 004e 0002  | N  |
0a96 348c 00fb  |4   |
0a98 93e0 0000  |    |
0a9a 0000 0000  |    |
0a9c 0004 0000  |    |
0a9e 0000 0000  |    |
0aa0 0002 0003  |    |
0aa2 d2dc       |    |
0aa3 0000 0000  |    |		.BLANK	0000[0x4]
0aa7 00fb 95e0  |    |		.XXX[0xc]
0aa9 0000 0000  |    |
0aab 0000 0004  |    |
0aad 0000 0000  |    |
0aaf 0000 0002  |    |
0ab1 0003 d2dc  |    |
0ab3 0000 0000  |    |		.BLANK	0000[0x5]
0ab8 0012 0001  |    |		.XXX[0x2f]
0aba 1a56 00fb  | V  |
0abc 8c8c 0000  |    |
0abe 0000 00fb  |    |
0ac0 a273 007d  | s }|
0ac2 cc53 0003  | S  |
0ac4 0c25 200f  | %  |
0ac6 b992 600f  |  ` |
0ac8 b9bc c000  |    |
0aca 36d6 401e  |6 @ |
0acc e5bf 4000  |  @ |
0ace 0000 001f  |    |
0ad0 73ce 4000  |s @ |
0ad2 0000 0000  |    |
0ad4 0000 0001  |    |
0ad6 73f2 0040  |s  @|
0ad8 0036 d0c1  | 6  |
0ada 0450 b000  | P  |
0adc 1000 06da  |    |
0ade 1800 06da  |    |
0ae0 c803 dcb7  |    |
0ae2 e800 0000  |    |
0ae4 0003 ee81  |    |
0ae6 c800       |    |
0ae7 0000 0000  |    |		.BLANK	0000[0x4]
0aeb 2e7e 4008  |.~@ |		.XXX[0x15]
0aed 0006 da18  |    |
0aef 208a 1600  |    |
0af1 0180 00db  |    |
0af3 4300 3ee7  |C > |
0af5 dd00 0000  |    |
0af7 0000 0000  |    |
0af9 0100 0000  |    |
0afb 0000 0000  |    |
0afd 0080 02e7  |    |
0aff e400       |    |
0b00 0000 0000  |    |		.BLANK	0000[0x4]
0b04 3ee8 5d00  |> ] |		.XXX[0xc]
0b06 0000 0000  |    |
0b08 0000 0100  |    |
0b0a 0000 0000  |    |
0b0c 0000 0080  |    |
0b0e 02e7 e400  |    |
0b10 0000 0000  |    |		.BLANK	0000[0x5]
0b15 0480 006d  |   m|		.XXX[0x5]
0b17 ac80 3ee6  |  > |
0b19 0800       |    |
0b1a 0000 0000  |    |		.BLANK	0000[0x4]
0b1e 1f74 8740  | t @|		.XXX[0x10]
0b20 0000 7c68  |  |h|
0b22 03ee 92e8  |    |
0b24 03ee 9d80  |    |
0b26 0003 efe0  |    |
0b28 0475 27d0  | u' |
0b2a 0000 0000  |    |
0b2c 07dd 5030  |  P0|
0b2e 0000 0000  |    |		.BLANK	0000[0x4]
0b32 000c a660  |   `|		.XXX[0x11]
0b34 1000 03ef  |    |
0b36 70c0 0406  |p   |
0b38 0007 0000  |    |
0b3a 7dee 0000  |}   |
0b3c 7dfc 008e  |}   |
0b3e a4fa 0000  |    |
0b40 0000 00fb  |    |
0b42 ac06       |    |
0b43 0000 0000  |    |		.BLANK	0000[0x4]
0b47 0001 94cc  |    |		.XXX[0x26]
0b49 0200 007d  |   }|
0b4b ee18 0080  |    |
0b4d c000 e000  |    |
0b4f 0fbd c00f  |    |
0b51 bab0 8000  |    |
0b53 0000 0000  |    |
0b55 0000 4000  |  @ |
0b57 0000 0000  |    |
0b59 0000 4000  |  @ |
0b5b 194c c000  | L  |
0b5d 0000 0000  |    |
0b5f 0000 000f  |    |
0b61 bad0 8000  |    |
0b63 0000 0000  |    |
0b65 0000 4000  |  @ |
0b67 0000 0000  |    |
0b69 0000 2000  |    |
0b6b 194c c000  | L  |
0b6d 0000 0000  |    |		.BLANK	0000[0x4]
0b71 0001 2000  |    |		.XXX[0x1a]
0b73 07df c00f  |    |
0b75 ba3b 4000  | ;@ |
0b77 0000 0000  |    |
0b79 0000 0007  |    |
0b7b dd7e 7000  | ~p |
0b7d 0fb5 ee00  |    |
0b7f fbb0 4e00  |  N |
0b81 fbb2 f400  |    |
0b83 0198 5400  |  T |
0b85 2132 2000  |!2  |
0b87 0000 0001  |    |
0b89 f76c 5400  | lT |
0b8b 0000 0000  |    |		.BLANK	0000[0x4]
0b8f 0971 b00a  | q  |		.XXX[0x11]
0b91 0001 984c  |   L|
0b93 100d 0b80  |    |
0b95 0080 1f76  |   v|
0b97 b340 0033  | @ 3|
0b99 0a80 0426  |   &|
0b9b 4400 0000  |D   |
0b9d 0000 3eee  |  > |
0b9f 2e80       |.   |
0ba0 0000 0000  |    |		.BLANK	0000[0x4]
0ba4 012e 3601  | .6 |		.XXX[0x2e]
0ba6 4000 3309  |@ 3 |
0ba8 8201 a170  |   p|
0baa 0010 03ee  |    |
0bac e0af fe00  |    |
0bae 0198 4c00  |  L |
0bb0 0330 b803  | 0  |
0bb2 eedc b000  |    |
0bb4 0000 0000  |    |
0bb6 0000 1000  |    |
0bb8 0000 0000  |    |
0bba 0000 0800  |    |
0bbc 12e3 6000  |  ` |
0bbe 0000 0000  |    |
0bc0 0000 07fe  |    |
0bc2 0001 984c  |   L|
0bc4 0000 0000  |    |
0bc6 03ee e6f0  |    |
0bc8 0000 0000  |    |
0bca 0000 0010  |    |
0bcc 0000 0000  |    |
0bce 0000 0008  |    |
0bd0 0012 e360  |   `|
0bd2 0000 0000  |    |		.BLANK	0000[0x5]
0bd7 0048 0003  | H  |		.XXX[0x29]
0bd9 30a8 03ee  |0   |
0bdb bd20 03ee  |    |
0bdd b818 03ef  |    |
0bdf 5818 01f7  |X   |
0be1 7904 0009  |y   |
0be3 b3f2 803e  |   >|
0be5 ef40 803e  | @ >|
0be7 efea 0000  |    |
0be9 8d2c 0008  | ,  |
0beb 42c8 0000  |B   |
0bed 0000 007d  |   }|
0bef e254 0000  | T  |
0bf1 0000 007d  |   }|
0bf3 e354 0003  | T  |
0bf5 4ed2 0280  |N   |
0bf7 008d 2204  |  " |
0bf9 0642 c000  | B  |
0bfb 2007 de12  |    |
0bfd 7000 11a5  |p   |
0bff 8001       |    |