Name
store-bits:forth_83 — ordinary primitive
Synopsis
FORTH
!BITS
( bits addr mask -- )( | ); | |
Description
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 ;