File RECO2I.FT (FORTRAN source file)

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

C	BUILDS FILES CONTAINING #CORRECT & CORR. LATENCY
C	FOR 50 WORDS X 12 TRIAL TYPES USED.
	COMMON INPUT,IN,INBLK,NC,CLAT
	DIMENSION INPUT(256),NC(50,12),CLAT(50,12),MASK(22)
	DO 10 I=1,8
 10	MASK(I)=I
	DO 11 I=9,11,2
	MASK(I)=7
 11	MASK(I+1)=8
	DO 12 I=13,19,2
	MASK(I)=9
 12	MASK(I+1)=10
	MASK(21)=11
	MASK(22)=12
	DO 20 NW=1,50
	DO 15 J=1,12
	NC(NW,J)=0
 15	CLAT(NW,J)=0.
 20	CONTINUE
	DO 500 NS=1,20
	INBLK=8*NS+8
	IF (NS-4)60,50,50
 50	INBLK=INBLK+8
 60	CALL LTAPE(1,INPUT,INBLK)
	IN=0
	DO 200 I=1,50
	CALL INEXT(NW)
	DO 150 J=1,12
	CALL INEXT(NT)
	CALL INEXT(K)
	CALL INEXT(L)
	IF (K)150,70,70
 70	M=MASK(NT)
	T=4096.*FLOAT(K)
	IF (L)80,85,85
 80	T=T+2048.
S	CLA; TAD \L; AND (3777; DCA \L
 85	T=T+FLOAT(L)
	NC(NW,M)=NC(NW,M)+1
	CLAT(NW,M)=CLAT(NW,M)+T
 150	CONTINUE
 200	CONTINUE
 500	CONTINUE
	CALL LTAPE(-2,NC(1,1),10)
	CALL LTAPE(-2,NC(7,6),11)
	CALL LTAPE(-2,NC(13,11),12)
	DO 600 NW=1,50
	DO 550 J=1,12
 550	NC(NW,J)=CLAT(NW,J)/FLOAT(NC(NW,J))
 600	CONTINUE
	CALL LTAPE(-2,NC(1,1),13)
	CALL LTAPE(-2,NC(7,6),14)
	CALL LTAPE(-2,NC(13,11),15)
	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