Trailing-Edge
-
PDP-10 Archives
-
decuslib10-06
-
43,50437/hnd601.for
There are no other files named hnd601.for in the archive.
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