ORG     0000H
        MOV     A,#11111110B
;    
LOOP:   JNB     P2.7,CASE1
        JNB     P2.6,CASE2
        JNB     P2.5,CASE3
        CJNE    R1,#0, K1
        AJMP    RUN1
K1:     CJNE    R1,#1, K2
        AJMP    RUN2        
K2:     MOV     P1,A
        ACALL   DELAY          
        AJMP    LOOP
;
CASE1:  MOV     R1, #0
        AJMP    LOOP
CASE2:  MOV     R1, #1
        AJMP    LOOP
CASE3:  MOV     R1, #2
        AJMP    LOOP
RUN1:   RL      A
        AJMP    K2
RUN2:   RR      A
        AJMP    K2
        
DELAY:  MOV     R5,#10
DL1:    MOV     R6,#250
DL2:    MOV     R7,#200
DL3:    DJNZ    R7,DL3
        DJNZ    R6,DL2
        DJNZ    R5,DL1
        RET
;
        END