.TITLE	TAPEIO
	.IDENT	/01.1N/
;
; MODIFICATION:
;	NAPC -- FIX BUG WITH INDEX FILE POSITION
;
	.IDENT	/01.1N/
	.PSECT
.BLK.=.
.=.BLK.+3120
	MOV	#28.,R3		;MOVE ENTIRE CONTROL RECORD
.=.BLK.
	.END