process-interrupts ( cpu -- )

Vocabulary

cpu.8080.emulator

Inputs

cpu

an object

Outputs

None

Definition

USING: accessors kernel math ;

IN: cpu.8080.emulator

: process-interrupts ( cpu -- )
    [ cycles>> ] keep over 16667 <
    [ 2drop ] [
        [ [ 16667 - ] dip cycles<< ] keep
        dup last-interrupt>> 16 =
        [ 8 >>last-interrupt 8 swap interrupt ]
        [ 16 >>last-interrupt 16 swap interrupt ] if
    ] if ;