BANKSEL TRISC
BSF TRISC,6 ;PUERTO C3 COMO SALIDA
BSF TRISC,7 ;PUERTO C7 COMO ENTRADA
BANKSEL SPBRG
MOVLW .9
MOVWF SPBRG ;BAUD RATE A 31250
BANKSEL TXSTA
BCF TXSTA,CSRC ;SELECCIONA RELOJ (ASINCRONO NO IMPORTA)
BCF TXSTA,TX9 ;DATOS DE 8 BITS
BSF TXSTA,TXEN ;NO ENVIA DATOS POR AHORA
BCF TXSTA,SYNC ;MODO ASINCRONO
BCF TXSTA,3 ;NO IMPLEMENTADO
BCF TXSTA,BRGH ;BAJA VELOCIDAD DE TRANSMISION
BCF TXSTA,TRMT ;ESTADO DEL REGISTRO DE DESPLAZAMIENTO (VACIO)
BCF TXSTA,TX9D ;NOVENO BIT A TRANSMITIR
BANKSEL RCSTA
BSF RCSTA,SPEN ;HABILITA PUERTO SERIE
BCF RCSTA,RX9 ;BITS A RECIVIR 8
BCF RCSTA,SREN ;HABILITA RECEPCION UNICA (ASINCRONO NO IMPORTA)
BSF RCSTA,CREN ;HABILITA RECEPCION CONTINUA
BCF RCSTA,3
BCF RCSTA,FERR ;NO HAY ERROR DE EMPAQUETAMIENTO
BCF RCSTA,OERR ;NO HAY ERROR DE DESBORDAMIENTO
BCF RCSTA,RX9D ;NOVENO BIT DE RECIVIDO
BANKSEL PIE1
BCF PIE1,TXIE ;DESHABILITA INTERRUPCION DE TRANSMISION
BCF PIE1,RCIE ;HABILITA INTERRUPCION DE RECEPCION
BANKSEL PIR1
BCF PIR1,TXIF ;APAGA BANDERA DE INTERRUPCION POR TRANSMISION
BCF PIR1,RCIF ;APAGA BANDERA DE INTERRUPCION POR RECEPCION
BCF STATUS,RP0 ;CAMBIA AL BANCO 0
BCF STATUS,RP1