.TITLE	MTFLCK
	.IDENT	/V01A  /
;+
; MTFLCK.PAT
;
; PATCH TO FORCE 9-CHARACTER FILENAME CHECKING ON DOS TAPE
;
; FOR USE WITH FLX FROM RSX-11M VERSION 3.1 ONLY.
; APPLY THE OBJECT FILE TO MODULE  MTFLCK  FROM FLX.OLB
;
; 6-FEB-82, W. BURTON
;-
	.PSECT
	.GLOBL	N.FNAM
.=.+54
	BR	114$
	NOP
	NOP
62$:
;
.=.+26
110$:
;
.=.+4
114$:
	CMP	2(R2),N.FNAM+2(R5)	;CHECK FILENAME 4-6
	BNE	110$			; IF NE, NOT SAME
	CMP	24(R2),N.FNAM+4(R5)	; CHECK FILENAME 7-9
	BR	62$			; GO FINISH TEST
	.END