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

⟦07ae2ea87⟧

    Length: 4096 (0x1000)
    Notes: 00_class, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0

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 5811       |X   |		.CONST	0x5811								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0510       |    |		.CONST	0x0510								; 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 0003       |    |		.CONST	0x0003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 002a       | *  |		.CONST	0x002a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0014       |    |		.CONST	0x0014								; Number of locals
000b			INIT_0008:
000b 029a 0033  |   3|		Declare_Subprogram	INIT_0030,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x05c2,0x8000,0x0000,0x0037,0x0084,0x0000,0x0009
													; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 0043  |   C|		Declare_Subprogram	INIT_0040,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x15,0xfffa
0017 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x17,0xfff9
0019 00bf       |    |		Action	Accept_Activation
001a 029d 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call			; Debug Table 0x1 = .DEBUG	0x001a,0x05d2,0x8000,0x0000,0x0037,0x0124,0x0000,0x000b
													; Debug Table 0x1.0x0 = 0x1a,0xffff
001c 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x1 = 0x1c,0xfffe
001d 00c7       |    |		Action	Elaborate_Subprogram
001e 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x2 = 0x1e,0xfffd
001f 00c7       |    |		Action	Elaborate_Subprogram
0020 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x3 = 0x20,0xfffc
0021 00c7       |    |		Action	Elaborate_Subprogram
0022 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x4 = 0x22,0xfffb
0023 00c7       |    |		Action	Elaborate_Subprogram
0024 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x5 = 0x24,0xfffa
0025 00c7       |    |		Action	Elaborate_Subprogram
0026 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0x6 = 0x26,0xfff9
0027 00c7       |    |		Action	Elaborate_Subprogram
0028 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0x7 = 0x28,0xfff8
0029 00c7       |    |		Action	Elaborate_Subprogram
002a			BODY_0008:
002a 00bc       |    |		Action	Signal_Activated
002b 00bb       |    |		Action	Signal_Completion
002c 0000 0000  |    |		.BLANK	0000[0x4]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0039       | 9  |		.CONST	0x0039								; Address of begin
0031 0004       |    |		.CONST	0x0004								; Address of exception handler
0032 0004       |    |		.CONST	0x0004								; Number of locals
0033			INIT_0030:
0033 e001       |    |		Load	0x0,0x1								; Debug Table 0x2 = .DEBUG	0x0033,0x05e4,0x0001,0x0000,0x0037,0x0084,0x0000,0x000a
													; Debug Table 0x2.0x0 = 0x33,0xffff
0034 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0035 029f 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Call
0037 029f 0103  |    |		Declare_Subprogram	INIT_0100,For_Call
0039			BODY_0030:
0039 8403       |    |		Call	0x2,0x3								; Debug Table 0x2.0x1 = 0x39,0x1
003a 8404       |    |		Call	0x2,0x4								; Debug Table 0x2.0x2 = 0x3a,0x2
003b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
003c 0000 0000  |    |		.BLANK	0000[0x4]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0049       | I  |		.CONST	0x0049								; Address of begin
0041 0004       |    |		.CONST	0x0004								; Address of exception handler
0042 0004       |    |		.CONST	0x0004								; Number of locals
0043			INIT_0040:
0043 e001       |    |		Load	0x0,0x1								; Debug Table 0x3 = .DEBUG	0x0043,0x05ec,0x0001,0x0000,0x0037,0x0084,0x0000,0x0014
													; Debug Table 0x3.0x0 = 0x43,0xffff
0044 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0045 029f 0123  |   #|		Declare_Subprogram	INIT_0120,For_Call
0047 029f 0163  |   c|		Declare_Subprogram	INIT_0160,For_Call
0049			BODY_0040:
0049 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3.0x1 = 0x49,0x1
004a a5fa       |    |		Store_Unchecked	0x2,-0x6
004b e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x3.0x2 = 0x4b,0x2
004c 4601       |F   |		Jump_Case	0x2
004d 7803       |x   |		Jump	0x51								; case 0x0
004e 7800       |x   |		Jump	0x4f								; case 0x1
004f 8403       |    |		Call	0x2,0x3								; Debug Table 0x3.0x3 = 0x4f,0x3
0050 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0051 8404       |    |		Call	0x2,0x4								; Debug Table 0x3.0x4 = 0x51,0x4
0052 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0053 0000 0000  |    |		.BLANK	0000[0x5]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0066       | f  |		.CONST	0x0066								; Address of begin
0059 0004       |    |		.CONST	0x0004								; Address of exception handler
005a 0005       |    |		.CONST	0x0005								; Number of locals
005b			INIT_0058:
005b e001       |    |		Load	0x0,0x1								; Debug Table 0x4 = .DEBUG	0x005b,0x05f8,0x0001,0x0000,0x0037,0x0084,0x0000,0x0036
													; Debug Table 0x4.0x0 = 0x5b,0xffff
005c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
005d e002       |    |		Load	0x0,0x2								; Debug Table 0x4.0x1 = 0x5d,0xfffe
005e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
005f 02c7       |    |		Declare_Variable	Any
0060 00d8       |    |		Load_Top	At_Offset_0
0061 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0062 029f 01db  |    |		Declare_Subprogram	INIT_01d8,For_Call
0064 029f 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Call
0066			BODY_0058:
0066 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0x2 = 0x66,0x1
0067 a5fa       |    |		Store_Unchecked	0x2,-0x6
0068 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x4.0x3 = 0x68,0x2
0069 4601       |F   |		Jump_Case	0x2
006a 7803       |x   |		Jump	0x6e								; case 0x0
006b 7800       |x   |		Jump	0x6c								; case 0x1
006c 8404       |    |		Call	0x2,0x4								; Debug Table 0x4.0x4 = 0x6c,0x3
006d 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
006e 8405       |    |		Call	0x2,0x5								; Debug Table 0x4.0x5 = 0x6e,0x4
006f 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0079       | y  |		.CONST	0x0079								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0004       |    |		.CONST	0x0004								; Number of locals
0073			INIT_0070:
0073 e001       |    |		Load	0x0,0x1								; Debug Table 0x5 = .DEBUG	0x0073,0x0606,0x0001,0x0000,0x0037,0x0084,0x0000,0x0058
													; Debug Table 0x5.0x0 = 0x73,0xffff
0074 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0075 029f 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Call
0077 029f 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Call
0079			BODY_0070:
0079 4800       |H   |		Short_Literal	0x0							; Debug Table 0x5.0x1 = 0x79,0x1
007a a5fb       |    |		Store_Unchecked	0x2,-0x5
007b e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x5.0x2 = 0x7b,0x2
007c 4601       |F   |		Jump_Case	0x2
007d 7803       |x   |		Jump	0x81								; case 0x0
007e 7800       |x   |		Jump	0x7f								; case 0x1
007f 8403       |    |		Call	0x2,0x3								; Debug Table 0x5.0x3 = 0x7f,0x3
0080 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0081 8404       |    |		Call	0x2,0x4								; Debug Table 0x5.0x4 = 0x81,0x4
0082 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0083 0000 0000  |    |		.BLANK	0000[0x5]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0091       |    |		.CONST	0x0091								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0004       |    |		.CONST	0x0004								; Number of locals
008b			INIT_0088:
008b e001       |    |		Load	0x0,0x1								; Debug Table 0x6 = .DEBUG	0x008b,0x0612,0x0001,0x0000,0x0037,0x0084,0x0000,0x0076
													; Debug Table 0x6.0x0 = 0x8b,0xffff
008c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
008d 029f 0343  |   C|		Declare_Subprogram	INIT_0340,For_Call
008f 029f 035b  |   [|		Declare_Subprogram	INIT_0358,For_Call
0091			BODY_0088:
0091 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x6.0x1 = 0x91,0x1
0092 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0093 4601       |F   |		Jump_Case	0x2
0094 7803       |x   |		Jump	0x98								; case 0x0
0095 7800       |x   |		Jump	0x96								; case 0x1
0096 8403       |    |		Call	0x2,0x3								; Debug Table 0x6.0x2 = 0x96,0x2
0097 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0098 8404       |    |		Call	0x2,0x4								; Debug Table 0x6.0x3 = 0x98,0x3
0099 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
009a 0000 0000  |    |		.BLANK	0000[0x6]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a9       |    |		.CONST	0x00a9								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0004       |    |		.CONST	0x0004								; Number of locals
00a3			INIT_00a0:
00a3 e001       |    |		Load	0x0,0x1								; Debug Table 0x7 = .DEBUG	0x00a3,0x061c,0x0001,0x0000,0x0037,0x0084,0x0000,0x0084
													; Debug Table 0x7.0x0 = 0xa3,0xffff
00a4 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00a5 029f 038b  |    |		Declare_Subprogram	INIT_0388,For_Call
00a7 029f 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Call
00a9			BODY_00a0:
00a9 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x7.0x1 = 0xa9,0x1
00aa 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00ab 4601       |F   |		Jump_Case	0x2
00ac 7803       |x   |		Jump	0xb0								; case 0x0
00ad 7800       |x   |		Jump	0xae								; case 0x1
00ae 8403       |    |		Call	0x2,0x3								; Debug Table 0x7.0x2 = 0xae,0x2
00af 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00b0 8404       |    |		Call	0x2,0x4								; Debug Table 0x7.0x3 = 0xb0,0x3
00b1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00b2 0000 0000  |    |		.BLANK	0000[0x6]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb 4801       |H   |		Short_Literal	0x1							; Debug Table 0x8 = .DEBUG	0x00bb,0x0626,0x0002,0x0000,0x0037,0x0084,0x0000,0x0092
													; Debug Table 0x8.0x0 = 0xbb,0x1
00bc 00db       |    |		Load_Top	At_Offset_3
00bd 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00be e5ff       |    |		Load	0x2,-0x1
00bf 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
00c0 01cf       |    |		Execute	Vector,Slice_Read
00c1 0335       | 5  |		Declare_Variable	Array,Duplicate
00c2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c3 0000 0000  |    |		.BLANK	0000[0x5]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9 = .DEBUG	0x00cb,0x062a,0x0001,0x0000,0x0037,0x0124,0x0000,0x000c
													; Debug Table 0x9.0x0 = 0xcb,0x1
00cc 01db       |    |		Execute	Vector,Length
00cd 0c51       | Q  |		Execute_Immediate	Greater_Equal,0x51
00ce 680a       |h   |		Jump_Zero	0xd9
00cf 4801       |H   |		Short_Literal	0x1							; Debug Table 0x9.0x1 = 0xcf,0x2
00d0 4850       |HP  |		Short_Literal	0x50
00d1 e5ff       |    |		Load	0x2,-0x1
00d2 01cf       |    |		Execute	Vector,Slice_Read
00d3 e5fe       |    |		Load	0x2,-0x2
00d4 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00d5 4850       |HP  |		Short_Literal	0x50							; Debug Table 0x9.0x2 = 0xd5,0x3
00d6 e5fe       |    |		Load	0x2,-0x2
00d7 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
00d8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00d9 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9.0x3 = 0xd9,0x4
00da 4801       |H   |		Short_Literal	0x1
00db e5ff       |    |		Load	0x2,-0x1
00dc 01db       |    |		Execute	Vector,Length
00dd e5fe       |    |		Load	0x2,-0x2
00de 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00df 01ce       |    |		Execute	Vector,Slice_Write
00e0 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x9.0x4 = 0xe0,0x5
00e1 01db       |    |		Execute	Vector,Length
00e2 e5fe       |    |		Load	0x2,-0x2
00e3 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
00e4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00e5 0000 0000  |    |		.XXX[0x3]
00e7 0000       |    |
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 00fb       |    |		.CONST	0x00fb								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xa = .DEBUG	0x00eb,0x0636,0x0004,0x0000,0x0037,0x0124,0x0000,0x0078
													; Debug Table 0xa.0x0 = 0xeb,0x1
00ec 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00ed 0229       | )  |		Execute	Access,All_Read
00ee e002       |    |		Load	0x0,0x2
00ef 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
00f0 6809       |h   |		Jump_Zero	0xfa
00f1 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xa.0x1 = 0xf1,0x2
00f2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00f3 00d8       |    |		Load_Top	At_Offset_0
00f4 0229       | )  |		Execute	Access,All_Read
00f5 e002       |    |		Load	0x0,0x2
00f6 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00f7 00d9       |    |		Load_Top	At_Offset_1
00f8 0228       | (  |		Execute	Access,All_Write
00f9 00d1       |    |		Pop_Control	Pop_Count_1
00fa 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00fb			TRAP_00e8:
00fb 0007       |    |		Action	Break_Optional
00fc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0xa.0x2 = 0xfc,0x3
00fd 0000 0000  |    |		.XXX[0x3]
00ff 0000       |    |
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0118       |    |		.CONST	0x0118								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xb = .DEBUG	0x0103,0x063e,0x0004,0x0000,0x0037,0x0124,0x0000,0x0099
													; Debug Table 0xb.0x0 = 0x103,0x1
0104 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0105 0227       | '  |		Execute	Access,All_Reference
0106 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0107 e001       |    |		Load	0x0,0x1
0108 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0109 680d       |h   |		Jump_Zero	0x117
010a e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xb.0x1 = 0x10a,0x2
010b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
010c 0229       | )  |		Execute	Access,All_Read
010d e001       |    |		Load	0x0,0x1
010e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
010f 00d9       |    |		Load_Top	At_Offset_1
0110 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0111 e001       |    |		Load	0x0,0x1
0112 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0113 00da       |    |		Load_Top	At_Offset_2
0114 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0115 c402       |    |		Store	0x2,0x2
0116 00d1       |    |		Pop_Control	Pop_Count_1
0117 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0118			TRAP_0100:
0118 0007       |    |		Action	Break_Optional
0119 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0xb.0x2 = 0x119,0x3
011a 0000 0000  |    |		.BLANK	0000[0x6]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 014a       | J  |		.CONST	0x014a								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xc = .DEBUG	0x0123,0x0646,0x0004,0x0000,0x0037,0x0124,0x0000,0x0121
													; Debug Table 0xc.0x0 = 0x123,0x1
0124 6810       |h   |		Jump_Zero	0x135
0125 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xc.0x1 = 0x125,0x2
0126 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0127 00d8       |    |		Load_Top	At_Offset_0
0128 0229       | )  |		Execute	Access,All_Read
0129 e5fc       |    |		Load	0x2,-0x4
012a e003       |    |		Load	0x0,0x3
012b 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
012c 00ea       |    |		Load_Encached	Null_String_Cache
012d e5ff       |    |		Load	0x2,-0x1
012e 4800       |H   |		Short_Literal	0x0
012f e002       |    |		Load	0x0,0x2
0130 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0131 00d9       |    |		Load_Top	At_Offset_1
0132 0228       | (  |		Execute	Access,All_Write
0133 00d1       |    |		Pop_Control	Pop_Count_1
0134 780f       |x   |		Jump	0x144
0135 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xc.0x2 = 0x135,0x3
0136 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0137 00d8       |    |		Load_Top	At_Offset_0
0138 0229       | )  |		Execute	Access,All_Read
0139 e5fc       |    |		Load	0x2,-0x4
013a e003       |    |		Load	0x0,0x3
013b 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
013c 00ea       |    |		Load_Encached	Null_String_Cache
013d e5ff       |    |		Load	0x2,-0x1
013e 4801       |H   |		Short_Literal	0x1
013f e002       |    |		Load	0x0,0x2
0140 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0141 00d9       |    |		Load_Top	At_Offset_1
0142 0228       | (  |		Execute	Access,All_Write
0143 00d1       |    |		Pop_Control	Pop_Count_1
0144 4801       |H   |		Short_Literal	0x1							; Debug Table 0xc.0x3 = 0x144,0x4
0145 e5fb       |    |		Load	0x2,-0x5
0146 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0147 4801       |H   |		Short_Literal	0x1							; Debug Table 0xc.0x4 = 0x147,0x5
0148 a5fa       |    |		Store_Unchecked	0x2,-0x6
0149 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
014a			TRAP_0120:
014a 4931       |I1  |		Short_Literal	0x131
014b 010f       |    |		Execute	Exception,Equal
014c 6805       |h   |		Jump_Zero	0x152
014d e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xc.0x5 = 0x14d,0x6
014e 0092 03d0  |    |		Action	Push_String_Extended,0x3d0					; "550 Access denied to file"
0150 8214       |    |		Call	0x1,0x14
0151 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0152 4935       |I5  |		Short_Literal	0x135
0153 010f       |    |		Execute	Exception,Equal
0154 6805       |h   |		Jump_Zero	0x15a
0155 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xc.0x6 = 0x155,0x7
0156 0092 03d1  |    |		Action	Push_String_Extended,0x3d1					; "450 File is busy"
0158 8214       |    |		Call	0x1,0x14
0159 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
015a e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xc.0x7 = 0x15a,0x8
015b 0092 03d2  |    |		Action	Push_String_Extended,0x3d2					; "553 Could not open file"
015d 8214       |    |		Call	0x1,0x14
015e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
015f 0000       |    |		.XXX[0x1]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163       | c  |		.CONST	0x0163								; Address of begin
0161 01c0       |    |		.CONST	0x01c0								; Address of exception handler
0162 0001       |    |		.CONST	0x0001								; Number of locals
0163			BODY_0160:
0163			INIT_0160:
0163 e001       |    |		Load	0x0,0x1								; Debug Table 0xd = .DEBUG	0x0163,0x0658,0x0004,0x0000,0x0037,0x0124,0x0000,0x01c1
													; Debug Table 0xd.0x0 = 0x163,0x1
0164 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0165 e5fb       |    |		Load	0x2,-0x5
0166 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0167 0227       | '  |		Execute	Access,All_Reference
0168 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0169 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xd.0x1 = 0x169,0x2
016a 6818       |h   |		Jump_Zero	0x183
016b e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xd.0x2 = 0x16b,0x3
016c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
016d 0229       | )  |		Execute	Access,All_Read
016e e001       |    |		Load	0x0,0x1
016f 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0170 00d9       |    |		Load_Top	At_Offset_1
0171 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0172 4800       |H   |		Short_Literal	0x0
0173 6258       |bX  |		Indirect_Literal	Discrete,0x3cc,{0x00000000, 0x00004000}
0174 e5fc       |    |		Load	0x2,-0x4
0175 e004       |    |		Load	0x0,0x4
0176 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0177 e001       |    |		Load	0x0,0x1
0178 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0179 4800       |H   |		Short_Literal	0x0
017a e5ff       |    |		Load	0x2,-0x1
017b 4800       |H   |		Short_Literal	0x0
017c e001       |    |		Load	0x0,0x1
017d 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
017e 00da       |    |		Load_Top	At_Offset_2
017f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0180 c402       |    |		Store	0x2,0x2
0181 00d1       |    |		Pop_Control	Pop_Count_1
0182 7817       |x   |		Jump	0x19a
0183 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xd.0x3 = 0x183,0x4
0184 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0185 0229       | )  |		Execute	Access,All_Read
0186 e001       |    |		Load	0x0,0x1
0187 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0188 00d9       |    |		Load_Top	At_Offset_1
0189 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
018a 4800       |H   |		Short_Literal	0x0
018b 6240       |b@  |		Indirect_Literal	Discrete,0x3cc,{0x00000000, 0x00004000}
018c e5fc       |    |		Load	0x2,-0x4
018d e004       |    |		Load	0x0,0x4
018e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
018f e001       |    |		Load	0x0,0x1
0190 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0191 4800       |H   |		Short_Literal	0x0
0192 e5ff       |    |		Load	0x2,-0x1
0193 4801       |H   |		Short_Literal	0x1
0194 e001       |    |		Load	0x0,0x1
0195 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0196 00da       |    |		Load_Top	At_Offset_2
0197 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0198 c402       |    |		Store	0x2,0x2
0199 00d1       |    |		Pop_Control	Pop_Count_1
019a e402       |    |		Load	0x2,0x2								; Debug Table 0xd.0x4 = 0x19a,0x5
019b 7010       |p   |		Jump_Nonzero	0x1ac
019c 4801       |H   |		Short_Literal	0x1							; Debug Table 0xd.0x5 = 0x19c,0x6
019d a5fa       |    |		Store_Unchecked	0x2,-0x6
019e 4800       |H   |		Short_Literal	0x0							; Debug Table 0xd.0x6 = 0x19e,0x7
019f e5fb       |    |		Load	0x2,-0x5
01a0 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01a1 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xd.0x7 = 0x1a1,0x8
01a2 7016       |p   |		Jump_Nonzero	0x1b9
01a3 e001       |    |		Load	0x0,0x1								; Debug Table 0xd.0x8 = 0x1a3,0x9
01a4 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
01a5 e5fb       |    |		Load	0x2,-0x5
01a6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01a7 0227       | '  |		Execute	Access,All_Reference
01a8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01a9 e001       |    |		Load	0x0,0x1
01aa 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
01ab 780d       |x   |		Jump	0x1b9
01ac 4800       |H   |		Short_Literal	0x0							; Debug Table 0xd.0x9 = 0x1ac,0xa
01ad a5fa       |    |		Store_Unchecked	0x2,-0x6
01ae e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xd.0xa = 0x1ae,0xb
01af 0092 03d3  |    |		Action	Push_String_Extended,0x3d3					; "550 Could no open file "
01b1 e402       |    |		Load	0x2,0x2
01b2 e003       |    |		Load	0x0,0x3
01b3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01b4 025e       | ^  |		Execute	Discrete,Convert
01b5 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01b6 01cc       |    |		Execute	Vector,Catenate
01b7 8214       |    |		Call	0x1,0x14
01b8 00d1       |    |		Pop_Control	Pop_Count_1
01b9 e001       |    |		Load	0x0,0x1								; Debug Table 0xd.0xb = 0x1b9,0xc
01ba 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
01bb e5fb       |    |		Load	0x2,-0x5
01bc 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01bd 0227       | '  |		Execute	Access,All_Reference
01be 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01bf 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01c0			TRAP_0160:
01c0 4931       |I1  |		Short_Literal	0x131
01c1 010f       |    |		Execute	Exception,Equal
01c2 6805       |h   |		Jump_Zero	0x1c8
01c3 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xd.0xc = 0x1c3,0xd
01c4 0092 03d0  |    |		Action	Push_String_Extended,0x3d0					; "550 Access denied to file"
01c6 8214       |    |		Call	0x1,0x14
01c7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01c8 4935       |I5  |		Short_Literal	0x135
01c9 010f       |    |		Execute	Exception,Equal
01ca 6805       |h   |		Jump_Zero	0x1d0
01cb e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xd.0xd = 0x1cb,0xe
01cc 0092 03d4  |    |		Action	Push_String_Extended,0x3d4					; "450 File is locked"
01ce 8214       |    |		Call	0x1,0x14
01cf 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01d0 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xd.0xe = 0x1d0,0xf
01d1 0092 03d5  |    |		Action	Push_String_Extended,0x3d5					; "550 Could not open binary file"
01d3 8214       |    |		Call	0x1,0x14
01d4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01d5 0000 0000  |    |		.XXX[0x3]
01d7 0000       |    |
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db       |    |		.CONST	0x01db								; Address of begin
01d9 0222       | "  |		.CONST	0x0222								; Address of exception handler
01da 0001       |    |		.CONST	0x0001								; Number of locals
01db			BODY_01d8:
01db			INIT_01d8:
01db e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xe = .DEBUG	0x01db,0x0678,0x0004,0x0000,0x0037,0x0124,0x0000,0x0274
													; Debug Table 0xe.0x0 = 0x1db,0x1
01dc 6809       |h   |		Jump_Zero	0x1e6
01dd 4800       |H   |		Short_Literal	0x0							; Debug Table 0xe.0x1 = 0x1dd,0x2
01de a5fa       |    |		Store_Unchecked	0x2,-0x6
01df e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xe.0x2 = 0x1df,0x3
01e0 0092 03d6  |    |		Action	Push_String_Extended,0x3d6					; "550 Cannot create file for input"
01e2 8214       |    |		Call	0x1,0x14
01e3 00d1       |    |		Pop_Control	Pop_Count_1
01e4 00cc       |    |		Action	Pop_Block							; Debug Table 0xe.0x3 = 0x1e4,0x4
01e5 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
01e6 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0xe.0x4 = 0x1e6,0x5
01e7 01db       |    |		Execute	Vector,Length
01e8 7013       |p   |		Jump_Nonzero	0x1fc
01e9 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xe.0x5 = 0x1e9,0x6
01ea 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01eb 00d8       |    |		Load_Top	At_Offset_0
01ec 0229       | )  |		Execute	Access,All_Read
01ed e005       |    |		Load	0x0,0x5
01ee 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01ef e003       |    |		Load	0x0,0x3
01f0 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
01f1 e003       |    |		Load	0x0,0x3
01f2 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
01f3 00ea       |    |		Load_Encached	Null_String_Cache
01f4 e5ff       |    |		Load	0x2,-0x1
01f5 4801       |H   |		Short_Literal	0x1
01f6 e002       |    |		Load	0x0,0x2
01f7 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01f8 00d9       |    |		Load_Top	At_Offset_1
01f9 0228       | (  |		Execute	Access,All_Write
01fa 00d1       |    |		Pop_Control	Pop_Count_1
01fb 7820       |x   |		Jump	0x21c
01fc e403       |    |		Load	0x2,0x3								; Debug Table 0xe.0x6 = 0x1fc,0x7
01fd e005       |    |		Load	0x0,0x5
01fe 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01ff e003       |    |		Load	0x0,0x3
0200 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0201 e003       |    |		Load	0x0,0x3
0202 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0203 00ea       |    |		Load_Encached	Null_String_Cache
0204 e5ff       |    |		Load	0x2,-0x1
0205 4801       |H   |		Short_Literal	0x1
0206 e002       |    |		Load	0x0,0x2
0207 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0208 c403       |    |		Store	0x2,0x3
0209 e403       |    |		Load	0x2,0x3								; Debug Table 0xe.0x7 = 0x209,0x8
020a e002       |    |		Load	0x0,0x2
020b 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
020c c403       |    |		Store	0x2,0x3
020d e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xe.0x8 = 0x20d,0x9
020e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
020f 00d8       |    |		Load_Top	At_Offset_0
0210 0229       | )  |		Execute	Access,All_Read
0211 e5fc       |    |		Load	0x2,-0x4
0212 e003       |    |		Load	0x0,0x3
0213 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0214 00ea       |    |		Load_Encached	Null_String_Cache
0215 e5ff       |    |		Load	0x2,-0x1
0216 4801       |H   |		Short_Literal	0x1
0217 e002       |    |		Load	0x0,0x2
0218 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0219 00d9       |    |		Load_Top	At_Offset_1
021a 0228       | (  |		Execute	Access,All_Write
021b 00d1       |    |		Pop_Control	Pop_Count_1
021c 4801       |H   |		Short_Literal	0x1							; Debug Table 0xe.0x9 = 0x21c,0xa
021d e5fb       |    |		Load	0x2,-0x5
021e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
021f 4801       |H   |		Short_Literal	0x1							; Debug Table 0xe.0xa = 0x21f,0xb
0220 a5fa       |    |		Store_Unchecked	0x2,-0x6
0221 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0222			TRAP_01d8:
0222 4931       |I1  |		Short_Literal	0x131
0223 010f       |    |		Execute	Exception,Equal
0224 6805       |h   |		Jump_Zero	0x22a
0225 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xe.0xb = 0x225,0xc
0226 0092 03d7  |    |		Action	Push_String_Extended,0x3d7					; "550 Access error, Could not create file"
0228 8214       |    |		Call	0x1,0x14
0229 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
022a 4935       |I5  |		Short_Literal	0x135
022b 010f       |    |		Execute	Exception,Equal
022c 6805       |h   |		Jump_Zero	0x232
022d e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xe.0xc = 0x22d,0xd
022e 0092 03d8  |    |		Action	Push_String_Extended,0x3d8					; "450 Lock error, Could not create file"
0230 8214       |    |		Call	0x1,0x14
0231 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0232 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xe.0xd = 0x232,0xe
0233 0092 03d9  |    |		Action	Push_String_Extended,0x3d9					; "553 Could not create file"
0235 8214       |    |		Call	0x1,0x14
0236 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0237 0000       |    |		.XXX[0x1]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b       | ;  |		.CONST	0x023b								; Address of begin
0239 0296       |    |		.CONST	0x0296								; Address of exception handler
023a 0001       |    |		.CONST	0x0001								; Number of locals
023b			BODY_0238:
023b			INIT_0238:
023b e001       |    |		Load	0x0,0x1								; Debug Table 0xf = .DEBUG	0x023b,0x0696,0x0004,0x0000,0x0037,0x0124,0x0000,0x0311
													; Debug Table 0xf.0x0 = 0x23b,0x1
023c 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
023d e5fb       |    |		Load	0x2,-0x5
023e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
023f 0227       | '  |		Execute	Access,All_Reference
0240 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0241 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xf.0x1 = 0x241,0x2
0242 680f       |h   |		Jump_Zero	0x252
0243 4800       |H   |		Short_Literal	0x0							; Debug Table 0xf.0x2 = 0x243,0x3
0244 a5fa       |    |		Store_Unchecked	0x2,-0x6
0245 e001       |    |		Load	0x0,0x1								; Debug Table 0xf.0x3 = 0x245,0x4
0246 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0247 e5fb       |    |		Load	0x2,-0x5
0248 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0249 0227       | '  |		Execute	Access,All_Reference
024a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
024b e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xf.0x4 = 0x24b,0x5
024c 0092 03d6  |    |		Action	Push_String_Extended,0x3d6					; "550 Cannot create file for input"
024e 8214       |    |		Call	0x1,0x14
024f 00d1       |    |		Pop_Control	Pop_Count_1
0250 00cc       |    |		Action	Pop_Block							; Debug Table 0xf.0x5 = 0x250,0x6
0251 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0252 e403       |    |		Load	0x2,0x3								; Debug Table 0xf.0x6 = 0x252,0x7
0253 e005       |    |		Load	0x0,0x5
0254 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0255 e003       |    |		Load	0x0,0x3
0256 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0257 e003       |    |		Load	0x0,0x3
0258 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0259 00ea       |    |		Load_Encached	Null_String_Cache
025a e5ff       |    |		Load	0x2,-0x1
025b 4801       |H   |		Short_Literal	0x1
025c e002       |    |		Load	0x0,0x2
025d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
025e c403       |    |		Store	0x2,0x3
025f e403       |    |		Load	0x2,0x3								; Debug Table 0xf.0x7 = 0x25f,0x8
0260 e002       |    |		Load	0x0,0x2
0261 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0262 c403       |    |		Store	0x2,0x3
0263 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xf.0x8 = 0x263,0x9
0264 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0265 0229       | )  |		Execute	Access,All_Read
0266 e001       |    |		Load	0x0,0x1
0267 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0268 00d9       |    |		Load_Top	At_Offset_1
0269 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
026a 4800       |H   |		Short_Literal	0x0
026b 6160       |a`  |		Indirect_Literal	Discrete,0x3cc,{0x00000000, 0x00004000}
026c e5fc       |    |		Load	0x2,-0x4
026d e004       |    |		Load	0x0,0x4
026e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
026f e001       |    |		Load	0x0,0x1
0270 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0271 4800       |H   |		Short_Literal	0x0
0272 e5ff       |    |		Load	0x2,-0x1
0273 4801       |H   |		Short_Literal	0x1
0274 e001       |    |		Load	0x0,0x1
0275 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0276 00da       |    |		Load_Top	At_Offset_2
0277 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0278 c402       |    |		Store	0x2,0x2
0279 00d1       |    |		Pop_Control	Pop_Count_1
027a e402       |    |		Load	0x2,0x2								; Debug Table 0xf.0x9 = 0x27a,0xa
027b 7006       |p   |		Jump_Nonzero	0x282
027c 4800       |H   |		Short_Literal	0x0							; Debug Table 0xf.0xa = 0x27c,0xb
027d e5fb       |    |		Load	0x2,-0x5
027e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
027f 4801       |H   |		Short_Literal	0x1							; Debug Table 0xf.0xb = 0x27f,0xc
0280 a5fa       |    |		Store_Unchecked	0x2,-0x6
0281 780d       |x   |		Jump	0x28f
0282 4800       |H   |		Short_Literal	0x0							; Debug Table 0xf.0xc = 0x282,0xd
0283 a5fa       |    |		Store_Unchecked	0x2,-0x6
0284 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xf.0xd = 0x284,0xe
0285 0092 03d3  |    |		Action	Push_String_Extended,0x3d3					; "550 Could no open file "
0287 e402       |    |		Load	0x2,0x2
0288 e003       |    |		Load	0x0,0x3
0289 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
028a 025e       | ^  |		Execute	Discrete,Convert
028b 1c01       |    |		Execute_Immediate	Run_Utility,0x1
028c 01cc       |    |		Execute	Vector,Catenate
028d 8214       |    |		Call	0x1,0x14
028e 00d1       |    |		Pop_Control	Pop_Count_1
028f e001       |    |		Load	0x0,0x1								; Debug Table 0xf.0xe = 0x28f,0xf
0290 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0291 e5fb       |    |		Load	0x2,-0x5
0292 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0293 0227       | '  |		Execute	Access,All_Reference
0294 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0295 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0296			TRAP_0238:
0296 4931       |I1  |		Short_Literal	0x131
0297 010f       |    |		Execute	Exception,Equal
0298 6805       |h   |		Jump_Zero	0x29e
0299 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xf.0xf = 0x299,0x10
029a 0092 03d7  |    |		Action	Push_String_Extended,0x3d7					; "550 Access error, Could not create file"
029c 8214       |    |		Call	0x1,0x14
029d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
029e 4935       |I5  |		Short_Literal	0x135
029f 010f       |    |		Execute	Exception,Equal
02a0 6805       |h   |		Jump_Zero	0x2a6
02a1 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xf.0x10 = 0x2a1,0x11
02a2 0092 03d8  |    |		Action	Push_String_Extended,0x3d8					; "450 Lock error, Could not create file"
02a4 8214       |    |		Call	0x1,0x14
02a5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02a6 e5fb       |    |		Load	0x2,-0x5							; Debug Table 0xf.0x11 = 0x2a6,0x12
02a7 0092 03d9  |    |		Action	Push_String_Extended,0x3d9					; "553 Could not create file"
02a9 8214       |    |		Call	0x1,0x14
02aa 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02ab 0000 0000  |    |		.BLANK	0000[0x5]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3       |    |		.CONST	0x02b3								; Address of begin
02b1 02c7       |    |		.CONST	0x02c7								; Address of exception handler
02b2 0001       |    |		.CONST	0x0001								; Number of locals
02b3			BODY_02b0:
02b3			INIT_02b0:
02b3 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x10 = .DEBUG	0x02b3,0x06bc,0x0004,0x0000,0x0037,0x0124,0x0000,0x0380
													; Debug Table 0x10.0x0 = 0x2b3,0x1
02b4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02b5 00d8       |    |		Load_Top	At_Offset_0
02b6 0229       | )  |		Execute	Access,All_Read
02b7 e5fd       |    |		Load	0x2,-0x3
02b8 e003       |    |		Load	0x0,0x3
02b9 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
02ba 00ea       |    |		Load_Encached	Null_String_Cache
02bb e5ff       |    |		Load	0x2,-0x1
02bc e002       |    |		Load	0x0,0x2
02bd 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02be 00d9       |    |		Load_Top	At_Offset_1
02bf 0228       | (  |		Execute	Access,All_Write
02c0 00d1       |    |		Pop_Control	Pop_Count_1
02c1 4801       |H   |		Short_Literal	0x1							; Debug Table 0x10.0x1 = 0x2c1,0x2
02c2 e5fc       |    |		Load	0x2,-0x4
02c3 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02c4 4801       |H   |		Short_Literal	0x1							; Debug Table 0x10.0x2 = 0x2c4,0x3
02c5 a5fb       |    |		Store_Unchecked	0x2,-0x5
02c6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02c7			TRAP_02b0:
02c7 4931       |I1  |		Short_Literal	0x131
02c8 010f       |    |		Execute	Exception,Equal
02c9 6805       |h   |		Jump_Zero	0x2cf
02ca e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x10.0x3 = 0x2ca,0x4
02cb 0092 03da  |    |		Action	Push_String_Extended,0x3da					; "550 Access error, Could not open file for append"
02cd 8214       |    |		Call	0x1,0x14
02ce 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02cf 4935       |I5  |		Short_Literal	0x135
02d0 010f       |    |		Execute	Exception,Equal
02d1 6805       |h   |		Jump_Zero	0x2d7
02d2 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x10.0x4 = 0x2d2,0x5
02d3 0092 03db  |    |		Action	Push_String_Extended,0x3db					; "450 Lock error, Could not open file for append"
02d5 8214       |    |		Call	0x1,0x14
02d6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02d7 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x10.0x5 = 0x2d7,0x6
02d8 0092 03dc  |    |		Action	Push_String_Extended,0x3dc					; "553 Could not open file for append"
02da 8214       |    |		Call	0x1,0x14
02db 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
02dc 0000 0000  |    |		.BLANK	0000[0x4]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3       |    |		.CONST	0x02e3								; Address of begin
02e1 0326       | &  |		.CONST	0x0326								; Address of exception handler
02e2 0001       |    |		.CONST	0x0001								; Number of locals
02e3			BODY_02e0:
02e3			INIT_02e0:
02e3 e001       |    |		Load	0x0,0x1								; Debug Table 0x11 = .DEBUG	0x02e3,0x06ca,0x0004,0x0000,0x0037,0x0124,0x0000,0x0407
													; Debug Table 0x11.0x0 = 0x2e3,0x1
02e4 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02e5 e5fc       |    |		Load	0x2,-0x4
02e6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02e7 0227       | '  |		Execute	Access,All_Reference
02e8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02e9 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x11.0x1 = 0x2e9,0x2
02ea 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02eb 0229       | )  |		Execute	Access,All_Read
02ec e001       |    |		Load	0x0,0x1
02ed 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
02ee 00d9       |    |		Load_Top	At_Offset_1
02ef 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02f0 4800       |H   |		Short_Literal	0x0
02f1 60da       |`   |		Indirect_Literal	Discrete,0x3cc,{0x00000000, 0x00004000}
02f2 e5fd       |    |		Load	0x2,-0x3
02f3 e004       |    |		Load	0x0,0x4
02f4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
02f5 e001       |    |		Load	0x0,0x1
02f6 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
02f7 4800       |H   |		Short_Literal	0x0
02f8 e5ff       |    |		Load	0x2,-0x1
02f9 4801       |H   |		Short_Literal	0x1
02fa e001       |    |		Load	0x0,0x1
02fb 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
02fc 00da       |    |		Load_Top	At_Offset_2
02fd 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02fe c402       |    |		Store	0x2,0x2
02ff 00d1       |    |		Pop_Control	Pop_Count_1
0300 e402       |    |		Load	0x2,0x2								; Debug Table 0x11.0x2 = 0x300,0x3
0301 7010       |p   |		Jump_Nonzero	0x312
0302 4800       |H   |		Short_Literal	0x0							; Debug Table 0x11.0x3 = 0x302,0x4
0303 e5fc       |    |		Load	0x2,-0x4
0304 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0305 4801       |H   |		Short_Literal	0x1							; Debug Table 0x11.0x4 = 0x305,0x5
0306 a5fb       |    |		Store_Unchecked	0x2,-0x5
0307 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x11.0x5 = 0x307,0x6
0308 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0309 0227       | '  |		Execute	Access,All_Reference
030a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
030b e001       |    |		Load	0x0,0x1
030c 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
030d e5fc       |    |		Load	0x2,-0x4
030e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
030f 0227       | '  |		Execute	Access,All_Reference
0310 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0311 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0312 4800       |H   |		Short_Literal	0x0							; Debug Table 0x11.0x6 = 0x312,0x7
0313 a5fb       |    |		Store_Unchecked	0x2,-0x5
0314 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x11.0x7 = 0x314,0x8
0315 0092 03dd  |    |		Action	Push_String_Extended,0x3dd					; "553 Could no open file "
0317 e402       |    |		Load	0x2,0x2
0318 e003       |    |		Load	0x0,0x3
0319 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
031a 025e       | ^  |		Execute	Discrete,Convert
031b 1c01       |    |		Execute_Immediate	Run_Utility,0x1
031c 01cc       |    |		Execute	Vector,Catenate
031d 8214       |    |		Call	0x1,0x14
031e 00d1       |    |		Pop_Control	Pop_Count_1
031f e001       |    |		Load	0x0,0x1								; Debug Table 0x11.0x8 = 0x31f,0x9
0320 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0321 e5fc       |    |		Load	0x2,-0x4
0322 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0323 0227       | '  |		Execute	Access,All_Reference
0324 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0325 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0326			TRAP_02e0:
0326 4931       |I1  |		Short_Literal	0x131
0327 010f       |    |		Execute	Exception,Equal
0328 6805       |h   |		Jump_Zero	0x32e
0329 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x11.0x9 = 0x329,0xa
032a 0092 03da  |    |		Action	Push_String_Extended,0x3da					; "550 Access error, Could not open file for append"
032c 8214       |    |		Call	0x1,0x14
032d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
032e 4935       |I5  |		Short_Literal	0x135
032f 010f       |    |		Execute	Exception,Equal
0330 6805       |h   |		Jump_Zero	0x336
0331 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x11.0xa = 0x331,0xb
0332 0092 03db  |    |		Action	Push_String_Extended,0x3db					; "450 Lock error, Could not open file for append"
0334 8214       |    |		Call	0x1,0x14
0335 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0336 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x11.0xb = 0x336,0xc
0337 0092 03de  |    |		Action	Push_String_Extended,0x3de					; "553 Could not open binary file"
0339 8214       |    |		Call	0x1,0x14
033a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
033b 0000 0000  |    |		.BLANK	0000[0x5]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343       | C  |		.CONST	0x0343								; Address of begin
0341 034f       | O  |		.CONST	0x034f								; Address of exception handler
0342 0001       |    |		.CONST	0x0001								; Number of locals
0343			BODY_0340:
0343			INIT_0340:
0343 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x12 = .DEBUG	0x0343,0x06e4,0x0004,0x0000,0x0037,0x0124,0x0000,0x0447
													; Debug Table 0x12.0x0 = 0x343,0x1
0344 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0345 00d8       |    |		Load_Top	At_Offset_0
0346 0229       | )  |		Execute	Access,All_Read
0347 e002       |    |		Load	0x0,0x2
0348 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0349 00d9       |    |		Load_Top	At_Offset_1
034a 0228       | (  |		Execute	Access,All_Write
034b 00d1       |    |		Pop_Control	Pop_Count_1
034c 4801       |H   |		Short_Literal	0x1							; Debug Table 0x12.0x1 = 0x34c,0x2
034d a5fe       |    |		Store_Unchecked	0x2,-0x2
034e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
034f			TRAP_0340:
034f 0007       |    |		Action	Break_Optional
0350 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x12.0x2 = 0x350,0x3
0351 0092 03df  |    |		Action	Push_String_Extended,0x3df					; "553 Problem closing file"
0353 8214       |    |		Call	0x1,0x14
0354 00d1       |    |		Pop_Control	Pop_Count_1
0355 4800       |H   |		Short_Literal	0x0							; Debug Table 0x12.0x3 = 0x355,0x4
0356 a5fe       |    |		Store_Unchecked	0x2,-0x2
0357 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b       | [  |		.CONST	0x035b								; Address of begin
0359 037b       | {  |		.CONST	0x037b								; Address of exception handler
035a 0001       |    |		.CONST	0x0001								; Number of locals
035b			BODY_0358:
035b			INIT_0358:
035b e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x13 = .DEBUG	0x035b,0x06ee,0x0004,0x0000,0x0037,0x0124,0x0000,0x048b
													; Debug Table 0x13.0x0 = 0x35b,0x1
035c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
035d 0229       | )  |		Execute	Access,All_Read
035e e001       |    |		Load	0x0,0x1
035f 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0360 00d9       |    |		Load_Top	At_Offset_1
0361 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0362 e001       |    |		Load	0x0,0x1
0363 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0364 00da       |    |		Load_Top	At_Offset_2
0365 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0366 c402       |    |		Store	0x2,0x2
0367 00d1       |    |		Pop_Control	Pop_Count_1
0368 e402       |    |		Load	0x2,0x2								; Debug Table 0x13.0x1 = 0x368,0x2
0369 7003       |p   |		Jump_Nonzero	0x36d
036a 4801       |H   |		Short_Literal	0x1							; Debug Table 0x13.0x2 = 0x36a,0x3
036b a5fe       |    |		Store_Unchecked	0x2,-0x2
036c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
036d e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x13.0x3 = 0x36d,0x4
036e 0092 03e0  |    |		Action	Push_String_Extended,0x3e0					; "553 Problem when closing file "
0370 e402       |    |		Load	0x2,0x2
0371 e003       |    |		Load	0x0,0x3
0372 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0373 025e       | ^  |		Execute	Discrete,Convert
0374 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0375 01cc       |    |		Execute	Vector,Catenate
0376 8214       |    |		Call	0x1,0x14
0377 00d1       |    |		Pop_Control	Pop_Count_1
0378 4800       |H   |		Short_Literal	0x0							; Debug Table 0x13.0x4 = 0x378,0x5
0379 a5fe       |    |		Store_Unchecked	0x2,-0x2
037a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
037b			TRAP_0358:
037b 0007       |    |		Action	Break_Optional
037c e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x13.0x5 = 0x37c,0x6
037d 0092 03e1  |    |		Action	Push_String_Extended,0x3e1					; "553 Problem closing binary file"
037f 8214       |    |		Call	0x1,0x14
0380 00d1       |    |		Pop_Control	Pop_Count_1
0381 4800       |H   |		Short_Literal	0x0							; Debug Table 0x13.0x6 = 0x381,0x7
0382 a5fe       |    |		Store_Unchecked	0x2,-0x2
0383 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0384 0000 0000  |    |		.BLANK	0000[0x4]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b       |    |		.CONST	0x038b								; Address of begin
0389 0397       |    |		.CONST	0x0397								; Address of exception handler
038a 0001       |    |		.CONST	0x0001								; Number of locals
038b			BODY_0388:
038b			INIT_0388:
038b e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x14 = .DEBUG	0x038b,0x06fe,0x0004,0x0000,0x0037,0x0124,0x0000,0x04cb
													; Debug Table 0x14.0x0 = 0x38b,0x1
038c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
038d 00d8       |    |		Load_Top	At_Offset_0
038e 0229       | )  |		Execute	Access,All_Read
038f e002       |    |		Load	0x0,0x2
0390 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0391 00d9       |    |		Load_Top	At_Offset_1
0392 0228       | (  |		Execute	Access,All_Write
0393 00d1       |    |		Pop_Control	Pop_Count_1
0394 4801       |H   |		Short_Literal	0x1							; Debug Table 0x14.0x1 = 0x394,0x2
0395 a5fe       |    |		Store_Unchecked	0x2,-0x2
0396 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0397			TRAP_0388:
0397 0007       |    |		Action	Break_Optional
0398 4800       |H   |		Short_Literal	0x0							; Debug Table 0x14.0x2 = 0x398,0x3
0399 a5fe       |    |		Store_Unchecked	0x2,-0x2
039a e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x14.0x3 = 0x39a,0x4
039b 0092 03e2  |    |		Action	Push_String_Extended,0x3e2					; "553 Problem deleting file"
039d 8214       |    |		Call	0x1,0x14
039e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
039f 0000       |    |		.XXX[0x1]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3       |    |		.CONST	0x03a3								; Address of begin
03a1 03c3       |    |		.CONST	0x03c3								; Address of exception handler
03a2 0001       |    |		.CONST	0x0001								; Number of locals
03a3			BODY_03a0:
03a3			INIT_03a0:
03a3 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x15 = .DEBUG	0x03a3,0x0708,0x0004,0x0000,0x0037,0x0124,0x0000,0x050f
													; Debug Table 0x15.0x0 = 0x3a3,0x1
03a4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03a5 0229       | )  |		Execute	Access,All_Read
03a6 e001       |    |		Load	0x0,0x1
03a7 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
03a8 00d9       |    |		Load_Top	At_Offset_1
03a9 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
03aa e001       |    |		Load	0x0,0x1
03ab 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
03ac 00da       |    |		Load_Top	At_Offset_2
03ad 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
03ae c402       |    |		Store	0x2,0x2
03af 00d1       |    |		Pop_Control	Pop_Count_1
03b0 e402       |    |		Load	0x2,0x2								; Debug Table 0x15.0x1 = 0x3b0,0x2
03b1 7003       |p   |		Jump_Nonzero	0x3b5
03b2 4801       |H   |		Short_Literal	0x1							; Debug Table 0x15.0x2 = 0x3b2,0x3
03b3 a5fe       |    |		Store_Unchecked	0x2,-0x2
03b4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03b5 4800       |H   |		Short_Literal	0x0							; Debug Table 0x15.0x3 = 0x3b5,0x4
03b6 a5fe       |    |		Store_Unchecked	0x2,-0x2
03b7 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x15.0x4 = 0x3b7,0x5
03b8 0092 03e3  |    |		Action	Push_String_Extended,0x3e3					; "553 Problem when deleting file "
03ba e402       |    |		Load	0x2,0x2
03bb e003       |    |		Load	0x0,0x3
03bc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03bd 025e       | ^  |		Execute	Discrete,Convert
03be 1c01       |    |		Execute_Immediate	Run_Utility,0x1
03bf 01cc       |    |		Execute	Vector,Catenate
03c0 8214       |    |		Call	0x1,0x14
03c1 00d1       |    |		Pop_Control	Pop_Count_1
03c2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03c3			TRAP_03a0:
03c3 0007       |    |		Action	Break_Optional
03c4 4800       |H   |		Short_Literal	0x0							; Debug Table 0x15.0x5 = 0x3c4,0x6
03c5 a5fe       |    |		Store_Unchecked	0x2,-0x2
03c6 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x15.0x6 = 0x3c6,0x7
03c7 0092 03e2  |    |		Action	Push_String_Extended,0x3e2					; "553 Problem deleting file"
03c9 8214       |    |		Call	0x1,0x14
03ca 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03cb 0000       |    |		.XXX[0x1]
03cc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
03d0 ; --------------------------------------------------------------------------------------
03d0 ; STRING TABLE
03d0 ; --------------------------------------------------------------------------------------
03d0 002a       | *  |		.STRTAB	0x002a->0x03e5							; "550 Access denied to file"
03d1 0041       | A  |		.STRTAB	0x0041->0x03f1							; "450 File is busy"
03d2 004f       | O  |		.STRTAB	0x004f->0x03f9							; "553 Could not open file"
03d3 0064       | d  |		.STRTAB	0x0064->0x0405							; "550 Could no open file "
03d4 0079       | y  |		.STRTAB	0x0079->0x0410							; "450 File is locked"
03d5 0089       |    |		.STRTAB	0x0089->0x0419							; "550 Could not open binary file"
03d6 00a5       |    |		.STRTAB	0x00a5->0x0428							; "550 Cannot create file for input"
03d7 00c3       |    |		.STRTAB	0x00c3->0x0438							; "550 Access error, Could not create file"
03d8 00e8       |    |		.STRTAB	0x00e8->0x044c							; "450 Lock error, Could not create file"
03d9 010b       |    |		.STRTAB	0x010b->0x045e							; "553 Could not create file"
03da 0122       | "  |		.STRTAB	0x0122->0x046b							; "550 Access error, Could not open file for append"
03db 0150       | P  |		.STRTAB	0x0150->0x0483							; "450 Lock error, Could not open file for append"
03dc 017c       | |  |		.STRTAB	0x017c->0x049a							; "553 Could not open file for append"
03dd 019c       |    |		.STRTAB	0x019c->0x04ab							; "553 Could no open file "
03de 01b1       |    |		.STRTAB	0x01b1->0x04b6							; "553 Could not open binary file"
03df 01cd       |    |		.STRTAB	0x01cd->0x04c5							; "553 Problem closing file"
03e0 01e3       |    |		.STRTAB	0x01e3->0x04d1							; "553 Problem when closing file "
03e1 01ff       |    |		.STRTAB	0x01ff->0x04e0							; "553 Problem closing binary file"
03e2 021c       |    |		.STRTAB	0x021c->0x04f0							; "553 Problem deleting file"
03e3 0233       | 3  |		.STRTAB	0x0233->0x04fc							; "553 Problem when deleting file "
03e4 0250       | P  |		.STREND 0x0250->0x050c
03e5 3535 3020  |550 |		.STRTAB_STRINGS
050c 0000 0000  |    |		.BLANK	0000[0x4]
0510 ; --------------------------------------------------------------------------------------
0510 ; Debug Table
0510 ; --------------------------------------------------------------------------------------
0510 0003 0016  |    |		.CONST	0x0003,0x0016
0512 000b 05c2  |    |		.DEBUG	0x000b,0x05c2,0x8000,0x0000,0x0037,0x0084,0x0000,0x0009
051a 001a 05d2  |    |		.DEBUG	0x001a,0x05d2,0x8000,0x0000,0x0037,0x0124,0x0000,0x000b
0522 0033 05e4  | 3  |		.DEBUG	0x0033,0x05e4,0x0001,0x0000,0x0037,0x0084,0x0000,0x000a
052a 0043 05ec  | C  |		.DEBUG	0x0043,0x05ec,0x0001,0x0000,0x0037,0x0084,0x0000,0x0014
0532 005b 05f8  | [  |		.DEBUG	0x005b,0x05f8,0x0001,0x0000,0x0037,0x0084,0x0000,0x0036
053a 0073 0606  | s  |		.DEBUG	0x0073,0x0606,0x0001,0x0000,0x0037,0x0084,0x0000,0x0058
0542 008b 0612  |    |		.DEBUG	0x008b,0x0612,0x0001,0x0000,0x0037,0x0084,0x0000,0x0076
054a 00a3 061c  |    |		.DEBUG	0x00a3,0x061c,0x0001,0x0000,0x0037,0x0084,0x0000,0x0084
0552 00bb 0626  |   &|		.DEBUG	0x00bb,0x0626,0x0002,0x0000,0x0037,0x0084,0x0000,0x0092
055a 00cb 062a  |   *|		.DEBUG	0x00cb,0x062a,0x0001,0x0000,0x0037,0x0124,0x0000,0x000c
0562 00eb 0636  |   6|		.DEBUG	0x00eb,0x0636,0x0004,0x0000,0x0037,0x0124,0x0000,0x0078
056a 0103 063e  |   >|		.DEBUG	0x0103,0x063e,0x0004,0x0000,0x0037,0x0124,0x0000,0x0099
0572 0123 0646  | # F|		.DEBUG	0x0123,0x0646,0x0004,0x0000,0x0037,0x0124,0x0000,0x0121
057a 0163 0658  | c X|		.DEBUG	0x0163,0x0658,0x0004,0x0000,0x0037,0x0124,0x0000,0x01c1
0582 01db 0678  |   x|		.DEBUG	0x01db,0x0678,0x0004,0x0000,0x0037,0x0124,0x0000,0x0274
058a 023b 0696  | ;  |		.DEBUG	0x023b,0x0696,0x0004,0x0000,0x0037,0x0124,0x0000,0x0311
0592 02b3 06bc  |    |		.DEBUG	0x02b3,0x06bc,0x0004,0x0000,0x0037,0x0124,0x0000,0x0380
059a 02e3 06ca  |    |		.DEBUG	0x02e3,0x06ca,0x0004,0x0000,0x0037,0x0124,0x0000,0x0407
05a2 0343 06e4  | C  |		.DEBUG	0x0343,0x06e4,0x0004,0x0000,0x0037,0x0124,0x0000,0x0447
05aa 035b 06ee  | [  |		.DEBUG	0x035b,0x06ee,0x0004,0x0000,0x0037,0x0124,0x0000,0x048b
05b2 038b 06fe  |    |		.DEBUG	0x038b,0x06fe,0x0004,0x0000,0x0037,0x0124,0x0000,0x04cb
05ba 03a3 0708  |    |		.DEBUG	0x03a3,0x0708,0x0004,0x0000,0x0037,0x0124,0x0000,0x050f
05c2 ; --------------------------------------------------------------------------------------
05c2 ; Debug3 Subtable 0x0
05c2 ; --------------------------------------------------------------------------------------
05c2 0007 0000  |    |		.DBG3TAB	0x0007,0x0000
05c4 000b ffff  |    |		.CONST	0x000b,0xffff
05c6 000d fffe  |    |		.CONST	0x000d,0xfffe
05c8 000f fffd  |    |		.CONST	0x000f,0xfffd
05ca 0011 fffc  |    |		.CONST	0x0011,0xfffc
05cc 0013 fffb  |    |		.CONST	0x0013,0xfffb
05ce 0015 fffa  |    |		.CONST	0x0015,0xfffa
05d0 0017 fff9  |    |		.CONST	0x0017,0xfff9
05d2 ; --------------------------------------------------------------------------------------
05d2 ; Debug3 Subtable 0x1
05d2 ; --------------------------------------------------------------------------------------
05d2 0008 0000  |    |		.DBG3TAB	0x0008,0x0000
05d4 001a ffff  |    |		.CONST	0x001a,0xffff
05d6 001c fffe  |    |		.CONST	0x001c,0xfffe
05d8 001e fffd  |    |		.CONST	0x001e,0xfffd
05da 0020 fffc  |    |		.CONST	0x0020,0xfffc
05dc 0022 fffb  | "  |		.CONST	0x0022,0xfffb
05de 0024 fffa  | $  |		.CONST	0x0024,0xfffa
05e0 0026 fff9  | &  |		.CONST	0x0026,0xfff9
05e2 0028 fff8  | (  |		.CONST	0x0028,0xfff8
05e4 ; --------------------------------------------------------------------------------------
05e4 ; Debug3 Subtable 0x2
05e4 ; --------------------------------------------------------------------------------------
05e4 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
05e6 0033 ffff  | 3  |		.CONST	0x0033,0xffff
05e8 0039 0001  | 9  |		.CONST	0x0039,0x0001
05ea 003a 0002  | :  |		.CONST	0x003a,0x0002
05ec ; --------------------------------------------------------------------------------------
05ec ; Debug3 Subtable 0x3
05ec ; --------------------------------------------------------------------------------------
05ec 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
05ee 0043 ffff  | C  |		.CONST	0x0043,0xffff
05f0 0049 0001  | I  |		.CONST	0x0049,0x0001
05f2 004b 0002  | K  |		.CONST	0x004b,0x0002
05f4 004f 0003  | O  |		.CONST	0x004f,0x0003
05f6 0051 0004  | Q  |		.CONST	0x0051,0x0004
05f8 ; --------------------------------------------------------------------------------------
05f8 ; Debug3 Subtable 0x4
05f8 ; --------------------------------------------------------------------------------------
05f8 0002 0004  |    |		.DBG3TAB	0x0002,0x0004
05fa 005b ffff  | [  |		.CONST	0x005b,0xffff
05fc 005d fffe  | ]  |		.CONST	0x005d,0xfffe
05fe 0066 0001  | f  |		.CONST	0x0066,0x0001
0600 0068 0002  | h  |		.CONST	0x0068,0x0002
0602 006c 0003  | l  |		.CONST	0x006c,0x0003
0604 006e 0004  | n  |		.CONST	0x006e,0x0004
0606 ; --------------------------------------------------------------------------------------
0606 ; Debug3 Subtable 0x5
0606 ; --------------------------------------------------------------------------------------
0606 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
0608 0073 ffff  | s  |		.CONST	0x0073,0xffff
060a 0079 0001  | y  |		.CONST	0x0079,0x0001
060c 007b 0002  | {  |		.CONST	0x007b,0x0002
060e 007f 0003  |    |		.CONST	0x007f,0x0003
0610 0081 0004  |    |		.CONST	0x0081,0x0004
0612 ; --------------------------------------------------------------------------------------
0612 ; Debug3 Subtable 0x6
0612 ; --------------------------------------------------------------------------------------
0612 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
0614 008b ffff  |    |		.CONST	0x008b,0xffff
0616 0091 0001  |    |		.CONST	0x0091,0x0001
0618 0096 0002  |    |		.CONST	0x0096,0x0002
061a 0098 0003  |    |		.CONST	0x0098,0x0003
061c ; --------------------------------------------------------------------------------------
061c ; Debug3 Subtable 0x7
061c ; --------------------------------------------------------------------------------------
061c 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
061e 00a3 ffff  |    |		.CONST	0x00a3,0xffff
0620 00a9 0001  |    |		.CONST	0x00a9,0x0001
0622 00ae 0002  |    |		.CONST	0x00ae,0x0002
0624 00b0 0003  |    |		.CONST	0x00b0,0x0003
0626 ; --------------------------------------------------------------------------------------
0626 ; Debug3 Subtable 0x8
0626 ; --------------------------------------------------------------------------------------
0626 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0628 00bb 0001  |    |		.CONST	0x00bb,0x0001
062a ; --------------------------------------------------------------------------------------
062a ; Debug3 Subtable 0x9
062a ; --------------------------------------------------------------------------------------
062a 0000 0005  |    |		.DBG3TAB	0x0000,0x0005
062c 00cb 0001  |    |		.CONST	0x00cb,0x0001
062e 00cf 0002  |    |		.CONST	0x00cf,0x0002
0630 00d5 0003  |    |		.CONST	0x00d5,0x0003
0632 00d9 0004  |    |		.CONST	0x00d9,0x0004
0634 00e0 0005  |    |		.CONST	0x00e0,0x0005
0636 ; --------------------------------------------------------------------------------------
0636 ; Debug3 Subtable 0xa
0636 ; --------------------------------------------------------------------------------------
0636 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
0638 00eb 0001  |    |		.CONST	0x00eb,0x0001
063a 00f1 0002  |    |		.CONST	0x00f1,0x0002
063c 00fc 0003  |    |		.CONST	0x00fc,0x0003
063e ; --------------------------------------------------------------------------------------
063e ; Debug3 Subtable 0xb
063e ; --------------------------------------------------------------------------------------
063e 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
0640 0103 0001  |    |		.CONST	0x0103,0x0001
0642 010a 0002  |    |		.CONST	0x010a,0x0002
0644 0119 0003  |    |		.CONST	0x0119,0x0003
0646 ; --------------------------------------------------------------------------------------
0646 ; Debug3 Subtable 0xc
0646 ; --------------------------------------------------------------------------------------
0646 0000 0008  |    |		.DBG3TAB	0x0000,0x0008
0648 0123 0001  | #  |		.CONST	0x0123,0x0001
064a 0125 0002  | %  |		.CONST	0x0125,0x0002
064c 0135 0003  | 5  |		.CONST	0x0135,0x0003
064e 0144 0004  | D  |		.CONST	0x0144,0x0004
0650 0147 0005  | G  |		.CONST	0x0147,0x0005
0652 014d 0006  | M  |		.CONST	0x014d,0x0006
0654 0155 0007  | U  |		.CONST	0x0155,0x0007
0656 015a 0008  | Z  |		.CONST	0x015a,0x0008
0658 ; --------------------------------------------------------------------------------------
0658 ; Debug3 Subtable 0xd
0658 ; --------------------------------------------------------------------------------------
0658 0000 000f  |    |		.DBG3TAB	0x0000,0x000f
065a 0163 0001  | c  |		.CONST	0x0163,0x0001
065c 0169 0002  | i  |		.CONST	0x0169,0x0002
065e 016b 0003  | k  |		.CONST	0x016b,0x0003
0660 0183 0004  |    |		.CONST	0x0183,0x0004
0662 019a 0005  |    |		.CONST	0x019a,0x0005
0664 019c 0006  |    |		.CONST	0x019c,0x0006
0666 019e 0007  |    |		.CONST	0x019e,0x0007
0668 01a1 0008  |    |		.CONST	0x01a1,0x0008
066a 01a3 0009  |    |		.CONST	0x01a3,0x0009
066c 01ac 000a  |    |		.CONST	0x01ac,0x000a
066e 01ae 000b  |    |		.CONST	0x01ae,0x000b
0670 01b9 000c  |    |		.CONST	0x01b9,0x000c
0672 01c3 000d  |    |		.CONST	0x01c3,0x000d
0674 01cb 000e  |    |		.CONST	0x01cb,0x000e
0676 01d0 000f  |    |		.CONST	0x01d0,0x000f
0678 ; --------------------------------------------------------------------------------------
0678 ; Debug3 Subtable 0xe
0678 ; --------------------------------------------------------------------------------------
0678 0000 000e  |    |		.DBG3TAB	0x0000,0x000e
067a 01db 0001  |    |		.CONST	0x01db,0x0001
067c 01dd 0002  |    |		.CONST	0x01dd,0x0002
067e 01df 0003  |    |		.CONST	0x01df,0x0003
0680 01e4 0004  |    |		.CONST	0x01e4,0x0004
0682 01e6 0005  |    |		.CONST	0x01e6,0x0005
0684 01e9 0006  |    |		.CONST	0x01e9,0x0006
0686 01fc 0007  |    |		.CONST	0x01fc,0x0007
0688 0209 0008  |    |		.CONST	0x0209,0x0008
068a 020d 0009  |    |		.CONST	0x020d,0x0009
068c 021c 000a  |    |		.CONST	0x021c,0x000a
068e 021f 000b  |    |		.CONST	0x021f,0x000b
0690 0225 000c  | %  |		.CONST	0x0225,0x000c
0692 022d 000d  | -  |		.CONST	0x022d,0x000d
0694 0232 000e  | 2  |		.CONST	0x0232,0x000e
0696 ; --------------------------------------------------------------------------------------
0696 ; Debug3 Subtable 0xf
0696 ; --------------------------------------------------------------------------------------
0696 0000 0012  |    |		.DBG3TAB	0x0000,0x0012
0698 023b 0001  | ;  |		.CONST	0x023b,0x0001
069a 0241 0002  | A  |		.CONST	0x0241,0x0002
069c 0243 0003  | C  |		.CONST	0x0243,0x0003
069e 0245 0004  | E  |		.CONST	0x0245,0x0004
06a0 024b 0005  | K  |		.CONST	0x024b,0x0005
06a2 0250 0006  | P  |		.CONST	0x0250,0x0006
06a4 0252 0007  | R  |		.CONST	0x0252,0x0007
06a6 025f 0008  | _  |		.CONST	0x025f,0x0008
06a8 0263 0009  | c  |		.CONST	0x0263,0x0009
06aa 027a 000a  | z  |		.CONST	0x027a,0x000a
06ac 027c 000b  | |  |		.CONST	0x027c,0x000b
06ae 027f 000c  |    |		.CONST	0x027f,0x000c
06b0 0282 000d  |    |		.CONST	0x0282,0x000d
06b2 0284 000e  |    |		.CONST	0x0284,0x000e
06b4 028f 000f  |    |		.CONST	0x028f,0x000f
06b6 0299 0010  |    |		.CONST	0x0299,0x0010
06b8 02a1 0011  |    |		.CONST	0x02a1,0x0011
06ba 02a6 0012  |    |		.CONST	0x02a6,0x0012
06bc ; --------------------------------------------------------------------------------------
06bc ; Debug3 Subtable 0x10
06bc ; --------------------------------------------------------------------------------------
06bc 0000 0006  |    |		.DBG3TAB	0x0000,0x0006
06be 02b3 0001  |    |		.CONST	0x02b3,0x0001
06c0 02c1 0002  |    |		.CONST	0x02c1,0x0002
06c2 02c4 0003  |    |		.CONST	0x02c4,0x0003
06c4 02ca 0004  |    |		.CONST	0x02ca,0x0004
06c6 02d2 0005  |    |		.CONST	0x02d2,0x0005
06c8 02d7 0006  |    |		.CONST	0x02d7,0x0006
06ca ; --------------------------------------------------------------------------------------
06ca ; Debug3 Subtable 0x11
06ca ; --------------------------------------------------------------------------------------
06ca 0000 000c  |    |		.DBG3TAB	0x0000,0x000c
06cc 02e3 0001  |    |		.CONST	0x02e3,0x0001
06ce 02e9 0002  |    |		.CONST	0x02e9,0x0002
06d0 0300 0003  |    |		.CONST	0x0300,0x0003
06d2 0302 0004  |    |		.CONST	0x0302,0x0004
06d4 0305 0005  |    |		.CONST	0x0305,0x0005
06d6 0307 0006  |    |		.CONST	0x0307,0x0006
06d8 0312 0007  |    |		.CONST	0x0312,0x0007
06da 0314 0008  |    |		.CONST	0x0314,0x0008
06dc 031f 0009  |    |		.CONST	0x031f,0x0009
06de 0329 000a  | )  |		.CONST	0x0329,0x000a
06e0 0331 000b  | 1  |		.CONST	0x0331,0x000b
06e2 0336 000c  | 6  |		.CONST	0x0336,0x000c
06e4 ; --------------------------------------------------------------------------------------
06e4 ; Debug3 Subtable 0x12
06e4 ; --------------------------------------------------------------------------------------
06e4 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
06e6 0343 0001  | C  |		.CONST	0x0343,0x0001
06e8 034c 0002  | L  |		.CONST	0x034c,0x0002
06ea 0350 0003  | P  |		.CONST	0x0350,0x0003
06ec 0355 0004  | U  |		.CONST	0x0355,0x0004
06ee ; --------------------------------------------------------------------------------------
06ee ; Debug3 Subtable 0x13
06ee ; --------------------------------------------------------------------------------------
06ee 0000 0007  |    |		.DBG3TAB	0x0000,0x0007
06f0 035b 0001  | [  |		.CONST	0x035b,0x0001
06f2 0368 0002  | h  |		.CONST	0x0368,0x0002
06f4 036a 0003  | j  |		.CONST	0x036a,0x0003
06f6 036d 0004  | m  |		.CONST	0x036d,0x0004
06f8 0378 0005  | x  |		.CONST	0x0378,0x0005
06fa 037c 0006  | |  |		.CONST	0x037c,0x0006
06fc 0381 0007  |    |		.CONST	0x0381,0x0007
06fe ; --------------------------------------------------------------------------------------
06fe ; Debug3 Subtable 0x14
06fe ; --------------------------------------------------------------------------------------
06fe 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
0700 038b 0001  |    |		.CONST	0x038b,0x0001
0702 0394 0002  |    |		.CONST	0x0394,0x0002
0704 0398 0003  |    |		.CONST	0x0398,0x0003
0706 039a 0004  |    |		.CONST	0x039a,0x0004
0708 ; --------------------------------------------------------------------------------------
0708 ; Debug3 Subtable 0x15
0708 ; --------------------------------------------------------------------------------------
0708 0000 0007  |    |		.DBG3TAB	0x0000,0x0007
070a 03a3 0001  |    |		.CONST	0x03a3,0x0001
070c 03b0 0002  |    |		.CONST	0x03b0,0x0002
070e 03b2 0003  |    |		.CONST	0x03b2,0x0003
0710 03b5 0004  |    |		.CONST	0x03b5,0x0004
0712 03b7 0005  |    |		.CONST	0x03b7,0x0005
0714 03c4 0006  |    |		.CONST	0x03c4,0x0006
0716 03c6 0007  |    |		.CONST	0x03c6,0x0007
0718 0000 0000  |    |		.BLANK	0000[0xe8]