MICROCERN/kerngen/q_sbit.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.2.1  2002/07/11 17:14:49  alibrary
   6 * Adding MICROCERN
   7 *
   8 * Revision 1.1.1.1  1999/05/18 15:55:29  fca
   9 * AliRoot sources
  10 *
  11 * Revision 1.2  1997/02/04 17:35:40  mclareni
  12 * Merge Winnt and 97a versions
  13 *
  14 * Revision 1.1.1.1.2.1  1997/01/21 11:30:30  mclareni
  15 * All mods for Winnt 96a on winnt branch
  16 *
  17 * Revision 1.1.1.1  1996/02/15 17:49:20  mclareni
  18 * Kernlib
  19 *
  20 *
  21 *
  22 * q_sbit.inc
  23 *
  24 #if defined(CERNLIB_QMSUN)||defined(CERNLIB_QMLNX)
  25       MSBIT0 (IZW,IZP)   = AND (IZW, NOT(LSHIFT(1,IZP-1)) )
  26       MSBIT1 (IZW,IZP)   = OR  (IZW,     LSHIFT(1,IZP-1)  )
  27       MSBIT (MZ,IZW,IZP) = OR (AND (IZW, NOT(LSHIFT(1,IZP-1)) )
  28      +                             , LSHIFT(AND(MZ,1),IZP-1) )
  29 #elif defined(CERNLIB_QMDOS)&&defined(CERNLIB_QF_F2C)
  30       MSBIT0 (IZW,IZP)   = AND (IZW, NOT(LSHIFT(1,IZP-1)) )
  31       MSBIT1 (IZW,IZP)   = OR  (IZW,     LSHIFT(1,IZP-1)  )
  32       MSBIT (MZ,IZW,IZP) = OR (AND (IZW, NOT(LSHIFT(1,IZP-1)) )
  33      +                              , LSHIFT(AND(MZ,1),IZP-1))
  34 #elif defined(CERNLIB_QMOS9)||defined(CERNLIB_QMHPX)||(defined(CERNLIB_QMDOS)&&(!defined(CERNLIB_QF_F2C))) || defined(CERNLIB_QFMSOFT)
  35       MSBIT0 (IZW,IZP)   = IAND (IZW, NOT(ISHFT(1,IZP-1)) )
  36       MSBIT1 (IZW,IZP)   = IOR  (IZW,     ISHFT(1,IZP-1)  )
  37       MSBIT (MZ,IZW,IZP) = IOR (IAND (IZW, NOT(ISHFT(1,IZP-1)) )
  38      +                              , ISHFT(IAND(MZ,1),IZP-1))
  39 #endif