	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

