ORG     0H
        JMP     START
        ORG     10H
START:
        CLR     C
        MOV     A,#FFH
        MOV     R4,#8
LOOP:
        RLC     A
        MOV     P1,A
        MOV     R5,#10
        CALL    DELAY
        DJNZ    R4,LOOP
;
        MOV     R4,#8
LOOP1:
        RRC     A
        MOV     P1,A
        MOV     R5,#5
        CALL    DELAY
        DJNZ    R4,LOOP1
        JMP     START
DELAY:
        DJNZ    R5,$
        RET
        END