]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1.1.1 1996/03/06 10:46:52 mclareni | |
6 | * Zebra | |
7 | * | |
8 | * | |
9 | #ifndef CERNLIB_ZEBRA_Q_SBYT_INC | |
10 | #define CERNLIB_ZEBRA_Q_SBYT_INC | |
11 | * | |
12 | * | |
13 | * q_sbyt.inc | |
14 | * | |
15 | #if defined(CERNLIB_APOLLO) | |
16 | MSBYT (MZ,IZW,IZP,NZB) = OR ( | |
17 | + AND (IZW, NOT(LSHFT (RSHFT(NOT(INT4(0)),32-NZB), IZP-1))) | |
18 | + , RSHFT (LSHFT(MZ,32-NZB), 33-IZP-NZB) ) | |
19 | ||
20 | #elif defined(CERNLIB_CDC) | |
21 | MSBYT (MZ,IZW,IZP,NZB) = SHIFT ( | |
22 | + (SHIFT(IZW,61-IZP-NZB) .AND. .NOT.MASK(NZB)) | |
23 | + .OR. (SHIFT (MZ,60-NZB) .AND. MASK(NZB)), IZP+NZB-1) | |
24 | ||
25 | #elif defined(CERNLIB_CRAY) | |
26 | MSBYT (MZ,IZW,IZP,NZB) = (IZW .AND. SHIFT(MASK(64-NZB),IZP-1)) | |
27 | + .OR. SHIFT(MZ.AND.MASK(128-NZB),IZP-1) | |
28 | ||
29 | #elif defined(CERNLIB_MSDOS) | |
30 | ||
31 | #if defined(CERNLIB_QF_NDP) | |
32 | MSBYT (MZZ,IZZW,IZZP,NZZB) = IOR ( | |
33 | + IAND (IZZW, NOT(ISHFT (ISHFT(NOT(0),-32+NZZB), IZZP-1))) | |
34 | + , ISHFT (ISHFT(MZZ,32-NZZB), -33+IZZP+NZZB) ) | |
35 | #elif defined(CERNLIB_QF_F2C) | |
36 | C MSBYT (MZ,IZW,IZP,NZB) = OR ( | |
37 | C + AND (IZW, NOT(LSHIFT (ISHFTR(NOT(0),32-NZB), IZP-1))) | |
38 | C + , ISHFTR (LSHIFT(MZ,32-NZB), 33-IZP-NZB) ) | |
39 | #endif | |
40 | ||
41 | #elif defined(CERNLIB_QF_SIEM) | |
42 | MSBYT (MZ,IZW,IZP,NZB) = LOR ( | |
43 | + LAND (IZW, LCOMPL(SHFTL (SHFTR(-1,32-NZB), IZP-1))) | |
44 | + , SHFTR (SHFTL(MZ,32-NZB), 33-IZP-NZB) ) | |
45 | ||
46 | #elif defined(CERNLIB_LINUX) | |
47 | MSBYT (MZ,IZW,IZP,NZB) = OR ( | |
48 | + AND (IZW, NOT(LSHIFT (ISHFTR(NOT(0),32-NZB),IZP-1))) | |
49 | + ,ISHFTR (LSHIFT(MZ,32-NZB), 33-IZP-NZB) ) | |
50 | ||
51 | #elif defined(CERNLIB_PDP) | |
52 | MSBYT (MZ,IZW,IZP,NZB) = IOR ( | |
53 | + IAND (IZW, NOT(ISHFT (ISHFT(NOT(0),-36+NZB), IZP-1))) | |
54 | + , ISHFT (ISHFT(MZ, 36-NZB), -37+IZP+NZB) ) | |
55 | ||
56 | #elif defined(CERNLIB_VAXVMS) | |
57 | ||
58 | #elif defined(CERNLIB_QMVDS) | |
59 | MSBYT (MZ,IZW,IZP,NZB) = OR ( | |
60 | + AND (IZW, NOT(LSHFT (RSHFT(NOT(0),32-NZB), IZP-1))) | |
61 | + , RSHFT (LSHFT(MZ,32-NZB), 33-IZP-NZB) ) | |
62 | ||
63 | #elif 1 | |
64 | MSBYT (MZ,IZW,IZP,NZB) = IOR ( | |
65 | + IAND (IZW, NOT(ISHFT (ISHFT(NOT(0),-32+NZB), IZP-1))) | |
66 | + , ISHFT (ISHFT(MZ,32-NZB), -33+IZP+NZB) ) | |
67 | #endif | |
68 | ||
69 | #endif |