SPL,L,O 
!     NAME:   RDNAM 
!     SOURCE: 92060-18045 
!     RELOC:  92060-16045 
!     PGMR:   A.M.G.
! 
!  ***************************************************************
!  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1976.  ALL RIGHTS     *
!  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
!  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
!  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
!  ***************************************************************
! 
      NAME RDNAM(3,99) "92060-16045 REV.1926 790506"
! 
! 
       LET RMPAR,                           \PARAMETER PASSING
           READF,                           \FILE READ
           OPEN,                            \FILE OPEN
           CLOSE,                           \FILE CLOSE 
           PRTN,                            \PARAM. PASS TO CALLER
           EXEC                             \RTE SYSTEM CALLS 
             BE SUBROUTINE,EXTERNAL 
! 
       LET PRAM1,PRAM2,PRAM3,PRAM4,PRAM5,   \CALLING PARAMETERS 
           DCB(144),                        \DCB BUFFER 
           RTN1,RTN2,RTN3,RTN4,RTN5,        \RETURN PARAMETERS
           IL                               \RECORD LENGTH
              BE INTEGER
! 
! 
!  THE FOLLOWING PROGRAM READS A CASSETTE DIRECTORY FILE
!  WHICH HAS BEEN READ INTO A FMGR FILE, AND FOR EACH 
!  RECORD READ, RETURNS A FILE NAME TO BE READ FROM THE 
!  CASSETTE AND UPDATED ONTO THE RTE MASTER CARTRIDGE.
! 
! 
! 
RDNAM: RMPAR(PRAM1)                         !GET CALLING PARS.
       OPEN(DCB,RTN5,PRAM1)                 !OPEN DIRECTORY FILE. 
       IF RTN5 < 0 THEN GOTO ERRET          !IF ERROR, LEAVE. 
RDREC: READF(DCB,RTN5,RTN1,4,IL)            !READ A RECORD. 
       IF RTN5 < 0 THEN GOTO ERET1          !IF ERROR, LEAVE. 
       IF IL = -1 THEN GOTO TERM            !IF EOF, STOP.
       IF RTN4 < 0 THEN GOTO RDREC          !IF DELETED FILE, RETRY.
       RTN4 _ (RTN4 AND 377K) OR 20000K 
       PRTN(RTN1)                           !RETURN FILE NAME.
       EXEC(6,0,1)                          !TERM. SAVING RESOURCES.
       GOTO RDREC 
TERM:  RTN1 _ -1
ERET1: CLOSE(DCB) 
ERRET: PRTN(RTN1) 
       EXEC(6)
       END RDNAM
       END$ 
                                