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