.TITLE	VTEXTI SFGL70 ROUTINE TO PLOT VERTICAL TEXT(USING ABS INT COORDS)

.IDENT	'VTXI00'

.PSECT	VTEXTI

;	KEN DEMERS
;	UTRC
;	1970

;	THIS ROUTINE IS PART OF THE PDP-11/70 SMALL
;	FAST GRAPHICS LIBRARY (SFGL70). IT DISPLAYS
;	CHARACTERS ON THE SCREEN VERTICALLY.
;	THE COORDINATES PASSED ARE ABSOLUTE INTEGER
;	SCREEN COORDINATES.

;	CALLING FORMAT:

;	CALL VTEXTI(IBUFF,IXCORD,IYCORD)

;	IBUFF	= BUFFER CONTAINING THE ASCII CHARACTERS
;	IXCORD	= INTEGER X COORDINATE TO POSITION THE TEXT
;	IYCORD	= INTEGER Y COORDINATE TO POSITION THE TEXT

;	INTERNAL GLOBALS

.GLOBL	VTEXTI

;	EXTERNAL GLOBALS

.GLOBL	T$XTINT



VTEXTI:	MOV	#1,R0		;FLG=1= PLT TEXT VERTICALLY
	CALL	T$XTINT		;PLOT TEXT USING GRID COORDINATE SYSTEM
	RETURN
	.END