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<< ;