x87-m-st0/n-op ( dst src opcode reg -- )

Vocabulary

cpu.x86.assembler.private

Inputs

dst	an object
src	an object
opcode	an object
reg	an object

Outputs

None

Definition

USING: combinators cpu.x86.assembler cpu.x86.assembler.operands
cpu.x86.assembler.operands.private kernel math ;

IN: cpu.x86.assembler.private

:: x87-m-st0/n-op ( dst src opcode reg -- )
    {
        {
            [ dst ST0 = src indirect? and ]
            [ src { reg f opcode } 1-operand ]
        }
        {
            [ dst ST0 = src register? and ]
            [ src opcode reg (x87-op) ]
        }
        {
            [ src ST0 = dst register? and ]
            [ dst opcode 4 + reg (x87-op) ]
        }
        [ bad-x87-operands ]
    } cond ;