Banco0		macro
				bcf		STATUS,RP0
				bcf		STATUS,RP1
				endm

Banco1		macro
				bsf		STATUS,RP0
				bcf		STATUS,RP1
				endm

Banco2		macro
				bcf		STATUS,RP0
				bsf		STATUS,RP1
				endm

Banco3		macro
				bsf		STATUS,RP0
				bsf		STATUS,RP1
				endm

padigital	macro				;Para el correcto funcionamiento de esta macro es
				movlw		06		;necesario que antes se esté posicionado en el banco 1.
				movwf		ADCON1
				endm

	list p=16f876,	f=INHX8M, r=hex
	include "p16f876.inc"
	include "macros.inc" 
 
CONDIR	equ	20
CONCAR	equ	21
 
 
			org	0

; Cada vez que presiona el pulsador conectado a la línea RA4 conmutará el estado de
; un LED conectado a la línea RB1.
;
; ZONA DE DATOS **********************************************************************
 
	LIST		P=16F84A
	INCLUDE		<P16F84A.INC>
	__CONFIG	_CP_OFF &  _WDT_OFF & _PWRTE_ON & _XT_OSC
 
	CBLOCK 0x0C
	ENDC
 
#DEFINE Pulsador	PORTA,4		; Pulsador conectado a RA4.
#DEFINE LED			PORTB,1		; Línea donde se conecta el diodo LED.
 
; ZONA DE CÓDIGOS ********************************************************************
 
	ORG	0						; El programa comienza en la dirección 0.
Inicio
 	bsf		STATUS,RP0			; Acceso al Banco 1.
	bsf		Pulsador			; La línea RA4 se configura como entrada.
	bcf		LED					; Se configura como salida.
	bcf		STATUS,RP0			; Acceso al Banco 0.
	bcf		LED					; En principio diodo LED apagado.
Principal
	btfsc	Pulsador			; ¿Pulsador presionado?, ¿(Pulsador)=0?
	goto	Fin					; No. Vuelve a leerlo.
	call	Retardo_20ms		; Espera que se estabilicen los niveles de tensión.
	btfsc	Pulsador			; Comprueba si es un rebote.
	goto	Fin					; Era un rebote y sale fuera.
	btfsc	LED					; Testea el último estado del LED.
 	goto	EstabaEncendido
EstabaApagado
	bsf		LED					; Estaba apagado y lo enciende.
	goto	EsperaDejePulsar
EstabaEncendido
	bcf		LED					; Estaba encendido y lo apaga.
EsperaDejePulsar
	btfss	Pulsador			; ¿Dejó de pulsar?. ¿(Pulsador)=1?
	goto	EsperaDejePulsar	; No. Espera que deje de pulsar.
Fin
	goto	Principal
 
	INCLUDE <RETARDOS.INC>
	END