LIST P=16F873
#include "P16F873.INC"
#DEFINE BANK0 BCF STATUS,5
#DEFINE BANK1 BSF STATUS,5
;PORT INITIALIZATION
BCF STATUS,6
BANK0
CLRF PORTC
call INIT_UART
START
BANK0
MOVLW d'65'
call TRANSMIT
DONE
GOTO DONE
;--- SERIAL INITIALIZATION
INIT_UART
BANK1
BSF TRISC,7
BCF TRISC,6
BSF TXSTA,4 ;This bit should be clear for asynchronous mode
BCF TXSTA,7
BSF TXSTA,5
BCF TXSTA,6
BANK0
BSF RCSTA,7
BCF RCSTA,4
BCF RCSTA,5
return
;--- Transmit char
TRANSMIT
MOVWF TXREG
BANK1
WAIT BTFSS TXSTA,1
GOTO WAIT
return
END