put display save area back into formal routine structure

[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;
}