File NGRID.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file

C	COMPUTES NGRID=64*#X+#Y
	FUNCTION NGRID(IX,IY)
	COMMON NX,NY,KALX,MINY,IDUM
	DIMENSION KALX(8,8),MINY(8),IDUM(260)
	N=NY-1
	DO 50 I=1,N
	IF (IY-MINY(I))50,60,60
 50	CONTINUE
	I=NY
 60	N=NX-1
	DO 80 J=1,N
	IF(IX-KALX(I,J))80,90,90
 80	CONTINUE
	J=NX
 90	CONTINUE
S	TAD \I
S	CLL RTL;RTL;RTL
S	TAD \J
S	DCA \N
	NGRID=N
	RETURN
	END

Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with. I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation.

PDP-8 Home Page PDP-8 Site Map PDP-8 Site Search