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

⟦f00e83411⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0410       |    |		.CONST	0x0410								; 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 00fe       |    |		.CONST	0x00fe								; 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 780f       |x   |		Jump	0xab
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"
00a2 01cc       |    |		Execute	Vector,Catenate
00a3 e005       |    |		Load	0x0,0x5
00a4 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00a5 6076       |`v  |		Indirect_Literal	Discrete,0x11c,{0x00000000, 0x00028000}
00a6 00d9       |    |		Load_Top	At_Offset_1
00a7 0271       | q  |		Execute	Discrete,Times
00a8 00ba       |    |		Action	Initiate_Delay
00a9 00c8       |    |		Action	Pop_Auxiliary_Range
00aa 3fe0       |?   |		Loop_Increasing	0x8b
00ab 00ce       |    |		Action	Pop_Auxiliary
00ac 00da       |    |		Load_Top	At_Offset_2
00ad e001       |    |		Load	0x0,0x1
00ae 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
00af 7006       |p   |		Jump_Nonzero	0xb6
00b0 0092 0313  |    |		Action	Push_String_Extended,0x313					; "Error in connect"
00b2 00db       |    |		Load_Top	At_Offset_3
00b3 8217       |    |		Call	0x1,0x17
00b4 e007       |    |		Load	0x0,0x7
00b5 0257       | W  |		Execute	Discrete,Raise
00b6 4801       |H   |		Short_Literal	0x1
00b7 a215       |    |		Store_Unchecked	0x1,0x15
00b8 e5fe       |    |		Load	0x2,-0x2
00b9 00db       |    |		Load_Top	At_Offset_3
00ba e001       |    |		Load	0x0,0x1
00bb 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00bc e5fb       |    |		Load	0x2,-0x5
00bd 00db       |    |		Load_Top	At_Offset_3
00be 821a       |    |		Call	0x1,0x1a
00bf 00da       |    |		Load_Top	At_Offset_2
00c0 8216       |    |		Call	0x1,0x16
00c1 a403       |    |		Store_Unchecked	0x2,0x3
00c2 00db       |    |		Load_Top	At_Offset_3
00c3 0f02       |    |		Execute_Immediate	Equal,0x2
00c4 680b       |h   |		Jump_Zero	0xd0
00c5 e5fd       |    |		Load	0x2,-0x3
00c6 00db       |    |		Load_Top	At_Offset_3
00c7 e001       |    |		Load	0x0,0x1
00c8 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00c9 e5fb       |    |		Load	0x2,-0x5
00ca 00db       |    |		Load_Top	At_Offset_3
00cb 821a       |    |		Call	0x1,0x1a
00cc 00da       |    |		Load_Top	At_Offset_2
00cd 8216       |    |		Call	0x1,0x16
00ce a403       |    |		Store_Unchecked	0x2,0x3
00cf 7805       |x   |		Jump	0xd5
00d0 00db       |    |		Load_Top	At_Offset_3
00d1 0e01       |    |		Execute_Immediate	Not_Equal,0x1
00d2 6802       |h   |		Jump_Zero	0xd5
00d3 e007       |    |		Load	0x0,0x7
00d4 0257       | W  |		Execute	Discrete,Raise
00d5 00db       |    |		Load_Top	At_Offset_3
00d6 0f03       |    |		Execute_Immediate	Equal,0x3
00d7 6808       |h   |		Jump_Zero	0xe0
00d8 e5fc       |    |		Load	0x2,-0x4
00d9 00db       |    |		Load_Top	At_Offset_3
00da e001       |    |		Load	0x0,0x1
00db 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00dc e5fb       |    |		Load	0x2,-0x5
00dd 00db       |    |		Load_Top	At_Offset_3
00de 821a       |    |		Call	0x1,0x1a
00df 7805       |x   |		Jump	0xe5
00e0 00db       |    |		Load_Top	At_Offset_3
00e1 0e01       |    |		Execute_Immediate	Not_Equal,0x1
00e2 6802       |h   |		Jump_Zero	0xe5
00e3 e007       |    |		Load	0x0,0x7
00e4 0257       | W  |		Execute	Discrete,Raise
00e5 0092 0314  |    |		Action	Push_String_Extended,0x314					; "Account error"
00e7 00db       |    |		Load_Top	At_Offset_3
00e8 8217       |    |		Call	0x1,0x17
00e9 e004       |    |		Load	0x0,0x4
00ea 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00eb 4802       |H   |		Short_Literal	0x2
00ec 0092 0315  |    |		Action	Push_String_Extended,0x315					; "Acquired FTP connection to "
00ee e5ff       |    |		Load	0x2,-0x1
00ef 01cc       |    |		Execute	Vector,Catenate
00f0 e005       |    |		Load	0x0,0x5
00f1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00f2 e5f9       |    |		Load	0x2,-0x7
00f3 00ea       |    |		Load_Encached	Null_String_Cache
00f4 4800       |H   |		Short_Literal	0x0
00f5 00ea       |    |		Load_Encached	Null_String_Cache
00f6 e006       |    |		Load	0x0,0x6
00f7 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00f8 e006       |    |		Load	0x0,0x6
00f9 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00fa c5f9       |    |		Store	0x2,-0x7
00fb 00da       |    |		Load_Top	At_Offset_2
00fc c5fa       |    |		Store	0x2,-0x6
00fd 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
00fe			TRAP_0040:
00fe 0007       |    |		Action	Break_Optional
00ff e004       |    |		Load	0x0,0x4
0100 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0101 4801       |H   |		Short_Literal	0x1
0102 0092 0316  |    |		Action	Push_String_Extended,0x316					; "Can't open FTP connection to machine "
0104 e5ff       |    |		Load	0x2,-0x1
0105 01cc       |    |		Execute	Vector,Catenate
0106 e005       |    |		Load	0x0,0x5
0107 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0108 e5f9       |    |		Load	0x2,-0x7
0109 0092 0316  |    |		Action	Push_String_Extended,0x316					; "Can't open FTP connection to machine "
010b e5ff       |    |		Load	0x2,-0x1
010c 01cc       |    |		Execute	Vector,Catenate
010d 4802       |H   |		Short_Literal	0x2
010e 00ea       |    |		Load_Encached	Null_String_Cache
010f e006       |    |		Load	0x0,0x6
0110 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0111 e006       |    |		Load	0x0,0x6
0112 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0113 c5f9       |    |		Store	0x2,-0x7
0114 e215       |    |		Load	0x1,0x15
0115 6803       |h   |		Jump_Zero	0x119
0116 00db       |    |		Load_Top	At_Offset_3
0117 e001       |    |		Load	0x0,0x1
0118 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0119 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
011a 0000 0000  |    |		.XXX[0x2]
011c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00028000}
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 0317  |    |		Action	Push_String_Extended,0x317					; "FTP disconnect failed "
0140 e005       |    |		Load	0x0,0x5
0141 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0142 e5fd       |    |		Load	0x2,-0x3
0143 0092 0317  |    |		Action	Push_String_Extended,0x317					; "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 0318  |    |		Action	Push_String_Extended,0x318					; "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 0319  |    |		Action	Push_String_Extended,0x319					; "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 031a  |    |		Action	Push_String_Extended,0x31a					; "FTP transfer of "
01a2 e5ff       |    |		Load	0x2,-0x1
01a3 01cc       |    |		Execute	Vector,Catenate
01a4 0092 031b  |    |		Action	Push_String_Extended,0x31b					; " to "
01a6 01cc       |    |		Execute	Vector,Catenate
01a7 e5fe       |    |		Load	0x2,-0x2
01a8 01cc       |    |		Execute	Vector,Catenate
01a9 0092 031c  |    |		Action	Push_String_Extended,0x31c					; " 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 031d  |    |		Action	Push_String_Extended,0x31d					; "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 031e  |    |		Action	Push_String_Extended,0x31e					; "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 031f  |    |		Action	Push_String_Extended,0x31f					; "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 0320  |    |		Action	Push_String_Extended,0x320					; "FTP transfer to"
0212 e5ff       |    |		Load	0x2,-0x1
0213 01cc       |    |		Execute	Vector,Catenate
0214 0092 0321  |   !|		Action	Push_String_Extended,0x321					; " from "
0216 01cc       |    |		Execute	Vector,Catenate
0217 e5fe       |    |		Load	0x2,-0x2
0218 01cc       |    |		Execute	Vector,Catenate
0219 0092 031c  |    |		Action	Push_String_Extended,0x31c					; " 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 031d  |    |		Action	Push_String_Extended,0x31d					; "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 0322  |   "|		Action	Push_String_Extended,0x322					; "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 0323  |   #|		Action	Push_String_Extended,0x323					; "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 0324  |   $|		Action	Push_String_Extended,0x324					; "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 00cf       |    |		Action	Mark_Auxiliary
02e2 7813       |x   |		Jump	0x2f6
02e3 00e3       |    |		Load_Encached	Natural_Cache
02e4 00db       |    |		Load_Top	At_Offset_3
02e5 e5ff       |    |		Load	0x2,-0x1
02e6 e001       |    |		Load	0x0,0x1
02e7 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
02e8 00d1       |    |		Pop_Control	Pop_Count_1
02e9 005a       | Z  |		Store_Top	Discrete,At_Offset_2
02ea e5fe       |    |		Load	0x2,-0x2
02eb 6809       |h   |		Jump_Zero	0x2f5
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 6fe9       |o   |		Jump_Zero	0x2e3
02fa 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02fb 0000 0000  |    |		.BLANK	0000[0x5]
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 0030       | 0  |		.STRTAB	0x0030->0x0326							; "ftp.connect(\x22"
030f 003b       | ;  |		.STRTAB	0x003b->0x032c							; "\x22)"
0310 003b       | ;  |		.STRTAB	0x003b->0x032d							; "File_transfer.Open returned status "
0311 005c       | \  |		.STRTAB	0x005c->0x033f							; "Unable to form connection"
0312 0073       | s  |		.STRTAB	0x0073->0x034b							; ": will try again"
0313 0081       |    |		.STRTAB	0x0081->0x0353							; "Error in connect"
0314 008f       |    |		.STRTAB	0x008f->0x035b							; "Account error"
0315 009a       |    |		.STRTAB	0x009a->0x0362							; "Acquired FTP connection to "
0316 00b3       |    |		.STRTAB	0x00b3->0x036f							; "Can't open FTP connection to machine "
0317 00d6       |    |		.STRTAB	0x00d6->0x0382							; "FTP disconnect failed "
0318 00ea       |    |		.STRTAB	0x00ea->0x038d							; "Set file transfer type error"
0319 0104       |    |		.STRTAB	0x0104->0x039b							; "Error during FTP.PUT"
031a 0116       |    |		.STRTAB	0x0116->0x03a5							; "FTP transfer of "
031b 0124       | $  |		.STRTAB	0x0124->0x03ad							; " to "
031c 0126       | &  |		.STRTAB	0x0126->0x03af							; " failed"
031d 012b       | +  |		.STRTAB	0x012b->0x03b2							; "FTP transfer failed "
031e 013d       | =  |		.STRTAB	0x013d->0x03bc							; "Get file transfer type error"
031f 0157       | W  |		.STRTAB	0x0157->0x03ca							; "Error during FTP.GET"
0320 0169       | i  |		.STRTAB	0x0169->0x03d4							; "FTP transfer to"
0321 0176       | v  |		.STRTAB	0x0176->0x03dc							; " from "
0322 017a       | z  |		.STRTAB	0x017a->0x03df							; "set remote directory error"
0323 0192       |    |		.STRTAB	0x0192->0x03ec							; "Error when setting directory to "
0324 01b0       |    |		.STRTAB	0x01b0->0x03fc							; "Set remote directory failed "
0325 01ca       |    |		.STREND 0x01ca->0x040a
0326 6674 702e  |ftp.|		.STRTAB_STRINGS
040a 0000 0000  |    |		.BLANK	0000[0x6]
0410 ; --------------------------------------------------------------------------------------
0410 ; Debug Table
0410 ; --------------------------------------------------------------------------------------
0410 0004 000c  |    |		.DEBUG4	0x0004,0x000c,0xaaaf,0x0000,0x0001,0x0000
0416 0000 0400  |    |		.XXX[0x19]
0418 0d0a a858  |   X|
041a 0000 0400  |    |
041c 0000 5585  |  U |
041e 01a1 550b  |  U |
0420 0000 0080  |    |
0422 40cb d2f2  |@   |
0424 7b61 8000  |{a  |
0426 0280 0000  |    |
0428 0480 0032  |   2|
042a 9400 0000  |    |
042c 0100 0000  |    |
042e 0100       |    |
042f 0000 0000  |    |		.BLANK	0000[0x6]
0435 0010 7080  |  p |		.XXX[0x2]
0437 0000 0000  |    |		.BLANK	0000[0x8]
043f 2000 0000  |    |		.XXX[0x1a]
0441 0000 0000  |    |
0443 2000 0993  |    |
0445 6026 a404  |`&  |
0447 4000 0000  |@   |
0449 0000 0000  |    |
044b 0013 524f  |  RO|
044d 7000 02ec  |p   |
044f 7681 9808  |v   |
0451 51cb 7900  |Q y |
0453 0005 40e1  |  @ |
0455 a530 2ed7  | 0. |
0457 8000 0900  |    |
0459 0000 0000  |    |		.BLANK	0000[0x4]
045d 03a0 da16  |    |		.XXX[0x1b]
045f 0000 0100  |    |
0461 03a5 7216  |  r |
0463 0000 0100  |    |
0465 4000 0000  |@   |
0467 0074 ae42  | t B|
0469 c000 0020  |    |
046b 1033 0112  | 3  |
046d 66c0 2000  |f   |
046f 00a0 0000  |    |
0471 0120 000c  |    |
0473 b000 0000  |    |
0475 0040 0000  | @  |
0477 0008       |    |
0478 0000 0000  |    |		.BLANK	0000[0x5]
047d 0002 0660  |   `|		.XXX[0x25]
047f 2147 8ee4  |!G  |
0481 0000 1400  |    |
0483 0000 2400  |  $ |
0485 0196 0000  |    |
0487 0000 0800  |    |
0489 0000 0000  |    |
048b 0000 0800  |    |
048d 0284 6009  |  ` |
048f a925 a009  | %  |
0491 a8fc 0809  |    |
0493 a9d7 6c04  |  l |
0495 d4a6 2400  |  $ |
0497 01ec cd20  |    |
0499 6fe3 3a1a  |o : |
049b b700 0008  |    |
049d d038 6945  | 8iE|
049f 57e5 c000  |W   |
04a1 0240       | @  |
04a2 0000 0000  |    |		.BLANK	0000[0x4]
04a6 01c1 fe85  |    |		.XXX[0x19]
04a8 8000 0040  |   @|
04aa 01c8 3685  |  6 |
04ac 8000 0040  |   @|
04ae 0000 0000  |    |
04b0 0038 3fd0  | 8? |
04b2 b000 0008  |    |
04b4 040d fca5  |    |
04b6 646b 9800  |dk  |
04b8 0118 0000  |    |
04ba 0048 0002  | H  |
04bc e880 0000  |    |
04be 0010       |    |
04bf 0000 0000  |    |		.BLANK	0000[0x8]
04c7 81bf 8cea  |    |		.XXX[0x24]
04c9 a708 0000  |    |
04cb 2300 0000  |#   |
04cd 0900 005d  |   ]|
04cf 1000 0000  |    |
04d1 0200 0000  |    |
04d3 0000 0000  |    |
04d5 0200 00d0  |    |
04d7 6402 6a52  |d jR|
04d9 8c00 0000  |    |
04db 0000 0000  |    |
04dd 0001 352e  |  5.|
04df 1b00 0005  |    |
04e1 a668 1c04  | h  |
04e3 c98e 47e0  |  G |
04e5 0000 1418  |    |
04e7 7890 7c5c  |x |\|
04e9 0800 0009  |    |
04eb 0000 0000  |    |		.BLANK	0000[0x4]
04ef 005a a3a1  | Z  |		.XXX[0x1b]
04f1 4000 0010  |@   |
04f3 005a a421  | Z !|
04f5 4000 0010  |@   |
04f7 0000 019b  |    |
04f9 140b 5484  |  T |
04fb 2800 0002  |(   |
04fd 0103 8099  |    |
04ff 3307 f600  |3   |
0501 0002 0000  |    |
0503 0012 0001  |    |
0505 0014 0000  |    |
0507 0004 0000  |    |
0509 0004       |    |
050a 0000 0000  |    |		.BLANK	0000[0x7]
0511 41c2       |A   |		.XXX[0x1]
0512 0000 0000  |    |		.BLANK	0000[0x8]
051a 0080 0000  |    |		.XXX[0x1a]
051c 0000 0000  |    |
051e 0080 0036  |   6|
0520 1180 9a96  |    |
0522 ec00 9a96  |    |
0524 9b80 9a9b  |    |
0526 2d80 4d4c  |- ML|
0528 ab40 0026  | @ &|
052a 0d5a 07cd  | Z  |
052c 09c1 e230  |   0|
052e 0000 c903  |    |
0530 e684 ee99  |    |
0532 a400 0064  |   d|
0534 0000 0000  |    |		.BLANK	0000[0x4]
0538 0064 a748  | d H|		.XXX[0x1b]
053a 5000 0004  |P   |
053c 0064 a8e8  | d  |
053e 5000 0004  |P   |
0540 0000 0000  |    |
0542 000c 94e9  |    |
0544 0a00 0000  |    |
0546 8040 f9a1  | @  |
0548 38f2 1980  |8   |
054a 0019 0000  |    |
054c 0004 8000  |    |
054e 5e5f 0000  |^_  |
0550 0001 0000  |    |
0552 0001       |    |
0553 0000 0000  |    |		.BLANK	0000[0x6]
0559 081f 3427  |  4'|		.XXX[0x13]
055b 0b9c 4000  |  @ |
055d 0320 0000  |    |
055f 0090 000b  |    |
0561 cbe0 0000  |    |
0563 0020 0000  |    |
0565 0020 0000  |    |
0567 0020 0021  |   !|
0569 b780 26a6  |  & |
056b 4d40       |M@  |
056c 0000 0000  |    |		.BLANK	0000[0x4]
0570 1353 73f0  | Ss |		.XXX[0x2d]
0572 001b 1de2  |    |
0574 8215 6dd1  |  m |
0576 5297 0000  |R   |
0578 1241 8789  | A  |
057a 1a59 5580  | YU |
057c 0000 9000  |    |
057e 0000 0000  |    |
0580 0000 0025  |   %|
0582 1e22 1400  | "  |
0584 0001 0025  |   %|
0586 1e2a 1400  | *  |
0588 0001 0000  |    |
058a 0011 89c4  |    |
058c a3c5 4280  |  B |
058e 0000 2010  |    |
0590 42ad ba6f  |B  o|
0592 8dc0 0002  |    |
0594 4000 0001  |@   |
0596 2000 0a5d  |   ]|
0598 4000 0000  |@   |
059a 4000 0000  |@   |
059c 4000       |@   |
059d 0000 0000  |    |		.BLANK	0000[0x6]
05a3 041c 2000  |    |		.XXX[0x2]
05a5 0000 0000  |    |		.BLANK	0000[0x7]
05ac 0008 0000  |    |		.XXX[0x3a]
05ae 0000 0000  |    |
05b0 0008 000b  |    |
05b2 8228 09a9  | (  |
05b4 b7e0 09a9  |    |
05b6 8e48 09aa  | H  |
05b8 2088 04d4  |    |
05ba ef44 0006  | D  |
05bc aea1 a085  |    |
05be 923b 236c  | ;#l|
05c0 c000 0690  |    |
05c2 61e2 457a  |a Ez|
05c4 4da0 0000  |M   |
05c6 2000 0000  |    |
05c8 0000 0000  |    |
05ca 0009 6c9a  |  l |
05cc 8500 0000  |    |
05ce 4009 6c9c  |@ l |
05d0 8500 0000  |    |
05d2 4000 000b  |@   |
05d4 1fd1 2d93  |  - |
05d6 90a0 0000  |    |
05d8 0804 10b2  |    |
05da 476c c818  |Gl  |
05dc 0000 d000  |    |
05de 0000 4800  |  H |
05e0 068d b000  |    |
05e2 0000 1000  |    |
05e4 0000 1000  |    |
05e6 0000 0000  |    |		.BLANK	0000[0x6]
05ec 0107 0800  |    |		.XXX[0x2]
05ee 0000 0000  |    |		.BLANK	0000[0x7]
05f5 0002 0000  |    |		.XXX[0xb]
05f7 0000 0000  |    |
05f9 0002 0002  |    |
05fb e86c 026a  | l j|
05fd 771c 0000  |w   |
05ff 0000       |    |