title	PDMSCU
	subttl	Module from library PULL_DOWN_3 : PDMSCU

; Get current cursor coordinates into UPB

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

;		Version 1.1 October 1988

; ENTRY	Register IX points to parameter block

; EXIT	Parameter block at IX+xsav filled with X-coordinate
;	and IX+ysav filled with Y-coordinate

	public	pdmscu

	ext	pdmfcu

	.xlist
	include	PDM.LIB
	.list

pdmscu:
	push	hl
	call	pdmfcu		; Fetch cursor
	ld	(ix+xsav),l	; .. save it
	ld	(ix+ysav),h
	pop	hl
	ret

	end