cpu-a-bitxor= ( value cpu -- )

Vocabulary

cpu.8080.emulator

Inputs

value	an object
cpu	an object

Outputs

None

Definition

USING: accessors kernel math ;

IN: cpu.8080.emulator

: cpu-a-bitxor= ( value cpu -- ) [ a>> bitxor ] keep a<< ;