*DECK RECOVR
          IDENT  RECOVR 
          SYSCOM B1 
          LIST   X
 RECOVR   TITLE  RECOVR - REPRIEVE INTERFACE. 
          COMMENT  REPRIEVE INTERFACE 
          COMMENT COPYRIGHT CONTROL DATA CORPORATION. (1977). 
 RECOVR   SPACE  4,10 
*****     RECOVR - REPRIEVE INTERFACE.
* 
*         RECOVR SERVES AS AN INTERFACE BETWEEN THE OPERATING 
*         SYSTEM AND USER PROGRAMS THAT WISH TO REGAIN CONTROL
*         AFTER AN INTERRUPT OR ERROR.
          SPACE  4,10 
***       ENTRY CONDITIONS. 
* 
*                (A1) = FWA OF PARAMETER LIST.
*                (X1) = FWA OF REPRIEVE SUBROUTINE. 
*                ((A1)+1) = ADDRESS OF REPRIEVE MASK. 
*                ((A1)+2) = ADDRESS OF LWA FOR CHECKSUM.  (LWA = 0
*                           IF CHECKSUM NOT TO BE TAKEN.) 
          SPACE  4,10 
***       EXIT CONDITIONS.
* 
*                IF ALL REPRIEVE SUBROUTINES INVOKED BY RECOVR
*                RETURN CONTROL TO RECOVR, RECOVR TERMINATES
*                THE JOB STEP BY RESETTING THE ERROR OR 
*                PERFORMING AN ENDRUN.
          SPACE  4,10 
 N.STK    EQU    5                 REQUEST STACK LENGTH 
  
 TRACE.   VFD    42/0HRECOVR,18/*  FOR FORTRAN TRACE BACK 
  
          ENTRY  RECOVR            FORTRAN USER CALL
 RECOVR 
          SB1    X1                B1 = RECOVERY ADDRESS
          SA2    A1+1 
          SA4    X2 
          SA3    A1+2 
          SA5    X3 
          SB3    X5                B3 = CHECKSUM FLAG 
          RJ     SETUP. 
          EQ     RECOVR 
*CALL     COMCRCV RECOVR/RPV INTERFACE FOR REPRIEVE.
          END 
