COMPCRS 
COMMON
          CTEXT  COMPCRS - CHECK RECALL STATUS. 
          SPACE  4
          IF     -DEF,QUAL$,1 
          QUAL   COMPCRS
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 CRS      SPACE  4
***       CRS - CHECK RECALL STATUS.
*         G. R. MANSFIELD.  70/03/14. 
*         R. E. TATE.       73/05/04. 
 CRS      SPACE  4
***              CRS DETERMINES WHETHER THE PP HAS BEEN ASSIGNED
*         WITH AUTO RECALL SET. 
* 
*         ENTRY  NONE.
* 
*         EXIT   (A) = 0 IF NO AUTO RECALL. 
*                (A) " 0 IF AUTO RECALL WITH REQUEST. 
* 
*         USES   (CM - CM+4). 
* 
*         CALLS  NONE.
  
  
 CRS      SUBR               ENTRY/EXIT 
          LDD    IA          READ INPUT REGISTER
          CRD    CM 
          LDD    CM+1 
          LPN    40 
          UJN    CRSX 
          SPACE  4
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 CRS      EQU    /COMPCRS/CRS 
 QUAL$    ENDIF 
          ENDX
