5 * Revision 1.1.1.1 1996/02/15 17:50:20 mclareni
9 FUNCTION MCBYT (MZ,IZQ,IZW,IZP,NZB)
11 C CERN PROGLIB# M421 MCBYT .VERSION KERNSUN 1.06 920511
15 #if defined(CERNLIB_BUGLRSHFT)
16 MASK = LSHIFT (ishft(-1,NZB-32), IZP-1)
17 MCBYT = OR ( AND (IZW, NOT(MASK))
18 +, AND (MASK, LSHIFT(ishft(MZ,1-IZQ), IZP-1)))
20 #if !defined(CERNLIB_BUGLRSHFT)
21 MASK = LSHIFT (lrshft(-1,32-NZB), IZP-1)
22 MCBYT = OR ( AND (IZW, NOT(MASK))
23 +, AND (MASK, LSHIFT(lrshft(MZ,IZQ-1), IZP-1)))