*DECK NP$RCL
          IDENT  NP$RCL 
          TITLE  NP$RCL 
*CALL NP$CRT
          ENTRY  NP$RCL 
          SST 
 OPL      XTEXT  COMSPRD
*#
*1DC  NP$RCL
* 
*     1. PROC NAME           AUTHOR              DATE 
*        NP$RCL              J.C. LEE            79/02/12 
* 
*     2. FUNCTIONAL DESCRIPTION 
*        ALLOW AIP ROUTINE TO GO INTO RECALL ON BIT 0 OF A WORD 
*        SPECIFIED BY THE INPUT PARAMETER IF THE INPUT PARAMETER
*        IS NOT EQUAL TO ZERO, ELSE THE INPUT PARAMETER IS ZERO 
*        AND THE ROUTINE WILL GO INTO RECALL FOR AN 
*        INSTALLATION SPECIFIED TIME. 
* 
*     3. METHOD USED
*        USE COMPASS MACRO RECALL.
* 
*     4. ENTRY CONDITIONS.
*        (X1) = ADDRESS OF WORD SPECIFIED FOR THE RECALL OR ZERO. 
* 
*     5. EXIT CONDITIONS
*        OPERATION COMPLETED
* 
*     6. COMDECKS CALLED
*        NP$CRT 
* 
*     7. ROUTINES CALLED
*        NONE 
* 
*     8. DAYFILE MESSAGES 
*        NONE 
* 
*#
  
 NP$RCL   DATA   0           ENTRY/EXIT 
          SA1    X1 
          ZR     X1,NOEVENT 
          RECALL X1          RECALL ON EVENT. 
          EQ     NP$RCL      RETURN 
  
 NOEVENT  RECALL             RECALL AFTER TIME PERIOD.
          EQ     NP$RCL      RETURN 
          END