5 * Revision 1.1.1.1 1996/04/01 15:02:54 mclareni
13 #if defined(CERNLIB_ALLIANT)||defined(CERNLIB_CONVEX)||defined(CERNLIB_DECS)||defined(CERNLIB_HPUX)||defined(CERNLIB_IBMRT)||defined(CERNLIB_SGI)||defined(CERNLIB_SUN)
14 MR0 = IEOR (ISHFT(MCGX,-15), MCGX)
16 MCGX = IEOR (MR0, MR1)
18 MANT = ISHFT (IEOR(MCGX,MCGN), -8)
20 #elif defined(CERNLIB_APOLLO)
21 MR0 = XOR (RSHFT(MCGX,+15), MCGX)
25 MANT = RSHFT (XOR(MCGX,MCGN), +8)
28 MR0 = IOR (ISHFT(MCGX,-15), MCGX)
32 MANT = ISHFT (IOR(MCGX,MCGN), -8)