File GETIN.FT (FORTRAN source file)

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

	SUBROUTINE GETIN(WORD1,WORD1X,WORD2,WORD2X)
	INTEGER INPUT(20),WORD1,WORD1X
	INTEGER WORD2,WORD2X,ST2
	COMMON/GETCOM/INPUT
10	READ(4,1)INPUT
1	FORMAT(20A1)
	ST2=0
	IX1=0
	IX2=0
	I=0
	WORD2=0
20	I=I+1
	IF(I.GT.20)GOTO 10
	IF(INPUT(I).EQ.' ')GOTO 20
30	IX1=IX1+1
	I=I+1
	IF(I.GT.20)GOTO 60
	IF(INPUT(I).NE.' ')GOTO 30
40	I=I+1
	IF(I.GT.20)GOTO 60
	IF(INPUT(I).EQ.' ')GOTO 40
	ST2=I
50	IX2=IX2+1
	I=I+1
	IF(I.GE.20)GOTO 60
	IF(INPUT(I).NE.' ')GOTO 50
60	IX1=MIN0(6,IX1)
	IX2=MIN0(6,IX2)
	DO 70 I=1,20
	CALL CGET(INPUT(I),1,J)
70	INPUT(I)=J
	CALL DECODE(IX1,WORD1,WORD1X)
	IF(IX2.EQ.0)RETURN
	DO 80 I=1,IX2
80	INPUT(I)=INPUT(ST2+I-1)
	CALL DECODE(IX2,WORD2,WORD2X)
	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