anchor.diff:        DIMENSION    THIS(2)
         EQUIVALENCE  (THDB,THIS)
         EQUIVALENCE  (ITHA,THA,THIS(1)), (ITHB,THB,THIS(2))
  -      JBIT(IZW,IZP)     = AND(ISHFTR(IZW,IZP-1),1)
  -      JBYT(IZW,IZP,NZB) = ISHFTR(LSHIFT(IZW,33-IZP-NZB),32-NZB)
  +
         JMS = 0
         IF (NWFODN.NE.0) GO TO 30
         NWFORE = NWFOTT
  
positive.code:       DIMENSION NAMESR(2)
        DATA NAMESR / 4HMZPU, 4HSH  /
        JBIT(IZW,IZP) = AND(ISHFTR(IZW,IZP-1),1)
        JBYT(IZW,IZP,NZB) = ISHFTR(LSHIFT(IZW,33-IZP-NZB),32-NZB)
        MSBIT1 (IZW,IZP) = OR (IZW, LSHIFT(1,IZP-1))
        MSBYT (MZ,IZW,IZP,NZB) = OR (
       + AND (IZW, NOT(LSHIFT (ISHFTR(NOT(0),32-NZB),IZP-1)))
  
negative.code:       RZXIO(2) = 0.
        IMODEH   = 0
        CALL VFILL (IQFENC,4,IQNIL)
        NQINIT = -1
        END
  
  