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