COMPSDI 
COMMON
          CTEXT  COMPSDI - SET LOCAL MST UTILITY INTERLOCK. 
          IF     -DEF,QUAL$,1 
          QUAL   COMPSDI
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4
***       SDI - SET LOCAL MST UTILITY INTERLOCK.
*         J. L. WARDELL      72/08/23.
*         S. L. KSANDER.     75/05/26.
          SPACE  4
***              SDI SETS THE LOCAL MST UTILITY INTERLOCK.
* 
*         ENTRY  (T5) = EST ORDINAL OF DEVICE TO INTERLOCK. 
* 
*         EXIT   (A) .NE. 0, INTERLOCK SET. 
*                IF (A) = 0, THEN *ORET* ERROR FLAG SET.
* 
*         USES   CM - CM+4. 
  
  
 SDI2     LDN    1           SET INTERLOCK COMPLETE 
  
 SDI      SUBR               ENTRY/EXIT 
 SDI1     LDD    T5          SET EST ORDINAL IN REQUEST 
          STD    CM+1 
          LDN    SLBS        SET LOCAL MST BIT
          STD    CM+3 
          LDN    1           SET INTERLOCK BIT NUMBER 
          STD    CM+2 
          MONITOR  SMDM 
          LDD    CM+1 
          ZJN    SDI2        IF INTERLOCKED 
          PAUSE 
          DELAY 
          LDD    CM+1 
          LMN    ORET 
          NJN    SDI1        IF NOT OPERATOR OVERRIDE 
          UJN    SDIX        RETURN WITH ERROR INDICATION 
          SPACE  4
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 SDI      EQU    /COMPSDI/SDI 
 QUAL$    ENDIF 
          ENDX
