date and time created 80/10/31 14:45:07 by mckusick

[unix-history] / usr / src / usr.bin / pascal / libpc / MULT.c

/* Copyright (c) 1979 Regents of the University of California */

static char sccsid[] = "@(#)MULT.c 1.1 %G%";

long *
MULT(result0, left, right, size)

       long            *result0;
       register long   *left;
       register long   *right;
       register int    size;
{
       register long   *result = result0;

       do {
               *result++ = *left++ & *right++;
       } while (--size);
       return result0;
}