Código - Acionando LEDS - Assembly 8051

 ;Inicia Programa

ini:

mov p1.0,#0001b;

lcall DELAY;

clr p1.0;

;mov p1.1,#0010b;

setb p1.1;

lcall DELAY;

clr p1.1;

setb p1.2;

;mov p1.2,#0011b;

lcall DELAY;

clr p1.2

setb p1.3;

;mov p1.3,#0100b;

lcall DELAY;

clr p1.3;

lcall ini;

;Rotina de delay. Aproximamente 20 segundos

DELAY:  MOV TMOD,#01

        MOV TCON,#00

REPETE: MOV TH0,#08

       ;MOV TL,#DB      

        SETB TR0

AQUI:   JNB  TF0,AQUI

  CLR   TF0

  DJNZ  R4,REPETE

  CLR   TR0

  RET