*200
	DCA R1		/START COPY AT RECORD 0
	DCA R2
COPY,	JMS I K7607	/READ 17 RECORDS ON UNIT 0
	3610
	0
R1,	0
RDERR,	7402		/READ ERROR
	JMS I K7614	/WRITE 17 RECORDS ON UNIT 1
	7610
	0
R2,	0
	7402
	TAD R1		/UPDATE RECORD COUNT
	TAD K17
	DCA R1
	TAD R1
	DCA R2
	TAD R1
	TAD M1300	/ONLY COPY 2600 BLOCKS
	SPA CLA		/DONE?
	JMP COPY	/NOT YET
	JMS I K7607	/YES, REWIND UNIT 0
	100
	1000
	1
	JMP RDERR	/ERROR
	JMS I K7614	/REWIND UNIT 1
	100
	1000
	1
	JMP RDERR	/ERROR
	CLA CMA		/NORMAL HALT - AC=7777
	HLT
K7607,	7607
K7614,	7614
K17,	17
M1300,	-1300
	$