gui-step ( cpu -- )


Vocabulary
space-invaders

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

IN: space-invaders

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