title	PDMFCU
	subttl	Module from library PULL_DOWN_2 : PDMFCU

; Get current cursor coordinates

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

;		Version 1.1 October 1988

; ENTRY	None

; EXIT	Reg L holds X- and Reg H Y-coordinate

	public	pdmfcu

	ext	pdmxbs

	.xlist
	include	PDM.LIB
	.list

pdmfcu:
	push	bc		; Save regs
	push	de
	push	ix
	call	pdmxbs		; Do the XBIOS call
	dw	teask
	pop	ix		; Restore regs
	pop	de
	pop	bc
	ret

	end