.TITLE	MSG
	.IDENT	/V1.0/
;
;	CALL	MSG('MESSAGE TO OUTPUT')
;
;	or 	CALL	MSG(IARRAY)  message stops at NULL or 0 byte
;
MSG::	CLR	-(SP)		; Second word of message block
	MOV	2(R5),-(SP)	; Address of message block
	MOV	SP,R0		; Points to message block
	CLR	R1		; Signal, non error message
	JSR	PC,$ERRLG	; Output message
	CMP	(SP)+,(SP)+	; Clear stack
	RETURN
	.END