%box-displaced-alien/alien ( DST DISP BASE TEMP -- )

Vocabulary

cpu.arm.64

Inputs

DST	an object
DISP	an object
BASE	an object
TEMP	an object

Outputs

None

Definition

USING: cpu.arm.64.assembler kernel ;

IN: cpu.arm.64

:: %box-displaced-alien/alien ( DST DISP BASE TEMP -- )
    temp BASE 1 alien@ LDR temp DST 1 alien@ STR
    temp BASE 3 alien@ LDR temp dup DISP ADD temp DST 3 alien@
    STR temp BASE 4 alien@ LDR temp dup DISP ADD
    temp DST 4 alien@ STR ;