xref: /original-bsd/usr.bin/pascal/libpc/MULT.c (revision 55330032)
1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 static char sccsid[] = "@(#)MULT.c 1.1 10/30/80";
4 
5 long *
6 MULT(result0, left, right, size)
7 
8 	long		*result0;
9 	register long	*left;
10 	register long	*right;
11 	register int	size;
12 {
13 	register long	*result = result0;
14 
15 	do {
16 		*result++ = *left++ & *right++;
17 	} while (--size);
18 	return result0;
19 }
20