.TITLE	PIPDEL
	.IDENT	/212.01/
;
;COPYRIGHT (C) 1977
; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;
; MODIFICATIONS:
;	BLS001	FIX SO /PU: OR /PU:0 DOES NOT DELETE ALL VERSIONS
;		OF A FILE.
	.PSECT	PURE$I,I
PUREI=.
.=.+54
	CALL PAT001
	NOP
.=PUREI+344
	CLR	PURGCT		;REDEFAULT
	NOP
	.PSECT	PAT001
PAT001:	BIS	#FRSTIM,CPYCTL	;SET FIRST TIME FLAG
	TST	PURGCT	;SEE IF /PU:N IS OK
	BGT	10$		;IF GT OK
	MOV	#1,PURGCT	;DEFAULT TO /PU:1
10$:	RETURN
	.END