.TITLE	POINT - SFGL70 ROUTINE TO PLOT POINTS

.IDENT	'POIN00'

.PSECT	POINT

;	KEN DEMERS
;	UTRC
;	DECEMBER 1979

;	THIS ROUTINE IS PART OF THE SMALL FAST
;	GRAPHIC LIBRARY ON THE 11/70(SFGL70), WHICH
;	HAS THE SAME FUNCTIONALITY AS THE PDP-6
;	MEMO SCOPE LIBRARY. THIS ROUTINE PLOTS
;	POINTS, USING THE VIRTUAL WINDOW ESTABLISHED BY GRID.

;	ON ENTRY:

;	R5 = A(FORTRAN ARG BLK)

;	CALLING FORMAT

;	CALL POINT(NUMPTS,XARRAY,YARRAY)

;	WHERE:

;	NUMPTS = # OF POINTS TO DISPLAY
;	XARRAY = ARRAY OF FLOATING POINT X COORDINATES
;	YARRAY = ARRAY OF FLOATING POINT Y COORDINATES


;	INTERNAL GLOBALS

.GLOBL	POINT

;	EXTERNAL GLOBALS
.GLOBL	S$CALE,P$OINT,A$RGB1



POINT: TST	(R5)+		;BUMP PTR PAST # ARGS
	MOV	@(R5)+,R0	;R0= # OF POINTS TO PLOT
	MOV	(R5)+,R1	;R1= A(XARRAY)
	MOV	(R5),R2		;R2= A(YARRAY)
	MOV	#A$RGB1,R5	;R5= A(POINT ARG BLK)
POI10:	CALL	S$CALE		;S$CALE POINTS TO GRID COORDINATE SYSTEM
	CALL	P$OINT		;DISPLAY THE POINT
	SOB	R0,POI10	;LOOP UNTIL DONE ALL POINTS
	RETURN

	.END