( 32 bit, with 2 bit Byte Addr <-- lets gen this file auto later ) : __ROR__ dup ror drop ror ; : __ROL__ dup rol drop rol ; : __SAB__ dup >r @ -256 and or r> ! ; : __RAB__ @ 255 and ; : __SAS__ dup r> @ -65536 and or r> ! ; : __RAS__ @ 65535 and ; : _split_ ( addr -- bitAddr wordAddr ) dup 1073741823 and swap __ROL__ __ROL__ 3 and 3 shift swap ; : _BMask_ ( bitAddr -- ByteMask ) 255 swap shift ; : _SMask_ ( bitAddr -- 2ByteMask ) 65535 swap shift ; : __SB__ _split_ dup r> @ over _BMask_ ( outfactor ) invert and r> shift @ over _SMask_ ( outfactor ) invert and r> shift