INDERR.MAC;2/AU/-BF=INDERR.OLD;1
\
-2,2
	.IDENT	/1.1A/
-24,24
; VERSION:	1.1A
-35
;
;	DTB027	7-SEP-79  HANDLE ERROR MESSAGES FOR FILE NOT FOUND
;
%
-111,111,/;DTB027
	ERR	FNF,EPFNF	; "@" FILE NOT FOUND
-167,,/;DTB027/
EPFNF:	CLR	ERLBL		; SET SO NO ERROR PROCESSING IS ALLOWED
	MOV	#EX$ERR,STATUS	; INDICATE ERROR HAS OCCURRED
	MOV	(SP)+,R0	; GET ADDRESS OF ERROR MESSAGE
	CALL	PRMSG		; PRINT MESSAGE
	BCS	EXIT		; FAILURE
	BR	ERRF		; HANDLE THE REST OF THE ERROR
-222,223,/;DTB027/
-230,,/;DTB027/
ERRF:				; REF LABEL
/