%box-displaced-alien/alien ( dst displacement base temp -- )

Vocabulary

cpu.x86

Inputs

dst	an object
displacement	an object
base	an object
temp	an object

Outputs

None

Definition

USING: cpu.x86.assembler ;

IN: cpu.x86

:: %box-displaced-alien/alien
    ( dst displacement base temp -- )
    temp base 1 alien@ MOV dst 1 alien@ temp MOV
    temp base 3 alien@ MOV temp displacement ADD dst 3 alien@
    temp MOV temp base 4 alien@ MOV temp displacement ADD
    dst 4 alien@ temp MOV ;