Programa en mplab

LIST P=16F84A ; procesador utilizado
INCLUDE <P16F84A.INC>; en este fichero se define las etiquetas del pic.
__CONFIG _CP_OFF& _WDT_OFF& _PWRTE_ON& _XT_OSC ;configuracion para el grabador.

CBLOCK 0x0C
R_ContA
R_ContB
R_ContC
ENDC

#DEFINE LED1 PORTB,1 ;controla la 1ra Bomba
#DEFINE LED2 PORTB,2 ;controla la 2da Bomba
#DEFINE LED3PORTB,3 ;controla la 3ra Bomba

ORG 0

Inicio
bsf STATUS,RP0 ; PASAMOS AL BANCO1

bcf LED1
bcf LED2
bcf LED3



bcf STATUS,RP0 ;PASAMOS AL BANCO 0

Principalcall Retardo_500ms
bsf LED2
call Retardo_5s
bcf LED2
call Retardo_500ms
bsf LED3
call Retardo_5s
bcf LED3
call Retardo_500ms
bsf LED1
bsf LED3
call Retardo_5sbcf LED1
bcf LED3
call Retardo_500ms
bsf LED2
call Retardo_5s
bcf LED2
call Retardo_500ms
bsf LED3
call Retardo_5s
bcf LED3
call Retardo_500ms
bsf LED1
callRetardo_5s
bcf LED1
call Retardo_500ms
bsf LED1
bsf LED2
call Retardo_5s
bcf LED1
bcf LED2 .

goto Principal

Retardo_20s ;La llamada "call" aporta 2 ciclos maquina.
movlwd'200' ;Aporta 1 ciclo maquina.Éste es el valor de "N".
goto Retardo_1Decima ;Aporta 2 ciclos maquina.
Retardo_10s ;La llamada "call" aporta 2 ciclos maquina.
movlw d'100' ;Aporta 1ciclo maquina.Éste es el valor de "N".
goto Retardo_1Decima ;Aporta 2 ciclos maquina.
Retardo_5s ;La llamada "call" aporta 2 ciclos maquina.
movlw d'50' ;Aporta 1 ciclo maquina.Éste es elvalor de "N".
goto Retardo_1Decima ;Aporta 2 ciclos maquina.
Retardo_2s ;La llamada "call" aporta 2 ciclos maquina.
movlw d'20' ;Aporta 1 ciclo maquina.Éste es el valor de "N".
gotoRetardo_1Decima ;Aporta 2 ciclos maquina.
Retardo_1s ;La llamada "call" aporta 2 ciclos maquina.
movlw d'10' ;Aporta 1 ciclo maquina.Éste es el valor de "N".
goto Retardo_1Decima ;Aporta 2...