.TITLE	TXTGRD SFGL70 ROUTINE TO PLOT TEXT(GRID COORDS)

.IDENT	'TXTG00'

.PSECT	TXTGRD

;	KEN DEMERS
;	UTRC
;	OCTOBER 1979

;	THIS ROUTINE IS A GENERAL PURPOSE ROUTINE
;	TO PLOT TEXT HORIZONTALLY OR VERTICALLY
;	USING THE COORDINATE SYSTEM ESTABLISHED
;	BY GRID.
;	ON ENTRY:

;	R0 = 0 = PLOT TEXT HORIZONTALLY
;	R0 = 1 = PLOT TEXT VERTICALLY
;	R5 = A(ARG BLK OF BUFF,XCOORD,YCOORD)


;	INTERNAL GLOBALS

.GLOBL	T$XTGRD

;	EXTERNAL GLOBALS

.GLOBL	H$TXT,V$TXT,MVCURI,S$CALE
.GLOBL	A$RGB2,B$UFPTR,A$RGB1



T$XTGRD: TST	(R5)+		;BUMP ARG BLK PTS PAST # ARG LOC
	MOV	(R5)+,B$UFPTR	;SET UP ARG BLK FOR H$TXT OR V$TXT
	MOV	(R5)+,R1	;R1= A(X COORD)
	MOV	(R5),R2		;R2= A(Y COORD)
	CALL	S$CALE		;S$CALE X,Y POSITION TO GRID COORDS
	MOV	#A$RGB1,R5	;R5= A(MVCURI ARG BLK)
	CALL	MVCURI		;POSITION CURSOR
	MOV	#A$RGB2,R5	;R5= A(H$TXT OR V$TXT ARG BLK)
	TST	R0		;HORIZ OR VERT?
	BNE	TXT10		;VERT
	CALL	H$TXT		;PLT THE TEXT
	BR	TXT20
TXT10:	CALL	V$TXT		;PLT THE TEXT
TXT20:	RETURN
	.END