COMPCTI 
COMMON
          CTEXT  COMPCTI - CLEAR TRACK INTERLOCK. 
 CTI      SPACE  4,10 
          IF     -DEF,QUAL$,1 
          QUAL   COMPCTI
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 CTI      SPACE  4,10 
***       CTI - CLEAR TRACK INTERLOCK.
*         J. L. WARDELL      72/05/24.
 CTI      SPACE  4,15 
***              CTI CLEARS WRITE INTERLOCK FOR TRACK SPECIFIED.
* 
*         ENTRY  (A) = TRACK NUMBER.
*                (T5) = EST ORDINAL.
* 
*         EXIT   (A) = 0. 
* 
*         USES   CM - CM+4. 
* 
*         MACROS MONITOR. 
* 
*         XREF   COMSCPS. 
  
  
 CTI      SUBR               ENTRY/EXIT 
          STD    CM+2        SET TRACK
          LDD    T5          SET EST ORDINAL
          STD    CM+1 
          LDN    CTIS        CLEAR TRACK INTERLOCK
          STD    CM+3 
          MONITOR STBM
*         LDN    0
          UJN    CTIX        RETURN 
          SPACE  4,10 
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 CTI      EQU    /COMPCTI/CTI 
 QUAL$    ENDIF 
          ENDX
