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

⟦dcb26da3e⟧

    Length: 3072 (0xc00)
    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 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 000d  |    |		.DEBUG4	0x0004,0x000d,0x8248,0x0000,0x0001,0x0000
0416 e212 1911  |    |		.XXX[0x1ea]
0418 e212 1914  |    |
041a e212 1910  |    |
041c e20e 1b10  |    |
041e e21e 190d  |    |
0420 e20e 190e  |    |
0422 e20f e20d  |    |
0424 e210 1914  |    |
0426 e21f e218  |    |
0428 e212 1b0f  |    |
042a e214 1910  |    |
042c e212 1916  |    |
042e 480f e226  |H  &|
0430 020e 00d8  |    |
0432 020f e225  |   %|
0434 1b12 e226  |   &|
0436 1b12 e20e  |    |
0438 1b0f e212  |    |
043a 1911 e212  |    |
043c 1914 e212  |    |
043e 1910 e225  |   %|
0440 190e e226  |   &|
0442 190e e20e  |    |
0444 1b10 e21e  |    |
0446 190d e20e  |    |
0448 190e e20f  |    |
044a e20d e210  |    |
044c 1914 e226  |   &|
044e 190f e225  |   %|
0450 190f e21f  |    |
0452 e218 e214  |    |
0454 1b0e e212  |    |
0456 1b0f e214  |    |
0458 1910 e225  |   %|
045a 1910 e226  |   &|
045c 1910 e212  |    |
045e 1916 4818  |  H |
0460 e224 020e  | $  |
0462 e224 020f  | $  |
0464 e224 1b12  | $  |
0466 e212 1911  |    |
0468 e212 1910  |    |
046a e224 190e  | $  |
046c e20e 1b10  |    |
046e e21e 190d  |    |
0470 e20e 190e  |    |
0472 e20f e210  |    |
0474 1914 e224  |   $|
0476 190f e210  |    |
0478 1916 e210  |    |
047a 1917 e218  |    |
047c e21f e224  |   $|
047e 1910 e212  |    |
0480 1916 4810  |  H |
0482 e223 020e  | #  |
0484 e223 020f  | #  |
0486 e223 1b12  | #  |
0488 e215 1b12  |    |
048a e212 1911  |    |
048c e212 1910  |    |
048e e223 190e  | #  |
0490 e215 190e  |    |
0492 e20e 1b10  |    |
0494 e21e 190d  |    |
0496 e20e 190e  |    |
0498 e20f e210  |    |
049a 1914 e210  |    |
049c 1916 e210  |    |
049e 1917 e223  |   #|
04a0 190f e215  |    |
04a2 190f e214  |    |
04a4 1b0e e214  |    |
04a6 1914 e223  |   #|
04a8 1910 e214  |    |
04aa 1b0f e215  |    |
04ac 1910 e214  |    |
04ae 1915 e212  |    |
04b0 1916 4816  |  H |
04b2 e222 020e  | "  |
04b4 e222 020f  | "  |
04b6 4800 6318  |H c |
04b8 02a0 038e  |    |
04ba 4801 4800  |H H |
04bc 00e5 02a0  |    |
04be 4801 035d  |H  ]|
04c0 0337 4801  | 7H |
04c2 e227 020e  | '  |
04c4 0387 4803  |  H |
04c6 6305 02a0  |c   |
04c8 038c 4801  |  H |
04ca 4800 00e5  |H   |
04cc 02a0 4801  |  H |
04ce 035d 0337  | ] 7|
04d0 4801 e228  |H  (|
04d2 020e e20f  |    |
04d4 4801 e228  |H  (|
04d6 020e 00d8  |    |
04d8 020d 4801  |  H |
04da 4801 e222  |H  "|
04dc 1b12 e228  |   (|
04de e214 1b0e  |    |
04e0 4810 e218  |H   |
04e2 e21f e220  |    |
04e4 1b0d e20e  |    |
04e6 1b0f e20d  |    |
04e8 e220 1913  |    |
04ea e20e 190d  |    |
04ec e214 1b0d  |    |
04ee e20f 4811  |  H |
04f0 e222 1910  | "  |
04f2 e21e 190d  |    |
04f4 4812 e227  |H  '|
04f6 020e e227  |   '|
04f8 020f 4800  |  H |
04fa 62cd 02a0  |b   |
04fc 038e 4801  |  H |
04fe 4800 00e5  |H   |
0500 02a0 4801  |  H |
0502 035d 0337  | ] 7|
0504 4801 e229  |H  )|
0506 020e 0387  |    |
0508 e21f 4802  |  H |
050a 4801 e20e  |H   |
050c 1b0f e228  |   (|
050e e218 e220  |    |
0510 1b0d e214  |    |
0512 1b0e e214  |    |
0514 1b0f e220  |    |
0516 1913 e20e  |    |
0518 190d e214  |    |
051a 1b0d e20f  |    |
051c 4811 e20d  |H   |
051e e21e 190d  |    |
0520 e213 e220  |    |
0522 1b0e e220  |    |
0524 1914 4810  |  H |
0526 4814 e229  |H  )|
0528 020e 00d8  |    |
052a 020f e20e  |    |
052c 1b0f e218  |    |
052e e21f e220  |    |
0530 1b0d e214  |    |
0532 1b0e e214  |    |
0534 1b0f e220  |    |
0536 1913 e20e  |    |
0538 190d e214  |    |
053a 1b0d e20f  |    |
053c e21e 190d  |    |
053e e220 1b0e  |    |
0540 e220 1914  |    |
0542 e20d e229  |   )|
0544 190e e220  |    |
0546 1b0f e220  |    |
0548 1915 e220  |    |
054a 1b11 e220  |    |
054c 1b10 e227  |   '|
054e 190e 4814  |  H |
0550 e221 020e  | !  |
0552 e221 020f  | !  |
0554 4800 626e  |H bn|
0556 02a0 038e  |    |
0558 4801 4800  |H H |
055a 00e5 02a0  |    |
055c 4801 035d  |H  ]|
055e 0337 4801  | 7H |
0560 e22a 020e  | *  |
0562 0387 e218  |    |
0564 e21f e220  |    |
0566 1b0d e214  |    |
0568 1b0e e20e  |    |
056a 1b0f e20d  |    |
056c e220 1913  |    |
056e e20e 190d  |    |
0570 e214 1b0d  |    |
0572 e20f e21e  |    |
0574 190d e220  |    |
0576 1b0e e220  |    |
0578 1914 e220  |    |
057a 1b11 e220  |    |
057c 1b10 e227  |   '|
057e 190e e214  |    |
0580 1b0f e229  |   )|
0582 190e e220  |    |
0584 1b0f e220  |    |
0586 1915 4814  |  H |
0588 e22a 020e  | *  |
058a 00d8 020f  |    |
058c e21a 1b12  |    |
058e e21b 1b12  |    |
0590 e21a 190e  |    |
0592 e21b 190e  |    |
0594 e20e 1b10  |    |
0596 e21e 190d  |    |
0598 e20e 190e  |    |
059a e20f e21a  |    |
059c 190f e21b  |    |
059e 190f e214  |    |
05a0 1b0e e21f  |    |
05a2 e21a 1910  |    |
05a4 e218 e21b  |    |
05a6 1910 e22a  |   *|
05a8 190d e229  |   )|
05aa 190d e227  |   '|
05ac 190e e214  |    |
05ae 1b0f e221  |   !|
05b0 190d e21a  |    |
05b2 1911 e212  |    |
05b4 1916 4816  |  H |
05b6 e219 020e  |    |
05b8 e219 020f  |    |
05ba 4800 6204  |H b |
05bc 02a0 038e  |    |
05be 4801 4800  |H H |
05c0 00e5 02a0  |    |
05c2 4801 035d  |H  ]|
05c4 0337 4801  | 7H |
05c6 e22b 020e  | +  |
05c8 0387 e219  |    |
05ca 1b12 e20e  |    |
05cc 1b0f e212  |    |
05ce 1911 e212  |    |
05d0 1914 e212  |    |
05d2 1910 e219  |    |
05d4 190e e20e  |    |
05d6 1b10 e21e  |    |
05d8 190d e20e  |    |
05da 190e e20f  |    |
05dc e20d e210  |    |
05de 1914 e219  |    |
05e0 190f e214  |    |
05e2 1b0e e212  |    |
05e4 1b0f e218  |    |
05e6 e220 1b12  |    |
05e8 e214 1b0f  |    |
05ea e219 1910  |    |
05ec e21f e212  |    |
05ee 1916 4815  |  H |
05f0 e22b 020e  | +  |
05f2 00d8 020f  |    |
05f4 4800 61c6  |H a |
05f6 02a0 038e  |    |
05f8 4801 4800  |H H |
05fa 00e5 02a0  |    |
05fc 4801 035d  |H  ]|
05fe 0337 4801  | 7H |