$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.
