(emulate-RST) ( n cpu -- )

Vocabulary

cpu.8080.emulator

Inputs

n	an object
cpu	an object

Outputs

None

Definition

USING: accessors kernel math ;

IN: cpu.8080.emulator

: (emulate-RST) ( n cpu -- )
    [ sp>> 2 - dup ] keep [ sp<< ] keep [ pc>> ] keep swapd
    [ write-word ] keep [ 8 * ] dip pc<< ;