.TITLE	GTCUR - ROUTINE TO RETURN CURSOR COORDINATE POSITION

.IDENT	'GTCU00'

.PSECT	GTCUR

;	KEN DEMERS
;	UTRC
;	DECEMBER 1979

;	THIS ROUTINE CALLS S$TATUS TO RETURN THE CURRENT
;	ABSOLUTE INTEGER POSITION OF THE SCOPE'S CURSOR.
;	IT CALLS ABSGRD TO
;	CONVERT THE ABSOLUTE INTEGER X,Y COORDINATES TO
;	FLOATING POINT COORDINATES SCALED TO THE COORDINATE
;	WINDOW ESTABLISHED BY GRID.

;	CALLING FORMAT:

;	CALL GTCUR(X,Y)
;	ON ENTRY:

;	R5 = A(FORTRAN ARG BLK)

;	INTERNAL GLOBALS

.GLOBL GTCUR

;	EXTERNAL GLOBALS

.GLOBL	S$TATUS,A$BSGRD



GTCUR:	CALL	S$TATUS		;GET  CURSOR 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