.TITLE	SETOUT
	.IDENT	/M02A  /
;+
; SETOUT.PAT
;
; PATCH TO FORCE 9-CHARACTER FILENAME TESTING DURING DIRECTORY OPERATION
;
; THIS PATCH IS APPLIED TO MODULE  SETOUT  FROM FLX.OLB
;
; 7-FEB-82, W. BURTON
;-
	.PSECT
	.GLOBL	O.UNTP
.=.+312
312$:
.=.+70
	BCS	662$	; CHECK FOR MORE
404$:
;
.=.+40
444$:			; FINISH NAME CHECK
;
.=.+216
662$:			; COMPLETE THE FILENAME TESTING
	CMP	O.UNTP,#12
	BNE	404$	; IF NE, NOT MAGTAPE (MT OR MM)
	CMP	16(R0),16(R2)	; CHECK LAST 3 CHARACTERS
	BEQ	444$		; IF EQ, FOUND FILE
	JMP	312$
	.END