!BITS
* !BITS ( bits addr mask -- )

at the cell pointed to by addr, change only the bits that
are enabled in mask
 simulate:
   : !BITS  >R 2DUP @ R NOT AND SWAP R> AND OR SWAP ! DROP ;

FORTH/FORTH forth_83 ordinary primitive