]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1 1996/04/18 16:15:10 mclareni | |
6 | * Incorporate changes from J.Zoll for version 3.77 | |
7 | * | |
8 | * | |
9 | * | |
10 | #ifndef CERNLIB_ZEBRA_Q_JBYTOR_INC | |
11 | #define CERNLIB_ZEBRA_Q_JBYTOR_INC | |
12 | * | |
13 | * | |
14 | * q_jbytor.inc | |
15 | * | |
16 | #if defined(CERNLIB_ALLIANT) | |
17 | JBYTOR (MZ,IZW,IZP,NZB) = IOR (MZ, IBITS(IZW,IZP-1,NZB)) | |
18 | ||
19 | #elif defined(CERNLIB_APOLLO) | |
20 | JBYTOR (MZ,IZW,IZP,NZB) = OR (MZ, | |
21 | + RSHFT (LSHFT(IZW,33-IZP-NZB), 32-NZB) ) | |
22 | ||
23 | #elif defined(CERNLIB_CDC) | |
24 | JBYTOR (MZ,IZW,IZP,NZB) = MZ .OR. (SHIFT(IZW,61-IZP) | |
25 | + .AND. .NOT.MASK(60-NZB) ) | |
26 | ||
27 | #elif defined(CERNLIB_CRAY) | |
28 | JBYTOR (MZ,IZW,IZP,NZB) = MZ .OR. (SHIFTR(IZW,IZP-1) | |
29 | + .AND. MASK(128-NZB) ) | |
30 | ||
31 | #elif (defined(CERNLIB_CONVEX))&&(!defined(CERNLIB_DOUBLE)) | |
32 | JBYTOR (MZ,IZW,IZP,NZB) = MZ .OR. IBITS(IZW,IZP-1,NZB) | |
33 | ||
34 | #elif (defined(CERNLIB_CONVEX))&&(defined(CERNLIB_DOUBLE)) | |
35 | JBYTOR (MZ,IZW,IZP,NZB) = MZ .OR. IBITS(IZW,IZP-1,NZB) | |
36 | ||
37 | #elif defined(CERNLIB_MSDOS) | |
38 | ||
39 | #if defined(CERNLIB_QF_NDP) | |
40 | JBYTOR (MZZ,IZZW,IZZP,NZZB) = IOR (MZZ, IBITS(IZZW,IZZP-1,NZZB)) | |
41 | #elif defined(CERNLIB_QF_F2C) | |
42 | JBYTOR (MZ,IZW,IZP,NZB) = OR (MZ, | |
43 | + ishftr (LSHIFT(IZW,33-IZP-NZB),32-NZB) ) | |
44 | #endif | |
45 | ||
46 | #elif defined(CERNLIB_HPUX) | |
47 | JBYTOR (MZ,IZW,IZP,NZB) = IOR (MZ, IBITS(IZW,IZP-1,NZB)) | |
48 | ||
49 | #elif defined(CERNLIB_QF_SIEM) | |
50 | JBYTOR (MZ,IZW,IZP,NZB) = LOR (MZ, | |
51 | + SHFTR (SHFTL(IZW,33-IZP-NZB), 32-NZB) ) | |
52 | ||
53 | #elif defined(CERNLIB_LINUX) | |
54 | JBYTOR (MZ,IZW,IZP,NZB) = OR (MZ, | |
55 | + ISHFTR (LSHIFT(IZW,33-IZP-NZB),32-NZB) ) | |
56 | ||
57 | #elif defined(CERNLIB_OS9) | |
58 | JBYTOR (MZ,IZW,IZP,NZB) = IOR (MZ, IBITS(IZW,IZP-1,NZB)) | |
59 | ||
60 | #elif defined(CERNLIB_PDP) | |
61 | JBYTOR (MZ,IZW,IZP,NZB) = IOR (MZ, IBITS(IZW,IZP-1,NZB)) | |
62 | ||
63 | #elif (defined(CERNLIB_SUN))&&(!defined(CERNLIB_BUGLRSHFT)) | |
64 | JBYTOR (MZ,IZW,IZP,NZB) = OR (MZ, | |
65 | + lrshft (LSHIFT(IZW,33-IZP-NZB), 32-NZB)) | |
66 | ||
67 | #elif defined(CERNLIB_QMVDS) | |
68 | JBYTOR (MZ,IZW,IZP,NZB) = OR (MZ, JBYT(IZW,IZP,NZB)) | |
69 | ||
70 | #elif 1 | |
71 | JBYTOR (MZ,IZW,IZP,NZB) = IOR (MZ, | |
72 | + ISHFT (ISHFT(IZW,33-IZP-NZB),-32+NZB) ) | |
73 | #endif | |
74 | ||
75 | #endif |