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

⟦11442e492⟧

    Length: 5120 (0x1400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da

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 0808       |    |		.CONST	0x0808								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 8004       |    |		.CONST	0x8004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00bd       |    |		.CONST	0x00bd								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0039       | 9  |		.CONST	0x0039								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4801       |H   |		Short_Literal	0x1
000d 029f 00c3  |    |		Declare_Subprogram	INIT_00c0,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 e001       |    |		Load	0x0,0x1
0031 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
0032 e002       |    |		Load	0x0,0x2
0033 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0034 029f 0633  |   3|		Declare_Subprogram	INIT_0630,For_Call
0036 4802       |H   |		Short_Literal	0x2
0037 032e       | .  |		Declare_Type	Record,Defined,Visible
0038 c22d       | -  |		Store	0x1,0x2d
0039 e003       |    |		Load	0x0,0x3
003a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
003b 0129       | )  |		Execute	Any,Make_Visible
003c c21d       |    |		Store	0x1,0x1d
003d 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
003f c21e       |    |		Store	0x1,0x1e
0040 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
0042 c21f       |    |		Store	0x1,0x1f
0043 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
0045 c220       |    |		Store	0x1,0x20
0046 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
0048 c226       | &  |		Store	0x1,0x26
0049 029a 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call,Visible,Unelaborated
004b c221       | !  |		Store	0x1,0x21
004c 029a 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call,Visible,Unelaborated
004e c22b       | +  |		Store	0x1,0x2b
004f 029a 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Outer_Call,Visible,Unelaborated
0051 c22c       | ,  |		Store	0x1,0x2c
0052 029a 0353  |   S|		Declare_Subprogram	INIT_0350,For_Outer_Call,Visible,Unelaborated
0054 c224       | $  |		Store	0x1,0x24
0055 029a 03db  |    |		Declare_Subprogram	INIT_03d8,For_Outer_Call,Visible,Unelaborated
0057 c225       | %  |		Store	0x1,0x25
0058 029a 0403  |    |		Declare_Subprogram	INIT_0400,For_Outer_Call,Visible,Unelaborated
005a c22a       | *  |		Store	0x1,0x2a
005b 00bf       |    |		Action	Accept_Activation
005c e004       |    |		Load	0x0,0x4
005d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
005e 02c7       |    |		Declare_Variable	Any
005f 4800       |H   |		Short_Literal	0x0
0060 4801       |H   |		Short_Literal	0x1
0061 4801       |H   |		Short_Literal	0x1
0062 6085       |`   |		Indirect_Literal	Discrete,0xe8,{0x00000000, 0x0000076d}
0063 e004       |    |		Load	0x0,0x4
0064 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0065 a22e       | .  |		Store_Unchecked	0x1,0x2e
0066 e005       |    |		Load	0x0,0x5
0067 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0068 02c7       |    |		Declare_Variable	Any
0069 0092 064b  |   K|		Action	Push_String_Extended,0x64b					; "<PROFILE>"
006b e005       |    |		Load	0x0,0x5
006c 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
006d a22f       | /  |		Store_Unchecked	0x1,0x2f
006e e005       |    |		Load	0x0,0x5
006f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0070 02c7       |    |		Declare_Variable	Any
0071 0092 064c  |   L|		Action	Push_String_Extended,0x64c					; "<PROFILE>,~+++,~---,~:::"
0073 e005       |    |		Load	0x0,0x5
0074 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0075 a230       | 0  |		Store_Unchecked	0x1,0x30
0076 e006       |    |		Load	0x0,0x6
0077 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0078 e007       |    |		Load	0x0,0x7
0079 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
007a 00e1       |    |		Load_Encached	Boolean_Cache
007b e007       |    |		Load	0x0,0x7
007c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
007d 4900       |I   |		Short_Literal	0x100
007e e008       |    |		Load	0x0,0x8
007f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0080 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0081 4900       |I   |		Short_Literal	0x100
0082 e008       |    |		Load	0x0,0x8
0083 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0084 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0085 4900       |I   |		Short_Literal	0x100
0086 e008       |    |		Load	0x0,0x8
0087 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0088 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0089 4900       |I   |		Short_Literal	0x100
008a e008       |    |		Load	0x0,0x8
008b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
008c 1c07       |    |		Execute_Immediate	Run_Utility,0x7
008d e22d       | -  |		Load	0x1,0x2d
008e 029f 045b  |   [|		Declare_Subprogram	INIT_0458,For_Call
0090 4809       |H   |		Short_Literal	0x9
0091 032d       | -  |		Declare_Type	Record,Defined
0092 029d 0493  |    |		Declare_Subprogram	INIT_0490,For_Outer_Call
0094 029d 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Outer_Call
0096 e009       |    |		Load	0x0,0x9
0097 e00a       |    |		Load	0x0,0xa
0098 e231       | 1  |		Load	0x1,0x31
0099 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
009a 1d33       | 3  |		Execute_Immediate	Reference_Lex_1,0x33
009b e00b       |    |		Load	0x0,0xb
009c 0387       |    |		Declare_Variable	Package
009d 00d8       |    |		Load_Top	At_Offset_0
009e 020f       |    |		Execute	Module,Activate
009f 029d 04fb  |    |		Declare_Subprogram	INIT_04f8,For_Outer_Call
00a1 029d 050b  |    |		Declare_Subprogram	INIT_0508,For_Outer_Call
00a3 029d 0573  |   s|		Declare_Subprogram	INIT_0570,For_Outer_Call
00a5 029d 0593  |    |		Declare_Subprogram	INIT_0590,For_Outer_Call
00a7 029d 05a3  |    |		Declare_Subprogram	INIT_05a0,For_Outer_Call
00a9 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00aa 00c7       |    |		Action	Elaborate_Subprogram
00ab 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
00ac 00c7       |    |		Action	Elaborate_Subprogram
00ad 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00ae 00c7       |    |		Action	Elaborate_Subprogram
00af 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
00b0 00c7       |    |		Action	Elaborate_Subprogram
00b1 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
00b2 00c7       |    |		Action	Elaborate_Subprogram
00b3 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
00b4 00c7       |    |		Action	Elaborate_Subprogram
00b5 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
00b6 00c7       |    |		Action	Elaborate_Subprogram
00b7 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
00b8 00c7       |    |		Action	Elaborate_Subprogram
00b9 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
00ba 00c7       |    |		Action	Elaborate_Subprogram
00bb 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
00bc 00c7       |    |		Action	Elaborate_Subprogram
00bd			BODY_0008:
00bd 00bc       |    |		Action	Signal_Activated
00be 00bb       |    |		Action	Signal_Completion
00bf 0000       |    |		.XXX[0x1]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 4607       |F   |		Jump_Case	0x8
00c4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00c5 7806       |x   |		Jump	0xcc								; case 0x1
00c6 7809       |x   |		Jump	0xd0								; case 0x2
00c7 780d       |x   |		Jump	0xd5								; case 0x3
00c8 7810       |x   |		Jump	0xd9								; case 0x4
00c9 7811       |x   |		Jump	0xdb								; case 0x5
00ca 7812       |x   |		Jump	0xdd								; case 0x6
00cb 7815       |x   |		Jump	0xe1								; case 0x7
00cc 00da       |    |		Load_Top	At_Offset_2
00cd 0091 0649  |   I|		Action	Push_String_Extended_Indexed,0x649				; "TEXT"
00cf 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00d0 00db       |    |		Load_Top	At_Offset_3
00d1 00db       |    |		Load_Top	At_Offset_3
00d2 00e0       |    |		Load_Encached	Standard_Cache
00d3 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00d4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00d5 00da       |    |		Load_Top	At_Offset_2
00d6 00e0       |    |		Load_Encached	Standard_Cache
00d7 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00d8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00d9 00db       |    |		Load_Top	At_Offset_3
00da 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00db 00db       |    |		Load_Top	At_Offset_3
00dc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00dd e20d       |    |		Load	0x1,0xd
00de 00dc       |    |		Load_Top	At_Offset_4
00df 0267       | g  |		Execute	Discrete,Predecessor
00e0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00e1 e20d       |    |		Load	0x1,0xd
00e2 00dc       |    |		Load_Top	At_Offset_4
00e3 0268       | h  |		Execute	Discrete,Successor
00e4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00e5 0000 0000  |    |		.XXX[0x3]
00e7 0000       |    |
00e8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000076d}
00ec 0000 0000  |    |		.BLANK	0000[0x4]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 0108       |    |		.CONST	0x0108								; Address of begin
00f1 0171       | q  |		.CONST	0x0171								; Address of exception handler
00f2 0007       |    |		.CONST	0x0007								; Number of locals
00f3			INIT_00f0:
00f3 4820       |H   |		Short_Literal	0x20
00f4 00db       |    |		Load_Top	At_Offset_3
00f5 e00c       |    |		Load	0x0,0xc
00f6 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00f7 e006       |    |		Load	0x0,0x6
00f8 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00f9 e006       |    |		Load	0x0,0x6
00fa 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00fb 03f1       |    |		Declare_Variable	Discrete,With_Value
00fc e231       | 1  |		Load	0x1,0x31
00fd 0322       | "  |		Declare_Variable	Record
00fe 00d8       |    |		Load_Top	At_Offset_0
00ff 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0100 00e1       |    |		Load_Encached	Boolean_Cache
0101 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0102 e21d       |    |		Load	0x1,0x1d
0103 02c7       |    |		Declare_Variable	Any
0104 00d8       |    |		Load_Top	At_Offset_0
0105 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0106 029f 05bb  |    |		Declare_Subprogram	INIT_05b8,For_Call
0108			BODY_00f0:
0108 00d9       |    |		Load_Top	At_Offset_1
0109 c5fa       |    |		Store	0x2,-0x6
010a e403       |    |		Load	0x2,0x3
010b e234       | 4  |		Load	0x1,0x34
010c 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
010d 7006       |p   |		Jump_Nonzero	0x114
010e e403       |    |		Load	0x2,0x3
010f e234       | 4  |		Load	0x1,0x34
0110 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0111 e404       |    |		Load	0x2,0x4
0112 017d       | }  |		Execute	Record,Structure_Write
0113 7844       |xD  |		Jump	0x158
0114 e403       |    |		Load	0x2,0x3
0115 e234       | 4  |		Load	0x1,0x34
0116 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0117 700f       |p   |		Jump_Nonzero	0x127
0118 00d9       |    |		Load_Top	At_Offset_1
0119 e5fc       |    |		Load	0x2,-0x4
011a e404       |    |		Load	0x2,0x4
011b 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
011c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
011d e002       |    |		Load	0x0,0x2
011e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
011f c406       |    |		Store	0x2,0x6
0120 8237       | 7  |		Call	0x1,0x37
0121 e403       |    |		Load	0x2,0x3
0122 e234       | 4  |		Load	0x1,0x34
0123 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0124 e404       |    |		Load	0x2,0x4
0125 017d       | }  |		Execute	Record,Structure_Write
0126 7831       |x1  |		Jump	0x158
0127 e403       |    |		Load	0x2,0x3
0128 e234       | 4  |		Load	0x1,0x34
0129 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
012a e404       |    |		Load	0x2,0x4
012b 017d       | }  |		Execute	Record,Structure_Write
012c 00db       |    |		Load_Top	At_Offset_3
012d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
012e 681e       |h   |		Jump_Zero	0x14d
012f 00db       |    |		Load_Top	At_Offset_3
0130 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0131 e006       |    |		Load	0x0,0x6
0132 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0133 027f       |    |		Execute	Discrete,Equal
0134 6818       |h   |		Jump_Zero	0x14d
0135 4800       |H   |		Short_Literal	0x0
0136 e5fe       |    |		Load	0x2,-0x2
0137 e404       |    |		Load	0x2,0x4
0138 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0139 e008       |    |		Load	0x0,0x8
013a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
013b e00c       |    |		Load	0x0,0xc
013c 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
013d 680b       |h   |		Jump_Zero	0x149
013e 4800       |H   |		Short_Literal	0x0
013f e5fd       |    |		Load	0x2,-0x3
0140 e404       |    |		Load	0x2,0x4
0141 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0142 e008       |    |		Load	0x0,0x8
0143 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0144 e00c       |    |		Load	0x0,0xc
0145 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0146 6802       |h   |		Jump_Zero	0x149
0147 4800       |H   |		Short_Literal	0x0
0148 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0149 00db       |    |		Load_Top	At_Offset_3
014a 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
014b e5fb       |    |		Load	0x2,-0x5
014c 017d       | }  |		Execute	Record,Structure_Write
014d 00da       |    |		Load_Top	At_Offset_2
014e 6809       |h   |		Jump_Zero	0x158
014f 00d9       |    |		Load_Top	At_Offset_1
0150 e5fc       |    |		Load	0x2,-0x4
0151 e404       |    |		Load	0x2,0x4
0152 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
0153 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0154 e002       |    |		Load	0x0,0x2
0155 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0156 c406       |    |		Store	0x2,0x6
0157 8237       | 7  |		Call	0x1,0x37
0158 00da       |    |		Load_Top	At_Offset_2
0159 680d       |h   |		Jump_Zero	0x167
015a e5fd       |    |		Load	0x2,-0x3
015b e5fe       |    |		Load	0x2,-0x2
015c 8407       |    |		Call	0x2,0x7
015d 4801       |H   |		Short_Literal	0x1
015e e5fa       |    |		Load	0x2,-0x6
015f e003       |    |		Load	0x0,0x3
0160 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0161 6804       |h   |		Jump_Zero	0x166
0162 e006       |    |		Load	0x0,0x6
0163 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0164 e234       | 4  |		Load	0x1,0x34
0165 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0166 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0167 e005       |    |		Load	0x0,0x5
0168 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0169 480a       |H   |		Short_Literal	0xa
016a 0092 064d  |   M|		Action	Push_String_Extended,0x64d					; "Reusing the existing connection to "
016c e5ff       |    |		Load	0x2,-0x1
016d 01cc       |    |		Execute	Vector,Catenate
016e e00d       |    |		Load	0x0,0xd
016f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0170 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0171			TRAP_00f0:
0171 0007       |    |		Action	Break_Optional
0172 e5fa       |    |		Load	0x2,-0x6
0173 0092 064e  |   N|		Action	Push_String_Extended,0x64e					; "Acquire"
0175 8239       | 9  |		Call	0x1,0x39
0176 c5fa       |    |		Store	0x2,-0x6
0177 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017f       |    |		.CONST	0x017f								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0002       |    |		.CONST	0x0002								; Number of locals
017b			INIT_0178:
017b e21d       |    |		Load	0x1,0x1d
017c 02c7       |    |		Declare_Variable	Any
017d 00d8       |    |		Load_Top	At_Offset_0
017e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
017f			BODY_0178:
017f 00d8       |    |		Load_Top	At_Offset_0
0180 e5f9       |    |		Load	0x2,-0x7
0181 e5fa       |    |		Load	0x2,-0x6
0182 e5fb       |    |		Load	0x2,-0x5
0183 e5fc       |    |		Load	0x2,-0x4
0184 e5fd       |    |		Load	0x2,-0x3
0185 821e       |    |		Call	0x1,0x1e
0186 00d1       |    |		Pop_Control	Pop_Count_1
0187 c402       |    |		Store	0x2,0x2
0188 4802       |H   |		Short_Literal	0x2
0189 00d9       |    |		Load_Top	At_Offset_1
018a e003       |    |		Load	0x0,0x3
018b 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
018c 7008       |p   |		Jump_Nonzero	0x195
018d e5f8       |    |		Load	0x2,-0x8
018e e5fa       |    |		Load	0x2,-0x6
018f e5fe       |    |		Load	0x2,-0x2
0190 e5f9       |    |		Load	0x2,-0x7
0191 e5ff       |    |		Load	0x2,-0x1
0192 8221       | !  |		Call	0x1,0x21
0193 c5f8       |    |		Store	0x2,-0x8
0194 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0195 00d8       |    |		Load_Top	At_Offset_0
0196 c5f8       |    |		Store	0x2,-0x8
0197 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01b1       |    |		.CONST	0x01b1								; Address of begin
0199 01cb       |    |		.CONST	0x01cb								; Address of exception handler
019a 0005       |    |		.CONST	0x0005								; Number of locals
019b			INIT_0198:
019b e006       |    |		Load	0x0,0x6
019c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
019d e006       |    |		Load	0x0,0x6
019e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
019f 03f1       |    |		Declare_Variable	Discrete,With_Value
01a0 e231       | 1  |		Load	0x1,0x31
01a1 0322       | "  |		Declare_Variable	Record
01a2 00d8       |    |		Load_Top	At_Offset_0
01a3 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01a4 00d9       |    |		Load_Top	At_Offset_1
01a5 e234       | 4  |		Load	0x1,0x34
01a6 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01a7 00d9       |    |		Load_Top	At_Offset_1
01a8 017d       | }  |		Execute	Record,Structure_Write
01a9 00d8       |    |		Load_Top	At_Offset_0
01aa 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
01ab e008       |    |		Load	0x0,0x8
01ac 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01ad e21d       |    |		Load	0x1,0x1d
01ae 02c7       |    |		Declare_Variable	Any
01af 00d8       |    |		Load_Top	At_Offset_0
01b0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01b1			BODY_0198:
01b1 e006       |    |		Load	0x0,0x6
01b2 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01b3 e234       | 4  |		Load	0x1,0x34
01b4 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01b5 00d8       |    |		Load_Top	At_Offset_0
01b6 e5ff       |    |		Load	0x2,-0x1
01b7 e5fe       |    |		Load	0x2,-0x2
01b8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01b9 e002       |    |		Load	0x0,0x2
01ba 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01bb c405       |    |		Store	0x2,0x5
01bc 8237       | 7  |		Call	0x1,0x37
01bd 00d8       |    |		Load_Top	At_Offset_0
01be c5fd       |    |		Store	0x2,-0x3
01bf e5ff       |    |		Load	0x2,-0x1
01c0 6809       |h   |		Jump_Zero	0x1ca
01c1 e005       |    |		Load	0x0,0x5
01c2 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01c3 4802       |H   |		Short_Literal	0x2
01c4 0092 064f  |   O|		Action	Push_String_Extended,0x64f					; "Released the connection to "
01c6 e404       |    |		Load	0x2,0x4
01c7 01cc       |    |		Execute	Vector,Catenate
01c8 e00d       |    |		Load	0x0,0xd
01c9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01ca 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01cb			TRAP_0198:
01cb 0007       |    |		Action	Break_Optional
01cc e5fd       |    |		Load	0x2,-0x3
01cd 0092 0650  |   P|		Action	Push_String_Extended,0x650					; "Release"
01cf 8239       | 9  |		Call	0x1,0x39
01d0 c5fd       |    |		Store	0x2,-0x3
01d1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01d2 0000 0000  |    |		.BLANK	0000[0x6]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01f1       |    |		.CONST	0x01f1								; Address of begin
01d9 020b       |    |		.CONST	0x020b								; Address of exception handler
01da 0005       |    |		.CONST	0x0005								; Number of locals
01db			INIT_01d8:
01db e006       |    |		Load	0x0,0x6
01dc 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01dd e006       |    |		Load	0x0,0x6
01de 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01df 03f1       |    |		Declare_Variable	Discrete,With_Value
01e0 e231       | 1  |		Load	0x1,0x31
01e1 0322       | "  |		Declare_Variable	Record
01e2 00d8       |    |		Load_Top	At_Offset_0
01e3 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01e4 00d9       |    |		Load_Top	At_Offset_1
01e5 e234       | 4  |		Load	0x1,0x34
01e6 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01e7 00d9       |    |		Load_Top	At_Offset_1
01e8 017d       | }  |		Execute	Record,Structure_Write
01e9 00d8       |    |		Load_Top	At_Offset_0
01ea 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
01eb e008       |    |		Load	0x0,0x8
01ec 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01ed e21d       |    |		Load	0x1,0x1d
01ee 02c7       |    |		Declare_Variable	Any
01ef 00d8       |    |		Load_Top	At_Offset_0
01f0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01f1			BODY_01d8:
01f1 e006       |    |		Load	0x0,0x6
01f2 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01f3 e234       | 4  |		Load	0x1,0x34
01f4 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01f5 00d8       |    |		Load_Top	At_Offset_0
01f6 e5ff       |    |		Load	0x2,-0x1
01f7 e5fe       |    |		Load	0x2,-0x2
01f8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01f9 e002       |    |		Load	0x0,0x2
01fa 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01fb c405       |    |		Store	0x2,0x5
01fc 8237       | 7  |		Call	0x1,0x37
01fd 00d8       |    |		Load_Top	At_Offset_0
01fe c5fd       |    |		Store	0x2,-0x3
01ff e5ff       |    |		Load	0x2,-0x1
0200 6809       |h   |		Jump_Zero	0x20a
0201 e005       |    |		Load	0x0,0x5
0202 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0203 4802       |H   |		Short_Literal	0x2
0204 0092 0651  |   Q|		Action	Push_String_Extended,0x651					; "Destroyed the connection to "
0206 e404       |    |		Load	0x2,0x4
0207 01cc       |    |		Execute	Vector,Catenate
0208 e00d       |    |		Load	0x0,0xd
0209 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
020a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
020b			TRAP_01d8:
020b 0007       |    |		Action	Break_Optional
020c e5fd       |    |		Load	0x2,-0x3
020d 0092 0652  |   R|		Action	Push_String_Extended,0x652					; "Destroy"
020f 8239       | 9  |		Call	0x1,0x39
0210 c5fd       |    |		Store	0x2,-0x3
0211 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0212 0000 0000  |    |		.BLANK	0000[0x6]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 022d       | -  |		.CONST	0x022d								; Address of begin
0219 0281       |    |		.CONST	0x0281								; Address of exception handler
021a 0004       |    |		.CONST	0x0004								; Number of locals
021b			INIT_0218:
021b e21d       |    |		Load	0x1,0x1d
021c 02c7       |    |		Declare_Variable	Any
021d 00d8       |    |		Load_Top	At_Offset_0
021e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
021f e006       |    |		Load	0x0,0x6
0220 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0221 e006       |    |		Load	0x0,0x6
0222 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0223 03f1       |    |		Declare_Variable	Discrete,With_Value
0224 e231       | 1  |		Load	0x1,0x31
0225 0322       | "  |		Declare_Variable	Record
0226 00d8       |    |		Load_Top	At_Offset_0
0227 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0228 00d9       |    |		Load_Top	At_Offset_1
0229 e234       | 4  |		Load	0x1,0x34
022a 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
022b 00d9       |    |		Load_Top	At_Offset_1
022c 017d       | }  |		Execute	Record,Structure_Write
022d			BODY_0218:
022d 00da       |    |		Load_Top	At_Offset_2
022e c5fb       |    |		Store	0x2,-0x5
022f e5fe       |    |		Load	0x2,-0x2
0230 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0231 e00e       |    |		Load	0x0,0xe
0232 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
0233 6803       |h   |		Jump_Zero	0x237
0234 e00f       |    |		Load	0x0,0xf
0235 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0236 7006       |p   |		Jump_Nonzero	0x23d
0237 e5fb       |    |		Load	0x2,-0x5
0238 0092 0653  |   S|		Action	Push_String_Extended,0x653					; "Set_Remote_Directory"
023a 8238       | 8  |		Call	0x1,0x38
023b c5fb       |    |		Store	0x2,-0x5
023c 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
023d 4800       |H   |		Short_Literal	0x0
023e e5ff       |    |		Load	0x2,-0x1
023f 00da       |    |		Load_Top	At_Offset_2
0240 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0241 e008       |    |		Load	0x0,0x8
0242 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0243 e00c       |    |		Load	0x0,0xc
0244 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0245 680b       |h   |		Jump_Zero	0x251
0246 e5fd       |    |		Load	0x2,-0x3
0247 01db       |    |		Execute	Vector,Length
0248 7008       |p   |		Jump_Nonzero	0x251
0249 e005       |    |		Load	0x0,0x5
024a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
024b 4801       |H   |		Short_Literal	0x1
024c 0092 0654  |   T|		Action	Push_String_Extended,0x654					; "Reusing the existing directory."
024e e00d       |    |		Load	0x0,0xd
024f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0250 7822       |x"  |		Jump	0x273
0251 00da       |    |		Load_Top	At_Offset_2
0252 e5fc       |    |		Load	0x2,-0x4
0253 4801       |H   |		Short_Literal	0x1
0254 4800       |H   |		Short_Literal	0x0
0255 4800       |H   |		Short_Literal	0x0
0256 00ea       |    |		Load_Encached	Null_String_Cache
0257 e5fe       |    |		Load	0x2,-0x2
0258 e5ff       |    |		Load	0x2,-0x1
0259 8224       | $  |		Call	0x1,0x24
025a c402       |    |		Store	0x2,0x2
025b 4802       |H   |		Short_Literal	0x2
025c 00db       |    |		Load_Top	At_Offset_3
025d e003       |    |		Load	0x0,0x3
025e 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
025f 6803       |h   |		Jump_Zero	0x263
0260 00da       |    |		Load_Top	At_Offset_2
0261 c5fb       |    |		Store	0x2,-0x5
0262 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0263 00d9       |    |		Load_Top	At_Offset_1
0264 e234       | 4  |		Load	0x1,0x34
0265 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0266 00d9       |    |		Load_Top	At_Offset_1
0267 017d       | }  |		Execute	Record,Structure_Write
0268 00d8       |    |		Load_Top	At_Offset_0
0269 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
026a e5ff       |    |		Load	0x2,-0x1
026b e008       |    |		Load	0x0,0x8
026c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
026d 00d1       |    |		Pop_Control	Pop_Count_1
026e 4800       |H   |		Short_Literal	0x0
026f 00da       |    |		Load_Top	At_Offset_2
0270 00da       |    |		Load_Top	At_Offset_2
0271 e234       | 4  |		Load	0x1,0x34
0272 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0273 e5fd       |    |		Load	0x2,-0x3
0274 01db       |    |		Execute	Vector,Length
0275 680a       |h   |		Jump_Zero	0x280
0276 e5fb       |    |		Load	0x2,-0x5
0277 e5fc       |    |		Load	0x2,-0x4
0278 4801       |H   |		Short_Literal	0x1
0279 4800       |H   |		Short_Literal	0x0
027a 4800       |H   |		Short_Literal	0x0
027b 00ea       |    |		Load_Encached	Null_String_Cache
027c e5fe       |    |		Load	0x2,-0x2
027d e5fd       |    |		Load	0x2,-0x3
027e 8224       | $  |		Call	0x1,0x24
027f c5fb       |    |		Store	0x2,-0x5
0280 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0281			TRAP_0218:
0281 0007       |    |		Action	Break_Optional
0282 e5fb       |    |		Load	0x2,-0x5
0283 0092 0653  |   S|		Action	Push_String_Extended,0x653					; "Set_Remote_Directory"
0285 8239       | 9  |		Call	0x1,0x39
0286 c5fb       |    |		Store	0x2,-0x5
0287 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028f       |    |		.CONST	0x028f								; Address of begin
0289 02b6       |    |		.CONST	0x02b6								; Address of exception handler
028a 0002       |    |		.CONST	0x0002								; Number of locals
028b			INIT_0288:
028b e21d       |    |		Load	0x1,0x1d
028c 02c7       |    |		Declare_Variable	Any
028d 00d8       |    |		Load_Top	At_Offset_0
028e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
028f			BODY_0288:
028f 00d8       |    |		Load_Top	At_Offset_0
0290 c5fa       |    |		Store	0x2,-0x6
0291 e5fd       |    |		Load	0x2,-0x3
0292 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0293 e00e       |    |		Load	0x0,0xe
0294 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
0295 7006       |p   |		Jump_Nonzero	0x29c
0296 e5fa       |    |		Load	0x2,-0x6
0297 0092 0655  |   U|		Action	Push_String_Extended,0x655					; "Put"
0299 8238       | 8  |		Call	0x1,0x38
029a c5fa       |    |		Store	0x2,-0x6
029b 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
029c e5fc       |    |		Load	0x2,-0x4
029d 700b       |p   |		Jump_Nonzero	0x2a9
029e 00d8       |    |		Load_Top	At_Offset_0
029f e5fb       |    |		Load	0x2,-0x5
02a0 4800       |H   |		Short_Literal	0x0
02a1 e5fd       |    |		Load	0x2,-0x3
02a2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02a3 e5fe       |    |		Load	0x2,-0x2
02a4 e5ff       |    |		Load	0x2,-0x1
02a5 e002       |    |		Load	0x0,0x2
02a6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02a7 c402       |    |		Store	0x2,0x2
02a8 780a       |x   |		Jump	0x2b3
02a9 00d8       |    |		Load_Top	At_Offset_0
02aa e5fb       |    |		Load	0x2,-0x5
02ab 4803       |H   |		Short_Literal	0x3
02ac e5fd       |    |		Load	0x2,-0x3
02ad 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02ae e5fe       |    |		Load	0x2,-0x2
02af e5ff       |    |		Load	0x2,-0x1
02b0 e002       |    |		Load	0x0,0x2
02b1 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02b2 c402       |    |		Store	0x2,0x2
02b3 00d8       |    |		Load_Top	At_Offset_0
02b4 c5fa       |    |		Store	0x2,-0x6
02b5 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
02b6			TRAP_0288:
02b6 0007       |    |		Action	Break_Optional
02b7 e5fa       |    |		Load	0x2,-0x6
02b8 0092 0655  |   U|		Action	Push_String_Extended,0x655					; "Put"
02ba 8239       | 9  |		Call	0x1,0x39
02bb c5fa       |    |		Store	0x2,-0x6
02bc 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
02bd 0000 0000  |    |		.XXX[0x3]
02bf 0000       |    |
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02d0       |    |		.CONST	0x02d0								; Address of begin
02c1 0345       | E  |		.CONST	0x0345								; Address of exception handler
02c2 0005       |    |		.CONST	0x0005								; Number of locals
02c3			INIT_02c0:
02c3 e21d       |    |		Load	0x1,0x1d
02c4 02c7       |    |		Declare_Variable	Any
02c5 00d8       |    |		Load_Top	At_Offset_0
02c6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02c7 00e1       |    |		Load_Encached	Boolean_Cache
02c8 e001       |    |		Load	0x0,0x1
02c9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02ca 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02cb e001       |    |		Load	0x0,0x1
02cc 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02cd 02c7       |    |		Declare_Variable	Any
02ce 00d8       |    |		Load_Top	At_Offset_0
02cf 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02d0			BODY_02c0:
02d0 00db       |    |		Load_Top	At_Offset_3
02d1 c5fa       |    |		Store	0x2,-0x6
02d2 e5fd       |    |		Load	0x2,-0x3
02d3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02d4 e00e       |    |		Load	0x0,0xe
02d5 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
02d6 7006       |p   |		Jump_Nonzero	0x2dd
02d7 e5fa       |    |		Load	0x2,-0x6
02d8 0092 0656  |   V|		Action	Push_String_Extended,0x656					; "Get"
02da 8238       | 8  |		Call	0x1,0x38
02db c5fa       |    |		Store	0x2,-0x6
02dc 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
02dd e001       |    |		Load	0x0,0x1
02de 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02df 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02e0 00d9       |    |		Load_Top	At_Offset_1
02e1 0120       |    |		Execute	Any,Is_Value
02e2 6803       |h   |		Jump_Zero	0x2e6
02e3 e001       |    |		Load	0x0,0x1
02e4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02e5 7801       |x   |		Jump	0x2e7
02e6 00d9       |    |		Load_Top	At_Offset_1
02e7 6064       |`d  |		Indirect_Literal	Discrete,0x34c,{0x00000000, 0x00004000}
02e8 e010       |    |		Load	0x0,0x10
02e9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02ea e006       |    |		Load	0x0,0x6
02eb 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02ec e001       |    |		Load	0x0,0x1
02ed 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02ee 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02ef e5ff       |    |		Load	0x2,-0x1
02f0 e001       |    |		Load	0x0,0x1
02f1 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02f2 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
02f3 c405       |    |		Store	0x2,0x5
02f4 005a       | Z  |		Store_Top	Discrete,At_Offset_2
02f5 00d9       |    |		Load_Top	At_Offset_1
02f6 0f00       |    |		Execute_Immediate	Equal,0x0
02f7 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
02f8 e5fc       |    |		Load	0x2,-0x4
02f9 680b       |h   |		Jump_Zero	0x305
02fa 00db       |    |		Load_Top	At_Offset_3
02fb e5fb       |    |		Load	0x2,-0x5
02fc 4803       |H   |		Short_Literal	0x3
02fd e5fd       |    |		Load	0x2,-0x3
02fe 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02ff e5fe       |    |		Load	0x2,-0x2
0300 e5ff       |    |		Load	0x2,-0x1
0301 e002       |    |		Load	0x0,0x2
0302 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0303 c402       |    |		Store	0x2,0x2
0304 780a       |x   |		Jump	0x30f
0305 00db       |    |		Load_Top	At_Offset_3
0306 e5fb       |    |		Load	0x2,-0x5
0307 4800       |H   |		Short_Literal	0x0
0308 e5fd       |    |		Load	0x2,-0x3
0309 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
030a e5fe       |    |		Load	0x2,-0x2
030b e5ff       |    |		Load	0x2,-0x1
030c e002       |    |		Load	0x0,0x2
030d 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
030e c402       |    |		Store	0x2,0x2
030f 00db       |    |		Load_Top	At_Offset_3
0310 c5fa       |    |		Store	0x2,-0x6
0311 4801       |H   |		Short_Literal	0x1
0312 e402       |    |		Load	0x2,0x2
0313 e003       |    |		Load	0x0,0x3
0314 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0315 7014       |p   |		Jump_Nonzero	0x32a
0316 e5fb       |    |		Load	0x2,-0x5
0317 6811       |h   |		Jump_Zero	0x329
0318 e005       |    |		Load	0x0,0x5
0319 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
031a 4802       |H   |		Short_Literal	0x2
031b 0092 0657  |   W|		Action	Push_String_Extended,0x657					; "Uploaded host unit \x22"
031d e5ff       |    |		Load	0x2,-0x1
031e 01cc       |    |		Execute	Vector,Catenate
031f 0092 0658  |   X|		Action	Push_String_Extended,0x658					; "\x22 from remote unit \x22"
0321 01cc       |    |		Execute	Vector,Catenate
0322 e5fe       |    |		Load	0x2,-0x2
0323 01cc       |    |		Execute	Vector,Catenate
0324 0092 0659  |   Y|		Action	Push_String_Extended,0x659					; "\x22."
0326 01cc       |    |		Execute	Vector,Catenate
0327 e00d       |    |		Load	0x0,0xd
0328 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0329 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
032a e5fa       |    |		Load	0x2,-0x6
032b 4802       |H   |		Short_Literal	0x2
032c 0092 065a  |   Z|		Action	Push_String_Extended,0x65a					; "Can't get unit \x22"
032e e5ff       |    |		Load	0x2,-0x1
032f 01cc       |    |		Execute	Vector,Catenate
0330 0092 065b  |   [|		Action	Push_String_Extended,0x65b					; "\x22 from remote file \x22"
0332 01cc       |    |		Execute	Vector,Catenate
0333 e5fe       |    |		Load	0x2,-0x2
0334 01cc       |    |		Execute	Vector,Catenate
0335 0092 0659  |   Y|		Action	Push_String_Extended,0x659					; "\x22."
0337 01cc       |    |		Execute	Vector,Catenate
0338 8235       | 5  |		Call	0x1,0x35
0339 c5fa       |    |		Store	0x2,-0x6
033a 00da       |    |		Load_Top	At_Offset_2
033b 7008       |p   |		Jump_Nonzero	0x344
033c 0092 064b  |   K|		Action	Push_String_Extended,0x64b					; "<PROFILE>"
033e 0092 065c  |   \|		Action	Push_String_Extended,0x65c					; "<WORLDS>"
0340 4801       |H   |		Short_Literal	0x1
0341 e5ff       |    |		Load	0x2,-0x1
0342 e011       |    |		Load	0x0,0x11
0343 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0344 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0345			TRAP_02c0:
0345 0007       |    |		Action	Break_Optional
0346 e5fa       |    |		Load	0x2,-0x6
0347 0092 0656  |   V|		Action	Push_String_Extended,0x656					; "Get"
0349 8239       | 9  |		Call	0x1,0x39
034a c5fa       |    |		Store	0x2,-0x6
034b 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
034c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0363       | c  |		.CONST	0x0363								; Address of begin
0351 03cb       |    |		.CONST	0x03cb								; Address of exception handler
0352 0005       |    |		.CONST	0x0005								; Number of locals
0353			INIT_0350:
0353 e21d       |    |		Load	0x1,0x1d
0354 02c7       |    |		Declare_Variable	Any
0355 00d8       |    |		Load_Top	At_Offset_0
0356 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0357 e00f       |    |		Load	0x0,0xf
0358 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0359 0322       | "  |		Declare_Variable	Record
035a 00d8       |    |		Load_Top	At_Offset_0
035b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
035c e012       |    |		Load	0x0,0x12
035d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
035e 02c7       |    |		Declare_Variable	Any
035f 00d8       |    |		Load_Top	At_Offset_0
0360 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0361 029f 061b  |    |		Declare_Subprogram	INIT_0618,For_Call
0363			BODY_0350:
0363 00db       |    |		Load_Top	At_Offset_3
0364 c5f8       |    |		Store	0x2,-0x8
0365 e5fe       |    |		Load	0x2,-0x2
0366 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0367 e013       |    |		Load	0x0,0x13
0368 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0369 c404       |    |		Store	0x2,0x4
036a e5ff       |    |		Load	0x2,-0x1
036b 8405       |    |		Call	0x2,0x5
036c 00db       |    |		Load_Top	At_Offset_3
036d 017d       | }  |		Execute	Record,Structure_Write
036e 00da       |    |		Load_Top	At_Offset_2
036f 4801       |H   |		Short_Literal	0x1
0370 e5f9       |    |		Load	0x2,-0x7
0371 e00f       |    |		Load	0x0,0xf
0372 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0373 00d1       |    |		Pop_Control	Pop_Count_1
0374 4801       |H   |		Short_Literal	0x1
0375 00db       |    |		Load_Top	At_Offset_3
0376 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0377 e003       |    |		Load	0x0,0x3
0378 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0379 6818       |h   |		Jump_Zero	0x392
037a e005       |    |		Load	0x0,0x5
037b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
037c 4805       |H   |		Short_Literal	0x5
037d e403       |    |		Load	0x2,0x3
037e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
037f e003       |    |		Load	0x0,0x3
0380 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0381 e00d       |    |		Load	0x0,0xd
0382 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0383 e5f8       |    |		Load	0x2,-0x8
0384 00db       |    |		Load_Top	At_Offset_3
0385 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0386 e003       |    |		Load	0x0,0x3
0387 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0388 0092 065d  |   ]|		Action	Push_String_Extended,0x65d					; "Remote command \x22"
038a e5ff       |    |		Load	0x2,-0x1
038b 01cc       |    |		Execute	Vector,Catenate
038c 0092 065e  |   ^|		Action	Push_String_Extended,0x65e					; "\x22 failed."
038e 01cc       |    |		Execute	Vector,Catenate
038f 8235       | 5  |		Call	0x1,0x35
0390 c5f8       |    |		Store	0x2,-0x8
0391 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0392 00d9       |    |		Load_Top	At_Offset_1
0393 e012       |    |		Load	0x0,0x12
0394 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0395 6834       |h4  |		Jump_Zero	0x3ca
0396 4800       |H   |		Short_Literal	0x0
0397 00db       |    |		Load_Top	At_Offset_3
0398 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0399 00da       |    |		Load_Top	At_Offset_2
039a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
039b 00da       |    |		Load_Top	At_Offset_2
039c e012       |    |		Load	0x0,0x12
039d 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
039e e008       |    |		Load	0x0,0x8
039f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03a0 00d1       |    |		Pop_Control	Pop_Count_1
03a1 00da       |    |		Load_Top	At_Offset_2
03a2 4801       |H   |		Short_Literal	0x1
03a3 e5f9       |    |		Load	0x2,-0x7
03a4 e00f       |    |		Load	0x0,0xf
03a5 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03a6 00d1       |    |		Pop_Control	Pop_Count_1
03a7 4801       |H   |		Short_Literal	0x1
03a8 00db       |    |		Load_Top	At_Offset_3
03a9 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03aa e003       |    |		Load	0x0,0x3
03ab 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
03ac 680f       |h   |		Jump_Zero	0x3bc
03ad e5f8       |    |		Load	0x2,-0x8
03ae 00db       |    |		Load_Top	At_Offset_3
03af 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03b0 e003       |    |		Load	0x0,0x3
03b1 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
03b2 0092 065d  |   ]|		Action	Push_String_Extended,0x65d					; "Remote command \x22"
03b4 e5ff       |    |		Load	0x2,-0x1
03b5 01cc       |    |		Execute	Vector,Catenate
03b6 0092 065e  |   ^|		Action	Push_String_Extended,0x65e					; "\x22 failed."
03b8 01cc       |    |		Execute	Vector,Catenate
03b9 8235       | 5  |		Call	0x1,0x35
03ba c5f8       |    |		Store	0x2,-0x8
03bb 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
03bc e5f9       |    |		Load	0x2,-0x7
03bd 680c       |h   |		Jump_Zero	0x3ca
03be e005       |    |		Load	0x0,0x5
03bf 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03c0 4802       |H   |		Short_Literal	0x2
03c1 0092 065d  |   ]|		Action	Push_String_Extended,0x65d					; "Remote command \x22"
03c3 e5ff       |    |		Load	0x2,-0x1
03c4 01cc       |    |		Execute	Vector,Catenate
03c5 0092 065f  |   _|		Action	Push_String_Extended,0x65f					; "\x22 executed successfully."
03c7 01cc       |    |		Execute	Vector,Catenate
03c8 e00d       |    |		Load	0x0,0xd
03c9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03ca 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
03cb			TRAP_0350:
03cb 0007       |    |		Action	Break_Optional
03cc e5f8       |    |		Load	0x2,-0x8
03cd 0092 0660  |   `|		Action	Push_String_Extended,0x660					; "Execute_Command"
03cf 8239       | 9  |		Call	0x1,0x39
03d0 c5f8       |    |		Store	0x2,-0x8
03d1 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
03d2 0000 0000  |    |		.BLANK	0000[0x6]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03df       |    |		.CONST	0x03df								; Address of begin
03d9 03f2       |    |		.CONST	0x03f2								; Address of exception handler
03da 0002       |    |		.CONST	0x0002								; Number of locals
03db			INIT_03d8:
03db e21d       |    |		Load	0x1,0x1d
03dc 02c7       |    |		Declare_Variable	Any
03dd 00d8       |    |		Load_Top	At_Offset_0
03de 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03df			BODY_03d8:
03df 00d8       |    |		Load_Top	At_Offset_0
03e0 c5fc       |    |		Store	0x2,-0x4
03e1 e22e       | .  |		Load	0x1,0x2e
03e2 c5fb       |    |		Store	0x2,-0x5
03e3 e5fd       |    |		Load	0x2,-0x3
03e4 680c       |h   |		Jump_Zero	0x3f1
03e5 e005       |    |		Load	0x0,0x5
03e6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03e7 4802       |H   |		Short_Literal	0x2
03e8 0092 0661  |   a|		Action	Push_String_Extended,0x661					; "Executed Unit_Update_Time for remote unit \x22"
03ea e5ff       |    |		Load	0x2,-0x1
03eb 01cc       |    |		Execute	Vector,Catenate
03ec 0092 0659  |   Y|		Action	Push_String_Extended,0x659					; "\x22."
03ee 01cc       |    |		Execute	Vector,Catenate
03ef e00d       |    |		Load	0x0,0xd
03f0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03f1 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03f2			TRAP_03d8:
03f2 0007       |    |		Action	Break_Optional
03f3 e5fc       |    |		Load	0x2,-0x4
03f4 0092 0662  |   b|		Action	Push_String_Extended,0x662					; "Unit_Update_Time"
03f6 8239       | 9  |		Call	0x1,0x39
03f7 c5fc       |    |		Store	0x2,-0x4
03f8 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03f9 0000 0000  |    |		.BLANK	0000[0x7]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 041e       |    |		.CONST	0x041e								; Address of begin
0401 0451       | Q  |		.CONST	0x0451								; Address of exception handler
0402 0006       |    |		.CONST	0x0006								; Number of locals
0403			INIT_0400:
0403 e006       |    |		Load	0x0,0x6
0404 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0405 e006       |    |		Load	0x0,0x6
0406 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0407 03f1       |    |		Declare_Variable	Discrete,With_Value
0408 e231       | 1  |		Load	0x1,0x31
0409 0322       | "  |		Declare_Variable	Record
040a 00d8       |    |		Load_Top	At_Offset_0
040b 1c01       |    |		Execute_Immediate	Run_Utility,0x1
040c 00d9       |    |		Load_Top	At_Offset_1
040d e234       | 4  |		Load	0x1,0x34
040e 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
040f 00d9       |    |		Load_Top	At_Offset_1
0410 017d       | }  |		Execute	Record,Structure_Write
0411 00d8       |    |		Load_Top	At_Offset_0
0412 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0413 e008       |    |		Load	0x0,0x8
0414 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0415 e21d       |    |		Load	0x1,0x1d
0416 02c7       |    |		Declare_Variable	Any
0417 00d8       |    |		Load_Top	At_Offset_0
0418 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0419 e012       |    |		Load	0x0,0x12
041a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
041b 02c7       |    |		Declare_Variable	Any
041c 00d8       |    |		Load_Top	At_Offset_0
041d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
041e			BODY_0400:
041e 00d9       |    |		Load_Top	At_Offset_1
041f c5fc       |    |		Store	0x2,-0x4
0420 4800       |H   |		Short_Literal	0x0
0421 a5fb       |    |		Store_Unchecked	0x2,-0x5
0422 e5fe       |    |		Load	0x2,-0x2
0423 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0424 e013       |    |		Load	0x0,0x13
0425 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0426 c406       |    |		Store	0x2,0x6
0427 00d9       |    |		Load_Top	At_Offset_1
0428 e5fd       |    |		Load	0x2,-0x3
0429 4801       |H   |		Short_Literal	0x1
042a 4800       |H   |		Short_Literal	0x0
042b 4800       |H   |		Short_Literal	0x0
042c 00ea       |    |		Load_Encached	Null_String_Cache
042d e5fe       |    |		Load	0x2,-0x2
042e e406       |    |		Load	0x2,0x6
042f e012       |    |		Load	0x0,0x12
0430 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0431 0092 0663  |   c|		Action	Push_String_Extended,0x663					; " "
0433 01cc       |    |		Execute	Vector,Catenate
0434 e5ff       |    |		Load	0x2,-0x1
0435 01cc       |    |		Execute	Vector,Catenate
0436 8224       | $  |		Call	0x1,0x24
0437 c405       |    |		Store	0x2,0x5
0438 4802       |H   |		Short_Literal	0x2
0439 00da       |    |		Load_Top	At_Offset_2
043a e003       |    |		Load	0x0,0x3
043b 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
043c 6801       |h   |		Jump_Zero	0x43e
043d 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
043e 4801       |H   |		Short_Literal	0x1
043f a5fb       |    |		Store_Unchecked	0x2,-0x5
0440 e5fd       |    |		Load	0x2,-0x3
0441 680e       |h   |		Jump_Zero	0x450
0442 e005       |    |		Load	0x0,0x5
0443 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0444 4802       |H   |		Short_Literal	0x2
0445 0092 0664  |   d|		Action	Push_String_Extended,0x664					; "Executed File_Exists for remote file \x22"
0447 e5ff       |    |		Load	0x2,-0x1
0448 01cc       |    |		Execute	Vector,Catenate
0449 0092 0665  |   e|		Action	Push_String_Extended,0x665					; "\x22 on "
044b 01cc       |    |		Execute	Vector,Catenate
044c e404       |    |		Load	0x2,0x4
044d 01cc       |    |		Execute	Vector,Catenate
044e e00d       |    |		Load	0x0,0xd
044f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0450 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0451			TRAP_0400:
0451 0007       |    |		Action	Break_Optional
0452 e5fc       |    |		Load	0x2,-0x4
0453 0092 0666  |   f|		Action	Push_String_Extended,0x666					; "File_Exists"
0455 8239       | 9  |		Call	0x1,0x39
0456 c5fc       |    |		Store	0x2,-0x4
0457 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045b       | [  |		.CONST	0x045b								; Address of begin
0459 0004       |    |		.CONST	0x0004								; Address of exception handler
045a 0001       |    |		.CONST	0x0001								; Number of locals
045b			BODY_0458:
045b			INIT_0458:
045b 4608       |F   |		Jump_Case	0x9
045c 7808       |x   |		Jump	0x465								; case 0x0
045d 7823       |x#  |		Jump	0x481								; case 0x1
045e 782f       |x/  |		Jump	0x48e								; case 0x2
045f 782e       |x.  |		Jump	0x48e								; case 0x3
0460 782d       |x-  |		Jump	0x48e								; case 0x4
0461 782c       |x,  |		Jump	0x48e								; case 0x5
0462 782b       |x+  |		Jump	0x48e								; case 0x6
0463 782a       |x*  |		Jump	0x48e								; case 0x7
0464 7829       |x)  |		Jump	0x48e								; case 0x8
0465 00da       |    |		Load_Top	At_Offset_2
0466 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0467 0125       | %  |		Execute	Any,Set_Constraint
0468 00da       |    |		Load_Top	At_Offset_2
0469 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
046a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
046b 00da       |    |		Load_Top	At_Offset_2
046c 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
046d 0125       | %  |		Execute	Any,Set_Constraint
046e 00da       |    |		Load_Top	At_Offset_2
046f 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0470 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0471 00da       |    |		Load_Top	At_Offset_2
0472 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0473 0125       | %  |		Execute	Any,Set_Constraint
0474 00da       |    |		Load_Top	At_Offset_2
0475 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0476 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0477 00da       |    |		Load_Top	At_Offset_2
0478 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
0479 0125       | %  |		Execute	Any,Set_Constraint
047a 00da       |    |		Load_Top	At_Offset_2
047b 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
047c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
047d 00da       |    |		Load_Top	At_Offset_2
047e 3408       |4   |		Execute	Record,Field_Reference,Field_Number 0x8
047f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0480 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0481 00da       |    |		Load_Top	At_Offset_2
0482 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0483 0125       | %  |		Execute	Any,Set_Constraint
0484 00da       |    |		Load_Top	At_Offset_2
0485 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0486 0125       | %  |		Execute	Any,Set_Constraint
0487 00da       |    |		Load_Top	At_Offset_2
0488 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0489 0125       | %  |		Execute	Any,Set_Constraint
048a 00da       |    |		Load_Top	At_Offset_2
048b 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
048c 0125       | %  |		Execute	Any,Set_Constraint
048d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
048e 0869       | i  |		Execute_Immediate	Raise,0x69
048f 0000       |    |		.XXX[0x1]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 049f       |    |		.CONST	0x049f								; Address of begin
0491 0004       |    |		.CONST	0x0004								; Address of exception handler
0492 0003       |    |		.CONST	0x0003								; Number of locals
0493			INIT_0490:
0493 e006       |    |		Load	0x0,0x6
0494 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0495 e006       |    |		Load	0x0,0x6
0496 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0497 03f1       |    |		Declare_Variable	Discrete,With_Value
0498 e006       |    |		Load	0x0,0x6
0499 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
049a e014       |    |		Load	0x0,0x14
049b 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
049c e007       |    |		Load	0x0,0x7
049d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
049e 03f1       |    |		Declare_Variable	Discrete,With_Value
049f			BODY_0490:
049f 00d9       |    |		Load_Top	At_Offset_1
04a0 e5ff       |    |		Load	0x2,-0x1
04a1 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
04a2 00d8       |    |		Load_Top	At_Offset_0
04a3 e5ff       |    |		Load	0x2,-0x1
04a4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
04a5 4800       |H   |		Short_Literal	0x0
04a6 e5ff       |    |		Load	0x2,-0x1
04a7 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
04a8 4800       |H   |		Short_Literal	0x0
04a9 e5ff       |    |		Load	0x2,-0x1
04aa 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
04ab e005       |    |		Load	0x0,0x5
04ac 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04ad 4801       |H   |		Short_Literal	0x1
04ae 0092 0667  |   g|		Action	Push_String_Extended,0x667					; "Initialized Job_Record for job"
04b0 e402       |    |		Load	0x2,0x2
04b1 00e0       |    |		Load_Encached	Standard_Cache
04b2 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04b3 01cc       |    |		Execute	Vector,Catenate
04b4 0092 0668  |   h|		Action	Push_String_Extended,0x668					; ", task"
04b6 01cc       |    |		Execute	Vector,Catenate
04b7 00db       |    |		Load_Top	At_Offset_3
04b8 00d8       |    |		Load_Top	At_Offset_0
04b9 00e2       |    |		Load_Encached	Integer_Cache
04ba 0260       | `  |		Execute	Discrete,In_Type
04bb 7001       |p   |		Jump_Nonzero	0x4bd
04bc 0801       |    |		Execute_Immediate	Raise,0x1
04bd 00e0       |    |		Load_Encached	Standard_Cache
04be 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04bf 01cc       |    |		Execute	Vector,Catenate
04c0 e00d       |    |		Load	0x0,0xd
04c1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04c2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04c3 0000 0000  |    |		.BLANK	0000[0x5]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb       |    |		.CONST	0x04cb								; Address of begin
04c9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ca 0001       |    |		.CONST	0x0001								; Number of locals
04cb			BODY_04c8:
04cb			INIT_04c8:
04cb e005       |    |		Load	0x0,0x5
04cc 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04cd 4801       |H   |		Short_Literal	0x1
04ce 0092 0669  |   i|		Action	Push_String_Extended,0x669					; "Finalizing Job_Record"
04d0 e00d       |    |		Load	0x0,0xd
04d1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04d2 4800       |H   |		Short_Literal	0x0
04d3 00db       |    |		Load_Top	At_Offset_3
04d4 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
04d5 4800       |H   |		Short_Literal	0x0
04d6 00db       |    |		Load_Top	At_Offset_3
04d7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
04d8 4800       |H   |		Short_Literal	0x0
04d9 00db       |    |		Load_Top	At_Offset_3
04da 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
04db 4800       |H   |		Short_Literal	0x0
04dc 00db       |    |		Load_Top	At_Offset_3
04dd 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
04de 00da       |    |		Load_Top	At_Offset_2
04df 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
04e0 00ea       |    |		Load_Encached	Null_String_Cache
04e1 e008       |    |		Load	0x0,0x8
04e2 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04e3 00d1       |    |		Pop_Control	Pop_Count_1
04e4 00da       |    |		Load_Top	At_Offset_2
04e5 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
04e6 00ea       |    |		Load_Encached	Null_String_Cache
04e7 e008       |    |		Load	0x0,0x8
04e8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04e9 00d1       |    |		Pop_Control	Pop_Count_1
04ea 00da       |    |		Load_Top	At_Offset_2
04eb 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
04ec 00ea       |    |		Load_Encached	Null_String_Cache
04ed e008       |    |		Load	0x0,0x8
04ee 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04ef 00d1       |    |		Pop_Control	Pop_Count_1
04f0 00da       |    |		Load_Top	At_Offset_2
04f1 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
04f2 00ea       |    |		Load_Encached	Null_String_Cache
04f3 e008       |    |		Load	0x0,0x8
04f4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
04f5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
04f6 0000 0000  |    |		.XXX[0x2]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 04fb       |    |		.CONST	0x04fb								; Address of begin
04f9 0004       |    |		.CONST	0x0004								; Address of exception handler
04fa 0001       |    |		.CONST	0x0001								; Number of locals
04fb			BODY_04f8:
04fb			INIT_04f8:
04fb e5fd       |    |		Load	0x2,-0x3
04fc 00db       |    |		Load_Top	At_Offset_3
04fd e5fe       |    |		Load	0x2,-0x2
04fe 00ea       |    |		Load_Encached	Null_String_Cache
04ff e003       |    |		Load	0x0,0x3
0500 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0501 e003       |    |		Load	0x0,0x3
0502 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0503 c5fd       |    |		Store	0x2,-0x3
0504 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0505 0000 0000  |    |		.XXX[0x3]
0507 0000       |    |
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 052e       | .  |		.CONST	0x052e								; Address of begin
0509 0560       | `  |		.CONST	0x0560								; Address of exception handler
050a 0005       |    |		.CONST	0x0005								; Number of locals
050b			INIT_0508:
050b e012       |    |		Load	0x0,0x12
050c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
050d 02c7       |    |		Declare_Variable	Any
050e e5fa       |    |		Load	0x2,-0x6
050f 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0510 e013       |    |		Load	0x0,0x13
0511 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0512 a402       |    |		Store_Unchecked	0x2,0x2
0513 e015       |    |		Load	0x0,0x15
0514 1b37       | 7  |		Execute	Package,Field_Read,Field_Number 0x37
0515 02c7       |    |		Declare_Variable	Any
0516 e5fa       |    |		Load	0x2,-0x6
0517 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0518 e013       |    |		Load	0x0,0x13
0519 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
051a a403       |    |		Store_Unchecked	0x2,0x3
051b 00d8       |    |		Load_Top	At_Offset_0
051c e015       |    |		Load	0x0,0x15
051d 185e       | ^  |		Execute	Package,Field_Execute,Field_Number 0x5e
051e e015       |    |		Load	0x0,0x15
051f 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0520 03f1       |    |		Declare_Variable	Discrete,With_Value
0521 e00f       |    |		Load	0x0,0xf
0522 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0523 0322       | "  |		Declare_Variable	Record
0524 00db       |    |		Load_Top	At_Offset_3
0525 e00f       |    |		Load	0x0,0xf
0526 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0527 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
0528 0119       |    |		Execute	Any,Check_In_Formal_Type
0529 00d9       |    |		Load_Top	At_Offset_1
052a 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
052b 00d9       |    |		Load_Top	At_Offset_1
052c 00d9       |    |		Load_Top	At_Offset_1
052d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
052e			BODY_0508:
052e e00f       |    |		Load	0x0,0xf
052f 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0530 700a       |p   |		Jump_Nonzero	0x53b
0531 e5f9       |    |		Load	0x2,-0x7
0532 e5fb       |    |		Load	0x2,-0x5
0533 00da       |    |		Load_Top	At_Offset_2
0534 e5fd       |    |		Load	0x2,-0x3
0535 e5fe       |    |		Load	0x2,-0x2
0536 e5ff       |    |		Load	0x2,-0x1
0537 e00f       |    |		Load	0x0,0xf
0538 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0539 c5f9       |    |		Store	0x2,-0x7
053a 780e       |x   |		Jump	0x549
053b e005       |    |		Load	0x0,0x5
053c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
053d 4801       |H   |		Short_Literal	0x1
053e 0092 066a  |   j|		Action	Push_String_Extended,0x66a					; "Connection to "
0540 e5ff       |    |		Load	0x2,-0x1
0541 01cc       |    |		Execute	Vector,Catenate
0542 0092 066b  |   k|		Action	Push_String_Extended,0x66b					; " already exists for "
0544 01cc       |    |		Execute	Vector,Catenate
0545 e5fe       |    |		Load	0x2,-0x2
0546 01cc       |    |		Execute	Vector,Catenate
0547 e00d       |    |		Load	0x0,0xd
0548 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0549 4802       |H   |		Short_Literal	0x2
054a e5f9       |    |		Load	0x2,-0x7
054b e003       |    |		Load	0x0,0x3
054c 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
054d 6801       |h   |		Jump_Zero	0x54f
054e 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
054f 00db       |    |		Load_Top	At_Offset_3
0550 e012       |    |		Load	0x0,0x12
0551 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0552 680c       |h   |		Jump_Zero	0x55f
0553 e5f9       |    |		Load	0x2,-0x7
0554 e5fb       |    |		Load	0x2,-0x5
0555 4801       |H   |		Short_Literal	0x1
0556 4800       |H   |		Short_Literal	0x0
0557 4800       |H   |		Short_Literal	0x0
0558 00ea       |    |		Load_Encached	Null_String_Cache
0559 e5fa       |    |		Load	0x2,-0x6
055a e402       |    |		Load	0x2,0x2
055b e012       |    |		Load	0x0,0x12
055c 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
055d 8224       | $  |		Call	0x1,0x24
055e c5f9       |    |		Store	0x2,-0x7
055f 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0560			TRAP_0508:
0560 0007       |    |		Action	Break_Optional
0561 e5f9       |    |		Load	0x2,-0x7
0562 4802       |H   |		Short_Literal	0x2
0563 0092 066c  |   l|		Action	Push_String_Extended,0x66c					; "Exception "
0565 4800       |H   |		Short_Literal	0x0
0566 4801       |H   |		Short_Literal	0x1
0567 e016       |    |		Load	0x0,0x16
0568 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0569 01cc       |    |		Execute	Vector,Catenate
056a 0092 066d  |   m|		Action	Push_String_Extended,0x66d					; " caught in Remote_Commands.Telnet_Connect"
056c 01cc       |    |		Execute	Vector,Catenate
056d 8235       | 5  |		Call	0x1,0x35
056e c5f9       |    |		Store	0x2,-0x7
056f 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0573       | s  |		.CONST	0x0573								; Address of begin
0571 0578       | x  |		.CONST	0x0578								; Address of exception handler
0572 0001       |    |		.CONST	0x0001								; Number of locals
0573			BODY_0570:
0573			INIT_0570:
0573 e006       |    |		Load	0x0,0x6
0574 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0575 e00f       |    |		Load	0x0,0xf
0576 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0577 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0578			TRAP_0570:
0578 0007       |    |		Action	Break_Optional
0579 e005       |    |		Load	0x0,0x5
057a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
057b 4808       |H   |		Short_Literal	0x8
057c 0092 066c  |   l|		Action	Push_String_Extended,0x66c					; "Exception "
057e 4800       |H   |		Short_Literal	0x0
057f 4801       |H   |		Short_Literal	0x1
0580 e016       |    |		Load	0x0,0x16
0581 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0582 01cc       |    |		Execute	Vector,Catenate
0583 0092 066e  |   n|		Action	Push_String_Extended,0x66e					; " caught in Remote_Commands.Telnet_Disconnect"
0585 01cc       |    |		Execute	Vector,Catenate
0586 e00d       |    |		Load	0x0,0xd
0587 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0588 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0589 0000 0000  |    |		.BLANK	0000[0x7]
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 0593       |    |		.CONST	0x0593								; Address of begin
0591 0004       |    |		.CONST	0x0004								; Address of exception handler
0592 0001       |    |		.CONST	0x0001								; Number of locals
0593			BODY_0590:
0593			INIT_0590:
0593 00db       |    |		Load_Top	At_Offset_3
0594 4802       |H   |		Short_Literal	0x2
0595 0092 066f  |   o|		Action	Push_String_Extended,0x66f					; "Remote connection has been broken.  Can't execute command \x22"
0597 e5ff       |    |		Load	0x2,-0x1
0598 01cc       |    |		Execute	Vector,Catenate
0599 0092 0659  |   Y|		Action	Push_String_Extended,0x659					; "\x22."
059b 01cc       |    |		Execute	Vector,Catenate
059c 8235       | 5  |		Call	0x1,0x35
059d c5fe       |    |		Store	0x2,-0x2
059e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
059f 0000       |    |		.XXX[0x1]
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a3       |    |		.CONST	0x05a3								; Address of begin
05a1 0004       |    |		.CONST	0x0004								; Address of exception handler
05a2 0001       |    |		.CONST	0x0001								; Number of locals
05a3			BODY_05a0:
05a3			INIT_05a0:
05a3 00db       |    |		Load_Top	At_Offset_3
05a4 4802       |H   |		Short_Literal	0x2
05a5 0092 0670  |   p|		Action	Push_String_Extended,0x670					; "Unexpected exception during "
05a7 e5ff       |    |		Load	0x2,-0x1
05a8 01cc       |    |		Execute	Vector,Catenate
05a9 0092 0671  |   q|		Action	Push_String_Extended,0x671					; " operation -- "
05ab 01cc       |    |		Execute	Vector,Catenate
05ac 4800       |H   |		Short_Literal	0x0
05ad 4801       |H   |		Short_Literal	0x1
05ae e016       |    |		Load	0x0,0x16
05af 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
05b0 01cc       |    |		Execute	Vector,Catenate
05b1 8235       | 5  |		Call	0x1,0x35
05b2 c5fe       |    |		Store	0x2,-0x2
05b3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05b4 0000 0000  |    |		.BLANK	0000[0x4]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05bb       |    |		.CONST	0x05bb								; Address of begin
05b9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ba 0001       |    |		.CONST	0x0001								; Number of locals
05bb			BODY_05b8:
05bb			INIT_05b8:
05bb e406       |    |		Load	0x2,0x6
05bc e5fb       |    |		Load	0x2,-0x5
05bd 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05be 0120       |    |		Execute	Any,Is_Value
05bf 6803       |h   |		Jump_Zero	0x5c3
05c0 e002       |    |		Load	0x0,0x2
05c1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
05c2 7802       |x   |		Jump	0x5c5
05c3 e5fb       |    |		Load	0x2,-0x5
05c4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
05c5 e5fc       |    |		Load	0x2,-0x4
05c6 00ea       |    |		Load_Encached	Null_String_Cache
05c7 e7fe       |    |		Load	0x3,-0x2
05c8 e7ff       |    |		Load	0x3,-0x1
05c9 e5ff       |    |		Load	0x2,-0x1
05ca e002       |    |		Load	0x0,0x2
05cb 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
05cc e5fb       |    |		Load	0x2,-0x5
05cd 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
05ce c406       |    |		Store	0x2,0x6
05cf 4802       |H   |		Short_Literal	0x2
05d0 e406       |    |		Load	0x2,0x6
05d1 e003       |    |		Load	0x0,0x3
05d2 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
05d3 6803       |h   |		Jump_Zero	0x5d7
05d4 e406       |    |		Load	0x2,0x6
05d5 c5fa       |    |		Store	0x2,-0x6
05d6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05d7 e406       |    |		Load	0x2,0x6
05d8 e5fb       |    |		Load	0x2,-0x5
05d9 e5fc       |    |		Load	0x2,-0x4
05da 00ea       |    |		Load_Encached	Null_String_Cache
05db e7fe       |    |		Load	0x3,-0x2
05dc e7ff       |    |		Load	0x3,-0x1
05dd e5ff       |    |		Load	0x2,-0x1
05de 8236       | 6  |		Call	0x1,0x36
05df c406       |    |		Store	0x2,0x6
05e0 4802       |H   |		Short_Literal	0x2
05e1 e406       |    |		Load	0x2,0x6
05e2 e003       |    |		Load	0x0,0x3
05e3 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
05e4 6803       |h   |		Jump_Zero	0x5e8
05e5 e406       |    |		Load	0x2,0x6
05e6 c5fa       |    |		Store	0x2,-0x6
05e7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05e8 4801       |H   |		Short_Literal	0x1
05e9 e404       |    |		Load	0x2,0x4
05ea 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
05eb e006       |    |		Load	0x0,0x6
05ec 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
05ed e404       |    |		Load	0x2,0x4
05ee 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
05ef e5fb       |    |		Load	0x2,-0x5
05f0 e404       |    |		Load	0x2,0x4
05f1 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
05f2 e404       |    |		Load	0x2,0x4
05f3 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
05f4 e5ff       |    |		Load	0x2,-0x1
05f5 e008       |    |		Load	0x0,0x8
05f6 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05f7 00d1       |    |		Pop_Control	Pop_Count_1
05f8 e404       |    |		Load	0x2,0x4
05f9 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
05fa 00db       |    |		Load_Top	At_Offset_3
05fb e008       |    |		Load	0x0,0x8
05fc 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
05fd 00d1       |    |		Pop_Control	Pop_Count_1
05fe e404       |    |		Load	0x2,0x4
05ff 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0600 e7fe       |    |		Load	0x3,-0x2
0601 e008       |    |		Load	0x0,0x8
0602 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0603 00d1       |    |		Pop_Control	Pop_Count_1
0604 4800       |H   |		Short_Literal	0x0
0605 e403       |    |		Load	0x2,0x3
0606 e404       |    |		Load	0x2,0x4
0607 e234       | 4  |		Load	0x1,0x34
0608 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0609 e5fc       |    |		Load	0x2,-0x4
060a 6809       |h   |		Jump_Zero	0x614
060b e005       |    |		Load	0x0,0x5
060c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
060d 4802       |H   |		Short_Literal	0x2
060e 0092 0672  |   r|		Action	Push_String_Extended,0x672					; "Built a connection to remote machine "
0610 e5ff       |    |		Load	0x2,-0x1
0611 01cc       |    |		Execute	Vector,Catenate
0612 e00d       |    |		Load	0x0,0xd
0613 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0614 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0615 0000 0000  |    |		.XXX[0x3]
0617 0000       |    |
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 0620       |    |		.CONST	0x0620								; Address of begin
0619 0004       |    |		.CONST	0x0004								; Address of exception handler
061a 0002       |    |		.CONST	0x0002								; Number of locals
061b			INIT_0618:
061b e00f       |    |		Load	0x0,0xf
061c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
061d 0322       | "  |		Declare_Variable	Record
061e 00d8       |    |		Load_Top	At_Offset_0
061f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0620			BODY_0618:
0620 00d8       |    |		Load_Top	At_Offset_0
0621 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0622 e7ff       |    |		Load	0x3,-0x1
0623 e008       |    |		Load	0x0,0x8
0624 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0625 00d1       |    |		Pop_Control	Pop_Count_1
0626 4801       |H   |		Short_Literal	0x1
0627 00d9       |    |		Load_Top	At_Offset_1
0628 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0629 00d8       |    |		Load_Top	At_Offset_0
062a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
062b 0000 0000  |    |		.BLANK	0000[0x5]
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0633       | 3  |		.CONST	0x0633								; Address of begin
0631 0004       |    |		.CONST	0x0004								; Address of exception handler
0632 0001       |    |		.CONST	0x0001								; Number of locals
0633			BODY_0630:
0633			INIT_0630:
0633 4608       |F   |		Jump_Case	0x9
0634 7808       |x   |		Jump	0x63d								; case 0x0
0635 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0636 7811       |x   |		Jump	0x648								; case 0x2
0637 7810       |x   |		Jump	0x648								; case 0x3
0638 780f       |x   |		Jump	0x648								; case 0x4
0639 780e       |x   |		Jump	0x648								; case 0x5
063a 780d       |x   |		Jump	0x648								; case 0x6
063b 780c       |x   |		Jump	0x648								; case 0x7
063c 780b       |x   |		Jump	0x648								; case 0x8
063d e001       |    |		Load	0x0,0x1
063e 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
063f 00db       |    |		Load_Top	At_Offset_3
0640 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0641 00da       |    |		Load_Top	At_Offset_2
0642 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0643 0125       | %  |		Execute	Any,Set_Constraint
0644 00da       |    |		Load_Top	At_Offset_2
0645 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0646 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0647 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0648 0869       | i  |		Execute_Immediate	Raise,0x69
0649 ; --------------------------------------------------------------------------------------
0649 ; STRING TABLE
0649 ; --------------------------------------------------------------------------------------
0649 0056       | V  |		.STRTAB	0x0056->0x0674							; "TEXT"
064a 0058       | X  |		.STRTAB	0x0058->0x0676							; "BINARY"
064b 005c       | \  |		.STRTAB	0x005c->0x0679							; "<PROFILE>"
064c 0063       | c  |		.STRTAB	0x0063->0x067d							; "<PROFILE>,~+++,~---,~:::"
064d 0079       | y  |		.STRTAB	0x0079->0x0689							; "Reusing the existing connection to "
064e 009a       |    |		.STRTAB	0x009a->0x069b							; "Acquire"
064f 009f       |    |		.STRTAB	0x009f->0x069e							; "Released the connection to "
0650 00b8       |    |		.STRTAB	0x00b8->0x06ac							; "Release"
0651 00bd       |    |		.STRTAB	0x00bd->0x06af							; "Destroyed the connection to "
0652 00d7       |    |		.STRTAB	0x00d7->0x06bd							; "Destroy"
0653 00dc       |    |		.STRTAB	0x00dc->0x06c1							; "Set_Remote_Directory"
0654 00ee       |    |		.STRTAB	0x00ee->0x06cb							; "Reusing the existing directory."
0655 010b       |    |		.STRTAB	0x010b->0x06da							; "Put"
0656 010c       |    |		.STRTAB	0x010c->0x06dc							; "Get"
0657 010d       |    |		.STRTAB	0x010d->0x06dd							; "Uploaded host unit \x22"
0658 011f       |    |		.STRTAB	0x011f->0x06e7							; "\x22 from remote unit \x22"
0659 0131       | 1  |		.STRTAB	0x0131->0x06f1							; "\x22."
065a 0131       | 1  |		.STRTAB	0x0131->0x06f2							; "Can't get unit \x22"
065b 013f       | ?  |		.STRTAB	0x013f->0x06fa							; "\x22 from remote file \x22"
065c 0151       | Q  |		.STRTAB	0x0151->0x0704							; "<WORLDS>"
065d 0157       | W  |		.STRTAB	0x0157->0x0708							; "Remote command \x22"
065e 0165       | e  |		.STRTAB	0x0165->0x0710							; "\x22 failed."
065f 016c       | l  |		.STRTAB	0x016c->0x0715							; "\x22 executed successfully."
0660 0182       |    |		.STRTAB	0x0182->0x0721							; "Execute_Command"
0661 018f       |    |		.STRTAB	0x018f->0x0728							; "Executed Unit_Update_Time for remote unit \x22"
0662 01b8       |    |		.STRTAB	0x01b8->0x073e							; "Unit_Update_Time"
0663 01c6       |    |		.STRTAB	0x01c6->0x0746							; " "
0664 01c5       |    |		.STRTAB	0x01c5->0x0746							; "Executed File_Exists for remote file \x22"
0665 01e9       |    |		.STRTAB	0x01e9->0x0759							; "\x22 on "
0666 01ec       |    |		.STRTAB	0x01ec->0x075c							; "File_Exists"
0667 01f5       |    |		.STRTAB	0x01f5->0x0761							; "Initialized Job_Record for job"
0668 0211       |    |		.STRTAB	0x0211->0x0770							; ", task"
0669 0215       |    |		.STRTAB	0x0215->0x0773							; "Finalizing Job_Record"
066a 0228       | (  |		.STRTAB	0x0228->0x077e							; "Connection to "
066b 0234       | 4  |		.STRTAB	0x0234->0x0785							; " already exists for "
066c 0246       | F  |		.STRTAB	0x0246->0x078f							; "Exception "
066d 024e       | N  |		.STRTAB	0x024e->0x0794							; " caught in Remote_Commands.Telnet_Connect"
066e 0275       | u  |		.STRTAB	0x0275->0x07a8							; " caught in Remote_Commands.Telnet_Disconnect"
066f 029f       |    |		.STRTAB	0x029f->0x07be							; "Remote connection has been broken.  Can't execute command \x22"
0670 02d8       |    |		.STRTAB	0x02d8->0x07dc							; "Unexpected exception during "
0671 02f2       |    |		.STRTAB	0x02f2->0x07ea							; " operation -- "
0672 02fe       |    |		.STRTAB	0x02fe->0x07f1							; "Built a connection to remote machine "
0673 0321       | !  |		.STREND 0x0321->0x0803
0674 5445 5854  |TEXT|		.STRTAB_STRINGS
0804 0000 0000  |    |		.BLANK	0000[0x4]
0808 ; --------------------------------------------------------------------------------------
0808 ; Debug Table
0808 ; --------------------------------------------------------------------------------------
0808 0004 000c  |    |		.DEBUG4	0x0004,0x000c,0x2df9,0x0000,0x0001,0x0000
080e 0004 0090  |    |		.XXX[0x1d]
0810 6a8b c000  |j   |
0812 05cb d200  |    |
0814 0020 0180  |    |
0816 013a 0000  | :  |
0818 0008 7b00  |  { |
081a 011e 0000  |    |
081c 000a 0050  |   P|
081e 0000 0010  |    |
0820 0000 0400  |    |
0822 0000 2200  |  " |
0824 0000 0010  |    |
0826 0000 00a4  |    |
0828 0008 f051  |   Q|
082a 4810       |H   |
082b 0000 0000  |    |		.BLANK	0000[0x11]
083c 0004 0008  |    |		.XXX[0x4]
083e c03a e290  | :  |
0840 0000 0000  |    |		.BLANK	0000[0x8]
0848 0012 0d51  |   Q|		.XXX[0x1c]
084a 7800 00ba  |x   |
084c 4240 0004  |B@  |
084e 0030 0027  | 0 '|
0850 4000 0001  |@   |
0852 0f60 0024  | ` $|
0854 0000 0001  |    |
0856 400a 0000  |@   |
0858 0002 0000  |    |
085a 0080 0000  |    |
085c 0440 0000  | @  |
085e 0002 0000  |    |
0860 0014 8001  |    |
0862 2001 a9fa  |    |
0864 0000 0000  |    |		.BLANK	0000[0x12]
0876 8001 2001  |    |		.XXX[0x3]
0878 47f6       |G   |
0879 0000 0000  |    |		.BLANK	0000[0x8]
0881 0002 41aa  |  A |		.XXX[0x1d]
0883 2f00 0017  |/   |
0885 4948 0000  |IH  |
0887 8006 0004  |    |
0889 e800 0000  |    |
088b 21ec 0004  |!   |
088d 8800 0000  |    |
088f 2801 4000  |( @ |
0891 0000 4000  |  @ |
0893 0010 0000  |    |
0895 0088 0000  |    |
0897 0000 4000  |  @ |
0899 0002 9000  |    |
089b 2440 3a6b  |$@:k|
089d c000       |    |
089e 0000 0000  |    |		.BLANK	0000[0x11]
08af 1000 2440  |  $@|		.XXX[0x4]
08b1 3a71 4000  |:q@ |
08b3 0000 0000  |    |		.BLANK	0000[0x8]
08bb 4835 45e0  |H5E |		.XXX[0x1c]
08bd 0002 e969  |   i|
08bf 0000 1000  |    |
08c1 c000 9d00  |    |
08c3 0000 043d  |   =|
08c5 8000 9200  |    |
08c7 0000 0500  |    |
08c9 2800 0000  |(   |
08cb 0800 0002  |    |
08cd 0000 0011  |    |
08cf 0000 0000  |    |
08d1 0800 0000  |    |
08d3 5200 0488  |R   |
08d5 074d 7800  | Mx |
08d7 0000 0000  |    |		.BLANK	0000[0x11]
08e8 0200 0490  |    |		.XXX[0x4]
08ea 0877 e800  | w  |
08ec 0000 0000  |    |		.BLANK	0000[0x8]
08f4 0906 a8bc  |    |		.XXX[0x1c]
08f6 0000 5d31  |  ]1|
08f8 2000 0200  |    |
08fa 1800 13a0  |    |
08fc 0000 0087  |    |
08fe b000 1260  |   `|
0900 0000 00a0  |    |
0902 0500 0000  |    |
0904 0100 0000  |    |
0906 4000 0002  |@   |
0908 2000 0000  |    |
090a 0100 0000  |    |
090c 0a40 0093  | @  |
090e 0116 9200  |    |
0910 0000 0000  |    |		.BLANK	0000[0x11]
0921 0040 0092  | @  |		.XXX[0x4]
0923 010e fd00  |    |
0925 0000 0000  |    |		.BLANK	0000[0x8]
092d 0120 d518  |    |		.XXX[0x31]
092f c000 09ce  |    |
0931 a400 0040  |   @|
0933 0300 0274  |   t|
0935 0000 000b  |    |
0937 bd00 0008  |    |
0939 0000 0034  |   4|
093b 00a0 0000  |    |
093d 0020 0000  |    |
093f 0800 0000  |    |
0941 4400 0000  |D   |
0943 0020 0000  |    |
0945 0148 0000  | H  |
0947 4084 3568  |@ 5h|
0949 0000 4087  |  @ |
094b ee48 0000  | H  |
094d 4086 f0a0  |@   |
094f 0000 0000  |    |
0951 0008 0000  |    |
0953 4087 ed48  |@  H|
0955 0000 4075  |  @u|
0957 58a0 0000  |X   |
0959 0000 0008  |    |
095b 0000 4088  |  @ |
095d 6820       |h   |
095e 0000 0000  |    |		.BLANK	0000[0x8]
0966 0024 1aa3  | $  |		.XXX[0x1c]
0968 2800 0139  |(  9|
096a d480 0008  |    |
096c 0060 004e  | ` N|
096e 8000 0002  |    |
0970 8300 0001  |    |
0972 0000 0002  |    |
0974 8014 0000  |    |
0976 0004 0000  |    |
0978 0100 0000  |    |
097a 0880 0000  |    |
097c 0004 0000  |    |
097e 0029 0000  | )  |
0980 0811 2efc  |  . |
0982 0000 0000  |    |		.BLANK	0000[0x11]
0993 0001 0000  |    |		.XXX[0x4]
0995 0812 5394  |  S |
0997 0000 0000  |    |		.BLANK	0000[0x8]
099f 0004 8354  |   T|		.XXX[0x1d]
09a1 6700 0027  |g  '|
09a3 3a90 0001  |:   |
09a5 000c 0009  |    |
09a7 d000 0000  |    |
09a9 4c44 0000  |LD  |
09ab 2000 0000  |    |
09ad 5002 8000  |P   |
09af 0000 8000  |    |
09b1 0020 0000  |    |
09b3 0110 0000  |    |
09b5 0000 8000  |    |
09b7 0005 2000  |    |
09b9 0102 1f7f  |    |
09bb 8000       |    |
09bc 0000 0000  |    |		.BLANK	0000[0x8]
09c4 2000 0102  |    |		.XXX[0x3]
09c6 21bf       |!   |
09c7 0000 0000  |    |		.BLANK	0000[0x39]