title	PDMCUR
	subttl	Module from library PULL_DOWN_6 : PDMCUR

; Output cursor position

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

;		Version 1.1 October 1988

; ENTRY	Reg L holds row, Reg H holds line

; EXIT	None

	public	pdmcur

	extrn	pdmstr

	.xlist
	include	PDM.LIB
	.list

pdmcur:
	push	de
	ld	a,l
	add	a,20h		; Add offset
	ld	(row),a
	ld	a,h
	add	a,20h
	ld	(line),a
	ld	de,curstr	; Fetch string
	call	pdmstr		; Execute print
	pop	de
	ret

	dseg

curstr:	db	4,esc,'Y'
line:	ds	1
row:	ds	1

	end