emulate-CALL_PE,nn ( cpu -- )

Vocabulary

cpu.8080

Inputs

cpu

an object

Outputs

None

Definition

USING: accessors cpu.8080.emulator kernel math ;

IN: cpu.8080

: emulate-CALL_PE,nn ( cpu -- )
    [ flag-pe? ] keep swap
    [ 7 over inc-cycles (emulate-CALL) ]
    [ [ pc>> 2 + ] keep pc<< ] if ;