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

⟦f2bedb8f8⟧

    Length: 2048 (0x800)
    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 0338       | 8  |		.CONST	0x0338								; 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 8002       |    |		.CONST	0x8002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 007c       | |  |		.CONST	0x007c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0025       | %  |		.CONST	0x0025								; Number of locals
000b			INIT_0008:
000b 00e3       |    |		Load_Encached	Natural_Cache
000c e001       |    |		Load	0x0,0x1
000d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
000e 00e9       |    |		Load_Encached	String_Cache
000f 029f 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Call
0011 4800       |H   |		Short_Literal	0x0
0012 4801       |H   |		Short_Literal	0x1
0013 4801       |H   |		Short_Literal	0x1
0014 4800       |H   |		Short_Literal	0x0
0015 4801       |H   |		Short_Literal	0x1
0016 4801       |H   |		Short_Literal	0x1
0017 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
0018 e002       |    |		Load	0x0,0x2
0019 0129       | )  |		Execute	Any,Make_Visible
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 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated
002e c220       |    |		Store	0x1,0x20
002f 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
0031 c219       |    |		Store	0x1,0x19
0032 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
0034 c21a       |    |		Store	0x1,0x1a
0035 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0037 c21b       |    |		Store	0x1,0x1b
0038 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
003a c21c       |    |		Store	0x1,0x1c
003b 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
003d c21d       |    |		Store	0x1,0x1d
003e 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
0040 c21e       |    |		Store	0x1,0x1e
0041 029a 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Visible,Unelaborated
0043 c21f       |    |		Store	0x1,0x1f
0044 00bf       |    |		Action	Accept_Activation
0045 4900       |I   |		Short_Literal	0x100
0046 e003       |    |		Load	0x0,0x3
0047 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0048 1c07       |    |		Execute_Immediate	Run_Utility,0x7
0049 e004       |    |		Load	0x0,0x4
004a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
004b 00d9       |    |		Load_Top	At_Offset_1
004c 00da       |    |		Load_Top	At_Offset_2
004d e005       |    |		Load	0x0,0x5
004e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
004f 029f 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Call
0051 4804       |H   |		Short_Literal	0x4
0052 032d       | -  |		Declare_Type	Record,Defined
0053 00d8       |    |		Load_Top	At_Offset_0
0054 0322       | "  |		Declare_Variable	Record
0055 00d8       |    |		Load_Top	At_Offset_0
0056 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0057 00e3       |    |		Load_Encached	Natural_Cache
0058 0266       | f  |		Execute	Discrete,Bounds
0059 00db       |    |		Load_Top	At_Offset_3
005a 029f 022b  |   +|		Declare_Subprogram	INIT_0228,For_Call
005c 4801       |H   |		Short_Literal	0x1
005d 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
005e 4801       |H   |		Short_Literal	0x1
005f 4800       |H   |		Short_Literal	0x0
0060 00da       |    |		Load_Top	At_Offset_2
0061 035b       | [  |		Declare_Type	Array,Constrained
0062 0337       | 7  |		Declare_Variable	Array
0063 00d8       |    |		Load_Top	At_Offset_0
0064 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0065 00d8       |    |		Load_Top	At_Offset_0
0066 0335       | 5  |		Declare_Variable	Array,Duplicate
0067 00cd       |    |		Action	Spare6_Action
0068 00d8       |    |		Load_Top	At_Offset_0
0069 1c01       |    |		Execute_Immediate	Run_Utility,0x1
006a 00d9       |    |		Load_Top	At_Offset_1
006b 01d4       |    |		Execute	Vector,Structure_Write
006c 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
006d 00c7       |    |		Action	Elaborate_Subprogram
006e 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
006f 00c7       |    |		Action	Elaborate_Subprogram
0070 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0071 00c7       |    |		Action	Elaborate_Subprogram
0072 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0073 00c7       |    |		Action	Elaborate_Subprogram
0074 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0075 00c7       |    |		Action	Elaborate_Subprogram
0076 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0077 00c7       |    |		Action	Elaborate_Subprogram
0078 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0079 00c7       |    |		Action	Elaborate_Subprogram
007a 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
007b 00c7       |    |		Action	Elaborate_Subprogram
007c			BODY_0008:
007c 00bc       |    |		Action	Signal_Activated
007d 00bb       |    |		Action	Signal_Completion
007e 0000 0000  |    |		.XXX[0x2]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 008e       |    |		.CONST	0x008e								; Address of begin
0081 00c5       |    |		.CONST	0x00c5								; Address of exception handler
0082 0003       |    |		.CONST	0x0003								; Number of locals
0083			INIT_0080:
0083 e001       |    |		Load	0x0,0x1
0084 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0085 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0086 e006       |    |		Load	0x0,0x6
0087 1b62       | b  |		Execute	Package,Field_Read,Field_Number 0x62
0088 0322       | "  |		Declare_Variable	Record
0089 e5fa       |    |		Load	0x2,-0x6
008a e006       |    |		Load	0x0,0x6
008b 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
008c 00d9       |    |		Load_Top	At_Offset_1
008d 017d       | }  |		Execute	Record,Structure_Write
008e			BODY_0080:
008e 4800       |H   |		Short_Literal	0x0
008f a5f1       |    |		Store_Unchecked	0x2,-0xf
0090 e001       |    |		Load	0x0,0x1
0091 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0092 e5f9       |    |		Load	0x2,-0x7
0093 4801       |H   |		Short_Literal	0x1
0094 e5f2       |    |		Load	0x2,-0xe
0095 e5f3       |    |		Load	0x2,-0xd
0096 e403       |    |		Load	0x2,0x3
0097 e5f4       |    |		Load	0x2,-0xc
0098 e5f5       |    |		Load	0x2,-0xb
0099 e5f6       |    |		Load	0x2,-0xa
009a e5f7       |    |		Load	0x2,-0x9
009b e5f8       |    |		Load	0x2,-0x8
009c e5fb       |    |		Load	0x2,-0x5
009d 00ea       |    |		Load_Encached	Null_String_Cache
009e 00ea       |    |		Load_Encached	Null_String_Cache
009f 00ea       |    |		Load_Encached	Null_String_Cache
00a0 e5ff       |    |		Load	0x2,-0x1
00a1 e007       |    |		Load	0x0,0x7
00a2 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00a3 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00a4 4800       |H   |		Short_Literal	0x0
00a5 00da       |    |		Load_Top	At_Offset_2
00a6 e001       |    |		Load	0x0,0x1
00a7 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
00a8 7003       |p   |		Jump_Nonzero	0xac
00a9 00d9       |    |		Load_Top	At_Offset_1
00aa a5f1       |    |		Store_Unchecked	0x2,-0xf
00ab 450f       |E   |		Exit_Suprogram	New_Top_Offset 0xf
00ac e001       |    |		Load	0x0,0x1
00ad 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ae e5f2       |    |		Load	0x2,-0xe
00af e5fa       |    |		Load	0x2,-0x6
00b0 e5fe       |    |		Load	0x2,-0x2
00b1 e5ff       |    |		Load	0x2,-0x1
00b2 8219       |    |		Call	0x1,0x19
00b3 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00b4 4800       |H   |		Short_Literal	0x0
00b5 00da       |    |		Load_Top	At_Offset_2
00b6 e001       |    |		Load	0x0,0x1
00b7 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
00b8 7003       |p   |		Jump_Nonzero	0xbc
00b9 00d9       |    |		Load_Top	At_Offset_1
00ba a5f1       |    |		Store_Unchecked	0x2,-0xf
00bb 450f       |E   |		Exit_Suprogram	New_Top_Offset 0xf
00bc e001       |    |		Load	0x0,0x1
00bd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00be e5f2       |    |		Load	0x2,-0xe
00bf e5fa       |    |		Load	0x2,-0x6
00c0 e5fd       |    |		Load	0x2,-0x3
00c1 e5ff       |    |		Load	0x2,-0x1
00c2 821a       |    |		Call	0x1,0x1a
00c3 c5f1       |    |		Store	0x2,-0xf
00c4 450f       |E   |		Exit_Suprogram	New_Top_Offset 0xf
00c5			TRAP_0080:
00c5 e001       |    |		Load	0x0,0x1
00c6 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
00c7 010f       |    |		Execute	Exception,Equal
00c8 6804       |h   |		Jump_Zero	0xcd
00c9 e001       |    |		Load	0x0,0x1
00ca 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00cb a5f1       |    |		Store_Unchecked	0x2,-0xf
00cc 450f       |E   |		Exit_Suprogram	New_Top_Offset 0xf
00cd 0092 02e1  |    |		Action	Push_String_Extended,0x2e1					; "Initialize"
00cf e008       |    |		Load	0x0,0x8
00d0 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00d1 a5f1       |    |		Store_Unchecked	0x2,-0xf
00d2 450f       |E   |		Exit_Suprogram	New_Top_Offset 0xf
00d3 0000 0000  |    |		.BLANK	0000[0x5]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00e3       |    |		.CONST	0x00e3								; Address of begin
00d9 00fa       |    |		.CONST	0x00fa								; Address of exception handler
00da 0003       |    |		.CONST	0x0003								; Number of locals
00db			INIT_00d8:
00db e001       |    |		Load	0x0,0x1
00dc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00dd 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00de e004       |    |		Load	0x0,0x4
00df 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00e0 02ff       |    |		Declare_Variable	Variant_Record
00e1 00d8       |    |		Load_Top	At_Offset_0
00e2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00e3			BODY_00d8:
00e3 e5fc       |    |		Load	0x2,-0x4
00e4 4801       |H   |		Short_Literal	0x1
00e5 e5ff       |    |		Load	0x2,-0x1
00e6 e009       |    |		Load	0x0,0x9
00e7 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
00e8 00d9       |    |		Load_Top	At_Offset_1
00e9 016d       | m  |		Execute	Variant_Record,Structure_Write
00ea 601d       |`   |		Indirect_Literal	Discrete,0x108,{0x00000000, 0x00004000}
00eb e00a       |    |		Load	0x0,0xa
00ec 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00ed 4822       |H"  |		Short_Literal	0x22
00ee 4822       |H"  |		Short_Literal	0x22
00ef e5fe       |    |		Load	0x2,-0x2
00f0 01ca       |    |		Execute	Vector,Prepend
00f1 01cb       |    |		Execute	Vector,Append
00f2 0092 02e2  |    |		Action	Push_String_Extended,0x2e2					; "Ftp.Remote_Machine"
00f4 e403       |    |		Load	0x2,0x3
00f5 e00b       |    |		Load	0x0,0xb
00f6 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
00f7 4800       |H   |		Short_Literal	0x0
00f8 a5fb       |    |		Store_Unchecked	0x2,-0x5
00f9 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00fa			TRAP_00d8:
00fa e001       |    |		Load	0x0,0x1
00fb 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
00fc 010f       |    |		Execute	Exception,Equal
00fd 6804       |h   |		Jump_Zero	0x102
00fe e001       |    |		Load	0x0,0x1
00ff 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0100 a5fb       |    |		Store_Unchecked	0x2,-0x5
0101 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0102 0092 02e3  |    |		Action	Push_String_Extended,0x2e3					; "Set_Remote_Machine"
0104 e008       |    |		Load	0x0,0x8
0105 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0106 a5fb       |    |		Store_Unchecked	0x2,-0x5
0107 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0108 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
010c 0000 0000  |    |		.BLANK	0000[0x4]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 011b       |    |		.CONST	0x011b								; Address of begin
0111 0132       | 2  |		.CONST	0x0132								; Address of exception handler
0112 0003       |    |		.CONST	0x0003								; Number of locals
0113			INIT_0110:
0113 e004       |    |		Load	0x0,0x4
0114 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0115 02ff       |    |		Declare_Variable	Variant_Record
0116 00d8       |    |		Load_Top	At_Offset_0
0117 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0118 e001       |    |		Load	0x0,0x1
0119 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
011a 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
011b			BODY_0110:
011b e5fc       |    |		Load	0x2,-0x4
011c 4801       |H   |		Short_Literal	0x1
011d e5ff       |    |		Load	0x2,-0x1
011e e009       |    |		Load	0x0,0x9
011f 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0120 00da       |    |		Load_Top	At_Offset_2
0121 016d       | m  |		Execute	Variant_Record,Structure_Write
0122 67e5       |g   |		Indirect_Literal	Discrete,0x108,{0x00000000, 0x00004000}
0123 e00a       |    |		Load	0x0,0xa
0124 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0125 4822       |H"  |		Short_Literal	0x22
0126 4822       |H"  |		Short_Literal	0x22
0127 e5fe       |    |		Load	0x2,-0x2
0128 01ca       |    |		Execute	Vector,Prepend
0129 01cb       |    |		Execute	Vector,Append
012a 0092 02e4  |    |		Action	Push_String_Extended,0x2e4					; "Ftp.Remote_Directory"
012c e402       |    |		Load	0x2,0x2
012d e00b       |    |		Load	0x0,0xb
012e 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
012f 4800       |H   |		Short_Literal	0x0
0130 a5fb       |    |		Store_Unchecked	0x2,-0x5
0131 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0132			TRAP_0110:
0132 e001       |    |		Load	0x0,0x1
0133 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0134 010f       |    |		Execute	Exception,Equal
0135 6804       |h   |		Jump_Zero	0x13a
0136 e001       |    |		Load	0x0,0x1
0137 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0138 a5fb       |    |		Store_Unchecked	0x2,-0x5
0139 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
013a 0092 02e5  |    |		Action	Push_String_Extended,0x2e5					; "Set_Remote_Directory"
013c e008       |    |		Load	0x0,0x8
013d 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
013e a5fb       |    |		Store_Unchecked	0x2,-0x5
013f 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 014b       | K  |		.CONST	0x014b								; Address of begin
0141 0161       | a  |		.CONST	0x0161								; Address of exception handler
0142 0003       |    |		.CONST	0x0003								; Number of locals
0143			INIT_0140:
0143 e004       |    |		Load	0x0,0x4
0144 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0145 02ff       |    |		Declare_Variable	Variant_Record
0146 00d8       |    |		Load_Top	At_Offset_0
0147 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0148 e001       |    |		Load	0x0,0x1
0149 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
014a 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
014b			BODY_0140:
014b e5fc       |    |		Load	0x2,-0x4
014c 0092 02e6  |    |		Action	Push_String_Extended,0x2e6					; "Set_Remote_Library"
014e e008       |    |		Load	0x0,0x8
014f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0150 e5fc       |    |		Load	0x2,-0x4
0151 4801       |H   |		Short_Literal	0x1
0152 e5ff       |    |		Load	0x2,-0x1
0153 e009       |    |		Load	0x0,0x9
0154 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0155 00da       |    |		Load_Top	At_Offset_2
0156 016d       | m  |		Execute	Variant_Record,Structure_Write
0157 4800       |H   |		Short_Literal	0x0
0158 e5fe       |    |		Load	0x2,-0x2
0159 00db       |    |		Load_Top	At_Offset_3
015a e00c       |    |		Load	0x0,0xc
015b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
015c e00c       |    |		Load	0x0,0xc
015d 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
015e 4800       |H   |		Short_Literal	0x0
015f a5fb       |    |		Store_Unchecked	0x2,-0x5
0160 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0161			TRAP_0140:
0161 e001       |    |		Load	0x0,0x1
0162 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0163 010f       |    |		Execute	Exception,Equal
0164 6804       |h   |		Jump_Zero	0x169
0165 e001       |    |		Load	0x0,0x1
0166 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0167 a5fb       |    |		Store_Unchecked	0x2,-0x5
0168 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0169 0092 02e6  |    |		Action	Push_String_Extended,0x2e6					; "Set_Remote_Library"
016b e008       |    |		Load	0x0,0x8
016c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
016d a5fb       |    |		Store_Unchecked	0x2,-0x5
016e 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
016f 0000       |    |		.XXX[0x1]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 017d       | }  |		.CONST	0x017d								; Address of begin
0171 0186       |    |		.CONST	0x0186								; Address of exception handler
0172 0004       |    |		.CONST	0x0004								; Number of locals
0173			INIT_0170:
0173 e004       |    |		Load	0x0,0x4
0174 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0175 02ff       |    |		Declare_Variable	Variant_Record
0176 00d8       |    |		Load_Top	At_Offset_0
0177 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0178 4800       |H   |		Short_Literal	0x0
0179 e20d       |    |		Load	0x1,0xd
017a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
017b 029f 0253  |   S|		Declare_Subprogram	INIT_0250,For_Call
017d			BODY_0170:
017d e5fd       |    |		Load	0x2,-0x3
017e 4801       |H   |		Short_Literal	0x1
017f e5ff       |    |		Load	0x2,-0x1
0180 e009       |    |		Load	0x0,0x9
0181 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0182 00db       |    |		Load_Top	At_Offset_3
0183 016d       | m  |		Execute	Variant_Record,Structure_Write
0184 8404       |    |		Call	0x2,0x4
0185 0831       | 1  |		Execute_Immediate	Raise,0x31
0186			TRAP_0170:
0186 e001       |    |		Load	0x0,0x1
0187 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0188 010f       |    |		Execute	Exception,Equal
0189 6806       |h   |		Jump_Zero	0x190
018a e001       |    |		Load	0x0,0x1
018b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
018c 00db       |    |		Load_Top	At_Offset_3
018d 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
018e 00da       |    |		Load_Top	At_Offset_2
018f 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0190 0092 02e7  |    |		Action	Push_String_Extended,0x2e7					; "Remote_Machine"
0192 e008       |    |		Load	0x0,0x8
0193 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0194 00db       |    |		Load_Top	At_Offset_3
0195 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0196 00da       |    |		Load_Top	At_Offset_2
0197 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a5       |    |		.CONST	0x01a5								; Address of begin
0199 01ae       |    |		.CONST	0x01ae								; Address of exception handler
019a 0004       |    |		.CONST	0x0004								; Number of locals
019b			INIT_0198:
019b e004       |    |		Load	0x0,0x4
019c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
019d 02ff       |    |		Declare_Variable	Variant_Record
019e 00d8       |    |		Load_Top	At_Offset_0
019f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01a0 4800       |H   |		Short_Literal	0x0
01a1 e20d       |    |		Load	0x1,0xd
01a2 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01a3 029f 0273  |   s|		Declare_Subprogram	INIT_0270,For_Call
01a5			BODY_0198:
01a5 e5fd       |    |		Load	0x2,-0x3
01a6 4801       |H   |		Short_Literal	0x1
01a7 e5ff       |    |		Load	0x2,-0x1
01a8 e009       |    |		Load	0x0,0x9
01a9 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
01aa 00db       |    |		Load_Top	At_Offset_3
01ab 016d       | m  |		Execute	Variant_Record,Structure_Write
01ac 8404       |    |		Call	0x2,0x4
01ad 0831       | 1  |		Execute_Immediate	Raise,0x31
01ae			TRAP_0198:
01ae e001       |    |		Load	0x0,0x1
01af 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
01b0 010f       |    |		Execute	Exception,Equal
01b1 6806       |h   |		Jump_Zero	0x1b8
01b2 e001       |    |		Load	0x0,0x1
01b3 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01b4 00db       |    |		Load_Top	At_Offset_3
01b5 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01b6 00da       |    |		Load_Top	At_Offset_2
01b7 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01b8 0092 02e8  |    |		Action	Push_String_Extended,0x2e8					; "Remote_Directory"
01ba e008       |    |		Load	0x0,0x8
01bb 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01bc 00db       |    |		Load_Top	At_Offset_3
01bd 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01be 00da       |    |		Load_Top	At_Offset_2
01bf 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01cd       |    |		.CONST	0x01cd								; Address of begin
01c1 01db       |    |		.CONST	0x01db								; Address of exception handler
01c2 0004       |    |		.CONST	0x0004								; Number of locals
01c3			INIT_01c0:
01c3 4800       |H   |		Short_Literal	0x0
01c4 e20d       |    |		Load	0x1,0xd
01c5 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01c6 e004       |    |		Load	0x0,0x4
01c7 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
01c8 02ff       |    |		Declare_Variable	Variant_Record
01c9 00d8       |    |		Load_Top	At_Offset_0
01ca 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01cb 029f 028b  |    |		Declare_Subprogram	INIT_0288,For_Call
01cd			BODY_01c0:
01cd e5fd       |    |		Load	0x2,-0x3
01ce 0092 02e9  |    |		Action	Push_String_Extended,0x2e9					; "Remote_Library"
01d0 e008       |    |		Load	0x0,0x8
01d1 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01d2 e5fd       |    |		Load	0x2,-0x3
01d3 4801       |H   |		Short_Literal	0x1
01d4 e5ff       |    |		Load	0x2,-0x1
01d5 e009       |    |		Load	0x0,0x9
01d6 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
01d7 00da       |    |		Load_Top	At_Offset_2
01d8 016d       | m  |		Execute	Variant_Record,Structure_Write
01d9 8404       |    |		Call	0x2,0x4
01da 0831       | 1  |		Execute_Immediate	Raise,0x31
01db			TRAP_01c0:
01db e001       |    |		Load	0x0,0x1
01dc 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
01dd 010f       |    |		Execute	Exception,Equal
01de 6806       |h   |		Jump_Zero	0x1e5
01df e001       |    |		Load	0x0,0x1
01e0 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01e1 e402       |    |		Load	0x2,0x2
01e2 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01e3 00db       |    |		Load_Top	At_Offset_3
01e4 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01e5 0092 02e9  |    |		Action	Push_String_Extended,0x2e9					; "Remote_Library"
01e7 e008       |    |		Load	0x0,0x8
01e8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01e9 e402       |    |		Load	0x2,0x2
01ea 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01eb 00db       |    |		Load_Top	At_Offset_3
01ec 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01ed 0000 0000  |    |		.XXX[0x3]
01ef 0000       |    |
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3       |    |		.CONST	0x01f3								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0001       |    |		.CONST	0x0001								; Number of locals
01f3			BODY_01f0:
01f3			INIT_01f0:
01f3 e20e       |    |		Load	0x1,0xe
01f4 0257       | W  |		Execute	Discrete,Raise
01f5 0000 0000  |    |		.XXX[0x3]
01f7 0000       |    |
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb 4608       |F   |		Jump_Case	0x9
01fc 7808       |x   |		Jump	0x205								; case 0x0
01fd 7820       |x   |		Jump	0x21e								; case 0x1
01fe 7826       |x&  |		Jump	0x225								; case 0x2
01ff 7825       |x%  |		Jump	0x225								; case 0x3
0200 7824       |x$  |		Jump	0x225								; case 0x4
0201 7823       |x#  |		Jump	0x225								; case 0x5
0202 7822       |x"  |		Jump	0x225								; case 0x6
0203 7821       |x!  |		Jump	0x225								; case 0x7
0204 7820       |x   |		Jump	0x225								; case 0x8
0205 00da       |    |		Load_Top	At_Offset_2
0206 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0207 0125       | %  |		Execute	Any,Set_Constraint
0208 00da       |    |		Load_Top	At_Offset_2
0209 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
020a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
020b 00da       |    |		Load_Top	At_Offset_2
020c 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
020d 0125       | %  |		Execute	Any,Set_Constraint
020e 00da       |    |		Load_Top	At_Offset_2
020f 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0210 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0211 00da       |    |		Load_Top	At_Offset_2
0212 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0213 0125       | %  |		Execute	Any,Set_Constraint
0214 00da       |    |		Load_Top	At_Offset_2
0215 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0216 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0217 00da       |    |		Load_Top	At_Offset_2
0218 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0219 0125       | %  |		Execute	Any,Set_Constraint
021a 00da       |    |		Load_Top	At_Offset_2
021b 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
021c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
021d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
021e 00da       |    |		Load_Top	At_Offset_2
021f 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0220 0125       | %  |		Execute	Any,Set_Constraint
0221 00da       |    |		Load_Top	At_Offset_2
0222 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0223 0125       | %  |		Execute	Any,Set_Constraint
0224 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0225 0869       | i  |		Execute_Immediate	Raise,0x69
0226 0000 0000  |    |		.XXX[0x2]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b       | +  |		.CONST	0x022b								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0001       |    |		.CONST	0x0001								; Number of locals
022b			BODY_0228:
022b			INIT_0228:
022b 4605       |F   |		Jump_Case	0x6
022c 7804       |x   |		Jump	0x231								; case 0x0
022d 7810       |x   |		Jump	0x23e								; case 0x1
022e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
022f 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0230 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0231 00da       |    |		Load_Top	At_Offset_2						; case 0x5
0232 01dc       |    |		Execute	Vector,Last
0233 00db       |    |		Load_Top	At_Offset_3
0234 01dd       |    |		Execute	Vector,First
0235 0263       | c  |		Execute	Discrete,Above_Bound
0236 7006       |p   |		Jump_Nonzero	0x23d
0237 00d8       |    |		Load_Top	At_Offset_0
0238 e5ff       |    |		Load	0x2,-0x1
0239 01d5       |    |		Execute	Vector,Field_Reference
023a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
023b 0a01       |    |		Execute_Immediate	Plus,0x1
023c 7ff8       |    |		Jump	0x235
023d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
023e 00da       |    |		Load_Top	At_Offset_2
023f 01dc       |    |		Execute	Vector,Last
0240 00db       |    |		Load_Top	At_Offset_3
0241 01dd       |    |		Execute	Vector,First
0242 0263       | c  |		Execute	Discrete,Above_Bound
0243 7006       |p   |		Jump_Nonzero	0x24a
0244 00d8       |    |		Load_Top	At_Offset_0
0245 e5ff       |    |		Load	0x2,-0x1
0246 01d7       |    |		Execute	Vector,Field_Read
0247 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0248 0a01       |    |		Execute_Immediate	Plus,0x1
0249 7ff8       |    |		Jump	0x242
024a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
024b 0000 0000  |    |		.BLANK	0000[0x5]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 025f       | _  |		.CONST	0x025f								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0003       |    |		.CONST	0x0003								; Number of locals
0253			INIT_0250:
0253 6014       |`   |		Indirect_Literal	Discrete,0x268,{0x00000000, 0x00004000}
0254 e00a       |    |		Load	0x0,0xa
0255 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0256 0092 02e2  |    |		Action	Push_String_Extended,0x2e2					; "Ftp.Remote_Machine"
0258 e402       |    |		Load	0x2,0x2
0259 e00b       |    |		Load	0x0,0xb
025a 1846       | F  |		Execute	Package,Field_Execute,Field_Number 0x46
025b 00d8       |    |		Load_Top	At_Offset_0
025c 01db       |    |		Execute	Vector,Length
025d e20d       |    |		Load	0x1,0xd
025e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
025f			BODY_0250:
025f 4800       |H   |		Short_Literal	0x0
0260 00d9       |    |		Load_Top	At_Offset_1
0261 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0262 00d9       |    |		Load_Top	At_Offset_1
0263 00d9       |    |		Load_Top	At_Offset_1
0264 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0265 00d8       |    |		Load_Top	At_Offset_0
0266 00cb       |    |		Action	Pop_Block_With_Result
0267 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0268 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
026c 0000 0000  |    |		.BLANK	0000[0x4]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 027f       |    |		.CONST	0x027f								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0003       |    |		.CONST	0x0003								; Number of locals
0273			INIT_0270:
0273 67f4       |g   |		Indirect_Literal	Discrete,0x268,{0x00000000, 0x00004000}
0274 e00a       |    |		Load	0x0,0xa
0275 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0276 0092 02e4  |    |		Action	Push_String_Extended,0x2e4					; "Ftp.Remote_Directory"
0278 e402       |    |		Load	0x2,0x2
0279 e00b       |    |		Load	0x0,0xb
027a 1846       | F  |		Execute	Package,Field_Execute,Field_Number 0x46
027b 00d8       |    |		Load_Top	At_Offset_0
027c 01db       |    |		Execute	Vector,Length
027d e20d       |    |		Load	0x1,0xd
027e 1c08       |    |		Execute_Immediate	Run_Utility,0x8
027f			BODY_0270:
027f 4800       |H   |		Short_Literal	0x0
0280 00d9       |    |		Load_Top	At_Offset_1
0281 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0282 00d9       |    |		Load_Top	At_Offset_1
0283 00d9       |    |		Load_Top	At_Offset_1
0284 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0285 00d8       |    |		Load_Top	At_Offset_0
0286 00cb       |    |		Action	Pop_Block_With_Result
0287 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 0297       |    |		.CONST	0x0297								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0004       |    |		.CONST	0x0004								; Number of locals
028b			INIT_0288:
028b 4800       |H   |		Short_Literal	0x0
028c e403       |    |		Load	0x2,0x3
028d e00c       |    |		Load	0x0,0xc
028e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
028f e00c       |    |		Load	0x0,0xc
0290 1832       | 2  |		Execute	Package,Field_Execute,Field_Number 0x32
0291 00d8       |    |		Load_Top	At_Offset_0
0292 01db       |    |		Execute	Vector,Length
0293 e20d       |    |		Load	0x1,0xd
0294 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0295 029f 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Call
0297			BODY_0288:
0297 00da       |    |		Load_Top	At_Offset_2
0298 01db       |    |		Execute	Vector,Length
0299 7002       |p   |		Jump_Nonzero	0x29c
029a 8604       |    |		Call	0x3,0x4
029b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
029c 4800       |H   |		Short_Literal	0x0
029d 00da       |    |		Load_Top	At_Offset_2
029e 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
029f 00da       |    |		Load_Top	At_Offset_2
02a0 00da       |    |		Load_Top	At_Offset_2
02a1 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
02a2 00d9       |    |		Load_Top	At_Offset_1
02a3 00cb       |    |		Action	Pop_Block_With_Result
02a4 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
02a5 0000 0000  |    |		.XXX[0x3]
02a7 0000       |    |
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02b4       |    |		.CONST	0x02b4								; Address of begin
02a9 0004       |    |		.CONST	0x0004								; Address of exception handler
02aa 0003       |    |		.CONST	0x0003								; Number of locals
02ab			INIT_02a8:
02ab e5fe       |    |		Load	0x2,-0x2
02ac e006       |    |		Load	0x0,0x6
02ad 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
02ae e006       |    |		Load	0x0,0x6
02af 186b       | k  |		Execute	Package,Field_Execute,Field_Number 0x6b
02b0 00d8       |    |		Load_Top	At_Offset_0
02b1 01db       |    |		Execute	Vector,Length
02b2 e20d       |    |		Load	0x1,0xd
02b3 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02b4			BODY_02a8:
02b4 4800       |H   |		Short_Literal	0x0
02b5 00d9       |    |		Load_Top	At_Offset_1
02b6 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02b7 00d9       |    |		Load_Top	At_Offset_1
02b8 00d9       |    |		Load_Top	At_Offset_1
02b9 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
02ba 00d8       |    |		Load_Top	At_Offset_0
02bb 00cb       |    |		Action	Pop_Block_With_Result
02bc 00cb       |    |		Action	Pop_Block_With_Result
02bd 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
02be 0000 0000  |    |		.XXX[0x2]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3       |    |		.CONST	0x02c3								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0001       |    |		.CONST	0x0001								; Number of locals
02c3			BODY_02c0:
02c3			INIT_02c0:
02c3 4608       |F   |		Jump_Case	0x9
02c4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
02c5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
02c6 7819       |x   |		Jump	0x2e0								; case 0x2
02c7 7818       |x   |		Jump	0x2e0								; case 0x3
02c8 7817       |x   |		Jump	0x2e0								; case 0x4
02c9 7816       |x   |		Jump	0x2e0								; case 0x5
02ca 7815       |x   |		Jump	0x2e0								; case 0x6
02cb 7801       |x   |		Jump	0x2cd								; case 0x7
02cc 7809       |x   |		Jump	0x2d6								; case 0x8
02cd 00db       |    |		Load_Top	At_Offset_3
02ce 4801       |H   |		Short_Literal	0x1
02cf e5fe       |    |		Load	0x2,-0x2
02d0 00e9       |    |		Load_Encached	String_Cache
02d1 035b       | [  |		Declare_Type	Array,Constrained
02d2 4801       |H   |		Short_Literal	0x1
02d3 e5ff       |    |		Load	0x2,-0x1
02d4 031b       |    |		Declare_Type	Variant_Record,Constrained
02d5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02d6 00db       |    |		Load_Top	At_Offset_3
02d7 00db       |    |		Load_Top	At_Offset_3
02d8 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
02d9 4801       |H   |		Short_Literal	0x1
02da e5fe       |    |		Load	0x2,-0x2
02db 00e9       |    |		Load_Encached	String_Cache
02dc 0334       | 4  |		Declare_Variable	Array,With_Constraint
02dd 2d03       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
02de 016a       | j  |		QQ_execute	Variant_Record,XXX
02df 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02e0 0869       | i  |		Execute_Immediate	Raise,0x69
02e1 ; --------------------------------------------------------------------------------------
02e1 ; STRING TABLE
02e1 ; --------------------------------------------------------------------------------------
02e1 0014       |    |		.STRTAB	0x0014->0x02eb							; "Initialize"
02e2 001c       |    |		.STRTAB	0x001c->0x02f0							; "Ftp.Remote_Machine"
02e3 002c       | ,  |		.STRTAB	0x002c->0x02f9							; "Set_Remote_Machine"
02e4 003c       | <  |		.STRTAB	0x003c->0x0302							; "Ftp.Remote_Directory"
02e5 004e       | N  |		.STRTAB	0x004e->0x030c							; "Set_Remote_Directory"
02e6 0060       | `  |		.STRTAB	0x0060->0x0316							; "Set_Remote_Library"
02e7 0070       | p  |		.STRTAB	0x0070->0x031f							; "Remote_Machine"
02e8 007c       | |  |		.STRTAB	0x007c->0x0326							; "Remote_Directory"
02e9 008a       |    |		.STRTAB	0x008a->0x032e							; "Remote_Library"
02ea 0096       |    |		.STREND 0x0096->0x0335
02eb 496e 6974  |Init|		.STRTAB_STRINGS
0335 0000 0000  |    |		.XXX[0x3]
0337 0000       |    |
0338 ; --------------------------------------------------------------------------------------
0338 ; Debug Table
0338 ; --------------------------------------------------------------------------------------
0338 0004 000f  |    |		.DEBUG4	0x0004,0x000f,0x2c0a,0x0000,0x0001,0x0000
033e 5d4d 2535  |]M%5|		.XXX[0xc2]
0340 4131 157d  |A1 }|
0342 4d51 0551  |MQ Q|
0344 554c b90d  |UL  |
0346 3d39 1125  |=9 %|
0348 5125 3d38  |Q%=8|
034a 00d4 f4b0  |    |
034c 0069 1561  | i a|
034e 150d 5551  |  UQ|
0350 157d 4d0d  | }M |
0352 4925 4151  |I%AQ|
0354 7d41 3d4d  |}A=M|
0356 5141 493d  |QAI=|
0358 0d15 4d4c  |  ML|
035a 01ee 51fa  |  Q |
035c 408c 0041  |@  A|
035e 213d 4d51  |!=MQ|
0360 7d4d 0d49  |}M I|
0362 2541 517d  |%AQ}|
0364 5539 2550  |U9%P|
0366 5c00 4111  |\ A |
0368 2549 150d  |%I  |
036a 513d 4964  |Q=Id|
036c b93d 0929  | = )|
036e 150d 5001  |  P |
0370 fa40 8c00  | @  |
0372 4949 1535  |II 5|
0374 3d51 157d  |=Q }|
0376 4d0d 4925  |M I%|
0378 4151 7d19  |AQ} |
037a 2531 145c  |%1 \|
037c 003d 4d51  | =MQ|
037e 0539 1105  | 9  |
0380 4910 b94d  |I  M|
0382 5149 2539  |QI%9|
0384 1c01 fa40  |   @|
0386 8c00 4549  |  EI|
0388 1535 3d51  | 5=Q|
038a 157d 0d3d  | } =|
038c 3939 150d  |99  |
038e 5125 3d38  |Q%=8|
0390 5c00 5d49  |\ ]I|
0392 1535 3d51  | 5=Q|
0394 157d 0d3d  | } =|
0396 3535 0539  |55 9|
0398 114c b90d  | L  |
039a 3d39 5115  |=9Q |
039c 6150 01fe  |aP  |
039e 4090 0019  |@   |
03a0 4d51 0551  |MQ Q|
03a2 554c 5c00  |UL\ |
03a4 5d4d 2535  |]M%5|
03a6 4131 157d  |A1 }|
03a8 4d51 0551  |MQ Q|
03aa 554c b90d  |UL  |
03ac 3d39 1125  |=9 %|
03ae 5125 3d38  |Q%=8|
03b0 00d4 f4b0  |    |
03b2 0089 5541  |  UA|
03b4 313d 0511  |1=  |
03b6 7d05 4d4d  |} MM|
03b8 3d0d 2505  |= % |
03ba 5115 117d  |Q  }|
03bc 1925 3115  | %1 |
03be 4d7d 4149  |M}AI|
03c0 1541 493d  | AI=|
03c2 0d15 4d4c  |  ML|
03c4 01ee 51fa  |  Q |
03c6 408c 0015  |@   |
03c8 5539 2551  |U9%Q|
03ca 4c5c 007d  |L\ }|
03cc 1125 4915  | %I |
03ce 0d51 3d49  | Q=I|
03d0 657d 513d  |e}Q=|
03d2 3d31 4cb9  |=1L |
03d4 3d09 2915  |= ) |
03d6 0d50 b925  | P %|
03d8 5115 4905  |Q I |
03da 513d 4801  |Q=H |
03dc fa40 8c00  | @  |
03de 3949 1535  |9I 5|
03e0 3d51 157d  |=Q }|
03e2 3505 0d21  |5  !|
03e4 2539 145c  |%9 \|
03e6 003d 4d51  | =MQ|
03e8 0539 1105  | 9  |
03ea 4910 b94d  |I  M|
03ec 5149 2539  |QI%9|
03ee 1c01 fa40  |   @|
03f0 8c00 4549  |  EI|
03f2 1535 3d51  | 5=Q|
03f4 157d 0d3d  | } =|
03f6 3939 150d  |99  |
03f8 5125 3d38  |Q%=8|
03fa 5c00 5d49  |\ ]I|
03fc 1535 3d51  | 5=Q|
03fe 157d 0d3d  | } =|