step ( cpu -- )

Vocabulary

cpu.8080.test

Inputs

cpu

an object

Outputs

None

Definition

USING: accessors combinators cpu.8080.emulator kernel math
sequences ;

IN: cpu.8080.test

: step ( cpu -- )
    [ read-instruction ] keep over get-cycles over inc-cycles
    [ swap instructions nth ( cpu -- ) call-effect ] keep
    [ pc>> 65535 bitand ] keep [ pc<< ] keep process-interrupts
    ;