*DECK DB$RCLR 
          IDENT  DB$RCLR
*#
* *   DB$RCLR - RECALL DURING SYSTEM RECOVERY    PAGE  1
* *   P L KENNY                                  DATE  07/06/81 
* 
* DC  PURPOSE 
* 
*     PUT THE CONTROL POINT INTO PERIODIC RECALL OR INTO AUTOMATIC
*     RECALL ON A COMPLETION BIT. 
*     (THIS ROUTINE IS USED DURING SYSTEM RECOVERY INSTEAD OF DB$RCLL 
*     BECAUSE DB$RCLL DOES NOT IMMEDIATELY GO INTO RECALL BUT INSTEAD 
*     CHECKS FOR OTHER USER REQUESTS TO PROCESS.  THIS IS ESPECIALLY
*     A PROBLEM WITH THE CDCSBTF VERSION OF DB$RCLL.) 
* 
* DC  ENTRY CONDITIONS
* 
*     PARAMETERS
* 
*     ZERO    - PERIODIC RECALL 
*     NONZERO - AUTOMATIC RECALL ON THE COMPLETION BIT AT THE LOCATION
*               SPECIFIED 
* 
* DC  EXIT CONDITIONS 
* 
*     IF THE PARAMETER VALUE IS ZERO, DB$RCLR RETURNS AFTER GOING INTO
*     RECALL FOR THE OPERATING SYSTEM DEFAULT RECALL TIME PERIOD. 
*     IF THE PARAMETER IS NONZERO, DB$RCLR RETURNS WHEN THE COMPLETION
*     BIT AT THE ADDRESS SPECIFIED IS SET.
* 
* DC  CALLING ROUTINES
* 
*     THIS IS A GENERAL PURPOSE RECALL ROUTINE. 
*     IN PARTICULAR, IT IS CALLED DURING CDCS SYSTEM RECOVERY 
*     PROCESSING. 
* 
* DC  CALLED ROUTINES 
* 
*     THE SYSTEM RECALL MACRO IS CALLED.
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     NONE
* 
* DC  DESCRIPTION 
* 
*     IF THE PARAMETER IS ZERO, PUT THE CONTROL POINT INTO PERIODIC 
*     RECALL FOR THE OPERATING SYSTEM DEFAULT RECALL TIME PERIOD. 
* 
*     IF THE PARAMETER IS NONZERO, PUT THE CONTROL POINT INTO AUTOMATIC 
*     RECALL ON THE COMPLETION BIT AT THE ADDRESS SPECIFIED BY THE
*     PARAMETER.
*#
  
          ENTRY  DB$RCLR
  
 DB$RCLR  EQ     *+1S17 
          SA1    X1 
          NZ     X1,PARAMETR
          RECALL             PERIODIC RECALL FOR OS DEFAULT PERIOD
          EQ     DB$RCLR
  
 PARAMETR RECALL X1          RECALL ON PARAMETER COMPLETION BIT 
          EQ     DB$RCLR
  
          END 
