Main:
setf count
clrf TRISB
movlw b'10000000'
movwf TRISC
movlw 0x00
movwf TRISD
;initialize uart
movlw b'01001010'
movwf BAUDCON
movlw 0x22
movwf SPBRG
movlw 0x08
movwf SPBRGH
;2400 baudrate
bcf TXSTA , SYNC
bsf RCSTA , SPEN
bsf RCSTA , CREN
loop btfss PIR1 , RCIF
goto $-1
btfsc RCSTA , FERR
goto clearf
btfsc RCSTA , OERR
goto clearo
movf RCREG , W
movwf PORTB
;clrf PORTB
goto loop
clearf bcf RCSTA , CREN ; clear framming error
bsf PORTB , 7
goto loop
clearo bcf RCSTA , CREN ; clear overrun error
bsf PORTB , 6
goto loop