*COMDECK NP$ROUT
          IDENT  NP$ROUT
          ENTRY  NP$ROUT
          COMMENT   ROUTES FILE TO INPUT
          TITLE NP$ROUT - ROUTES A FILE 
*CALL NP$CRT
*IF DEF,IMS 
*#
*     1. ROUTINE NAME        AUTHOR              DATE 
*        NP$ROUT             S.KRULEVITCH        78/11/13 
* 
*     2. FUNCTIONAL DESCRIPTION 
*        ROUTES A FILE TO DESTINATION SPECIFIED BY PARAMETER BLOCK
* 
*     3. METHOD USED
*        NP$ PREFIX IS USED FOR AN INTERNAL ENTRY POINT.
*        SYMPL CALL:  
*        NP$ROUT(PARAM,RECALL); 
* 
*     4. ENTRY CONDITIONS 
*        PARAM - PARAMETER BLOCK ADDRESS
*        RECALL - CIO CALL WITH RECALL IF SET 
* 
*     5. EXIT CONDITIONS
*        NONE 
* 
*     6. COMDECKS CALLED
*        NP$CRT 
* 
*     7. MACROS CALLED
*        ROUTE
* 
*     8. DAYFILE MESSAGES 
*        ILLEGAL USER CARD. 
*        SYSTEM ABORT.
*#
*ENDIF
 NP$ROUT  SUBR   =
          SA3    A1+1        ADDRESS OF RECALL BIT
          SA3    X3 
          ROUTE  X1,X3
          EQ     NP$ROUTX    RETURN TO ENTRY POINT
          END 
