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