title	PDMCON
	subttl	Module from library PULL_DOWN_4 : PDMCON

; Output character some times

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

;		Version 1.1 October 1988

; ENTRY	Reg C holds character, Reg B holds count
;	Count of 0 will be rejected

; EXIT	None

	public	pdmcon

	extrn	pdmele

	.xlist
	include	PDM.LIB
	.list

pdmcon:
	ld	a,b	; Test count
	or	a
	ret	z	; Exit on 0
frmlop:
	ld	a,c	; Load character
	call	pdmele	; Output it
	djnz	frmlop
	ret

	end