bcf status,rp0 ;cambiar a banco 0
bcf status,rp1
clrf porta
clrf portb
clrf portc
bsf status,rp0 ;cambiar a banco 1
movlw b'00000001' ;configurar el puerto a como xxssssse
movwf trisa
movlw b'00000111' ;puerto a = e/s digital
movwf adcon1
clrf trisb
clrf trisc
bcf status,rp0 ;cambiar a banco 0