File RECO2A.FT (FORTRAN source file)

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

	COMMON INPUT,IN,INBLK
	DIMENSION INPUT(256),NC(20,22),NO(20,22)
	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)
	DO 70 J=1,22
	NC(NS,J)=0
 70	NO(NS,J)=0
	IN=0
	DO 200 I=1,50
	CALL INEXT(J)
	DO 100 NT=1,12
	CALL INEXT(J)
	CALL INEXT(K)
	IF (K)90,80,80
 80	NC(NS,J)=NC(NS,J)+1
 90	NO(NS,J)=NO(NS,J)+1
	CALL INEXT(K)
 100	CONTINUE
 200	CONTINUE
 500	CONTINUE
	CALL LTAPE(-2,NC(1,1),1)
	CALL LTAPE(-2,NC(17,13),2)
	CALL LTAPE(-2,NO(1,1),3)
	CALL LTAPE(-2,NO(17,13),4)
	WRITE(1,1)
 1	FORMAT(///'COND    N    C    E    %C')
	DO 600 J=1,22
	NOBS=0
	NCOR=0
	DO 550 NS=1,20
	NOBS=NOBS+NO(NS,J)
 550	NCOR=NCOR+NC(NS,J)
	K=NOBS-NCOR
	P=FLOAT(NCOR)/FLOAT(NOBS)
 600	WRITE(1,2)J,NOBS,NCOR,K,P
 2	FORMAT(4I5,F6.3)
	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