.TITLE	TXTINT SFGL70 ROUTINE TO PLOT TEXT(ABS INT COORDS)

.IDENT	'TXTI00'

.PSECT	TXTINT

;	KEN DEMERS
;	UTRC
;	OCTOBER 1979

;	THIS ROUTINE IS A GENERAL PURPOSE ROUTINE
;	TO PLOT TEXT HORIZONTALLY OR VERTICALLY
;	USING ABSOLUTE INTEGER COORDINATES.
;	ON ENTRY:

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


;	INTERNAL GLOBALS

.GLOBL	T$XTINT

;	EXTERNAL GLOBALS

.GLOBL	H$TXT,V$TXT,MVCURI
.GLOBL	A$RGB2,B$UFPTR
.GLOBL	A$RGB1,A$RG21,A$RG22



T$XTINT: 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)+,A$RG21	;SET UP X COORD IN MVCURI ARG BLK
	MOV	@(R5),A$RG22	;SET UP Y COORD IN MOV CUR ARGBLK
	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