usr/src/usr.bin/pascal/libpc/SUBT.c

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

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

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

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

        do {
                *result++ = *left++ & ~*right++;
        } while (--size);
        return result0;
}