RLDICR ( ra rs sh me -- )

Vocabulary

cpu.ppc.assembler

Inputs

ra	an object
rs	an object
sh	an object
me	an object

Outputs

None

Definition

USING: kernel math ;

IN: cpu.ppc.assembler

: RLDICR ( ra rs sh me -- )
    [ swap ] 2dip over [ 31 bitand ] [ ] [ -5 shift ] tri*
    1 swap 0 30 md-insn ;