IDENT  CHKON 

          SYSCOM B1
          ENTRY  CHKOFF
          ENTRY  CHKON

          TITLE  CHKOFF/CHKON - CLEAR/SET TOTAL INTERLOCK FLAG.
*COMMENT  CHKOFF/CHKON - CLEAR/SET TOTAL INTERLOCK.
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
          SPACE  4
***       CHKOFF/CHKON - CLEAR/SET TOTAL INTERLOCK FLAG.
*         W.J. MARKO.  75/01/08.
          SPACE  4
*CALL     COMCMAC
*CALL     COMKMAC
*CALL     COMSPRD
          SPACE  4
***       CHKOFF - CLEAR TOTAL INTERLOCK FLAG.
*
*         CALLING FORMAT -
*
*         COBOL
*                ENTER CHKOFF
*
*         COMPASS
*                CHKOFF
*
*         FORTRAN EXTENDED
*                CALL CHKOFF


 CHKOFF   SUBR               ENTRY/EXIT
          CHKOFF
          JP     CHKOFFX     RETURN
 CHKON    TITLE  CHKON - SET TOTAL INTERLOCK FLAG.
***       CHKON - SET TOTAL INTERLOCK FLAG.
*
*         CALLING FORMAT -
*
*         COBOL
*                ENTER CHKON
*
*         COMPASS
*                CHKON
*
*         FORTRAN EXTENDED
*                CALL CHKON


 CHKON    SUBR               ENTRY/EXIT
          CHKON
          JP     CHKONX      RETURN

          END