/////////////////////////////////////////////////////
// Pic 16F84A //
// por pulsar en RA0, se inicia secuencia en RA1-3 //
/////////////////////////////////////////////////////
#include <16F84.h> //pic a utilizar
#fuses XT,NOWDT,NOPROTECT //fusibles
#use delay(clock=4000000) //velocidad del cristal
#use fast_io(A)
#byte port_a=5 //puerto A
int x=0; //variable entera de 8 bits
void main (){
delay_ms(333);
disable_interrupts(global);
set_tris_a(0b00001); //RA0 como entrada, el resto como salidas
port_a=0; //todo el puerto A en cero
do {
if (input(pin_A0)) { //si se da el negado de A0 entonces...
for (x=1;x<=3;++x) { //hacer hasta que x sea igual a 3, y en cada pasada incrementar x en uno
bit_set(port_a,x); //pone RA"x" en 1
delay_ms(1000); //espera 1 segundo
bit_clear(port_a,x); //pone RA"x" en 0
}
}
} while (TRUE);
}