SUBROUTINE HND601(A,WORD)
C
C	HANDLE 601 TYPE RECORDS (DISK)
C
	INCLUDE 'SYSREP.PRM'
	DIMENSION TEMP(18)
	TEMP(1) = WORD
	DO 10 I = 2,18
	READ(21,END=20) TEMP(I)
10	CONTINUE
	UNIT = TEMP(9) .AND. "7
	CNT = UNIT+1
	CNTRLR = TEMP(9) .AND. "700
	IF (CNTRLR .EQ. "100) CNT = NUMDSK
C
C	**[01] KLUDGE FOR CNT > NUMDSK.
C	**[01] MAKE CNT = NUMDSK
C	**[MRB] 25-SEP-76
	DO 30 I = 1,18
	REC601(CNT,I,A) = TEMP(I)
30	CONTINUE
20	RETURN
	END