CSET
* CSET ( n addr -- )

set bits in byte at given address
 simulate:
   : CSET  TUCK @ SWAP OR SWAP ! ;

forth_usual ordinary primitive