title	CONMSG
	subttl	Module from library C_1 : CONMSG
	maclib	SYSEQU.LIB

; FILE:	CONMSG.MAC
; DATE: 820825:1312
; FOR:	Print string in <HL> with ENDSTR delim

; ENTRY	: Reg HL points to string closed by 'DELIM'

	entry	conmsg

	ext	conout

conmsg:
	push	af
cm0:
	ld	a,(hl)		; Get character
	inc	hl
	cp	endstr		; .. print till end
	jr	z,msgend
	call	conout
	jr	cm0
msgend:
	pop	af
	ret

	end