.TITLE	BRUREAD
;  MODIFICATIONS:
;	01.1N	NAPC - CORRECT TAPE ERROR RECOVERY ON TU10/TE10
	.IDENT	/01.1N/
	.PSECT
.BLK.=.
$REDTP:
.=.BLK.+566
	CALL	PAT1
.=.BLK.
	.PSECT	$$PAT
PAT1:	CMPB	#IE.IFC,$TPSTA	;CAN WE REVERSE THIS DRIVE?
	BEQ	10$		;IF EQ, NO - DON'T SPACE FWD.
	MOVB	$TPSTA,-(SP)	; (REPLACED INSTRUCTION)
	RETURN
10$:	JMP	$REDTP		;CONTINUE AFTER FAILURE
	.END