title	PUTSTF
	subttl	Module from library C_5 : PUTSTF
	maclib	SYSEQU.LIB

; FILE:	PUTSTF.MAC
; DATE:	820825:1701
; FOR:	Output msg from <HL> to channel C

; Put out message on channel
; ENTRY	: Reg HL points to message
;	  Reg C contains channel no.

	entry	putstf

	ext	putcf

putstf:
	push	af
	call	.putstf
	pop	af
	ret
.putstf:
	ld	a,(hl)
	inc	hl		; Will point past
	cp	endstr		; ..ENDSTR when done
	ret	z
	call	putcf
	jr	.putstf

	end