;
;	AUTHOR:
;		R. STODOLA
;		THE INSTITUTE FOR CANCER RESEARCH
;		7701 BURHOLME AVE.
;		PHILADELPHIA, PA.  19111
;
	.MACRO	ERSMDF
	.MCALL	TCSMC$
	TCSMC$
	TEOFF$	DEF$L
	TCOFF$	DEF$L
	TDOFF$	DEF$L
	TSOFF$	DEF$L
	.IIF	NDF E..ARG,E..ARG=0
	.IIF	NDF E..MSN,E..MSN=2
	.IIF	NDF E..RTN,E..RTN=4
	.IIF	NDF E..ESB,E..ESB=12
	.IIF	NDF E..SIZ,E..SIZ=12+S.ESB
	.ENDM	ERSMDF
;
	.MACRO	ERBLDF	ROUT,MESNUM,ARGNUM,FARG
	.MCALL	ERSMDF
	ERSMDF
	.WORD	ARGNUM		;ERROR ARGUMENT NUMBER
	.IF	B FARG
	.WORD	MESNUM		;MESSAGE NUMBER, NON-FATAL
	.IFF
	.IF	IDN <FARG>,<FATAL>
	.WORD	-MESNUM		;MESSAGE NUMBER, FATAL.
	.IFF
	.ERROR	1;INVALID ARGUMENT TO ERBLDF
	.ENDC
	.ENDC
$$TMP=.
	.ASCII	/ROUT/
$$TMP$=.-$$TMP
	.IF	NE $$TMP$-6
	.IF	LT $$TMP$-6
	.REPT	6-$$TMP$
	.ASCII	/ /
	.ENDR
	.IFF
	.ERROR	2;ROUTINE NAME LONGER THAN 6 CHARACTERS
.=$$TMP+6
	.ENDC
	.ENDC
	ESBDF$			;GENERATE ERROR STATUS BLOCK.
	.ENDM	ERBLDF
;
	.MACRO	CHKARG	ARGNUM,ADDR
	CMPB	#ARGNUM,(R5)	;ENOUGH ARGUMENTS?
	BGT	.+12		;NO, SO JUMP TO ADDR
	BIT	#1,ARGNUM+ARGNUM(R5)	;ARGUMENT NULL?
	BEQ	.+6			;NO, SO CONTINUE.
	JMP	ADDR		;NO SUCH ARGUMENT, SO JUMP.
	.ENDM	CHKARG