COMPIFR 
COMMON
          CTEXT  COMPIFR - SET/CLEAR FLAG REGISTER INTERLOCK. 
          IF     -DEF,QUAL$,1 
          QUAL   COMPIFR
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 IFR      SPACE  4
***       IFR - SET/CLEAR FLAG REGISTER INTERLOCK.
*         P. D. HAAS.        75/01/20.
 IFR      SPACE  4
***              IFR SETS UP A MONITOR REQUEST TO SET OR CLEAR
*         THE ECS FLAG REGISTER.
* 
*         ENTRY  (A) = INTERLOCK TO BE SET. 
*                    = COMPLEMENT OF INTERLOCK TO BE CLEARED. 
* 
*         EXIT   (A) = MONITOR STATUS.
* 
*         USES   CM+1, CM+3.
  
  
 IFR      SUBR               ENTRY/EXIT 
          SHN    6           POSITION INTERLOCK 
          PJN    IFR1        IF SETTING FLAG REGISTER 
          LMC    677777 
 IFR1     STD    CM+1        SET INTERLOCK IN REQUEST 
          SHN    -6 
          ADC    SFRS*1000   SET SUBFUNCTION
          STD    CM+3 
          MONITOR ECSM       ISSUE REQUEST
          LDD    CM+1 
          UJN    IFRX        RETURN 
 IFR      SPACE  4
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 IFR      EQU    /COMPIFR/IFR 
 QUAL$    ENDIF 
          ENDX
