anchor.diff:     51 IF (INCMX.GT.0) GO TO 56
         IF (INCNL.EQ.0) GO TO 52
         LNN = LN - INCNL
  -      CALL UCOPY (NQIOCH,LQ(KQS+LNN),NQNIO+1)
  +      CALL UCOPYI (NQIOCH,LQ(KQS+LNN),NQNIO+1)
         IQ(KQS+LORG-3)= NQNL
         IQ(KQS+LORG-2)= NQNS
         CALL MZPUDX (LN,-INCNL)
  
positive.code:         ENDIF
        NQIOSV(1) = 0
        IF (NQNIO.GE.16)             GO TO 96
        CALL UCOPY (IQ(KQSP+LIOD+IXIO+1),NQIOCH,NQNIO+1)
        IOTH = JBYT (NQIOCH(1),12,5)
        IF (NQNIO.NE.IOTH)           GO TO 96
        NQIOSV(1) = IXIO
  
negative.code:       IF (NIO.EQ.0)  THEN
            NQIOCH(1) = IODORG
          ELSE
            CALL UCOPYI (NIOP,NQIOCH,NIO+1)
            NQIOSV(1) = 0
          ENDIF
          CALL MZLIFT (IXP,LP,LSUPP,63, NQID, NZP)
  