File RECO2E.FT (FORTRAN source file)

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

C	BUILDS FILE CONTAINING #ERRORS AND MEAN CORRECT LATENCY
C	FOR EACH OF 50 WORDS USED.
	COMMON INPUT,IN,INBLK,NE,MCLAT,CLAT
	DIMENSION INPUT(256),NE(50),MCLAT(50),CLAT(50)
	DO 20 NW=1,50
	NE(NW)=0
 20	CLAT(NW)=0.
	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)
	NERR=0
	CL=0.
	DO 100 NT=1,12
	CALL INEXT(J)
	CALL INEXT(J)
	CALL INEXT(K)
	IF (J)90,70,70
 70	T=4096.*FLOAT(J)
	IF (K)80,85,85
 80	T=T+2048.
S	CLA; TAD \K; AND (3777; DCA \K
 85	T=T+FLOAT(K)
	CL=CL+T
	GO TO 100
 90	NERR=NERR+1
 100	CONTINUE
	NE(NW)=NE(NW)+NERR
	CLAT(NW)=CLAT(NW)+CL
 200	CONTINUE
 500	CONTINUE
	DO 600 NW=1,50
 600	MCLAT(NW)=CLAT(NW)/FLOAT(240-NE(NW))
	CALL LTAPE(-2,NE(1),7)
	WRITE(1,1)
 1	FORMAT(//'WORD #',4X,'#ERRORS/240','  AVG.CORR.LAT.')
	DO 700 NW=1,50
 700	WRITE(1,2)NW,NE(NW),MCLAT(NW)
 2	FORMAT(I5,2I10)
	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