.TITLE	FLTXT - SFGL70 ROUTINE TO DISPLAY A FLOATING PT #

.IDENT	'FLTX00'

.PSECT	FLTXT

;	KEN DEMERS
;	UTRC
;	OCTOBER 1979


;	THIS ROUTINE DISPLAYS A FLOATING POINT #
;	ON THE SCOPE IN G16.5 FORMAT. THE COORDINATE
;	SYSTEM IT USES IS THAT ESTABLISHED BY GRID

;	CALLING FORMAT:

;	CALL FLTXT(NUMBER,XCOORD,YCOORD)

;	WHERE:

;	NUMBER	= FLOATING POINT NUMBER TO BE DISPLAYED
;	XCOORD	= X COORDINATE POSITION TO DISPLAY THE #
;	YCOORD	= Y COORDINATE POSITION TO DISPLAY THE #

;	INTERNAL GLOBALS

.GLOBL	FLTXT

;	EXTERNAL GLOBALS

.GLOBL	B$UFPTR,E$NCODE,MVCURI,H$TXT
.GLOBL	A$RGB1,A$RGB2,C$BUFF,S$CALE



FLTXT:	TST	(R5)+		;BUMP PTR PAST #ARG LOC
	MOV	(R5)+,B$UFPTR	;INIT ARG BLK PTR TO #
	MOV	(R5)+,R1	;R1= A(X COORD)
	MOV	(R5)+,R2	;R2= A(Y COORD)
	MOV	#A$RGB2,R5	;R5= A(E$NCODE ARG BLK)
	CALL	E$NCODE		;E$NCODE THE #
	CALL	S$CALE		;S$CALE COORDS TO GRID SYSTEM
	MOV	#A$RGB1,R5	;R5= A(MVCURI ARGBLK)
	CALL	MVCURI		;POSITION CURSOR
	MOV	#C$BUFF,B$UFPTR	;PUT E$NCODED # BUFF ADDR IN ARG BLK
	MOV	#A$RGB2,R5	;R5= A(H$TXT ARG BLK)
	CALL	H$TXT		;DISPLAY THE #
	RETURN
	.END