.TITLE	MVCUR - MOVE CURSOR TO VIRTUAL WINDOW COORDINATE POSITION

.IDENT	'MVCU00'

.PSECT	MVCUR

;	KEN DEMERS
;	DECEMBER 1979
;	UTRC

;	THIS ROUTINE IS PART OF THE SFGL70 PACKAGE. IT MOVES
;	THE CURSOR TO THE VIRTUAL WINDOW SCREEN COORDINATES
;	REQUESTED IN THE CALL.

;	ON ENTRY:

;	R5 = A(FORTRAN ARG BLK)

;	CALLING FORMAT

;	CALL MVCUR(X,Y)

;	WHERE:

;	X = VIRTUAL WINDOW X COORDINATE TO POSITION CURSOR

;	Y = VIRTUAL WINDOW Y COORDINATE TO POSITION CURSOR

;	INTERNAL GLOBALS

.GLOBL	MVCUR

;	EXTERNAL GLOBALS

.GLOBL	MVCURI,S$CALE,A$RGB1,ALPHA



MVCUR:	MOV	2(R5),R1	;R1= A(REQUESTED X VIRTUAL COORD)
	MOV	4(R5),R2	;R2= A(REQUESTED Y VIRTUAL COORD)
	CALL	S$CALE		;SCALE COORDS TO VIRTUAL WINDOW EST BY GRID
	MOV	#A$RGB1,R5	;R5= A(M$OVCUR ARG BLK)
	CALL	MVCURI		;POSITION CURSOR
	CALL	ALPHA		;RETURN IN ALPHA MODE
	RETURN
	.END
ALL	M$OVCUR		;MOVE CURSOR TO DESIRED POSITION
	RETURN
	.END