title	PDMRCU
	subttl	Module from library PULL_DOWN_7 : PDMRCU

; Restore cursor if requested

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

;		Version 1.0 October 1988

; ENTRY	Reg IX holds User Parameter Block

; EXIT	Cursor set to location before calling PDM routines

	public	pdmrcu

	ext	pdmcur


	.xlist
	include	PDM.LIB
	.list

pdmrcu:
	bit	savxy,(ix+mode)	; Test previous saved
	ret	z		; .. no, ignore it
	ld	l,(ix+xsav)	; Get positions
	ld	h,(ix+ysav)
	call	pdmcur		; Set position
	ret

	end