procedure EUSART1_Initialize();
begin
    BAUDCON1 := 0x08;   
    // 115200
    SPBRG1 := 0x0C;
    SPBRGH1 := 0x00;

    // SPEN enabled; RX9 8-bit; CREN enabled; ADDEN disabled; SREN disabled;
    RCSTA1 := 0x90;

    // TX9 8-bit; TX9D 0; SENDB sync_break_complete; TXEN enabled; SYNC asynchronous; BRGH hi_speed; CSRC slave_mode;
    TXSTA1 := 0x24;

end;

Код инициализации:

procedure EUSART1_Initialize();
begin
    BAUDCON1 := 0x08;
    SPBRG1 := 51;
    SPBRGH1 := 0;
    // SPEN enabled; RX9 8-bit; CREN enabled; ADDEN disabled; SREN disabled;
    RCSTA1 := 0x90;

    // TX9 8-bit; TX9D 0; SENDB sync_break_complete; TXEN enabled; SYNC asynchronous; BRGH hi_speed; CSRC slave_mode;
    TXSTA1 := 0x24;
end;

Использование:
procedure Uart1(cmdUart:byte);     // ïåðåä èñïîëüçîâàíèå ïîäãîòîâèòü var dataSendUart: array[1..12] of byte
begin
   {
    TUN0_bit := 1;
    TUN1_bit := 1;
    TUN2_bit := 1;
    TUN3_bit := 1;
    TUN4_bit := 1;
    TUN5_bit := 0;   
   }
   
    SSPEN_SSP1CON1_bit := 0;
    SSPEN_bit := 0;
    PORTE.B2 := 1;
    TRISC.b7 := 1;
    TRISC.b6 := 0;
    RC2_bit := 1;             //разрешаем работу UART
    EUSART1_Initialize();
    delay_ms(100);

    for i := 0 to 7 do
    begin

      UART1_Write(0x15);
      //delay_us(500);
    end;
    i:=0;
    while (i <= 15) do
    begin
        if  (UART1_Data_Ready = 1)  then
        begin
             dataReadUart[i] := UART1_Read();
             inc(i);
             PIR1.RC1IF:=0;
        end
    end;
   
   // Выключаем UART
    RC2_bit := 0;
    //TXEN1_bit := 0;
    SPEN1_bit :=0;
    //CREN1_bit := 0;
    //TXEN1_bit := 0;
   // Включаем SPI
    SSPEN_SSP1CON1_bit := 1;
    SSPEN_bit := 1;

    //Сохраняем в файл
    FS_SDSel();
    Mmc_Fat_ChangeDir('\');
    Mmc_Fat_Assign('uart.cfg',0);
    Mmc_Fat_Reset(file_size);
    Mmc_Fat_Append;
    Mmc_Fat_Write(dataReadUart,16);
    delay_ms(200);
    Mmc_Fat_Close();
    ChangeDir('shar');
end;

procedure EUSART1_Initialize();
begin
    BAUDCON1 := 0x08;
    SPBRG1 := 41;
    SPBRGH1 := 0;
    // SPEN enabled; RX9 8-bit; CREN enabled; ADDEN disabled; SREN disabled;
    RCSTA1 := 0x90;
    // TX9 8-bit; TX9D 0; SENDB sync_break_complete; TXEN enabled; SYNC asynchronous; BRGH hi_speed; CSRC slave_mode;
    TXSTA1 := 0x24;
end;

прием данных
procedure interrupt;
begin
 if RC1IE_bit=1 then
 count:=0;
    while (count <= 7) do
    begin
        if  (UART1_Data_Ready = 1)  then
        begin
             pUART_Read[count] := UART1_Read();
             inc(count);
             PIR1.RC1IF:=0;
        end
    end;
    WriteUart();
end;

отправляем:

procedure WriteUart();
var cmd: byte;
begin
pUART_Write := pUART_Read;
   PIR1.RC1IF:=0;
   PIE1.RC1IE:=0;
   GIE_bit := 0;
   INTCON.PEIE := 0;
   
          pUART_Write[0] := pUART_Read[0];
          pUART_Write[1] := pUART_Read[1];
          pUART_Write[2] := pUART_Read[2];
          pUART_Write[3] := pUART_Read[3];
          pUART_Write[4] := pUART_Read[4];
          pUART_Write[5] := pUART_Read[5];
          pUART_Write[6] := pUART_Read[6];
          pUART_Write[7] := pUART_Read[7];
          pUART_Write[8] := 0x08;
          pUART_Write[9] := 0x09;
          pUART_Write[10] := 0x10;
          pUART_Write[11] := 0x11;
          pUART_Write[12] := 0x12;
          pUART_Write[13] := 0x13;
          pUART_Write[14] := 0x14;
          pUART_Write[15] := 0x15;

          for i:= 0 to 15 do
          begin
              UART1_Write(pUART_Write[i]);
          end;                   
   PIR1.RC1IF:=0;
   PIE1.RC1IE:=1;
   GIE_bit := 1;
   INTCON.PEIE := 1;
end;