title	Module from library HILIB_1 : WHERE
	name	('WHERE')
	maclib	baselib.lib

; Language : PASCAL

; Get cursor location

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-20253 Hamburg
;		Tel.: +49-40-4223247

;		Version 1.0, December 1987

; ENTRY	None

; EXIT	Reg L holds X, reg H Y position

	entry	where

	extrn	userf

where:
	call	userf		; Call function
	dw	_TEASK
	ld	a,maxlin-2
	cp	h		; Test max
	ret	nc
	ld	h,a		; Set limit
	ret

	end