xref: /csrg-svn/usr.bin/pascal/libpc/SUBT.c (revision 3033)
11706Smckusick /* Copyright (c) 1979 Regents of the University of California */
21706Smckusick 
3*3033Smckusic static char sccsid[] = "@(#)SUBT.c 1.2 03/07/81";
41706Smckusick 
51706Smckusick long *
6*3033Smckusic SUBT(result0, left, right, siz)
71706Smckusick 
81706Smckusick 	long		*result0;
91706Smckusick 	register long	*left;
101706Smckusick 	register long	*right;
11*3033Smckusic 	long		siz;
121706Smckusick {
131706Smckusick 	register long	*result = result0;
14*3033Smckusic 	register int	size = siz;
151706Smckusick 
161706Smckusick 	do {
171706Smckusick 		*result++ = *left++ & ~*right++;
181706Smckusick 	} while (--size);
191706Smckusick 	return result0;
201706Smckusick }
21