MINICERN/packlib/zebra/zebra/q_jbytet.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1996/04/18 16:15:07  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_JBYTET_INC
  13 #define CERNLIB_ZEBRA_Q_JBYTET_INC
  14 *
  15 *
  16 * q_jbytet.inc
  17 *
  18 #if defined(CERNLIB_ALLIANT)
  19       JBYTET (MZ,IZW,IZP,NZB) = IAND (MZ, IBITS(IZW,IZP-1,NZB))
  20
  21 #elif defined(CERNLIB_APOLLO)
  22       JBYTET (MZ,IZW,IZP,NZB) = AND (MZ,
  23      +                        RSHFT (LSHFT(IZW,33-IZP-NZB), 32-NZB) )
  24
  25 #elif defined(CERNLIB_CDC)
  26       JBYTET (MZ,IZW,IZP,NZB) = MZ .AND. SHIFT(IZW,61-IZP)
  27      +                             .AND. .NOT.MASK(60-NZB)
  28
  29 #elif defined(CERNLIB_CRAY)
  30       JBYTET (MZ,IZW,IZP,NZB) = MZ .AND. SHIFTR(IZW,IZP-1)
  31      +                             .AND. MASK(128-NZB)
  32
  33 #elif (defined(CERNLIB_CONVEX))&&(!defined(CERNLIB_DOUBLE))
  34       JBYTET (MZ,IZW,IZP,NZB) = MZ .AND. IBITS(IZW,IZP-1,NZB)
  35
  36 #elif (defined(CERNLIB_CONVEX))&&(defined(CERNLIB_DOUBLE))
  37       JBYTET (MZ,IZW,IZP,NZB) = MZ .AND. IBITS(IZW,IZP-1,NZB)
  38
  39 #elif defined(CERNLIB_MSDOS)
  40
  41 #if defined(CERNLIB_QF_NDP)
  42       JBYTET (MZZ,IZZW,IZZP,NZZB) = IAND (MZZ, IBITS(IZZW,IZZP-1,NZZB))
  43 #elif defined(CERNLIB_QF_F2C)
  44       JBYTET (MZ,IZW,IZP,NZB) = AND (MZ,
  45      +                        ishftr (LSHIFT(IZW,33-IZP-NZB),32-NZB) )
  46 #endif
  47
  48 #elif defined(CERNLIB_HPUX)
  49       JBYTET (MZ,IZW,IZP,NZB) = IAND (MZ, IBITS(IZW,IZP-1,NZB))
  50
  51 #elif defined(CERNLIB_QF_SIEM)
  52       JBYTET (MZ,IZW,IZP,NZB) = LAND (MZ,
  53      +                        SHFTR (SHFTL(IZW,33-IZP-NZB), 32-NZB) )
  54
  55 #elif defined(CERNLIB_LINUX)
  56       JBYTET (MZ,IZW,IZP,NZB) = AND (MZ,
  57      +                        ISHFTR (LSHIFT(IZW,33-IZP-NZB),32-NZB) )
  58
  59 #elif defined(CERNLIB_OS9)
  60       JBYTET (MZ,IZW,IZP,NZB) = IAND (MZ, IBITS(IZW,IZP-1,NZB))
  61
  62 #elif defined(CERNLIB_PDP)
  63       JBYTET (MZ,IZW,IZP,NZB) = IAND (MZ, IBITS(IZW,IZP-1,NZB))
  64
  65 #elif (defined(CERNLIB_SUN))&&(!defined(CERNLIB_BUGLRSHFT))
  66       JBYTET (MZ,IZW,IZP,NZB) = AND (MZ,
  67      +                       lrshft (LSHIFT(IZW,33-IZP-NZB), 32-NZB))
  68
  69 #elif defined(CERNLIB_QMVDS)
  70       JBYTET (MZ,IZW,IZP,NZB) = AND (MZ, JBYT(IZW,IZP,NZB))
  71
  72 #elif 1
  73       JBYTET (MZ,IZW,IZP,NZB) = IAND (MZ,
  74      +                        ISHFT (ISHFT(IZW,33-IZP-NZB),-32+NZB) )
  75 #endif
  76
  77 #endif