CTOGGLE
* CTOGGLE ( n addr -- )

toggle bits in byte at given address
 simulate:
   : CTOGGLE  TUCK @ SWAP XOR SWAP ! ;

forth_usual ordinary primitive