.TITLE	TICXOY - ROUTINE TO PLOT TICS ALONG GRID

.IDENT	'TICX00'

.PSECT	TICXOY

;	KEN DEMERS
;	UTRC
;	JANUARY 1980

;	THIS IS THE LOW LEVEL ROUTINE TO PLOT
;	TIC MARKS ONLY ALONG THE X AND Y GRID.

;	ON ENTRY:

;	R1 = # OF TICS TO PLOT
;	R2 = SPACING BETWEEN TICS
;	R3 = FLG = 0 = DO X GRID = 1 = DO Y GRID
;	R4 = X COORDINATE
;	R5 = Y COORDINATE

;	INTERNAL GLOBALS

.GLOBL	T$ICXOY

;	EXTERNAL GLOBALS

.GLOBL	P$LTTIC,S$AVARG,R$STARG,X$MAXCO,Y$MAXCO



T$ICXOY: CALL	S$AVARG		;SAVE REGS
TIC05: CALL	P$LTTIC		;PLOT A TIC MARK
	TST	R3		;X OY Y GRID?
	BNE	TIC10		;Y
	ADD	R2,R4		;BUMP X
	CMP	#X$MAXCO,R4	;OUT OF RANGE?
	BLT	TIC30		;EXIT
	BR	TIC20
TIC10:	ADD	R2,R5		;BUMP Y COORD
	CMP	#Y$MAXCO,R5	;OUT OF RANGE?
	BLT	TIC30		;EXIT
TIC20:	SOB	R1,TIC05	;LOOP UNTIL DONE
TIC30:	CALL R$STARG		;RESTORE REGS
	RETURN

	.END