$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32
$baud = 9600


Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portc.4 , E = Portc.5 , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3
Config Portc = Output
Config Portb = Output
Config Portd.0 = Input
Config Portd.1 = Output
Cls

Dim A As Byte
Dim B As Byte

Dim Есть_данные_lcd As Bit
Dim Конец_передачи As Byte
Dim Что_принимаем_uart As Byte
Dim Счетчик_проходов_uart As Word
Dim Буфер_приема_uart As String * 20
Dim Очистка_буфера_uart As String * 1
Dim Передача_закончена_uart As Bit , Прием_закончен_uart As Bit

  Declare Sub Прерывание_прием_uart_закончен()
  Declare Sub Прерыв_передача_uart_закончена()
  Declare Sub Display_lcd_uart()

   Очистка_буфера_uart = ""
  Счетчик_проходов_uart = 0
  Что_принимаем_uart = 1
  Set Прием_закончен_uart
  Конец_передачи = 62

  On Utxc Прерыв_передача_uart_закончена                    '> Разрешаем прерывание после окончания передачи по UART
  On Urxc Прерывание_прием_uart_закончен                    '> Разрешаем прерывание после окончания приёма данных по UART
  On Udre Прерывание_буфер_пуст_uart                        '> Разрешаем прерывание после опустошения буфера UARTT
  Enable Urxc                                               '> Разрешаем прерывание после окончания приёма данных по UART
  Enable Utxc                                               '> Разрешаем прерывание после окончания передачи по UART
 Enable Interrupts                                          '> Разрешаем прерывания

   Do                                                       ': Nop
'-----------
   A = A + 1
    Locate 2 , 1 : Lcd A

    If Прием_закончен_uart = 1 Then


       Input Буфер_приема_uart

       Буфер_приема_uart = Mid(буфер_приема_uart , 2 , 5)

       Reset Прием_закончен_uart

       Set Есть_данные_lcd

    End If

'================================
    If Есть_данные_lcd = 1 Then
        Call Display_lcd_uart
        'Print ">"
    End If
'================================

  Loop
'-------
 End

   Прерывание_прием_uart_закончен:
'----------------------
   Disable Urxc
   Set Прием_закончен_uart
'----------------------
  Return
'-------------------------------------------------------------------------------
'*******************************************************************************

'*******************************************************************************
'-------------------------------------------------------------------------------
  Прерыв_передача_uart_закончена:
'--------------------------------
    Enable Urxc
'    Set Передача_закончена_uart
'----------------------
  Return
'-------------------------------------------------------------------------------
'*******************************************************************************

'*******************************************************************************
'-------------------------------------------------------------------------------
  Прерывание_буфер_пуст_uart:
'--------------------------------
'    Set Буфер_пуст_uart
'----------------------
  Return

    Display_lcd_uart:
'---------------
    Cls


    Locate 1 , 1 : Lcd Буфер_приема_uart

    Reset Есть_данные_lcd

'    Print ">"
'-----------
  Return

https://bascomavr.bbok.ru/viewtopic.php?id=1130#p12771