title	PDMTXT
	subttl	Module from library PULL_DOWN_4 : PDMTXT

; Output string to window

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-2000 Hamburg 20
;		Tel.: 040/4223247

;		Version 1.1 October 1988

; ENTRY	Register pair DE points to string,
;	Reg B holds length of string

; EXIT	None

	public	pdmtxt

	extrn	pdmcha

	.xlist
	include	PDM.LIB
	.list

pdmtxt:
	ld	a,(de)	; Get character
	inc	de
	call	pdmcha	; Do the BIOS call
	djnz	pdmtxt	; Loop till end
	ret

	end