anchor.diff:        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)))
  
positive.code:       RZXIO(2) = 0.
        IMODEH   = 0
        CALL VFILL (IQFENC,4,IQNIL)
        NQINIT = INIT
        NQINIT = -1
        END
  
  
negative.code:       DIMENSION    THIS(2)
        EQUIVALENCE  (THDB,THIS)
        EQUIVALENCE  (ITHA,THA,THIS(1)), (ITHB,THB,THIS(2))
  
        JMS = 0
        IF (NWFODN.NE.0) GO TO 30
        NWFORE = NWFOTT
  