.MACRO	MSGN$S PFX,SEV,MSG,REP,LEN,ERR
	JSR	R5,$MSGEN	;GO TO MESSAGE GEN ROUTINE
	.IIF  B <PFX>	.WORD	0	;NO PREFIX
	.IIF NB <PFX>	.WORD	PFX	;A(MESSAGE PREFIX)
	.IIF  B <SEV>	.WORD	0	;SEVERITY LEVEL 0
	.IF  NB <SEV>
	.IF  GT SEV-3
	.ERROR	SEV	;SEVERITY LEVEL TOO BIG
	.ENDC	;.IF  GT SEV0-3
	.IF  LT SEV
	.ERROR	SEV	;SEVERITY LEVEL NEGATIVE
	.ENDC	;.IF  LT SEV
	.WORD	SEV	;SEVERITY LEVEL
	.ENDC	;.IF  NB <SEV>
	.IIF  B <MSG>	.WORD	0	;NO MESSAGE TEXT
	.IIF NB <MSG>	.WORD	MSG	;A(MESSAGE TEXT)
	.IIF  B <REP>	.WORD	0,0	;NO REPLY
	.IF  NB <REP>
	.IF   B <LEN>
	.ERROR		;REPLY LENGTH NOT SPECIFIED
	.ENDC	;.IF   B <LEN>
	.WORD	REP		;A(REPLY BUFFER)
	.WORD	LEN		;REPLY LENGTH
	.ENDC	;.IF  NB <REP>
	.IIF NB <ERR>	.MCALL	ERR$
	.IIF NB <ERR>	ERR$	ERR
	.ENDM