ASMB,R,L,C
      HED READ ROUTINE
*     NAME:   READ
*     SOURCE: 92067-18175 
*     RELOC:  92067-16125 
*     PGMR:   G.A.A.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  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.       *
*  ***************************************************************
* 
      NAM READ.,7 92067-16125 REV.1903 740801 
      ENT READ. 
      EXT %READ,.ENTR 
* 
* 
*     READ.    IS AN INTERFACE ROUTINE TO CALL THE
*              READS ROUTINE FROM FORTRAN.
* 
*     THE CALL IS:
* 
*     CALL READ.(LU,BUF,RQLN,RTNLN) 
* 
*     W H E R E:
* 
*     LN       IS THE LOGICAL UNIT. 
*     BUF      IS THE USER'S BUFFER 
*     RQLN     IS THE REQUEST LENGTH IN WORDS.
*     RTNLN    IS THE RETURN LENGTH IN WORDS. 
* 
*     ON END OF FILE RTNLN IS SET TO -1.
* 
* 
LU    NOP 
BUF   NOP 
LN    NOP 
L     NOP 
READ. NOP 
      JSB .ENTR     GET PARAMETERS
      DEF LU
      LDA LN,I      SET LENGTH
      CMA,INA       TO NEGATIVE 
      ALS           CHARACTERS
      STA LN        AND STORE 
      JSB %READ     CALL READS ROUTINE
      DEF *+5       NORMAL RETURN 
      DEF LU,I      LU
      DEF BUF,I     BUFFER
      DEF LN        LENGTH
      CCB,RSS       EOF RETURN - SET TLOG TO -1 
      INB           NORMAL RETURN ROUND UP
      BRS           CONVERT TO WORDS
      STB L,I       STORE IN USER AREA
      JMP READ.,I   RETURN
      END 
                                                                                                                          