title	PDMSTR
	subttl	Module from library PULL_DOWN_5 : PDMSTR

; 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, 1st element holds
;	length of string

; EXIT	None

	public	pdmstr

	extrn	pdmtxt

	.xlist
	include	PDM.LIB
	.list

pdmstr:
	push	bc
	ld	a,(de)
	ld	b,a		; Fetch length
	inc	de
	call	pdmtxt
	pop	bc		; Restore reg
	ret

	end