sib, ( operand -- )

Vocabulary

cpu.x86.assembler.private

Inputs

operand

an object

Outputs

None

Definition

USING: kernel make math ;

IN: cpu.x86.assembler.private

: sib, ( operand -- )
    dup sib-present? [
        [ indirect-base* ] [ indirect-index* 3 shift ]
        [ indirect-scale* 6 shift ] tri bitor bitor ,
    ] [ drop ] if ;