*
* $Id$
*
* $Log$
* Revision 1.1  1996/02/15 17:52:54  mclareni
* Initial revision
*
*
*
* q_sbit.inc
*
      MSBIT0 (IZW,IZP)   = IAND (IZW, NOT(ILS(1,IZP-1)) )
      MSBIT1 (IZW,IZP)   = IOR  (IZW,     ILS(1,IZP-1)  )
      MSBIT (MZ,IZW,IZP) = IOR (IAND (IZW, NOT(ILS(1,IZP-1)) )
     +                              , ILS(IAND(MZ,1),IZP-1) )
      MSBYT (MZ,IZW,IZP,NZB) = IOR ( IAND (IZW, NOT(
     +                         ILS (IRL(NOT(0),36-NZB), IZP-1)))
     +                           , IRL (ILS(MZ,36-NZB), 37-IZP-NZB) )
