5 * Revision 1.1.2.1 2002/07/11 17:14:49 alibrary
8 * Revision 1.1.1.1 1999/05/18 15:55:29 fca
11 * Revision 1.2 1997/02/04 17:35:40 mclareni
12 * Merge Winnt and 97a versions
14 * Revision 1.1.1.1.2.1 1997/01/21 11:30:29 mclareni
15 * All mods for Winnt 96a on winnt branch
17 * Revision 1.1.1.1 1996/02/15 17:49:20 mclareni
24 #if defined(CERNLIB_QMSUN)&&defined(CERNLIB_BUGLRSHFT)
25 #elif defined(CERNLIB_QMSUN)&&(!defined(CERNLIB_BUGLRSHFT))
26 JBYTET (MZ,IZW,IZP,NZB) = AND (MZ,
27 + lrshft (LSHIFT(IZW,33-IZP-NZB), 32-NZB))
28 JBYTOR (MZ,IZW,IZP,NZB) = OR (MZ,
29 + lrshft (LSHIFT(IZW,33-IZP-NZB), 32-NZB))
30 MBYTET (MZ,IZW,IZP,NZB) = AND (IZW, NOT(lrshft (
31 + LSHIFT(NOT(MZ),32-NZB), 33-IZP-NZB)))
32 MBYTOR (MZ,IZW,IZP,NZB) = OR (IZW, lrshft (
33 + LSHIFT(MZ,32-NZB), 33-IZP-NZB))
34 #if defined(CERNLIB_QMLNX)
35 JBYTET (MZ,IZW,IZP,NZB) = AND (MZ,
36 + ISHFTR (LSHIFT(IZW,33-IZP-NZB),32-NZB) )
37 JBYTOR (MZ,IZW,IZP,NZB) = OR (MZ,
38 + ISHFTR (LSHIFT(IZW,33-IZP-NZB),32-NZB) )
39 MBYTET (MZ,IZW,IZP,NZB) = AND (IZW,
40 + NOT(ISHFTR (LSHIFT(NOT(MZ),32-NZB),33-IZP-NZB)) )
41 MBYTOR (MZ,IZW,IZP,NZB) = OR (IZW,
42 + ISHFTR (LSHIFT(MZ,32-NZB),33-IZP-NZB))
43 #if defined(CERNLIB_QMDOS)&&defined(CERNLIB_QF_F2C)
44 JBYTET (MZ,IZW,IZP,NZB) = AND (MZ,
45 + ishftr (LSHIFT(IZW,33-IZP-NZB),32-NZB) )
46 JBYTOR (MZ,IZW,IZP,NZB) = OR (MZ,
47 + ishftr (LSHIFT(IZW,33-IZP-NZB),32-NZB) )
48 MBYTET (MZ,IZW,IZP,NZB) = AND (IZW,
49 + NOT(ishftr (LSHIFT(NOT(MZ),32-NZB),33-IZP-NZB)) )
50 MBYTOR (MZ,IZW,IZP,NZB) = OR (IZW,
51 + ishftr (LSHIFT(MZ,32-NZB),33-IZP-NZB) )
52 #elif defined(CERNLIB_QMOS9)||defined(CERNLIB_QMHPX)
53 JBYTET (MZ,IZW,IZP,NZB) = IAND (MZ, IBITS(IZW,IZP-1,NZB))
54 JBYTOR (MZ,IZW,IZP,NZB) = IOR (MZ, IBITS(IZW,IZP-1,NZB))
55 MBYTET (MZ,IZW,IZP,NZB) = IAND (IZW, NOT(ishft (
56 + ISHFT(NOT(MZ),32-NZB),-33+IZP+NZB)) )
57 MBYTOR (MZ,IZW,IZP,NZB) = IOR (IZW, ishft (
58 + ISHFT(MZ,32-NZB),-33+IZP+NZB) )
59 #elif defined(CERNLIB_QMDOS)&&(!defined(CERNLIB_QF_F2C)) || defined(CERNLIB_QFMSOFT)
60 JBYTET (MZ,IZW,IZP,NZB) = IAND (MZ,
61 + ISHFT (ISHFT(IZW,33-IZP-NZB),-32+NZB) )
62 JBYTOR (MZ,IZW,IZP,NZB) = IOR (MZ,
63 + ISHFT (ISHFT(IZW,33-IZP-NZB),-32+NZB) )
64 MBYTET (MZ,IZW,IZP,NZB) = IAND (IZW,
65 + NOT(ISHFT (ISHFT(NOT(MZ),32-NZB),-33+IZP+NZB)) )
66 MBYTOR (MZ,IZW,IZP,NZB) = IOR (IZW,
67 + ISHFT (ISHFT(MZ,32-NZB),-33+IZP+NZB) )