MOVLW B'00100100' ;SELECCION TX DE 8 BITS,ALTA VELOCIDAD,MODO ASINCRONO
MOVWF TXSTA
MOVLW B'00000110' ;RC6 SALIDA SERIAL USART.
MOVWF PORTC
;SERIAL COMUNICACION
SERIAL BCF STATUS,5
BCF PIR1,TXIF
MOVLW B'11000000'
MOVWF INTCON
BSF STATUS,5
MOVLW B'00100101'
MOVWF TXSTA
MOVLW .12
MOVWF SPBRG
BCF STATUS,5
BSF RCSTA,SPEN
BSF STATUS,5
BSF TXSTA,TXEN
BCF STATUS,5
MOVF CONTA,W
ADDLW 30
MOVWF TXREG
ESPERE BTFSS PIR1,TXIF
GOTO ESPERE
MOVLW 0
MOVWF TXREG
EPE BTFSS PIR1,TXIF
GOTO EPE
MOVLW .32
MOVWF TXREG
ESPE BTFSS PIR1,TXIF
GOTO ESPE
MOVLW 0
MOVWF TXREG
EP BTFSS PIR1,TXIF
GOTO EP
MOVF DECENAS,W
ADDLW 30
MOVWF TXREG
RINO BTFSS PIR1,TXIF
GOTO RINO
MOVLW 0
MOVWF TXREG
P BTFSS PIR1,TXIF
GOTO P
MOVF UNIDAD,W
ADDLW 30
MOVWF TXREG
EST BTFSS PIR1,TXIF
GOTO EST
MOVLW .13
MOVWF TXREG
MAR BTFSS PIR1,TXIF
GOTO MAR
RETURN
MOVWF TXREG
ET BTFSS PIR1,TXIF
GOTO ET
MOVLW H'7F'
MOVWF TXREG
FUI BTFSS PIR1,TXIF
GOTO FUI
BCF STATUS,5
BCF STATUS,6
RETURN
END