Hola ecraun
Yo estoy empezando con esto de los pic, utilizo el pic simulador ide para escribir y simular el codigo.Es muy parecido al microbasic.Tendras que poner los tiempos para las esperas puesto que los puse para poder simular.Espero te sirva
Un saludo



AllDigital
TRISA = %11111111
TRISB = %00000000


inicio:
PORTB.0 = 0
If PORTA = 0x11 Then Goto segundo
WaitUs 50
If PORTA = 0x12 Then Goto treinta
WaitUs 50
If PORTA = 0x14 Then Goto siempre
WaitUs 50
Goto inicio
siempre:
PORTB.0 = 1
WaitUs 150
If PORTA = 0x14 Then Goto inicio
Goto siempre
segundo:
PORTB.0 = 1
WaitUs 500
Goto inicio
treinta:
PORTB.0 = 1
WaitUs 2000
Goto inicio
End

__________________
[COLOR="Red"]Sólo dos cosas son infinitas, el universo y la estupidez humana… y no estoy seguro de lo primero.Albert Einstein[/COLOR]