emulate-JP_P,nn ( cpu -- )

Vocabulary

cpu.8080

Inputs

cpu

an object

Outputs

None

Definition

USING: accessors cpu.8080.emulator kernel math ;

IN: cpu.8080

: emulate-JP_P,nn ( cpu -- )
    [ flag-p? ] keep swap [
        [ next-word ] keep [ pc<< ] keep [ cycles>> ] keep
        swap 5 + swap cycles<<
    ] [ [ pc>> 2 + ] keep pc<< ] if ;