*COMDECK COMFSMD
COMFSMD   CTEXT              COMFSMD - SELECT MOD SUBSKEL.
          SX6    =XV=MODG 
          SA1    B5+OR.2OP
          HX1    TP.SHRT
          PL     X1,SUB.RET  IF NOT SHRT[TURP(3)] 
          =X3    1
          LX1    TP.SHRTP+1-TP.BIASP
          SX1    X1 
          IX4    X1-X3
          BX0    X1*X4
          AX4    17 
          NZ     X4,SUB.RET  IF VAL LT 0
          NZ     X0,SUB.RET  IF VAL NOT POWER OF 2
          SX6    =XV=MODP2
          MX2    1
          NX0    B7,X1
          SX0    B7-47+60 
          LX0    TP.BIASP 
          LX2    1+TP.SHRTP 
          BX7    X2+X0
          SA7    "GPBUF"     GPBUF(1) = 60-LOG2(TURP(2))
          EQ     SUB.RET
          ENDX
