Entrada RA0, salida RB0

[REHome]

Me gustaría saber como se hace que al pulsar una entrada con el PIC 16F84A, en su salida se activa el RB0.

Es decir, dejo a 1 la entrada del puerto A RA0, y a su salida se ilumine un LED del puerto B llamado RB0.

De momento tengo un código incompleto aquí.

; ZONA DE DATOS **********************************************************************

	__CONFIG   _CP_OFF &  _WDT_OFF & _PWRTE_ON & _XT_OSC	; Configuración para el
															; grabador.
	LIST	P=16F84A			; Procesador.
	INCLUDE <P16F84A.INC>		; Definición de los operandos utilizados.

; ZONA DE CÓDIGOS ********************************************************************

	CONSTANTE  EQU	b'00000100'
	LOCO	EQU b'10000001'

	ORG 	0					; El programa comienza en la dirección 0 de memoria de
Inicio							; programa.
	bsf		STATUS,RP0			; Pone a 1 el bit 5 del STATUS. Acceso al Banco 1.
	clrf	TRISB				; Las líneas del Puerto B se configuran como salidas.
	movlw	b'11111111'
	movwf	TRISA				; Las líneas del Puerto A se configuran como entradas.
	bcf		STATUS,RP0			; Pone a 0 el bit 5 de STATUS. Acceso al Banco 0.
	

Principal
;	movf 	PORTA,W				; Lee el Puerto A.
;	movwf	PORTB				; El contenido de W se visualiza por el Puerto B.
;	bsf	LOCO,7
	movf	PORTA,0
	goto 	Principal			; Crea un bucle cerrado.

	END							; Fin del programa.

[MaMu]

Bueno, es muy sencillo, aca tenes, modifica y/o cambia lo que quieras a gusto.

;/////Configuramos todo////
bsf         STATUS,RP0    ; banco 1
molvw     0x01              ; RA0 entrada, lo demas salidas
movwf    TRISA
clrf        TRISB
bcf         STATUS,RP0   ;banco 0    
 
;////Principal/////
 
main   call    Escanea_Tecla           ;A pull Down con una resistencia de 10k
         goto main
 
Escanea_Tecla
                 BTFSC    PORTA,0       ;Salta si es 0  
                 goto       ENCIENDE_LED
                 goto       APAGA_LED
                 return
 
ENCIENDE_LED 
                 bsf   PORTB,0
                 goto Escanea_Tecla
 
APAGA_LED
                 bcf   PORTB,0
                 goto Escanea_Tecla
 
end

Saludos

[REHome]

Muchas gracias, me sirve a la primera.