LIST p=18f4520
#INCLUDE <p18f4520.inc>
#DEFINE USART_FLAG FLAG,1
GLOBAL P18_usart
EXTERN FLAG,SEND_DATA
CODE
P18_usart
BTFSC USART_FLAG,0
GOTO START_SEND ;USART_FLAG,0=1 ise
#IFDEF CLK_20MHZ ;Tcy=200ns
BSF TXSTA,BRGH ;BRGH=1 , high speed asynch
MOVLW .129 ;fosc=20 MHz ---> baud rate 9.6k
MOVWF SPBRG;
#ENDIF
BCF TRISC,TX
BSF RCSTA,SPEN ;Serial Port enabled.(configures RC7/RX/DT and RC6/TX/CK pins as serial port pins)
BSF TXSTA,TXEN
BSF USART_FLAG,0
START_SEND
BTFSS PIR1,TXIF
BRA START_SEND
MOVFF SEND_DATA,TXREG
RETURN
END