(emulate-CALL) ( cpu -- )

Vocabulary
cpu.8080.emulator

Definition

USING: accessors kernel math ;

IN: cpu.8080.emulator

: (emulate-CALL) ( cpu -- )
    [ next-word 65535 bitand ] keep [ sp>> 2 - dup ] keep
    [ sp<< ] keep [ pc>> ] keep swapd [ write-word ] keep pc<<
    ;