;	ROUTINE FOR STUFFING THE STACK AND CALLING THE
;	EXIT OR MESSAGE WRITING ROUTINES.
;
	.MACRO CALL_MSG TYPE,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,-
		A13,A14,A15,A16
;
	.NARG	ARG_COUNT	; THE NUMBER OF ARGUMENTS.
;
	.IRP	ARG,<A16,A15,A14,A13,A12,A11,A10,A9,A8,A7,A6,A5,A4,A3,A2,A1>
;
	.IIF	NOT_BLANK,ARG,	PUSHL	ARG
;
	.ENDR
;
;		CALL THE EXIT/MESSAGE ROUTINE
;
	CALLS	#<ARG_COUNT-1>,G^TYPE
	.ENDM	CALL_MSG
	.END