c-toggle:forth_usual — ordinary primitive
FORTH
CTOGGLE ( n addr -- )();p4:"c-toggle";
CTOGGLE ( n addr -- )(
)
toggle bits in byte at given address
simulate: : CTOGGLE TUCK @ SWAP XOR SWAP ! ;