* !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 ;
!BITS
( bits addr mask -- )
simulate: : !BITS >R 2DUP @ R NOT AND SWAP R> AND OR SWAP ! DROP ;
FORTH/FORTH forth_83 ordinary primitive