Nimms ( element-bits element-width -- N imms ) (original) (raw)
Nimms ( element-bits element-width -- N imms )
Vocabulary
cpu.arm.64.assembler
Inputs
element-bits | an object |
---|---|
element-width | an object |
Outputs
N | an object |
---|---|
imms | an object |
Definition
USING: kernel math math.bitwise sequences ;
:: Nimms ( element-bits element-width -- N imms )
element-bits [ ] count 1 -
:> set-bits element-width log2 1 +
:> width-exponent width-exponent on-bits bitnot set-bits
bitor 6 toggle-bit [ -6 shift 1 bits ] [ 6 bits ] bi ;