Warning, /include/zebra/q_cbyt.inc is written in an unsupported language. File is not indexed.
0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.1 1996/03/06 10:46:51 mclareni
0006 * Initial revision
0007 *
0008 *
0009 #ifndef CERNLIB_ZEBRA_Q_CBYT_INC
0010 #define CERNLIB_ZEBRA_Q_CBYT_INC
0011 *
0012 *
0013 * q_cbyt.inc
0014 *
0015 #if defined(CERNLIB_APOLLO)
0016 MCBYT (MZ,IZQ,IZW,IZP,NZB) = OR (
0017 + AND (IZW, NOT(LSHFT (RSHFT(NOT(INT4(0)),32-NZB), IZP-1)))
0018 + , RSHFT (LSHFT(RSHFT(MZ,IZQ-1),32-NZB), 33-IZP-NZB) )
0019
0020 #elif defined(CERNLIB_CDC)
0021 MCBYT (MZ,IZQ,IZW,IZP,NZB) = SHIFT (
0022 + (SHIFT(IZW,61-IZP-NZB) .AND. .NOT.MASK(NZB))
0023 + .OR. (SHIFT (MZ,61-IZQ-NZB) .AND. MASK(NZB)), IZP+NZB-1)
0024
0025 #elif defined(CERNLIB_CRAY)
0026 MCBYT (MZ,IZQ,IZW,IZP,NZB)=(IZW.AND.SHIFT(MASK(64-NZB),IZP-1))
0027 + .OR. SHIFT(SHIFTR(MZ,IZQ-1).AND.MASK(128-NZB),IZP-1)
0028
0029 #elif (defined(CERNLIB_MSDOS))&&(defined(CERNLIB_QF_F2C))
0030 C MCBYT (MZ,IZQ,IZW,IZP,NZB) = OR (
0031 C + AND (IZW, NOT(LSHIFT (ishftr(NOT(0),32-NZB), IZP-1)))
0032 C + , ishftr (LSHIFT(LSHIFT(MZ,-IZQ+1),32-NZB), 33-IZP-NZB) )
0033
0034 #elif defined(CERNLIB_QF_SIEM)
0035 MCBYT (MZ,IZQ,IZW,IZP,NZB) = LOR (
0036 + LAND (IZW, LCOMPL(SHFTL (SHFTR(-1,32-NZB), IZP-1)))
0037 + , SHFTR (SHFTL(SHFTR(MZ,IZQ-1),32-NZB), 33-IZP-NZB) )
0038
0039 #elif defined(CERNLIB_LINUX)
0040 MCBYT (MZ,IZQ,IZW,IZP,NZB) = OR (
0041 + AND (IZW, NOT(LSHIFT (ISHFTR(NOT(0),32-NZB),IZP-1)))
0042 + ,ISHFTR (LSHIFT(LSHIFT(MZ,IZQ-1),32-NZB), 33-IZP-NZB))
0043
0044 #elif defined(CERNLIB_PDP)
0045 MCBYT (MZ,IZQ,IZW,IZP,NZB) = IOR (
0046 + IAND (IZW, NOT(ISHFT (ISHFT(NOT(0),-36+NZB), IZP-1)))
0047 + , ISHFT (ISHFT(ISHFT(MZ,-IZQ+1),36-NZB), -37+IZP+NZB) )
0048
0049 #elif defined(CERNLIB_VAXVMS)
0050
0051 #elif defined(CERNLIB_QMVDS)
0052 MCBYT (MZ,IZQ,IZW,IZP,NZB) = OR (
0053 + AND (IZW, NOT(LSHFT (RSHFT(NOT(0),32-NZB), IZP-1)))
0054 + , LSHFT(JBYT(MZ,IZQ,NZB), IZP-1) )
0055
0056 #elif 1
0057 MCBYT (MZ,IZQ,IZW,IZP,NZB) = IOR (
0058 + IAND (IZW, NOT(ISHFT (ISHFT(NOT(0),-32+NZB), IZP-1)))
0059 + , ISHFT (ISHFT(ISHFT(MZ,-IZQ+1),32-NZB), -33+IZP+NZB) )
0060
0061 #endif
0062
0063 #endif
