Google
 
Trailing-Edge - PDP-10 Archives - decuslib10-06 - 43,50437/dmp601.for
There are no other files named dmp601.for in the archive.
	SUBROUTINE DMP601
	INCLUDE 'BOSS.PRM'
	PHYDSK = 0
	CALL GETADD(ADDR)
10	CALL CALLI("51,PHYDSK)
	IF (PHYDSK .EQ. 0) RETURN
	CALL GET601(PHYDSK,AR601,ADDR)
	WRITE(21) (AR601(I),I=1,LEN601)
	GOTO 10
	END