MINICERN/packlib/zebra/zebra/q_sbit.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1996/04/18 16:15:23  mclareni
   6 * Incorporate changes from J.Zoll for version 3.77
   7 *
   8 * Revision 1.1.1.1  1996/03/06 10:46:52  mclareni
   9 * Zebra
  10 *
  11 *
  12 #ifndef CERNLIB_ZEBRA_Q_SBIT_INC
  13 #define CERNLIB_ZEBRA_Q_SBIT_INC
  14 *
  15 *
  16 * q_sbit.inc
  17 *
  18
  19 #if defined(CERNLIB_APOLLO)
  20       MSBIT (MZ,IZW,IZP) = OR (AND (IZW, NOT(LSHFT(1,IZP-1)) )
  21      +                             , LSHFT(AND(MZ,1),IZP-1) )
  22
  23 #elif defined(CERNLIB_CDC)
  24       MSBIT (MZ,IZW,IZP) =(IZW .AND. .NOT.SHIFT(MASK(1),IZP))
  25      +                  .OR. SHIFT(MZ .AND. .NOT.MASK(59),IZP-1)
  26
  27 #elif defined(CERNLIB_CRAY)
  28       MSBIT (MZ,IZW,IZP)     = (IZW .AND. SHIFT(MASK(65),IZP))
  29      +                     .OR. SHIFT(MZ.AND.MASK(127),IZP-1)
  30
  31 #elif (defined(CERNLIB_CONVEX))&&(!defined(CERNLIB_DOUBLE))
  32
  33 #elif (defined(CERNLIB_CONVEX))&&(defined(CERNLIB_DOUBLE))
  34
  35 #elif defined(CERNLIB_MSDOS)
  36
  37 #if defined(CERNLIB_QF_NDP)
  38       MSBIT (MZZ,IZZW,IZZP) = IOR (IAND (IZZW, NOT(ISHFT(1,IZZP-1)) )
  39      +                              , ISHFT(IAND(MZZ,1),IZZP-1))
  40 #elif defined(CERNLIB_QF_F2C)
  41       MSBIT (MZ,IZW,IZP) = OR (AND (IZW, NOT(LSHIFT(1,IZP-1)) )
  42      +                              , LSHIFT(AND(MZ,1),IZP-1))
  43 #endif
  44
  45 #elif defined(CERNLIB_QF_SIEM)
  46       MSBIT (MZ,IZW,IZP) = LOR (LAND (IZW, LCOMPL(SHFTL(1,IZP-1)) )
  47      +                                 , SHFTL(LAND(MZ,1),IZP-1) )
  48
  49 #elif defined(CERNLIB_LINUX)
  50       MSBIT (MZ,IZW,IZP) = OR (AND (IZW, NOT(LSHIFT(1,IZP-1)))
  51      +                              ,LSHIFT(AND(MZ,1),IZP-1))
  52
  53 #elif defined(CERNLIB_PDP)
  54       MSBIT (MZ,IZW,IZP) = IOR (IAND (IZW, NOT(ISHFT(1,IZP-1)) )
  55      +                             , ISHFT (IAND(MZ,1),IZP-1) )
  56
  57 #elif defined(CERNLIB_SUN)
  58       MSBIT (MZ,IZW,IZP) = OR (AND (IZW, NOT(LSHIFT(1,IZP-1)) )
  59      +                             , LSHIFT(AND(MZ,1),IZP-1) )
  60
  61 #elif defined(CERNLIB_VAXVMS)
  62
  63 #elif defined(CERNLIB_QMVDS)
  64       MSBIT (MZ,IZW,IZP) = OR (AND (IZW, NOT(LSHFT(1,IZP-1)) )
  65      +                             , LSHFT(AND(MZ,1),IZP-1) )
  66
  67 #elif 1
  68       MSBIT (MZ,IZW,IZP) = IOR (IAND (IZW, NOT(ISHFT(1,IZP-1)) )
  69      +                              , ISHFT(IAND(MZ,1),IZP-1))
  70 #endif
  71
  72 #endif