*COMDECK COMFSMK
 COMFSMK  CTEXT              COMFSMK - SELECT MASK SUBSKEL
  
**        **KLUGE** AT PRESENT THE QCG I. L. INPUT IS IN P2. FORMAT.
*         SO IN ORER TO ACHIEVE COMMONALITY WE SUBSTITUTE THE MICRO 
*         "TP" FOR TP IN THIS CODE. "TP" = P2 (QCG) OR TP (BRIDGE). 
*         TO FURTHER COMPLICATE THINGS SHORT CONSTANT VALUES RESIDE 
*         IN THE BIAS FIELD FOR THE BRIDGE AND THE TAG FIELD FOR QCG. 
*         WE DEFINE "BIAS" = TAG (QCG) OR BIAS (BRIDGE).
  
          SX6    =XV=MASKV
          SA1    B5+OR.1OP
          HX1    "TP".SHRT
          PL     X1,SUB.RET  IF NOT SHRT[TURP(2)] 
          SX3    61 
          MX0    -"TP"."BIAS"L
          LX1    1+"TP".SHRTP-"TP"."BIAS"P
          BX2    -X0*X1 
          IX2    X2-X3
          PL     X2,SUB.RET  IF VAL LT 0 OR VAL GT 60 
          SX6    =XV=MASKC
          EQ     SUB.RET
          ENDX
