COMPTGB 
COMMON
          CTEXT  COMPTGB - SET/CLEAR GLOBAL MST FLAG (ACGL).
          IF     -DEF,QUAL$,1 
          QUAL   COMPTGB
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 TGB      SPACE  4
***       TGB - SET/CLEAR BIT IN GLOBAL MST WORD *ACGL*.
*         P. D. HAAS.        75/09/19.
 TGB      SPACE  4
***              TGB SETS UP A MONITOR REQUEST TO SET OR CLEAR
*         A SPECIFIED BIT IN THE *ACGL* WORD OF THE MST.
* 
*         ENTRY  (A) = BIT TO BE SET. 
*                    = COMPLEMENT OF BIT TO BE CLEARED. 
*                (T5) = EST ORDINAL.
* 
*         EXIT   (A) = 0. 
* 
*         USES   CM - CM+4. 
  
  
 TGB      SUBR               ENTRY/EXIT 
          PJN    TGB1        IF SETTING  BIT
          LMC    377777 
 TGB1     STD    CM+2        SET BIT NUMBER IN REQUEST
          SHN    0-21 
          ADN    SGBS        SET SUBFUNCTION
          STD    CM+3 
          LDD    T5          SET EST ORDINAL
          STD    CM+1 
          MONITOR STBM       ISSUE REQUEST
          UJN    TGBX        RETURN 
 TGB      SPACE  4
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 TGB      EQU    /COMPTGB/TGB 
 QUAL$    ENDIF 
          ENDX
