(emulate-RRCA) ( cpu -- )

Vocabulary

cpu.8080.emulator

Inputs

cpu

an object

Outputs

None

Definition

USING: accessors kernel math ;

IN: cpu.8080.emulator

: (emulate-RRCA) ( cpu -- )
    [ a>> 1 bitand 7 shift ] keep over 0 =
    [ dup carry-flag clear-flag ] [ dup carry-flag set-flag ] if
    [ a>> 254 bitand -1 shift ] keep [ bitor ] dip a<< ;