CRESET
* CRESET ( n addr -- )

reset bits in byte at given address
 simulate:
   : CRESET  TUCK @ SWAP NOT AND SWAP ! ;

FORTH/BASE forth_usual ordinary primitive