COMPCKP 
COMMON
          CTEXT  COMPCKP - SET CHECKPOINT REQUEST IN MST. 
          SPACE  4
          IF     -DEF,QUAL$,1 
          QUAL   COMPCKP
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4
***       CKP - SET CHECKPOINT REQUEST IN MST.
*         J. L. WARDELL      72/05/24.
          SPACE  4
***       CKP SETS THE CHECKPOINT REQUEST BIT IN THE MST. 
* 
*         ENTRY  (T5) = EST ORDINAL.
* 
*         USES   CM - CM+4. 
  
  
 CKP      SUBR               ENTRY/EXIT 
          LDD    T5          SET EST ORDINAL
          STD    CM+1 
          LDN    50D         SET BIT NUMBER 
          STD    CM+2 
          LDN    SLBS 
          STD    CM+3 
          MONITOR  SMDM 
          UJN    CKPX        RETURN 
          SPACE  4
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 CKP      EQU    /COMPCKP/CKP 
 QUAL$    ENDIF 
          ENDX
