;
;  MACROS USED TO DEFINE THE ENTRIES
;  OF AN ERROR TABLE
;
;
;	DEFERR	NAME,VALUE,MESSAGE	;VALUE DEFAULTS TO NAME
;
	.MACRO	DEFERR	NAME,VALUE,TEXT
	.IIF NDF PR$ERR,PR$ERR=0
	.IF NB VALUE
		.WORD	VALUE
	.IFF
		.WORD	NAME
	.ENDC
	.WORD	PR$ERR
	PR$ERR=.-4
	.NCHR	X,<NAME TEXT>
	.WORD	X
	.ASCII	/NAME TEXT/
	.EVEN
	.ENDM
;
;
;	ENDERR	NAME	;USED TO TERMINATE ERROR TABLES
;
	.MACRO	ENDERR	NAME
	.IF NB NAME
		NAME=PR$ERR
	.ENDC
	PR$ERR=0
	.ENDM

;
;  MACRO TO WRITE OUT AN ERROR MESSAGE
;
;
;
;	ERROR	STRING
;
	.MACRO	ERROR MES
	.MCALL	CALL,PSTR
	CALL	ERRPFX
	PSTR	^^MES^
	JMP	DIE
	.ENDM
;