Estudo - 8051 - Pisca led

 $mod51

;Inicia Programa - Sai da area de interrupção

org 0000H

rst: lcall ini

ljmp delay

org 0030H

;Inicia rotina pisca led

ini:

clr p1.0

lcall delay

setb p1.0

lcall delay

lcall ini

;Rotina de delay. Alterando o valor de R4 , tera um mudançao do tempo

delay: MOV R4,#40

          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

Observação: Para esse código, foi usado o compilador Pequi/Simulador e o simulador Proteus. Assim como foi utilizado micontroladores at89c51 e at89c2021.  

Não altere o código, observe esse que os demais que fizer será utilizando esse estrutura básica. 

Baixar compilador Pequi