ORG 0000H
        MOV SP,#2FH
        MOV A,#0EFH
        MOV P1,A
        LCALL DELAY
LOOP:        MOV R4,#7
LOOP1:        RL A
        MOV P1,A
        LCALL DELAY
        DJNZ R4,LOOP1
        MOV R4,#7
LOOP2:        RR A
        MOV P1,A
        LCALL DELAY
        DJNZ R4,LOOP2
        LJMP LOOP
DELAY:  MOV R1,#255
        MOV R3,#255
SCAN:        MOV R2,#200
        DJNZ R1,SCAN     
        DJNZ R3,SCAN
        RET
        END