TRANSF BCF PORTC,3
BSF STATUS,5 ;VOY AL BANCO 1
MOVLW D'25' ;CARGO W CON DATO
MOVWF SPBRG ;TRANSFIERO W A SPBRG
MOVLW b'00100100' ;CARGO W CON PALABRA
MOVWF TXSTA ;TRANSFIERE W A TXSTA
BCF STATUS,5 ;VOY AL BAMCO 0
CLRF TXREG ;CLEAR TXREG
CLRF RCSTA ;CLEAR RCSTA
BSF RCSTA,7 ;HABILITA RC6 PARA TRANSMISION