(emulate-RLCA) ( cpu -- )

Vocabulary

cpu.8080.emulator

Inputs

cpu

an object

Outputs

None

Definition

USING: accessors kernel math ;

IN: cpu.8080.emulator

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