( 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
<r
or
<r
!
;


: __RB__
_split_
@
over
_BMask_ ( outfactor )
and
swap
negate
shift
;

: __SS__
_split_
dup
r>
@
over
_SMask_ ( outfactor )
invert
and
r>
shift
<r
or
<r
!
;

: __RS__
_split_
@
over
_SMask_ ( outfactor )
and
swap
negate
shift
;

: set ! ;
: get @ ;