Codigo - Pisca Led com um microcontrolador da Familia 8051

 $mod51

org 0000H

rst:  LCALL INI
      LJMP DELAY

 
org 0030H

INI:

clr p1.0

lcall delay

setb p1.0

lcall INI


DELAY:  MOV R4,#04

    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

end

 

Obs: Usei o compilador e simulador PEQUI. e o codigo está em Assembly - O pessoal reclama, mas Assembly é bem mais rápido.