cpu-a-bitor ( quot cpu -- )

Vocabulary

cpu.8080.emulator

Inputs

quot	an object
cpu	an object

Outputs

None

Definition

USING: accessors kernel math ;

IN: cpu.8080.emulator

: cpu-a-bitor ( quot cpu -- )
    [ a>> swap call bitor ] keep a<< ; inline