1*40865Sbostic /*- 2*40865Sbostic * Copyright (c) 1979 The Regents of the University of California. 3*40865Sbostic * All rights reserved. 4*40865Sbostic * 5*40865Sbostic * %sccs.include.redist.c% 6*40865Sbostic */ 71706Smckusick 8*40865Sbostic #ifndef lint 9*40865Sbostic static char sccsid[] = "@(#)SUBT.c 1.3 (Berkeley) 04/09/90"; 10*40865Sbostic #endif /* not lint */ 111706Smckusick 121706Smckusick long * 133033Smckusic SUBT(result0, left, right, siz) 141706Smckusick 151706Smckusick long *result0; 161706Smckusick register long *left; 171706Smckusick register long *right; 183033Smckusic long siz; 191706Smckusick { 201706Smckusick register long *result = result0; 213033Smckusic register int size = siz; 221706Smckusick 231706Smckusick do { 241706Smckusick *result++ = *left++ & ~*right++; 251706Smckusick } while (--size); 261706Smckusick return result0; 271706Smckusick } 28