ORG 0000h

MOV P1,#00h
INICIO: JNB P3.2,BT1
    JMP INICIO

BT1:    MOV P1,#00000001b
    MOV A,#01h
    CALL DELAY
    MOV P1,#00h
    MOV P1,#00000010b
    MOV A,#01h
    CALL DELAY
    MOV P1,#00h
    MOV P1,#00000100b
    MOV A,#01h
    CALL DELAY
    MOV P1,#00h
    MOV P1,#00001000b
    MOV A,#01h
    CALL DELAY
    MOV P1,#00H
    MOV P1,#00010000b
    MOV A,#01h
    CALL DELAY
    MOV P1,#00h
    MOV P1,#00100000b
    MOV A,#01h
    CALL DELAY
    MOV P1,#00h
    MOV P1,#01000000b
    MOV A,#01h
    CALL DELAY
    MOV P1,#00h
    MOV P1,#10000000b
    MOV A,#01h
    CALL DELAY
    MOV P1,#00h
    JMP BT1


DELAY:  MOV R0,A
VOLTA2: MOV R1,#250
VOLTA1: MOV R2,#250
    DJNZ R2,$
    DJNZ R1,VOLTA1
    DJNZ R0,VOLTA2
    RET
END