RL

c/
utama :
mov sp, #05H

loop :
mov A, #11111110b

loop A :
mov Ro, #05H

loop 1 :
RL A
mov P1, a
call delay
CJNE A, #11111110b, loop 1

loop 2 :
RR A
mov p1, a
call delay
CJNE A, #11111110b
LJMP loop

delay :
RET