Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50212/addr.f4
There are no other files named addr.f4 in the archive.
	SUBROUTINE ADDR(IB,B,LIST,N)
C				READS RECORD DATA INTO AN EXISTING FILE
C				IT IS STORED AT THE END OF THE FILE
C				IN THE ORDER IN WHICH THEY CAME IN
	DIMENSION IB(1),IPAR(10),IFRMAT(1),LIST(1),B(1)
	COMMON IDF ,LFR,NAVR,MAXR,NSPR,LSR,LFMT,NCPR,LPFR,C1
	EQUIVALENCE (IPAR(1),IDF)
C				INPUTS THE DATA
	CALL READC (IB,B,LIST,N)
C				CHECK FOR END OF FILE
	IF(ISWICH(6).EQ.1) R E T U R N
C
C				IS THERE ANY ROOM IN THE FILE?
	IF(NAVR.GE.MAXR) GO TO 3
C				WRITE THE DATA AT THE END OF THE FILE
C				AND UPDATE NAVR AND LSR
	LSR=NAVR
	CALL WRITER(IB)
	NAVR=NAVR+NSPR
	RETURN
C
3	CONTINUE
	TYPE 100
100	FORMAT (9 HFILE FULL)
	PAUSE
	RETURN
	END