(emulate-RLA) ( cpu -- )

Vocabulary

cpu.8080.emulator

Inputs

cpu

an object

Outputs

None

Definition

USING: accessors kernel math ;

IN: cpu.8080.emulator

: (emulate-RLA) ( cpu -- )
    [ carry-flag swap flag-set? [ 1 ] [ 0 ] if ] keep
    [ a>> 127 bitand 7 shift ] keep dup a>> 128 bitand 0 =
    [ dup carry-flag clear-flag ] [ dup carry-flag set-flag ] if
    [ bitor ] dip a<< ;