*COMDECK NP$READ
          IDENT  NP$READ
          ENTRY  NP$READ
          COMMENT  READ FILE TO CIO BUFFER
          TITLE NP$READ - READ FILE TO CIO BUFFER 
*CALL NP$CRT
*IF DEF,IMS 
*#
*     1. SUBROUTINE NAME     AUTHOR              DATE 
*        NP$READ             S.KRULEVITCH        78/11/16 
* 
*     2. FUNCTIONAL DESCRIPTION 
*        READS ONE RECORD TO CIO BUFFER 
* 
*     3. METHOD USED
*        NOS DATA TRANSFER MACROS ARE USED. 
*        SYMPL CALL :     NP$READ(FILE);
* 
*     4. ENTRY CONDITIONS 
*        FILE - ADDRESS OF FET
* 
*     5. EXIT CONDITIONS
*        NONE 
* 
*     6. COMMON DECKS CALLED
*        NP$CRT 
* 
*     7. MACROS CALLED
*        READ - COPIES DATA INTO CIRCULAR I/O BUFFER. READS TO EOR. 
* 
*     8. DAYFILE MESSAGES 
*        NONE 
* 
*#
*ENDIF
 NP$READ  SUBR   =
          READ   X1,R 
          EQ     NP$READX    RETURN TO ENTRY POINT
          END 
