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

⟦c887b854b⟧

    Length: 3072 (0xc00)
    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 0420       |    |		.CONST	0x0420								; 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 0037       | 7  |		.CONST	0x0037								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001b       |    |		.CONST	0x001b								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1
000c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
000d 0129       | )  |		Execute	Any,Make_Visible
000e e002       |    |		Load	0x0,0x2
000f 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0010 0129       | )  |		Execute	Any,Make_Visible
0011 029a 0043  |   C|		Declare_Subprogram	INIT_0040,For_Outer_Call,Visible,Unelaborated
0013 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0015 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
0017 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 029a 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call,Visible,Unelaborated
001d c214       |    |		Store	0x1,0x14
001e 00bf       |    |		Action	Accept_Activation
001f 00e1       |    |		Load_Encached	Boolean_Cache
0020 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0021 029d 027b  |   {|		Declare_Subprogram	INIT_0278,For_Outer_Call
0023 029d 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call
0025 029d 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Outer_Call
0027 029d 02c3  |    |		Declare_Subprogram	INIT_02c0,For_Outer_Call
0029 029d 02db  |    |		Declare_Subprogram	INIT_02d8,For_Outer_Call
002b 029d 0303  |    |		Declare_Subprogram	INIT_0300,For_Outer_Call
002d 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
002e 00c7       |    |		Action	Elaborate_Subprogram
002f 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0030 00c7       |    |		Action	Elaborate_Subprogram
0031 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0032 00c7       |    |		Action	Elaborate_Subprogram
0033 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0034 00c7       |    |		Action	Elaborate_Subprogram
0035 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0036 00c7       |    |		Action	Elaborate_Subprogram
0037			BODY_0008:
0037 00bc       |    |		Action	Signal_Activated
0038 00bb       |    |		Action	Signal_Completion
0039 0000 0000  |    |		.BLANK	0000[0x7]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0056       | V  |		.CONST	0x0056								; Address of begin
0041 00fc       |    |		.CONST	0x00fc								; Address of exception handler
0042 0006       |    |		.CONST	0x0006								; Number of locals
0043			INIT_0040:
0043 e003       |    |		Load	0x0,0x3
0044 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0045 0604       |    |		Execute_Immediate	Set_Value_Unchecked,0x4
0046 e002       |    |		Load	0x0,0x2
0047 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0048 e001       |    |		Load	0x0,0x1
0049 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
004a 02c7       |    |		Declare_Variable	Any
004b 00d8       |    |		Load_Top	At_Offset_0
004c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
004d 00e2       |    |		Load_Encached	Integer_Cache
004e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
004f 0092 030e  |    |		Action	Push_String_Extended,0x30e					; "ftp.connect(\x22"
0051 e5ff       |    |		Load	0x2,-0x1
0052 01cc       |    |		Execute	Vector,Catenate
0053 0092 030f  |    |		Action	Push_String_Extended,0x30f					; "\x22)"
0055 01cc       |    |		Execute	Vector,Catenate
0056			BODY_0040:
0056 00cf       |    |		Action	Mark_Auxiliary
0057 4802       |H   |		Short_Literal	0x2
0058 4800       |H   |		Short_Literal	0x0
0059 0007       |    |		Action	Break_Optional
005a e003       |    |		Load	0x0,0x3
005b 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
005c e404       |    |		Load	0x2,0x4
005d 0120       |    |		Execute	Any,Is_Value
005e 6803       |h   |		Jump_Zero	0x62
005f e001       |    |		Load	0x0,0x1
0060 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0061 7801       |x   |		Jump	0x63
0062 e404       |    |		Load	0x2,0x4
0063 e001       |    |		Load	0x0,0x1
0064 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0065 c404       |    |		Store	0x2,0x4
0066 c402       |    |		Store	0x2,0x2
0067 e402       |    |		Load	0x2,0x2
0068 7002       |p   |		Jump_Nonzero	0x6b
0069 00d2       |    |		Pop_Control	Pop_Count_2
006a 780d       |x   |		Jump	0x78
006b e004       |    |		Load	0x0,0x4
006c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
006d 4806       |H   |		Short_Literal	0x6
006e 0092 0310  |    |		Action	Push_String_Extended,0x310					; "File_transfer.Open returned status "
0070 e402       |    |		Load	0x2,0x2
0071 e003       |    |		Load	0x0,0x3
0072 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0073 01cc       |    |		Execute	Vector,Catenate
0074 e005       |    |		Load	0x0,0x5
0075 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0076 00c8       |    |		Action	Pop_Auxiliary_Range
0077 3fe2       |?   |		Loop_Increasing	0x5a
0078 00ce       |    |		Action	Pop_Auxiliary
0079 e402       |    |		Load	0x2,0x2
007a 680c       |h   |		Jump_Zero	0x87
007b e5f9       |    |		Load	0x2,-0x7
007c 0092 0311  |    |		Action	Push_String_Extended,0x311					; "Unable to form connection"
007e 4802       |H   |		Short_Literal	0x2
007f 00ea       |    |		Load_Encached	Null_String_Cache
0080 e006       |    |		Load	0x0,0x6
0081 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0082 e006       |    |		Load	0x0,0x6
0083 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0084 c5f9       |    |		Store	0x2,-0x7
0085 e007       |    |		Load	0x0,0x7
0086 0257       | W  |		Execute	Discrete,Raise
0087 00cf       |    |		Action	Mark_Auxiliary
0088 4802       |H   |		Short_Literal	0x2
0089 4800       |H   |		Short_Literal	0x0
008a 0007       |    |		Action	Break_Optional
008b e001       |    |		Load	0x0,0x1
008c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
008d e5ff       |    |		Load	0x2,-0x1
008e e008       |    |		Load	0x0,0x8
008f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0090 e404       |    |		Load	0x2,0x4
0091 e001       |    |		Load	0x0,0x1
0092 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0093 e5fb       |    |		Load	0x2,-0x5
0094 e404       |    |		Load	0x2,0x4
0095 821a       |    |		Call	0x1,0x1a
0096 e404       |    |		Load	0x2,0x4
0097 e001       |    |		Load	0x0,0x1
0098 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
0099 6802       |h   |		Jump_Zero	0x9c
009a 00d2       |    |		Pop_Control	Pop_Count_2
009b 780d       |x   |		Jump	0xa9
009c e004       |    |		Load	0x0,0x4
009d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
009e 4802       |H   |		Short_Literal	0x2
009f e406       |    |		Load	0x2,0x6
00a0 0092 0312  |    |		Action	Push_String_Extended,0x312					; ": will try again in 10 sec."
00a2 01cc       |    |		Execute	Vector,Catenate
00a3 e005       |    |		Load	0x0,0x5
00a4 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00a5 6072       |`r  |		Indirect_Literal	Discrete,0x118,{0x00000000, 0x00050000}
00a6 00ba       |    |		Action	Initiate_Delay
00a7 00c8       |    |		Action	Pop_Auxiliary_Range
00a8 3fe2       |?   |		Loop_Increasing	0x8b
00a9 00ce       |    |		Action	Pop_Auxiliary
00aa 00da       |    |		Load_Top	At_Offset_2
00ab e001       |    |		Load	0x0,0x1
00ac 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
00ad 7006       |p   |		Jump_Nonzero	0xb4
00ae 0092 0313  |    |		Action	Push_String_Extended,0x313					; "Error in connect"
00b0 00db       |    |		Load_Top	At_Offset_3
00b1 8217       |    |		Call	0x1,0x17
00b2 e007       |    |		Load	0x0,0x7
00b3 0257       | W  |		Execute	Discrete,Raise
00b4 4801       |H   |		Short_Literal	0x1
00b5 a215       |    |		Store_Unchecked	0x1,0x15
00b6 e5fe       |    |		Load	0x2,-0x2
00b7 00db       |    |		Load_Top	At_Offset_3
00b8 e001       |    |		Load	0x0,0x1
00b9 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00ba e5fb       |    |		Load	0x2,-0x5
00bb 00db       |    |		Load_Top	At_Offset_3
00bc 821a       |    |		Call	0x1,0x1a
00bd 00da       |    |		Load_Top	At_Offset_2
00be 8216       |    |		Call	0x1,0x16
00bf a403       |    |		Store_Unchecked	0x2,0x3
00c0 00db       |    |		Load_Top	At_Offset_3
00c1 0f02       |    |		Execute_Immediate	Equal,0x2
00c2 680b       |h   |		Jump_Zero	0xce
00c3 e5fd       |    |		Load	0x2,-0x3
00c4 00db       |    |		Load_Top	At_Offset_3
00c5 e001       |    |		Load	0x0,0x1
00c6 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00c7 e5fb       |    |		Load	0x2,-0x5
00c8 00db       |    |		Load_Top	At_Offset_3
00c9 821a       |    |		Call	0x1,0x1a
00ca 00da       |    |		Load_Top	At_Offset_2
00cb 8216       |    |		Call	0x1,0x16
00cc a403       |    |		Store_Unchecked	0x2,0x3
00cd 7805       |x   |		Jump	0xd3
00ce 00db       |    |		Load_Top	At_Offset_3
00cf 0e01       |    |		Execute_Immediate	Not_Equal,0x1
00d0 6802       |h   |		Jump_Zero	0xd3
00d1 e007       |    |		Load	0x0,0x7
00d2 0257       | W  |		Execute	Discrete,Raise
00d3 00db       |    |		Load_Top	At_Offset_3
00d4 0f03       |    |		Execute_Immediate	Equal,0x3
00d5 6808       |h   |		Jump_Zero	0xde
00d6 e5fc       |    |		Load	0x2,-0x4
00d7 00db       |    |		Load_Top	At_Offset_3
00d8 e001       |    |		Load	0x0,0x1
00d9 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00da e5fb       |    |		Load	0x2,-0x5
00db 00db       |    |		Load_Top	At_Offset_3
00dc 821a       |    |		Call	0x1,0x1a
00dd 7805       |x   |		Jump	0xe3
00de 00db       |    |		Load_Top	At_Offset_3
00df 0e01       |    |		Execute_Immediate	Not_Equal,0x1
00e0 6802       |h   |		Jump_Zero	0xe3
00e1 e007       |    |		Load	0x0,0x7
00e2 0257       | W  |		Execute	Discrete,Raise
00e3 0092 0314  |    |		Action	Push_String_Extended,0x314					; "Account error"
00e5 00db       |    |		Load_Top	At_Offset_3
00e6 8217       |    |		Call	0x1,0x17
00e7 e004       |    |		Load	0x0,0x4
00e8 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00e9 4802       |H   |		Short_Literal	0x2
00ea 0092 0315  |    |		Action	Push_String_Extended,0x315					; "Connected to "
00ec e5ff       |    |		Load	0x2,-0x1
00ed 01cc       |    |		Execute	Vector,Catenate
00ee e005       |    |		Load	0x0,0x5
00ef 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00f0 e5f9       |    |		Load	0x2,-0x7
00f1 00ea       |    |		Load_Encached	Null_String_Cache
00f2 4800       |H   |		Short_Literal	0x0
00f3 00ea       |    |		Load_Encached	Null_String_Cache
00f4 e006       |    |		Load	0x0,0x6
00f5 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00f6 e006       |    |		Load	0x0,0x6
00f7 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00f8 c5f9       |    |		Store	0x2,-0x7
00f9 00da       |    |		Load_Top	At_Offset_2
00fa c5fa       |    |		Store	0x2,-0x6
00fb 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
00fc			TRAP_0040:
00fc 0007       |    |		Action	Break_Optional
00fd e004       |    |		Load	0x0,0x4
00fe 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00ff 4801       |H   |		Short_Literal	0x1
0100 0092 0316  |    |		Action	Push_String_Extended,0x316					; "Can't open FTP connection to machine "
0102 e5ff       |    |		Load	0x2,-0x1
0103 01cc       |    |		Execute	Vector,Catenate
0104 e005       |    |		Load	0x0,0x5
0105 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0106 e5f9       |    |		Load	0x2,-0x7
0107 0092 0317  |    |		Action	Push_String_Extended,0x317					; "Can't open FTP connection to machine"
0109 e5ff       |    |		Load	0x2,-0x1
010a 01cc       |    |		Execute	Vector,Catenate
010b 4802       |H   |		Short_Literal	0x2
010c 00ea       |    |		Load_Encached	Null_String_Cache
010d e006       |    |		Load	0x0,0x6
010e 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
010f e006       |    |		Load	0x0,0x6
0110 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0111 c5f9       |    |		Store	0x2,-0x7
0112 e215       |    |		Load	0x1,0x15
0113 6803       |h   |		Jump_Zero	0x117
0114 00db       |    |		Load_Top	At_Offset_3
0115 e001       |    |		Load	0x0,0x1
0116 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0117 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0118 0000 0000  |    |		.LITERAL	{0x00000000, 0x00050000}
011c 0000 0000  |    |		.BLANK	0000[0x4]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 013a       | :  |		.CONST	0x013a								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 00da       |    |		Load_Top	At_Offset_2
0124 e001       |    |		Load	0x0,0x1
0125 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
0126 6806       |h   |		Jump_Zero	0x12d
0127 00da       |    |		Load_Top	At_Offset_2
0128 e001       |    |		Load	0x0,0x1
0129 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
012a 00db       |    |		Load_Top	At_Offset_3
012b 00db       |    |		Load_Top	At_Offset_3
012c 821a       |    |		Call	0x1,0x1a
012d 00da       |    |		Load_Top	At_Offset_2
012e e001       |    |		Load	0x0,0x1
012f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0130 e5fd       |    |		Load	0x2,-0x3
0131 00ea       |    |		Load_Encached	Null_String_Cache
0132 4800       |H   |		Short_Literal	0x0
0133 00ea       |    |		Load_Encached	Null_String_Cache
0134 e006       |    |		Load	0x0,0x6
0135 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0136 e006       |    |		Load	0x0,0x6
0137 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0138 c5fd       |    |		Store	0x2,-0x3
0139 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
013a			TRAP_0120:
013a 0007       |    |		Action	Break_Optional
013b e004       |    |		Load	0x0,0x4
013c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
013d 4801       |H   |		Short_Literal	0x1
013e 0092 0318  |    |		Action	Push_String_Extended,0x318					; "FTP disconnect failed "
0140 e005       |    |		Load	0x0,0x5
0141 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0142 e5fd       |    |		Load	0x2,-0x3
0143 0092 0318  |    |		Action	Push_String_Extended,0x318					; "FTP disconnect failed "
0145 4802       |H   |		Short_Literal	0x2
0146 00ea       |    |		Load_Encached	Null_String_Cache
0147 e006       |    |		Load	0x0,0x6
0148 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0149 e006       |    |		Load	0x0,0x6
014a 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
014b c5fd       |    |		Store	0x2,-0x3
014c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
014d 0000 0000  |    |		.XXX[0x3]
014f 0000       |    |
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0157       | W  |		.CONST	0x0157								; Address of begin
0151 019c       |    |		.CONST	0x019c								; Address of exception handler
0152 0003       |    |		.CONST	0x0003								; Number of locals
0153			INIT_0150:
0153 00e2       |    |		Load_Encached	Integer_Cache
0154 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0155 00e1       |    |		Load_Encached	Boolean_Cache
0156 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0157			BODY_0150:
0157 e5fd       |    |		Load	0x2,-0x3
0158 e001       |    |		Load	0x0,0x1
0159 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
015a e5fc       |    |		Load	0x2,-0x4
015b 027e       | ~  |		Execute	Discrete,Not_Equal
015c 680b       |h   |		Jump_Zero	0x168
015d e5fc       |    |		Load	0x2,-0x4
015e e5fd       |    |		Load	0x2,-0x3
015f e001       |    |		Load	0x0,0x1
0160 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0161 e5fb       |    |		Load	0x2,-0x5
0162 e5fd       |    |		Load	0x2,-0x3
0163 821a       |    |		Call	0x1,0x1a
0164 0092 0319  |    |		Action	Push_String_Extended,0x319					; "Set file transfer type error"
0166 e5fd       |    |		Load	0x2,-0x3
0167 8217       |    |		Call	0x1,0x17
0168 00cf       |    |		Action	Mark_Auxiliary
0169 7816       |x   |		Jump	0x180
016a e5fb       |    |		Load	0x2,-0x5
016b e5fd       |    |		Load	0x2,-0x3
016c 821b       |    |		Call	0x1,0x1b
016d 4800       |H   |		Short_Literal	0x0
016e e5fe       |    |		Load	0x2,-0x2
016f e5ff       |    |		Load	0x2,-0x1
0170 e5fd       |    |		Load	0x2,-0x3
0171 e001       |    |		Load	0x0,0x1
0172 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0173 e5fb       |    |		Load	0x2,-0x5
0174 e5fd       |    |		Load	0x2,-0x3
0175 821a       |    |		Call	0x1,0x1a
0176 e5fd       |    |		Load	0x2,-0x3
0177 8218       |    |		Call	0x1,0x18
0178 00e1       |    |		Load_Encached	Boolean_Cache
0179 e5fd       |    |		Load	0x2,-0x3
017a 8219       |    |		Call	0x1,0x19
017b 005a       | Z  |		Store_Top	Discrete,At_Offset_2
017c 00da       |    |		Load_Top	At_Offset_2
017d 0a01       |    |		Execute_Immediate	Plus,0x1
017e 005b       | [  |		Store_Top	Discrete,At_Offset_3
017f 00c9       |    |		Action	Pop_Auxiliary_Loop
0180 00d9       |    |		Load_Top	At_Offset_1
0181 0f00       |    |		Execute_Immediate	Equal,0x0
0182 00db       |    |		Load_Top	At_Offset_3
0183 0d04       |    |		Execute_Immediate	Less,0x4
0184 0279       | y  |		Execute	Discrete,And
0185 77e4       |w   |		Jump_Nonzero	0x16a
0186 00ce       |    |		Action	Pop_Auxiliary
0187 00d8       |    |		Load_Top	At_Offset_0
0188 7009       |p   |		Jump_Nonzero	0x192
0189 e004       |    |		Load	0x0,0x4
018a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
018b 4802       |H   |		Short_Literal	0x2
018c 0092 031a  |    |		Action	Push_String_Extended,0x31a					; "Error during FTP.PUT"
018e e005       |    |		Load	0x0,0x5
018f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0190 e007       |    |		Load	0x0,0x7
0191 0257       | W  |		Execute	Discrete,Raise
0192 e5fa       |    |		Load	0x2,-0x6
0193 00ea       |    |		Load_Encached	Null_String_Cache
0194 4800       |H   |		Short_Literal	0x0
0195 00ea       |    |		Load_Encached	Null_String_Cache
0196 e006       |    |		Load	0x0,0x6
0197 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0198 e006       |    |		Load	0x0,0x6
0199 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
019a c5fa       |    |		Store	0x2,-0x6
019b 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
019c			TRAP_0150:
019c 0007       |    |		Action	Break_Optional
019d e004       |    |		Load	0x0,0x4
019e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
019f 4801       |H   |		Short_Literal	0x1
01a0 0092 031b  |    |		Action	Push_String_Extended,0x31b					; "FTP transfer of "
01a2 e5ff       |    |		Load	0x2,-0x1
01a3 01cc       |    |		Execute	Vector,Catenate
01a4 0092 031c  |    |		Action	Push_String_Extended,0x31c					; " to "
01a6 01cc       |    |		Execute	Vector,Catenate
01a7 e5fe       |    |		Load	0x2,-0x2
01a8 01cc       |    |		Execute	Vector,Catenate
01a9 0092 031d  |    |		Action	Push_String_Extended,0x31d					; " failed"
01ab 01cc       |    |		Execute	Vector,Catenate
01ac e005       |    |		Load	0x0,0x5
01ad 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01ae e5fa       |    |		Load	0x2,-0x6
01af 0092 031e  |    |		Action	Push_String_Extended,0x31e					; "FTP transfer failed "
01b1 4802       |H   |		Short_Literal	0x2
01b2 00ea       |    |		Load_Encached	Null_String_Cache
01b3 e006       |    |		Load	0x0,0x6
01b4 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01b5 e006       |    |		Load	0x0,0x6
01b6 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01b7 c5fa       |    |		Store	0x2,-0x6
01b8 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
01b9 0000 0000  |    |		.BLANK	0000[0x7]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c7       |    |		.CONST	0x01c7								; Address of begin
01c1 020c       |    |		.CONST	0x020c								; Address of exception handler
01c2 0003       |    |		.CONST	0x0003								; Number of locals
01c3			INIT_01c0:
01c3 00e2       |    |		Load_Encached	Integer_Cache
01c4 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01c5 00e1       |    |		Load_Encached	Boolean_Cache
01c6 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
01c7			BODY_01c0:
01c7 e5fd       |    |		Load	0x2,-0x3
01c8 e001       |    |		Load	0x0,0x1
01c9 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
01ca e5fc       |    |		Load	0x2,-0x4
01cb 027e       | ~  |		Execute	Discrete,Not_Equal
01cc 680b       |h   |		Jump_Zero	0x1d8
01cd e5fc       |    |		Load	0x2,-0x4
01ce e5fd       |    |		Load	0x2,-0x3
01cf e001       |    |		Load	0x0,0x1
01d0 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
01d1 e5fb       |    |		Load	0x2,-0x5
01d2 e5fd       |    |		Load	0x2,-0x3
01d3 821a       |    |		Call	0x1,0x1a
01d4 0092 031f  |    |		Action	Push_String_Extended,0x31f					; "Get file transfer type error"
01d6 e5fd       |    |		Load	0x2,-0x3
01d7 8217       |    |		Call	0x1,0x17
01d8 00cf       |    |		Action	Mark_Auxiliary
01d9 7816       |x   |		Jump	0x1f0
01da e5fb       |    |		Load	0x2,-0x5
01db e5fd       |    |		Load	0x2,-0x3
01dc 821b       |    |		Call	0x1,0x1b
01dd 4800       |H   |		Short_Literal	0x0
01de e5fe       |    |		Load	0x2,-0x2
01df e5ff       |    |		Load	0x2,-0x1
01e0 e5fd       |    |		Load	0x2,-0x3
01e1 e001       |    |		Load	0x0,0x1
01e2 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
01e3 e5fb       |    |		Load	0x2,-0x5
01e4 e5fd       |    |		Load	0x2,-0x3
01e5 821a       |    |		Call	0x1,0x1a
01e6 e5fd       |    |		Load	0x2,-0x3
01e7 8218       |    |		Call	0x1,0x18
01e8 00e1       |    |		Load_Encached	Boolean_Cache
01e9 e5fd       |    |		Load	0x2,-0x3
01ea 8219       |    |		Call	0x1,0x19
01eb 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01ec 00da       |    |		Load_Top	At_Offset_2
01ed 0a01       |    |		Execute_Immediate	Plus,0x1
01ee 005b       | [  |		Store_Top	Discrete,At_Offset_3
01ef 00c9       |    |		Action	Pop_Auxiliary_Loop
01f0 00d9       |    |		Load_Top	At_Offset_1
01f1 0f00       |    |		Execute_Immediate	Equal,0x0
01f2 00db       |    |		Load_Top	At_Offset_3
01f3 0d04       |    |		Execute_Immediate	Less,0x4
01f4 0279       | y  |		Execute	Discrete,And
01f5 77e4       |w   |		Jump_Nonzero	0x1da
01f6 00ce       |    |		Action	Pop_Auxiliary
01f7 00d8       |    |		Load_Top	At_Offset_0
01f8 7009       |p   |		Jump_Nonzero	0x202
01f9 e004       |    |		Load	0x0,0x4
01fa 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01fb 4802       |H   |		Short_Literal	0x2
01fc 0092 0320  |    |		Action	Push_String_Extended,0x320					; "Error during FTP.GET"
01fe e005       |    |		Load	0x0,0x5
01ff 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0200 e007       |    |		Load	0x0,0x7
0201 0257       | W  |		Execute	Discrete,Raise
0202 e5fa       |    |		Load	0x2,-0x6
0203 00ea       |    |		Load_Encached	Null_String_Cache
0204 4800       |H   |		Short_Literal	0x0
0205 00ea       |    |		Load_Encached	Null_String_Cache
0206 e006       |    |		Load	0x0,0x6
0207 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0208 e006       |    |		Load	0x0,0x6
0209 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
020a c5fa       |    |		Store	0x2,-0x6
020b 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
020c			TRAP_01c0:
020c 0007       |    |		Action	Break_Optional
020d e004       |    |		Load	0x0,0x4
020e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
020f 4801       |H   |		Short_Literal	0x1
0210 0092 0321  |   !|		Action	Push_String_Extended,0x321					; "FTP transfer to"
0212 e5ff       |    |		Load	0x2,-0x1
0213 01cc       |    |		Execute	Vector,Catenate
0214 0092 0322  |   "|		Action	Push_String_Extended,0x322					; " from "
0216 01cc       |    |		Execute	Vector,Catenate
0217 e5fe       |    |		Load	0x2,-0x2
0218 01cc       |    |		Execute	Vector,Catenate
0219 0092 031d  |    |		Action	Push_String_Extended,0x31d					; " failed"
021b 01cc       |    |		Execute	Vector,Catenate
021c e005       |    |		Load	0x0,0x5
021d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
021e e5fa       |    |		Load	0x2,-0x6
021f 0092 031e  |    |		Action	Push_String_Extended,0x31e					; "FTP transfer failed "
0221 4802       |H   |		Short_Literal	0x2
0222 00ea       |    |		Load_Encached	Null_String_Cache
0223 e006       |    |		Load	0x0,0x6
0224 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0225 e006       |    |		Load	0x0,0x6
0226 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0227 c5fa       |    |		Store	0x2,-0x6
0228 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0229 0000 0000  |    |		.BLANK	0000[0x7]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0235       | 5  |		.CONST	0x0235								; Address of begin
0231 025d       | ]  |		.CONST	0x025d								; Address of exception handler
0232 0002       |    |		.CONST	0x0002								; Number of locals
0233			INIT_0230:
0233 e002       |    |		Load	0x0,0x2
0234 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0235			BODY_0230:
0235 00db       |    |		Load_Top	At_Offset_3
0236 e5fe       |    |		Load	0x2,-0x2
0237 e001       |    |		Load	0x0,0x1
0238 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0239 e5fc       |    |		Load	0x2,-0x4
023a e5fe       |    |		Load	0x2,-0x2
023b 821a       |    |		Call	0x1,0x1a
023c 0092 0323  |   #|		Action	Push_String_Extended,0x323					; "set remote directory error"
023e e5fe       |    |		Load	0x2,-0x2
023f 8217       |    |		Call	0x1,0x17
0240 e5fe       |    |		Load	0x2,-0x2
0241 8216       |    |		Call	0x1,0x16
0242 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0243 00d8       |    |		Load_Top	At_Offset_0
0244 0f03       |    |		Execute_Immediate	Equal,0x3
0245 6808       |h   |		Jump_Zero	0x24e
0246 e5fd       |    |		Load	0x2,-0x3
0247 e5fe       |    |		Load	0x2,-0x2
0248 e001       |    |		Load	0x0,0x1
0249 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
024a e5fc       |    |		Load	0x2,-0x4
024b e5fe       |    |		Load	0x2,-0x2
024c 821a       |    |		Call	0x1,0x1a
024d 7805       |x   |		Jump	0x253
024e 00d8       |    |		Load_Top	At_Offset_0
024f 0e01       |    |		Execute_Immediate	Not_Equal,0x1
0250 6802       |h   |		Jump_Zero	0x253
0251 e007       |    |		Load	0x0,0x7
0252 0257       | W  |		Execute	Discrete,Raise
0253 e5fb       |    |		Load	0x2,-0x5
0254 00ea       |    |		Load_Encached	Null_String_Cache
0255 4800       |H   |		Short_Literal	0x0
0256 00ea       |    |		Load_Encached	Null_String_Cache
0257 e006       |    |		Load	0x0,0x6
0258 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0259 e006       |    |		Load	0x0,0x6
025a 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
025b c5fb       |    |		Store	0x2,-0x5
025c 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
025d			TRAP_0230:
025d 0007       |    |		Action	Break_Optional
025e e004       |    |		Load	0x0,0x4
025f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0260 4801       |H   |		Short_Literal	0x1
0261 0092 0324  |   $|		Action	Push_String_Extended,0x324					; "Error when setting directory to "
0263 e5ff       |    |		Load	0x2,-0x1
0264 01cc       |    |		Execute	Vector,Catenate
0265 e005       |    |		Load	0x0,0x5
0266 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0267 e5fb       |    |		Load	0x2,-0x5
0268 0092 0325  |   %|		Action	Push_String_Extended,0x325					; "Set remote directory failed "
026a 4802       |H   |		Short_Literal	0x2
026b 00ea       |    |		Load_Encached	Null_String_Cache
026c e006       |    |		Load	0x0,0x6
026d 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
026e e006       |    |		Load	0x0,0x6
026f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0270 c5fb       |    |		Store	0x2,-0x5
0271 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0272 0000 0000  |    |		.BLANK	0000[0x6]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027d       | }  |		.CONST	0x027d								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0002       |    |		.CONST	0x0002								; Number of locals
027b			INIT_0278:
027b e002       |    |		Load	0x0,0x2
027c 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
027d			BODY_0278:
027d e002       |    |		Load	0x0,0x2
027e 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
027f e5ff       |    |		Load	0x2,-0x1
0280 e001       |    |		Load	0x0,0x1
0281 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0282 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0283 00d8       |    |		Load_Top	At_Offset_0
0284 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0285 0000 0000  |    |		.XXX[0x3]
0287 0000       |    |
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028d       |    |		.CONST	0x028d								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0002       |    |		.CONST	0x0002								; Number of locals
028b			INIT_0288:
028b e002       |    |		Load	0x0,0x2
028c 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
028d			BODY_0288:
028d e002       |    |		Load	0x0,0x2
028e 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
028f e5ff       |    |		Load	0x2,-0x1
0290 e001       |    |		Load	0x0,0x1
0291 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0292 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0293 00d8       |    |		Load_Top	At_Offset_0
0294 0e01       |    |		Execute_Immediate	Not_Equal,0x1
0295 6808       |h   |		Jump_Zero	0x29e
0296 e004       |    |		Load	0x0,0x4
0297 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0298 4801       |H   |		Short_Literal	0x1
0299 e5fe       |    |		Load	0x2,-0x2
029a e005       |    |		Load	0x0,0x5
029b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
029c e007       |    |		Load	0x0,0x7
029d 0257       | W  |		Execute	Discrete,Raise
029e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
029f 0000       |    |		.XXX[0x1]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a5       |    |		.CONST	0x02a5								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0002       |    |		.CONST	0x0002								; Number of locals
02a3			INIT_02a0:
02a3 e002       |    |		Load	0x0,0x2
02a4 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
02a5			BODY_02a0:
02a5 e002       |    |		Load	0x0,0x2
02a6 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
02a7 e5ff       |    |		Load	0x2,-0x1
02a8 e001       |    |		Load	0x0,0x1
02a9 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02aa 0059       | Y  |		Store_Top	Discrete,At_Offset_1
02ab 00cf       |    |		Action	Mark_Auxiliary
02ac 7809       |x   |		Jump	0x2b6
02ad 600e       |`   |		Indirect_Literal	Discrete,0x2bc,{0x00000000, 0x00004000}
02ae 00ba       |    |		Action	Initiate_Delay
02af e002       |    |		Load	0x0,0x2
02b0 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
02b1 e5ff       |    |		Load	0x2,-0x1
02b2 e001       |    |		Load	0x0,0x1
02b3 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02b4 005a       | Z  |		Store_Top	Discrete,At_Offset_2
02b5 00c9       |    |		Action	Pop_Auxiliary_Loop
02b6 00d9       |    |		Load_Top	At_Offset_1
02b7 6ff5       |o   |		Jump_Zero	0x2ad
02b8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02b9 0000 0000  |    |		.XXX[0x3]
02bb 0000       |    |
02bc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c5       |    |		.CONST	0x02c5								; Address of begin
02c1 0004       |    |		.CONST	0x0004								; Address of exception handler
02c2 0002       |    |		.CONST	0x0002								; Number of locals
02c3			INIT_02c0:
02c3 e002       |    |		Load	0x0,0x2
02c4 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
02c5			BODY_02c0:
02c5 e002       |    |		Load	0x0,0x2
02c6 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
02c7 e5ff       |    |		Load	0x2,-0x1
02c8 e001       |    |		Load	0x0,0x1
02c9 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02ca 0059       | Y  |		Store_Top	Discrete,At_Offset_1
02cb 00d8       |    |		Load_Top	At_Offset_0
02cc 0e01       |    |		Execute_Immediate	Not_Equal,0x1
02cd 6803       |h   |		Jump_Zero	0x2d1
02ce 4800       |H   |		Short_Literal	0x0
02cf a5fe       |    |		Store_Unchecked	0x2,-0x2
02d0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02d1 4801       |H   |		Short_Literal	0x1
02d2 a5fe       |    |		Store_Unchecked	0x2,-0x2
02d3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
02d4 0000 0000  |    |		.BLANK	0000[0x4]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02e1       |    |		.CONST	0x02e1								; Address of begin
02d9 0004       |    |		.CONST	0x0004								; Address of exception handler
02da 0003       |    |		.CONST	0x0003								; Number of locals
02db			INIT_02d8:
02db 4801       |H   |		Short_Literal	0x1
02dc 4900       |I   |		Short_Literal	0x100
02dd 00e9       |    |		Load_Encached	String_Cache
02de 035b       | [  |		Declare_Type	Array,Constrained
02df 0337       | 7  |		Declare_Variable	Array
02e0 00e2       |    |		Load_Encached	Integer_Cache
02e1			BODY_02d8:
02e1 e5fe       |    |		Load	0x2,-0x2
02e2 6818       |h   |		Jump_Zero	0x2fb
02e3 00cf       |    |		Action	Mark_Auxiliary
02e4 7811       |x   |		Jump	0x2f6
02e5 00e3       |    |		Load_Encached	Natural_Cache
02e6 00db       |    |		Load_Top	At_Offset_3
02e7 e5ff       |    |		Load	0x2,-0x1
02e8 e001       |    |		Load	0x0,0x1
02e9 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
02ea 00d1       |    |		Pop_Control	Pop_Count_1
02eb 005a       | Z  |		Store_Top	Discrete,At_Offset_2
02ec e004       |    |		Load	0x0,0x4
02ed 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02ee 4802       |H   |		Short_Literal	0x2
02ef 4801       |H   |		Short_Literal	0x1
02f0 e403       |    |		Load	0x2,0x3
02f1 e402       |    |		Load	0x2,0x2
02f2 01cf       |    |		Execute	Vector,Slice_Read
02f3 e005       |    |		Load	0x0,0x5
02f4 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02f5 00c9       |    |		Action	Pop_Auxiliary_Loop
02f6 e5ff       |    |		Load	0x2,-0x1
02f7 e001       |    |		Load	0x0,0x1
02f8 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02f9 6feb       |o   |		Jump_Zero	0x2e5
02fa 00ce       |    |		Action	Pop_Auxiliary
02fb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02fc 0000 0000  |    |		.BLANK	0000[0x4]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303       |    |		.CONST	0x0303								; Address of begin
0301 0004       |    |		.CONST	0x0004								; Address of exception handler
0302 0001       |    |		.CONST	0x0001								; Number of locals
0303			BODY_0300:
0303			INIT_0300:
0303 e003       |    |		Load	0x0,0x3
0304 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0305 e003       |    |		Load	0x0,0x3
0306 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0307 e5ff       |    |		Load	0x2,-0x1
0308 e001       |    |		Load	0x0,0x1
0309 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
030a 00db       |    |		Load_Top	At_Offset_3
030b 00db       |    |		Load_Top	At_Offset_3
030c 821a       |    |		Call	0x1,0x1a
030d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
030e ; --------------------------------------------------------------------------------------
030e ; STRING TABLE
030e ; --------------------------------------------------------------------------------------
030e 0032       | 2  |		.STRTAB	0x0032->0x0327							; "ftp.connect(\x22"
030f 003d       | =  |		.STRTAB	0x003d->0x032d							; "\x22)"
0310 003d       | =  |		.STRTAB	0x003d->0x032e							; "File_transfer.Open returned status "
0311 005e       | ^  |		.STRTAB	0x005e->0x0340							; "Unable to form connection"
0312 0075       | u  |		.STRTAB	0x0075->0x034c							; ": will try again in 10 sec."
0313 008e       |    |		.STRTAB	0x008e->0x035a							; "Error in connect"
0314 009c       |    |		.STRTAB	0x009c->0x0362							; "Account error"
0315 00a7       |    |		.STRTAB	0x00a7->0x0368							; "Connected to "
0316 00b2       |    |		.STRTAB	0x00b2->0x036f							; "Can't open FTP connection to machine "
0317 00d5       |    |		.STRTAB	0x00d5->0x0381							; "Can't open FTP connection to machine"
0318 00f7       |    |		.STRTAB	0x00f7->0x0393							; "FTP disconnect failed "
0319 010b       |    |		.STRTAB	0x010b->0x039e							; "Set file transfer type error"
031a 0125       | %  |		.STRTAB	0x0125->0x03ac							; "Error during FTP.PUT"
031b 0137       | 7  |		.STRTAB	0x0137->0x03b6							; "FTP transfer of "
031c 0145       | E  |		.STRTAB	0x0145->0x03be							; " to "
031d 0147       | G  |		.STRTAB	0x0147->0x03c0							; " failed"
031e 014c       | L  |		.STRTAB	0x014c->0x03c4							; "FTP transfer failed "
031f 015e       | ^  |		.STRTAB	0x015e->0x03ce							; "Get file transfer type error"
0320 0178       | x  |		.STRTAB	0x0178->0x03dc							; "Error during FTP.GET"
0321 018a       |    |		.STRTAB	0x018a->0x03e6							; "FTP transfer to"
0322 0197       |    |		.STRTAB	0x0197->0x03ed							; " from "
0323 019b       |    |		.STRTAB	0x019b->0x03f0							; "set remote directory error"
0324 01b3       |    |		.STRTAB	0x01b3->0x03fd							; "Error when setting directory to "
0325 01d1       |    |		.STRTAB	0x01d1->0x040d							; "Set remote directory failed "
0326 01eb       |    |		.STREND 0x01eb->0x041b
0327 6674 702e  |ftp.|		.STRTAB_STRINGS
041c 0000 0000  |    |		.BLANK	0000[0x4]
0420 ; --------------------------------------------------------------------------------------
0420 ; Debug Table
0420 ; --------------------------------------------------------------------------------------
0420 0004 000c  |    |		.DEBUG4	0x0004,0x000c,0x3313,0x0000,0x0001,0x0000
0426 0001 2000  |    |		.XXX[0x17]
0428 0e2c 8000  | ,  |
042a 0000 4000  |  @ |
042c 0000 0000  |    |
042e 2000 0000  |    |
0430 0040 4040  | @@@|
0432 4040 0000  |@@  |
0434 0000 0000  |    |
0436 0900 0000  |    |
0438 0000 0000  |    |
043a 0200 0000  |    |
043c 0004       |    |
043d 0000 0000  |    |		.BLANK	0000[0x9]
0446 0008       |    |		.XXX[0x1]
0447 0000 0000  |    |		.BLANK	0000[0xb]
0452 0002 0000  |    |		.XXX[0x7]
0454 0024 0000  | $  |
0456 0000 0000  |    |
0458 0008       |    |
0459 0000 0000  |    |		.BLANK	0000[0x25]
047e 0080       |    |		.XXX[0x1]
047f 0000 0000  |    |		.BLANK	0000[0x4]
0483 0900 0000  |    |		.XXX[0xc]
0485 0000 0024  |   $|
0487 0001 c590  |    |
0489 0000 0008  |    |
048b 0000 0000  |    |
048d 0000 0100  |    |
048f 0000 0000  |    |		.BLANK	0000[0xb]
049a 000f ffff  |    |		.XXX[0x4b]
049c fff0 0080  |    |
049e 8080 8080  |    |
04a0 8081 0aaa  |    |
04a2 9a2a 9299  | *  |
04a4 72d2 4a72  |r Jr|
04a6 22cc 0000  |"   |
04a8 0048 0000  | H  |
04aa 0010 0000  |    |
04ac 0010 0000  |    |
04ae 0010 0000  |    |
04b0 0055 a494  | U  |
04b2 e445 9000  | E  |
04b4 007f 5000  |  P |
04b6 0000 c215  |    |
04b8 5534 5525  |U4U%|
04ba 32e5 a494  |2   |
04bc e445 9000  | E  |
04be 0000 1000  |    |
04c0 0b63 4000  | c@ |
04c2 0000 2000  |    |
04c4 0000 2000  |    |
04c6 0002 6c6e  |  ln|
04c8 4cac 2e8d  |L . |
04ca 2dcc e40d  |-   |
04cc 2dac 2cec  |- , |
04ce a40c cdee  |    |
04d0 4400 0000  |D   |
04d2 0020 0000  |    |
04d4 03ec 6e4c  |  nL|
04d6 ac2e 8d2d  | . -|
04d8 cce4 0d2d  |   -|
04da ac2c eca4  | ,  |
04dc 0ccd ee44  |   D|
04de 042a aa68  | * h|
04e0 aa4a 65cb  | Je |
04e2 4929 c88b  |I)  |
04e4 2000       |    |
04e5 0000 0000  |    |		.BLANK	0000[0x4]
04e9 0f00       |    |		.XXX[0x1]
04ea 0000 0000  |    |		.BLANK	0000[0x5]
04ef 0200       |    |		.XXX[0x1]
04f0 0000 0000  |    |		.BLANK	0000[0xb]
04fb 001f ffff  |    |		.XXX[0x3]
04fd ffe0       |    |
04fe 0101 0101  |    |		.BLANK	0101[0x81]
057f 0100 0080  |    |		.XXX[0x2]
0581 8080 8080  |    |		.BLANK	8080[0x7f]