.TITLE	SETODT
	.IDENT	/M02A/
;+
; SETODT.PAT
;
; PATCH TO FORCE 9-CHARACTER FILENAME TESTING FOR FLX DOS MAGTAPES
;
; THIS PATCH IS TO BE APPLIED TO MODULE SETODT FROM FLX.OLB
;
; APPLIES TO RSX-11M VERSION 3.1 ONLY.
;
; 6-FEB-82, W. BURTON
;-
	.PSECT
	.GLOBL	O.UNTP
.=.+312
312$:
.=.+70
	BCS	662$		;GO CHECK FOR MORE
404$:
;
.=.+40
444$:
.=.+216
662$:
	CMP	O.UNTP,#12	;COMPLETE FILENAME TESTING
	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