movlw .25 ;
[COLOR="red"] banksel SPBRG[/COLOR]
movwf SPBRG
movlw b'00100100' ; brgh = high (2)
[COLOR="red"] banksel TXSTA
[/COLOR] movwf TXSTA ; enable Async Transmission, set brgh
bcf STATUS,RP0 ; RAM PAGE 0
movlw b'10010000' ; enable Async Reception
[COLOR="red"] banksel RCSTA[/COLOR]
movwf RCSTA
;
; ------------------------------------
; PROVIDE A SETTLING TIME FOR START UP
; ------------------------------------
;
[COLOR="red"] clrf dataL
settle decfsz dataL,F
goto settle
banksel RCREG
movf RCREG,W
movf RCREG,W
movf RCREG,W ; flush receive buffer[/COLOR]
return