anchor.diff:  
         SUBROUTINE SBIT0 (IZW,IZP)
         IAND (IZV,IZW) = AND (IZV, IZW)
  -      IOR (IZV,IZW) = OR (IZV, IZW)
  -      IEOR (IZV,IZW) = XOR (IZV, IZW)
  +*      IOR (IZV,IZW) = OR (IZV, IZW)
  +*      IEOR (IZV,IZW) = XOR (IZV, IZW)
         ISHFTL (IZW,NZB) = LSHIFT (IZW,NZB)
         IZW = IAND (IZW, NOT(ISHFTL(1,IZP-1)) )
         END
  
positive.code: *-------------------------------------------------------------------------------
  
        SUBROUTINE SBIT1 (IZW,IZP)
        IAND (IZV,IZW) = AND (IZV, IZW)
        IOR (IZV,IZW) = OR (IZV, IZW)
        IEOR (IZV,IZW) = XOR (IZV, IZW)
        ISHFTL (IZW,NZB) = LSHIFT (IZW,NZB)
        IZW = IOR (IZW, ISHFTL(1,IZP-1))
        END
  
negative.code:       PARAMETER (NCHAPW=4)
        PARAMETER (IALL11 = -1)
        IAND (IZV,IZW) = AND (IZV, IZW)
  
  
  
        JTH = JTHP(1)
        NINT = NINTP(1)
        IF (NINT.LE.0) RETURN
  