.TITLE	COPY RT11 FILE
	.MCALL	.READW,.WRITW,.LOOKUP,.FETCH,.CLOSE,.EXIT,.PRINT,.ENTER
	.NLIST	BEX

START:	.FETCH	#INFIL
	.FETCH	#OUTFIL
	.LOOKUP	#AREA,#0,#INFIL
	.ENTER	#AREA,#1,#OUTFIL
	CLR	%1
10$:	.READW	#AREA,#0,#BUFFER,#256.,%1
	BCS	20$
	MOV	%0,%2
	.WRITW	#AREA,#1,#BUFFER,%2,%1
	INC	%1
	BCC	10$
20$:	TSTB	ERRBYT
	BEQ	30$
	.PRINT	#IOERR
30$:	.CLOSE	#0
	.CLOSE	#1
	.EXIT
 
INFIL:	.RAD50	/MT0INPUT TXT/
OUTFIL:	.RAD50	/SY0OUTPUTTXT/
AREA:	.BLKW	5.
BUFFER:	.BLKW	256.
IOERR:	.ASCIZ	"I/O ERROR"
	.EVEN
	.END	START