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:       FUNCTION JBIT (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)
        JBIT = IAND (ISHFTR(IZW, IZP-1), 1)
        END
  
  
negative.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
  