.TITLE	POINTI - SFGL70 ROUTINE TO PLOT POINTS

.IDENT	'POII00'

.PSECT	POINTI

;	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 DISPLAY'S ABSOLUTE INTEGER COORDINATE
;	WINDOW
;	ON ENTRY:

;	R5 = A(FORTRAN ARG BLK)

;	CALLING FORMAT

;	CALL POINTI(NUMPTS,IXARRAY,IYARRAY)

;	WHERE:

;	NUMPTS = # OF POINTS TO DISPLAY
;	IXARRAY = ARRAY OF INTEGER X COORDINATES
;	IYARRAY = ARRAY OF INTEGER Y COORDINATES


;	INTERNAL GLOBALS

.GLOBL	POINTI

;	EXTERNAL GLOBALS
.GLOBL	P$OINT
.GLOBL	A$RG21,A$RG22



POINTI: TST	(R5)+		;BUMP PTR PAST # ARGS
	MOV	@(R5)+,R0	;R0= # OF POINTS TO PLOT
	MOV	(R5)+,R1	;R1= A(IXARRAY)
	MOV	(R5),R2		;R2= A(IYARRAY)
	MOV	#A$RGB1,R5	;R5= A(P$OINT ARG BLK)
POI10:	MOV	(R1)+,A$RG21	;INIT P$OINT ARG BLK
	MOV	(R2)+,A$RG22	;INIT P$OINT ARG BLK
	CALL	P$OINT		;DISPLAY THE POINT
	SOB	R0,POI10	;LOOP UNTIL DONE ALL POINTS
	RETURN
	.END