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