; VALSAV - CHANGE DEFAULT VAL ERROR PROCESSING ROUTINES.
; LAST EDIT:	9-SEP-80
;
;
;-
.NLIST
.NLIST BEX
.LIST TTM
.TITLE VALSAV
.IDENT	/V003/
.LIST
;
; ASSEMBLE THIS MODULE PRECEDED BY VALMFD
;
.PSECT	VALIO
;
;
; VALSAV - SPECIFY PARAMETERS
; CALLING FORMAT:
;	CALL VALSAV(CLOSE,ABORT,IERROR,RERROR,DERROR,OERROR,LINE)
;WHERE:	CLOSE	IS A ROUTINE TO CLOSE FILES TO BE CALED BY FINISH
;	ABORT	ROUTINE TO EXECUTE IN RESPONCE TO CTRL A
;	IERROR,RERROR,DERROR,OERROR ROUTINES TO PROCESS
;		ERRORS WHICH MAY OCCURE ON INPUT, DEFAULT ROUTINES
;		ARE PROVIDED
;	LINE	LINE NUMBER ON WHICH ERROR MESSAGES START
;		SEE OUTS FOR SIGNIFICANCE OF LINE NUMBER.
;
; ALL ROUTINES PASSED AS PARAMETERS MUST BE DECLARED EXTERNAL
; NULL PARAMETERS LEAVE THE CURRENT VALUE UNCHANGE
;
;-
;
;
VALSAV::CALL	VMAP		;GET IMPURE ADDRESS
	MOVB	(R5),R1
	BEQ	3$		;NO ARGS
	ADD	#VI.SAV,R0
	TST	(R5)+		;FIRST ARG
	CMP	#6,R1		;IGNORE >6 ARGS
	BGT	1$
	MOV	#6,R1
1$:	CMP	#-1,(R5)+	;NULL?
	BEQ	2$
	MOV	-2(R5),(R0)	;NO-STORE VALUE
2$:	TST	(R0)+		;INC SAVBLK POINTER
	SOB	R1,1$
3$:	CALL	VRSCTX
	RETURN
;
	.END