interrupt ( number cpu -- )

Vocabulary

cpu.8080.emulator

Inputs

number	an object
cpu	an object

Outputs

None

Definition

USING: accessors kernel math ;

IN: cpu.8080.emulator

: interrupt ( number cpu -- )
    dup f>> interrupt-flag bitand 0 = not
    [ dup push-pc pc<< ] [ 2drop ] if ;