COMPCUT 
COMMON
          CTEXT  COMPCUT - CLEAR PERMANENT FILE DEVICE INTERLOCK. 
          SPACE  4
          IF     -DEF,QUAL$,1 
          QUAL   COMPCUT
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 CUT      SPACE  4
***       CUT - CLEAR PERMANENT FILE DEVICE INTERLOCK.
*         R. J. THIELEN.     75/04/17.
*         C. R. LUND.        81/06/09.
 CUT      SPACE  4
***              CUT CLEARS THE PERMANENT FILE DEVICE INTERLOCK ON A
*         MASS STORAGE EQUIPMENT. 
* 
*         ENTRY  (T5) = EST ORDINAL TO CLEAR INTERLOCK ON.
* 
*         USES   CM - CM+4. 
* 
*         NOTE   THIS COMMON DECK REQUIRES THE PRESENCE 
*                OF *COMSCPS* AND *COMSEVT*.
  
  
 CUT      SUBR               ENTRY/EXIT 
          LDD    T5          SET EST ORDINAL
          STD    CM+1 
          LDN    CPIS        CLEAR DEVICE INTERLOCK 
          STD    CM+3 
          MONITOR STBM
          LDN    ZERL 
          CRD    CM 
          LDN    PFUE        ISSUE EVENT NOTICE FOR CLEARED INTERLOCK 
          STD    CM+4 
          MONITOR  EATM 
          UJN    CUTX        EXIT 
          SPACE  4
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 CUT      EQU    /COMPCUT/CUT 
 QUAL$    ENDIF 
          ENDX
