Esto es lo que llevo del programa:
; /\/\/\/\/\/\/\/\/\/\/\/\/\
;< DEFINICION DE VARIABLES >
; \/\/\/\/\/\/\/\/\/\/\/\/\/
LIST P=PIC16F84A
STATUS EQU 03H
TRISA EQU 05H
PORTA EQU 05H
TRISB EQU 06H
PORTB EQU 06H
#DEFINE BANCO0 BCF STATUS,5
#DEFINE BANCO1 BSF STATUS,5
; /\/\/\/\/\/\/\/\/\/\/\
;< INICIO DEL PROGRAMA >
; \/\/\/\/\/\/\/\/\/\/\/
ORG 00H ;El programa empieza en el principio de la memoria
BANCO1 ;Pasamos al banco 1 para configuraciones
BSF TRISA,0 ;RA0 como entrada
BSF TRISA,1 ;RA1 como entrada
BSF TRISA,2 ;RA2 como entrada
BSF TRISA,3 ;RA3 como entrada
BCF TRISA,4 ;RB4 como salida
BCF TRISB,0 ;RB0 como salida
BCF TRISB,1 ;RB1 como salida
BCF TRISB,2 ;RB2 como salida
BCF TRISB,3 ;RB3 como salida
BCF TRISB,4 ;RB4 como salida
BCF TRISB,5 ;RB5 como salida
BCF TRISB,6 ;RB6 como salida
BCF TRISB,7 ;RB7 como salida
BANCO0 ;Volvemos al banco 0 para que empiece el programa
;\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\MANIAKADA/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
INICIO RRF PORTA ;Recorre un bit la entrada de porta ej 10111b = 01011b
XORLW 0B ;1011b (ra3,ra2,ra1,ra0)= 0Bh ;Se xorea los valores, si PORTA = 1011b (0Bh)
;el resultado logico es 0,
;luego se checa en el bit Z que sea cero.
BTFSC STATUS,2 ;si Z es cero, salta una instruccion
;BTFSC STATUS,Z ;si Z es cero, salta una instruccion
;\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\END OF MANIAKADA/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
GOTO APAGAR ;si PORTA es 1011b va a APAGAR, si no prende los focos
BSF PORTA,4 ;RB4 prendido
BSF PORTB,0 ;RB0 prendido
BSF PORTB,1 ;RB1 prendido
BSF PORTB,2 ;RB2 prendido
BSF PORTB,3 ;RB3 prendido
BSF PORTB,4 ;RB4 prendido
BSF PORTB,5 ;RB5 prendido
BSF PORTB,6 ;RB6 prendido
BSF PORTB,7 ;RB7 prendido
GOTO INICIO ;Vuelve otra vez a comprobar el puertoa
APAGAR BCF PORTA,4 ;RB4 apagado
BCF PORTB,0 ;RB0 apagado
BCF PORTB,1 ;RB1 apagado
BCF PORTB,2 ;RB2 apagado
BCF PORTB,3 ;RB3 apagado
BCF PORTB,4 ;RB4 apagado
BCF PORTB,5 ;RB5 apagado
BCF PORTB,6 ;RB6 apagado
BCF PORTB,7 ;RB7 apagado
GOTO INICIO ;Vuelve otra vez a comprobar la entrada del puerto
END ;Fin del programa
;Y pues lo simulo en proteus, y resulta que el led del pin RA4 no enciende, y cuando le meto el 1011 los leds no se apagan, les adjunto la imagen del circuito.