.TITLE	VTEXT SFGL70 ROUTINE TO PLOT VERTICAL TEXT

.IDENT	'VTEX00'

.PSECT	VTEXT

;	KEN DEMERS
;	UTRC
;	1970

;	THIS ROUTINE IS PART OF THE PDP-11/70 SMALL
;	FAST GRAPHICS LIBRARY (SFGL70). IT PLOTS
;	N CHARACTERS ON THE SCREEN VERTICALLY.
;	THE COORDINATE SYSTEM USED IS THE ONE
;	ESTABLISHED BY GRID.

;	CALLING FORMAT:

;	CALL VTEXT(IBUFF,XCOORD,YCOORD)

;	IBUFF	= BUFFER CONTAINING THE ASCII CHARACTERS
;	XCOORD	= X COORDINATE TO POSITION THE TEXT
;	YCOORD	= Y COORDINATE TO POSITION THE TEXT

;	INTERNAL GLOBALS

.GLOBL	VTEXT

;	EXTERNAL GLOBALS

.GLOBL	T$XTGRD



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