File DATEI.FT (FORTRAN source file)

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

	SUBROUTINE DATEI(I1,I2,I3,ITYP,K1)
	COMMON LANF,NAME,IDAT,IPU,IQU
	DIMENSION NAME(11,148),IDAT(23),IPU(4),IQU(4)
	DIMENSION IPRFA(6),TEXT(5)
	TEXT(1)='FEHLER'
	TEXT(2)='NICHT '
	TEXT(3)='BESTAN'
	TEXT(4)='DEN   '
	TEXT(5)='      '
310	FORMAT(I3,10A2,3A6)
315	FORMAT(6A2)
	DO 105 K=1,6
105	IPRFA(K)=-2016
	GOTO(1,2),ITYP
2	DO 205 K=1,3
	IF(IPU(K)+IQU(K)) 205,205,305
305	IF(IPU(K)) 405,505,405
405	IPRFA(K)=IDAT(1+K)
	GOTO 205
505	IPRFA(3+K)=IDAT(1+K)
205	CONTINUE
1	CONTINUE
	WRITE(4,310)(NAME(K2,K1),K2=1,11),TEXT(I1),TEXT(I2),TEXT(I3),
	WRITE(4,315)(IPRFA(K),K=1,6)
	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