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

.IDENT	'FLTI00'

.PSECT	FLTXTI

;	KEN DEMERS
;	UTRC
;	OCTOBER 1979


;	THIS ROUTINE DISPLAYS A FLOATING POINT #
;	ON THE SCOPE IN G16.5 FORMAT. THE COORDINATES
;	PASSED ARE TAKEN AS AN ABSOLUTE INTEGER POSITION.

;	CALLING FORMAT:

;	CALL FLTXTI(NUMBER,IXCORD,IYCORD)

;	WHERE:

;	NUMBER	= FLOATING POINT NUMBER TO BE DISPLAYED
;	IXCORD	= INTEGER X COORDINATE POSITION TO DISPLAY THE #
;	IYCORD	= INTEGER Y COORDINATE POSITION TO DISPLAY THE #

;	INTERNAL GLOBALS

.GLOBL	FLTXTI

;	EXTERNAL GLOBALS

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



FLTXTI:	TST	(R5)+		;BUMP PTR PAST #ARG LOC
	MOV	(R5)+,B$UFPTR	;INIT ARG BLK PTR TO #
	MOV	@(R5)+,A$RG21	;SET UP X MVCURI ARG BLK
	MOV	@(R5),A$RG22	;SET UP Y IN MVCURI ARG BLK
	MOV	#A$RGB2,R5	;R5= A(E$NCODE ARG BLK)
	CALL	E$NCODE		;E$NCODE THE #
	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