update-half-carry-flag ( original change-by result cpu -- )


Vocabulary
cpu.8080.emulator

Inputs
originalan object
change-byan object
resultan object
cpuan object


Outputs
None

Definition
USING: kernel math ;

IN: cpu.8080.emulator

: update-half-carry-flag
( original change-by result cpu -- )
[ bitxor bitxor 16 bitand 0 = not ] dip swap
[ half-carry-flag set-flag ] [ half-carry-flag clear-flag ]
if ;