SUBROUTINE SBVMV(BVA,BVB,NWD)
      BYTE BVA(1),BVB(1)
      IF(NWD.LE.0) RETURN
      DO 10 I=1,NWD
   10 BVB(I)=BVA(I)
      RETURN
      END