[unix-history] / usr / src / usr.bin / pascal / libpc / SUBT.c

/* Copyright (c) 1979 Regents of the University of California */

static char sccsid[] = "@(#)SUBT.c 1.2 %G%";

long *
SUBT(result0, left, right, siz)

	long		*result0;
	register long	*left;
	register long	*right;
	long		siz;
{
	register long	*result = result0;
	register int	size = siz;

	do {
		*result++ = *left++ & ~*right++;
	} while (--size);
	return result0;
}
Commit	Line	Data
6eaa1b98 KM	1	/* Copyright (c) 1979 Regents of the University of California */
6eaa1b98 KM	2
492cc5d3	3	static char sccsid[] = "@(#)SUBT.c 1.2 %G%";
6eaa1b98 KM	4
6eaa1b98 KM	5	long *
492cc5d3	6	SUBT(result0, left, right, siz)
6eaa1b98 KM	7
	8	long *result0;
	9	register long *left;
	10	register long *right;
492cc5d3	11	long siz;
6eaa1b98 KM	12	{
6eaa1b98 KM	13	register long *result = result0;
492cc5d3	14	register int size = siz;
6eaa1b98 KM	15
	16	do {
	17	result++ = left++ & ~*right++;
	18	} while (--size);
	19	return result0;
	20	}