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