.TITLE	MSG
	.IDENT	/V1.0/
	.MCALL	$WTQIO,$ASSIGN
;
;	CALL	MSG('MESSAGE TO OUTPUT')
;
;	or 	CALL	MSG(IARRAY)  message stops at NULL or 0 byte
;
TTNAM:	.ASCID	/TT:/
TTCHAN:	.LONG	0
.ENTRY MSG,^M<R2,R3>
	$ASSIGN_S	DEVNAM=TTNAM,CHAN=TTCHAN
	TSTB	(AP)		; Any params?
	BLEQ	20$		; None ?
	MOVL	4(AP),R0	; BUFFER ADDRESS FOR CHAR
	MOVW	(R0),R1		; Length from descriptor
	CALL	$WTQIO_S
	EFN=#1,TTCHAN=CHAN,P1=R0,P2=R1
	RET
	.END
;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