Aproximadamente cada mil microsegundos se ejecuta la subrrutina y se incrementa en 1 el valor de x
que sale por el puerto B.
trisb = 0
dim x as byte
x = 0
portB = 0
option_reg = 0x07
TMR0 = 252
intcon.t0ie = 1
enable
loop:
goto loop
end
on interrupt
x = x + 1
portb = x
intcon. t0if = 0
TMR0 = 252
resume
este es el programa completo.
garantizado que funciona
No hay comentarios:
Publicar un comentario