add-word ( lhs rhs cpu -- result )


Vocabulary
cpu.8080.emulator

Inputs
lhsan object
rhsan object
cpuan object


Outputs
resultan object


Definition
USING: kernel math ;

IN: cpu.8080.emulator

: add-word ( lhs rhs cpu -- result )
[ + ] dip over 65535 > [ carry-flag set-flag ] [ drop ] if
65535 bitand ;