COMPTLB 
COMMON
          CTEXT  COMPTLB - SET/CLEAR LOCAL MST FLAG (STLL). 
          IF     -DEF,QUAL$,1 
          QUAL   COMPTLB
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 TLB      SPACE  4
***       TLB - SET/CLEAR BIT IN LOCAL MST WORD *STLL*. 
*         P. D. HAAS.        75/09/19.
 TLB      SPACE  4
***              TLB SETS UP A MONITOR REQUEST TO SET OR CLEAR
*         A SPECIFIED BIT IN THE *STLL* 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. 
  
  
 TLB      SUBR               ENTRY/EXIT 
          PJN    TLB1        IF SETTING  BIT
          LMC    377777 
 TLB1     STD    CM+2        SET BIT NUMBER IN REQUEST
          SHN    0-21 
          ADN    SLBS        SET SUBFUNCTION
          STD    CM+3 
          LDD    T5          SET EST ORDINAL
          STD    CM+1 
          MONITOR  SMDM      ISSUE REQUEST
          UJN    TLBX        RETURN 
 TLB      SPACE  4
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 TLB      EQU    /COMPTLB/TLB 
 QUAL$    ENDIF 
          ENDX
