inicio
bsf STATUS,RP0
clrf TRISB
movlw b'00011111'
movwf TRISA
bcf STATUS,RP0
Principal
movf PORTA,W
andlw b'00000111'
call Tabla
movwf PORTB
goto Principal
Tabla
addwf PCL,f
retlw b'00001010' ;Config0
retlw b'00001010' ;Config1
retlw b'00001010' ;Config2
retlw b'00001010' ;Config3
retlw b'00001010' ;Config4
retlw b'00001010' ;Config5
retlw b'00001010' ;Config6
retlw b'00001010' ;Config7