xref: /csrg-svn/usr.bin/pascal/libpc/MULT.c (revision 3012)
11665Smckusick /* Copyright (c) 1979 Regents of the University of California */
21665Smckusick 
3*3012Smckusic static char sccsid[] = "@(#)MULT.c 1.2 03/07/81";
41665Smckusick 
51665Smckusick long *
6*3012Smckusic MULT(result0, left, right, siz)
71665Smckusick 
81665Smckusick 	long		*result0;
91665Smckusick 	register long	*left;
101665Smckusick 	register long	*right;
11*3012Smckusic 	long		siz;
121665Smckusick {
131665Smckusick 	register long	*result = result0;
14*3012Smckusic 	register int	size = siz;
151665Smckusick 
161665Smckusick 	do {
171665Smckusick 		*result++ = *left++ & *right++;
181665Smckusick 	} while (--size);
191665Smckusick 	return result0;
201665Smckusick }
21