.TITLE	PRTDN
	.IDENT	/1.02A/
;
; COPYRIGHT (C) 1980
; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;
; MODIFICATION:
;
;	1.02A -- DO FILE ACCESS CHECK
;
	.ENABL	LSB
$$$=.
.=$$$+204
200$:	BR	PAT1
205$:
.=$$$+222
300$:
.=$$$+326
PAT1:	BITB	#10,$FPRO	; DELETE ACCESS
	BEQ	300$		; JUST CLOSE, NO ERROR MESSAGE
	TST	@R1		; FILENAME GIVEN?
	BR	205$
	.END