* @BITS ( addr mask -- value ) see the companion word >!BITS simulate: : @BITS SWAP @ AND ;
@BITS
( addr mask -- value )
>!BITS
simulate: : @BITS SWAP @ AND ;
forth_83 ordinary primitive