*COMDECK COMFSCB             COMFSCB - SUBSUME CONSTANT CHARACTER BIAS
          CTEXT  SCB - SUBSUME CONSTANT CHARACTER BIAS. 
**        SCB - SUBSUME CONSTANT BIAS.
*         FORM WC. WORD INCLUDING OPERAND BIAS AND EQUIV. OFFSET. 
* 
*         ENTRY  (X1) = OPD 
* 
*         EXIT   (X6) = WCA, WC. FORMAT 
*                (B7) = SYMBOL TABLE POINTER TO WHICH WCA APPLIES.
* 
*         PRESERVES  B4,B5,B6 
  
 SCB      SUBR
          SA5    "O$"SYM
          MX0    -"TP"."ORD"L 
          SB2    X5 
          LX1    -"TP"."ORD"P 
          BX2    -X0*X1 
          MX0    -"TP"."BIAS"L
          LX1    "TP"."ORD"P-"TP"."BIAS"P 
          BX5    -X0*X1 
          LX5    -"TP"."BIAS"L
          AX5    -"TP"."BIAS"L
          CALL   ECB         EVALUATE CONSTANT BIAS 
          EQ     EXIT.
 COMFSCB  ENDX
