RLDIMI ( ra rs sh mb -- )

Vocabulary

cpu.ppc.assembler

Inputs

ra	an object
rs	an object
sh	an object
mb	an object

Outputs

None

Definition

USING: kernel math ;

IN: cpu.ppc.assembler

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