Transition to NewIO
[u/mrichter/AliRoot.git] / MICROCERN / kerngen / q_jbytet.inc
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.2.4.1  2002/11/26 16:50:55  hristov
6 * Merging NewIO with v3-09-04
7 *
8 * Revision 1.2  2002/10/14 14:57:11  hristov
9 * Merging the VirtualMC branch to the main development branch (HEAD)
10 *
11 * Revision 1.1.2.1  2002/07/11 17:14:49  alibrary
12 * Adding MICROCERN
13 *
14 * Revision 1.1.1.1  1999/05/18 15:55:29  fca
15 * AliRoot sources
16 *
17 * Revision 1.2  1997/02/04 17:35:40  mclareni
18 * Merge Winnt and 97a versions
19 *
20 * Revision 1.1.1.1.2.1  1997/01/21 11:30:29  mclareni
21 * All mods for Winnt 96a on winnt branch
22 *
23 * Revision 1.1.1.1  1996/02/15 17:49:20  mclareni
24 * Kernlib
25 *
26 *
27 *
28 * q_jbytet.inc
29 *
30 #if defined(CERNLIB_QMSUN)&&defined(CERNLIB_BUGLRSHFT)
31 #elif defined(CERNLIB_QMSUN)&&(!defined(CERNLIB_BUGLRSHFT))
32       JBYTET (MZ,IZW,IZP,NZB) = AND (MZ,
33      +                       lrshft (LSHIFT(IZW,33-IZP-NZB), 32-NZB))
34       JBYTOR (MZ,IZW,IZP,NZB) = OR  (MZ,
35      +                       lrshft (LSHIFT(IZW,33-IZP-NZB), 32-NZB))
36       MBYTET (MZ,IZW,IZP,NZB) = AND (IZW, NOT(lrshft (
37      +                          LSHIFT(NOT(MZ),32-NZB), 33-IZP-NZB)))
38       MBYTOR (MZ,IZW,IZP,NZB) = OR (IZW, lrshft (
39      +                               LSHIFT(MZ,32-NZB), 33-IZP-NZB))
40 #if defined(CERNLIB_QMLNX)
41       JBYTET (MZ,IZW,IZP,NZB) = AND (MZ,
42      +                        ISHFTR (LSHIFT(IZW,33-IZP-NZB),32-NZB) )
43       JBYTOR (MZ,IZW,IZP,NZB) = OR  (MZ,
44      +                        ISHFTR (LSHIFT(IZW,33-IZP-NZB),32-NZB) )
45       MBYTET (MZ,IZW,IZP,NZB) = AND (IZW,
46      +           NOT(ISHFTR (LSHIFT(NOT(MZ),32-NZB),33-IZP-NZB)) )
47       MBYTOR (MZ,IZW,IZP,NZB) = OR (IZW,
48      +       ISHFTR (LSHIFT(MZ,32-NZB),33-IZP-NZB))
49 #if defined(CERNLIB_QMDOS)&&defined(CERNLIB_QF_F2C)
50       JBYTET (MZ,IZW,IZP,NZB) = AND (MZ,
51      +                        ishftr (LSHIFT(IZW,33-IZP-NZB),32-NZB) )
52       JBYTOR (MZ,IZW,IZP,NZB) = OR  (MZ,
53      +                        ishftr (LSHIFT(IZW,33-IZP-NZB),32-NZB) )
54       MBYTET (MZ,IZW,IZP,NZB) = AND (IZW,
55      +           NOT(ishftr (LSHIFT(NOT(MZ),32-NZB),33-IZP-NZB)) )
56       MBYTOR (MZ,IZW,IZP,NZB) = OR (IZW,
57      +                    ishftr (LSHIFT(MZ,32-NZB),33-IZP-NZB) )
58 #elif defined(CERNLIB_QMOS9)||defined(CERNLIB_QMHPX)
59       JBYTET (MZ,IZW,IZP,NZB) = IAND (MZ, IBITS(IZW,IZP-1,NZB))
60       JBYTOR (MZ,IZW,IZP,NZB) = IOR  (MZ, IBITS(IZW,IZP-1,NZB))
61       MBYTET (MZ,IZW,IZP,NZB) = IAND (IZW, NOT(ishft (
62      +                          ISHFT(NOT(MZ),32-NZB),-33+IZP+NZB)) )
63       MBYTOR (MZ,IZW,IZP,NZB) = IOR (IZW, ishft (
64      +                               ISHFT(MZ,32-NZB),-33+IZP+NZB) )
65 #elif defined(CERNLIB_QMDOS)&&(!defined(CERNLIB_QF_F2C)) || defined(CERNLIB_QFMSOFT)
66       JBYTET (MZ,IZW,IZP,NZB) = IAND (MZ,
67      +                        ISHFT (ISHFT(IZW,33-IZP-NZB),-32+NZB) )
68       JBYTOR (MZ,IZW,IZP,NZB) = IOR  (MZ,
69      +                        ISHFT (ISHFT(IZW,33-IZP-NZB),-32+NZB) )
70       MBYTET (MZ,IZW,IZP,NZB) = IAND (IZW,
71      +           NOT(ISHFT (ISHFT(NOT(MZ),32-NZB),-33+IZP+NZB)) )
72       MBYTOR (MZ,IZW,IZP,NZB) = IOR (IZW,
73      +                    ISHFT (ISHFT(MZ,32-NZB),-33+IZP+NZB) )
74 #endif