emulate-IN_A,(n) ( cpu -- )

Vocabulary

cpu.8080

Inputs

cpu

an object

Outputs

None

Definition

USING: accessors cpu.8080.emulator kernel ;

IN: cpu.8080

: emulate-IN_A,(n) ( cpu -- )
    [ next-byte ] keep [ read-port ] keep a<< ;