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