.TITLE	ERRMDF - ERRMSG MACRO DEFINITION
	.IDENT	/010285/
;+
;*****
;
;	"ERRMSG" DEFINES AN ERROR MESSAGE TABLE ENTRY CONSISTING OF:
;		1) ERROR CODE TO ASSOCIATE WITH MESSAGE
;		2) BYTE COUNT OF ERROR TEXT
;		3) ASCII ERROR MESSAGE TO DIRECT TO TI:
;
;	 EXAMPLE:
;
;		ERRMSG	IE.UNS,<Insufficient POOL to allocate CCB>
;
;	 Expands to:
;		.WORD	IE.UNS		; DSW ERROR CODE #
;		.WORD	33.		; LENGTH OF MESSAGE
;		.ASCII	^Insuff...CCB^	; ERROR MESSAGE PROPER
;		.EVEN
;
;
;*****
;-

	.MACRO	ERRMSG,DSWERR,ERRTXT

	.WORD	DSWERR
	.NCHR	SYM,<ERRTXT>
	.WORD	<<SYM+1>/2>*2	; WORD ALIGN BYTE COUNT
	.ASCII	^ERRTXT^
	.EVEN

	.ENDM	;ERRMSG
;