simplesmente setar portb

caros colegas....estou com problemas como pic16f876a reduzi o programa ao extremo e não funciona....na simulação no mplab blz....mas quando gravo o microcon, não faz nada... não pode ser o gravador porque o antigo 876-04 sp grava normal....
segue programa..
LIST P=16f876A
INCLUDE <P16F876A.INC>
__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_OFF & _BODEN_OFF & _LVP_OFF
ORG 0X0000
GOTO INICIO
ORG 0X0004
INICIO:
BANKSEL TRISB
CLRF TRISB
MOVLW b'00000011'
MOVWF OPTION_REG
BANKSEL PORTB
CLRF PORTB
MOVLW D'1'
MOVWF PORTB
BANKSEL TRISA
MOVLW B'00001111'
MOVWF TRISA
BANKSEL PORTA
CLRF PORTA
TESTE:
BTFSC PORTA,1
BCF PORTB,6
BTFSS PORTA,1
BSF PORTB,6
GOTO TESTE
END
segue programa..
LIST P=16f876A
INCLUDE <P16F876A.INC>
__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_OFF & _BODEN_OFF & _LVP_OFF
ORG 0X0000
GOTO INICIO
ORG 0X0004
INICIO:
BANKSEL TRISB
CLRF TRISB
MOVLW b'00000011'
MOVWF OPTION_REG
BANKSEL PORTB
CLRF PORTB
MOVLW D'1'
MOVWF PORTB
BANKSEL TRISA
MOVLW B'00001111'
MOVWF TRISA
BANKSEL PORTA
CLRF PORTA
TESTE:
BTFSC PORTA,1
BCF PORTB,6
BTFSS PORTA,1
BSF PORTB,6
GOTO TESTE
END