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