gui-frame/2 ( cpu -- )

Vocabulary

roms.space-invaders

Inputs

cpu

an object

Outputs

None

Definition

USING: accessors cpu.8080.emulator kernel math ;

IN: roms.space-invaders

: gui-frame/2 ( cpu -- )
    [ gui-step ] keep [ cycles>> ] keep over 16667 <
    [ nip gui-frame/2 ] [
        [ [ 16667 - ] dip cycles<< ] keep
        dup last-interrupt>> 16 =
        [ 8 >>last-interrupt 8 swap interrupt ]
        [ 16 >>last-interrupt 16 swap interrupt ] if
    ] if ;