title	PUTSTR
	subttl	Module from library C_6 : PUTSTR
	maclib	SYSEQU.LIB

; FILE:	PUTSTR.MAC
; DATE:	820825:1701
; FOR:	Output msg from <HL> to STDOUT

; Put out message on STDOUT
; ENTRY	: Reg HL points to message

	entry	putstr

	ext	putstf,stdout

putstr:
	push	af
	push	bc
	ld	a,(stdout)	; Get channel
	ld	c,a
	call	putstf		; .. give string
	pop	bc
	pop	af
	ret

	end