.TITLE	VCURSR - ROUTINE TO RETURN CROSS-HAIR COORDINATE POSITION

.IDENT	'VCUR00'

.PSECT	VCURSR

;	KEN DEMERS
;	UTRC
;	NOVEMBER 1979

;	THIS ROUTINE CALLS FCURSE TO RETURN THE CHARACTER
;	TYPED AND THE ABSOLUTE INTEGER POSITION OF THE
;	TERMINAL'S CROSS-HAIRS. IT THEN CALL ABSGRD TO
;	CONVERT THE ABSOLUTE INTEGER X,Y COORDINATES TO
;	FLOATING POINT COORDINATES SCALED TO THE COORDINATE
;	SYSTEM ESTABLISHED BY GRID.

;	CALLING FORMAT:

;	CALL VCURSR(CHAR,X,Y)
;	ON ENTRY:

;	R5 = A(FORTRAN ARG BLK)

;	INTERNAL GLOBALS

.GLOBL VCURSR

;	EXTERNAL GLOBALS

.GLOBL	F$CURSE,A$BSGRD



VCURSR:	CALL	F$CURSE		;GET CHAR & CROSS-HAIR POSITION
	MOV	-(R5),R2	;R2= A(ABS INT Y COORD)
	MOV	-(R5),R1	;R1= A(ABS INT X COORD)
	CALL	A$BSGRD		;CONVERT COORDS TO GRID F.P. COORDS
	RETURN
	.END