.title	PUTMSG	Display error messages
	.ident	/V1.00/
	.sbttl	Documentation
;
;	This is a simple subroutine to display errors, using
;	a calling format identical to LIB$SIGNAL, except that
;	the calling routine will not abort if a "fatal" or
;	"severe" error occurs.
;
;	Eric F. Richards
;	Gould OSD VAXcluster, VMS V4.4
;	26-Nov-86
;
	.sbttl	Setup

	.dsabl	traceback, debug	; clean up our object code
	.enabl	suppression		; clean up our listings

	.sbttl	Main Code
	.psect	$code, nowrt, exe, long, pic, shr

	.entry	putmsg, 0		; entry point, no registers saved
	$putmsg_s msgvec=(ap)		; this is the hard part!
	ret				; return to caller
	.end				; that's all, folks