MINICERN/packlib/zebra/zebra/q_sbyt.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:46:52  mclareni
   6 * Zebra
   7 *
   8 *
   9 #ifndef CERNLIB_ZEBRA_Q_SBYT_INC
  10 #define CERNLIB_ZEBRA_Q_SBYT_INC
  11 *
  12 *
  13 * q_sbyt.inc
  14 *
  15 #if defined(CERNLIB_APOLLO)
  16      MSBYT (MZ,IZW,IZP,NZB) = OR (
  17      +      AND (IZW, NOT(LSHFT (RSHFT(NOT(INT4(0)),32-NZB), IZP-1)))
  18      +    , RSHFT (LSHFT(MZ,32-NZB), 33-IZP-NZB) )
  19
  20 #elif defined(CERNLIB_CDC)
  21       MSBYT (MZ,IZW,IZP,NZB) = SHIFT (
  22      +            (SHIFT(IZW,61-IZP-NZB) .AND. .NOT.MASK(NZB))
  23      +         .OR.   (SHIFT (MZ,60-NZB) .AND. MASK(NZB)), IZP+NZB-1)
  24
  25 #elif defined(CERNLIB_CRAY)
  26       MSBYT (MZ,IZW,IZP,NZB) = (IZW .AND. SHIFT(MASK(64-NZB),IZP-1))
  27      +                       .OR. SHIFT(MZ.AND.MASK(128-NZB),IZP-1)
  28
  29 #elif defined(CERNLIB_MSDOS)
  30
  31 #if defined(CERNLIB_QF_NDP)
  32       MSBYT (MZZ,IZZW,IZZP,NZZB) = IOR (
  33      +         IAND (IZZW, NOT(ISHFT (ISHFT(NOT(0),-32+NZZB), IZZP-1)))
  34      +       , ISHFT (ISHFT(MZZ,32-NZZB), -33+IZZP+NZZB) )
  35 #elif defined(CERNLIB_QF_F2C)
  36 C      MSBYT (MZ,IZW,IZP,NZB) = OR (
  37 C     +          AND (IZW, NOT(LSHIFT (ISHFTR(NOT(0),32-NZB), IZP-1)))
  38 C     +        , ISHFTR (LSHIFT(MZ,32-NZB), 33-IZP-NZB) )
  39 #endif
  40
  41 #elif defined(CERNLIB_QF_SIEM)
  42       MSBYT (MZ,IZW,IZP,NZB) = LOR (
  43      +            LAND (IZW, LCOMPL(SHFTL (SHFTR(-1,32-NZB), IZP-1)))
  44      +          , SHFTR (SHFTL(MZ,32-NZB), 33-IZP-NZB) )
  45
  46 #elif defined(CERNLIB_LINUX)
  47       MSBYT (MZ,IZW,IZP,NZB) = OR (
  48      +       AND (IZW, NOT(LSHIFT (ISHFTR(NOT(0),32-NZB),IZP-1)))
  49      +      ,ISHFTR (LSHIFT(MZ,32-NZB), 33-IZP-NZB) )
  50
  51 #elif defined(CERNLIB_PDP)
  52       MSBYT (MZ,IZW,IZP,NZB) = IOR (
  53      +          IAND (IZW, NOT(ISHFT (ISHFT(NOT(0),-36+NZB), IZP-1)))
  54      +        , ISHFT (ISHFT(MZ, 36-NZB), -37+IZP+NZB) )
  55
  56 #elif defined(CERNLIB_VAXVMS)
  57
  58 #elif defined(CERNLIB_QMVDS)
  59       MSBYT (MZ,IZW,IZP,NZB) = OR (
  60      +            AND (IZW, NOT(LSHFT (RSHFT(NOT(0),32-NZB), IZP-1)))
  61      +          , RSHFT (LSHFT(MZ,32-NZB), 33-IZP-NZB) )
  62
  63 #elif 1
  64       MSBYT (MZ,IZW,IZP,NZB) = IOR (
  65      +          IAND (IZW, NOT(ISHFT (ISHFT(NOT(0),-32+NZB), IZP-1)))
  66      +        , ISHFT (ISHFT(MZ,32-NZB), -33+IZP+NZB) )
  67 #endif
  68
  69 #endif