Код:

$Regfile="m328pbdef.dat"
$Crystal=14745600
$hwstack = 120
$swstack = 120
$framesize = 120


Dim X As Word
Dim Y As Byte
Dim S As String * 55
Dim Cl As Byte




Declare Sub Lcdcls()
Declare Sub Point(byval X As Word , Byval Y As Byte , Byval Cl As Byte)       'подпрограмма вывода пикселя

Declare Sub Cifra(byval X As Word , Byval Y As Byte , Byval Num As String * 6)






'Тут на два сегмента:
'Const Lsdram = 129                                          'Количество панелей (65=1 панель, 129=две панели)  - но почему-то надо чуть больше чтоб небыло утчки памяти, по идее 64 и 128 должно быть
Const Lsdram = 65                                           'Это на одну матрицу, но учтите, в цикле координаты X 63 поменяйте на 31
Const Lsdstr = Lsdram / 4                                   'Рассчёт блоков для вывода графики
Dim Endx As Byte
Dim Endstr As Byte
Endx = Lsdram / 2
Endstr = Lsdram / 11




'================= Конфигурация портов
'таймер OC1B Portb.2
Config Timer1 = Pwm ,Pwm = 8,Compare B Pwm = Clear up ,Prescale = 64
' Частота шим-а 1953.125 Гц
Config PORTb.2 = Output 'выход на порт регистра OC1B
Pwm1b = 100
Start Timer1

'==== Выводы экрана
Config Portd.5=output
Config Portd.6=output
Config Portd.7=output
Config Portb.0=output
Config Portb.1=output
Config Portb.2=output

'Oe_pin Alias Portb.2                                        'Это для отклчюения и включения дисплея, можно посадить на таймер и регулировать яркость.

'Set Oe_pin                                                  'Включаем дисплей (можно его на таймер поставить для регулировки яркости)

A_pin Alias Portd.5                                         'Адрес в ячейке
B_pin Alias Portd.6                                         'Адрес в ячейке
Clk_pin Alias Portd.7                                       'строб передачи данных SPI
Stb_pin Alias Portb.0                                       'Строб защёлки
Data_pin Alias Portb.1                                      'Вывод данных SPI


'================= Переменные

Dim Led(200) As Byte                                        'Массив видео памяти
Dim Adrsstart As Byte                                       'координаты памяти
Dim Adrsend As Byte                                         'координаты памяти
Dim Adrsschet As Byte                                       'координаты памяти
Dim Adrs As Byte                                            'координаты памяти
Dim Triglsd As Byte                                         'Адрес строки в ячейке



'============== Основной программы
Dim Rezhim As Byte                                          'Режим устройства


'=============== Переменные влажности  и температуры
Dim T As Byte







'============== Переменные графики
Dim Xadrs As Word
Dim Yadrs As Byte
Dim Xost As Byte                                            'Выссчитывание координаты отстака X (положение бита в байте)
Dim Yost As Byte                                            'высчитывание остатка координаты Y
Dim Trigstr As Byte                                         'для подсчёта строки в кластере


Call Lcdcls()

Set Stb_pin                                                 'Дрыгаем защёлкой регистров чтоб наверняка всё сбросить
Reset Stb_pin
X = 0
Y = 0
Triglsd = 0

Config Timer2 = Timer , Prescale = 256                     'Запускаем таймер, он будет рисовать одну строку из четырёх
On Timer2 Graf
Enable Timer2
Enable Interrupts


'Set Oe_pin                                                  'Включаем дисплей

Dim L As Byte
Dim P As Byte
Dim O As Byte
Dim I As Byte
Dim Tm2 As Byte
Dim Txt As String * 255
Dim Vr As Byte
Dim Animal As Byte
Dim Animalvr As Byte
Dim Vrb As Byte                                             'Временная переменная Байт

Dim Tm As Byte
Do

For P = 30 To 90

   S = " "
   S = S + Str(p)
   S = S + "%"
   Call Cifra(1 , 0 , S)


Waitms 100
Next P
'Call Lcdcls()

  '==================Просто тестовая программа проверки правильности вывода видео данных =================



Loop


Sub Cifra(byval X As Word , Byval Y As Byte , Byval Num As String * 6)
Local Vry As Byte
Local Vrx As Word
Local Vrp As Byte
Local Vro As Byte
Local Vrb As Byte
Local Vrxp As Word
Local P As Byte
Local L As Byte
Local Vr As Byte
Local S As String * 1
Local Compensator As Byte
Local Compensator2 As Word
L = Len(num)
For P = 1 To L                                              'разбераем строку по буквам
    S = Mid(num , P , 1)
    Compensator = 7                                         'компинсация вывода узких знаков (точки и запятой)

    Vry = Y

    Vrxp = Compensator2
    Vrxp = Vrxp + X

    Select Case S                                           '========== Так будет проще для вас, определяем знак в строке
       Case "0"
          Vr = 0
       Case "1"
          Vr = 16
       Case "2"
          Vr = 32
       Case "3"
          Vr = 48
       Case "4"
          Vr = 64
       Case "5"
          Vr = 80
       Case "6"
          Vr = 96
       Case "7"
          Vr = 112
       Case "8"
          Vr = 128
       Case "9"
          Vr = 144
       Case "+"
          Vr = 160

       Case "-"
          Vr = 176
       Case "%"
          Vr = 192
       Case " "                                             'Пробел для стирания
          Vr = 208
       Case "."
         Vr = 224
         Compensator = 3                                    'длина и вправо
         Vrxp = Vrxp - 1                                    'влево
       Case ","
         Vr = 240
         Compensator = 3                                    'длина и вправо
         Vrxp = Vrxp - 1                                    'влево
       Case Else Break
    End Select
     Vr = Vr + 15                                           'Я тут кодкосячил с разворотом шрифта по Y

    For Vro = 0 To 15
       Vrb = Lookup(vr , Cifri)
       Decr Vr                                              'INCR если убрать отражение шрифта по Y
       Vrx = Vrxp

       For Vrp = Compensator To 0 Step -1
          If Vrb.vrp = 1 Then
             Call Point(vrx , Vry , 1)
             Else
             Call Point(vrx , Vry , 0)
          End If
          Incr Vrx
       Next Vrp
      Incr Vry
    Next Vro
    Incr Compensator
    Compensator2 = Compensator2 + Compensator


Next P
Compensator2 = 0
End Sub



Sub Lcdcls()                                                'Очищаем LCD экран
   For Adrs = 1 To Lsdram                                   'очищаем
      Led(adrs) = 255
   Next Adrs
End Sub






Sub Point(x As Word , Y As Byte , Cl As Byte )              'Рисуем точку
   'X = 31 - x
   'Y = 15 - Y
   Xadrs = X / 8                                            'Так как 8 точек в одном слобце, делим и узнаём сколько столбцов
   Xadrs = Xadrs * 4                                        'Умнажаем на 4 кластера в столбце

   Xost = X Mod 8                                           'Выссчитываем пиксель из байта

   Yadrs = Y Mod 4                                          'определяем какая строка в кластере
   Yadrs = Yadrs * Lsdstr                                   'умножаем на длину строки экрана

   Yost = Y / 4                                             'высчитываем сколько кластеров в столбце
   Yadrs = Yadrs + Yost                                     'суммируем полученное

   Yadrs = Xadrs + Yadrs                                    'прибавляем рассчёты по X

   Yadrs = Lsdram - Yadrs                                   'вычитаем из общего массива, там почему-то стабильней
   If Yadrs <= Lsdram And Yadrs > 0 Then
      Led(yadrs).xost = Not Cl.0                            'рисуем точку
   End If

End Sub


Graf:
'============================= Код вывода на дисплей =================================================
'Рисуем только одну строку из 4х

  Adrsstart = Lsdstr * Triglsd                              'высчитываем начальный адрес строки
  Incr Adrsstart                                            'Прибавляем на один из-за проблем в Баскоме в нумерации массива, он не должен начинатся с нуля
  Adrsend = Adrsstart + Lsdstr                              'высчитываем конечный адрес строки

  For Adrsschet = Adrsstart To Adrsend                      'Перебираем видео память
          Shiftout Data_pin , Clk_pin , Led(adrsschet)      'Вывод данных

  Next Adrsschet

  Set Stb_pin                                               'Дрыгаем защёлкой регистров и через паузу закрываем (для надёжности)

  Select Case Triglsd                                       'Выбираем адрес строки в ячейке (1-4) - тут проблема, нужна оптимизация кода
      Case 0
         A_pin = 1
         B_pin = 1
         Incr Triglsd
      Case 1
         A_pin = 0
         B_pin = 1
         Incr Triglsd
      Case 2
         A_pin = 1
         B_pin = 0
         Incr Triglsd
      Case 3
         A_pin = 0
         B_pin = 0
         Triglsd = 0
  End Select

  Reset Stb_pin                                             'сбрасываем заёлку регистров

  '=====================================================================================================
Return



End



Cifri:

'0
DATA &B0011_1000 ' 1
DATA &B0100_0100 ' 2
DATA &B1100_0110 ' 3
DATA &B1100_0110 ' 4
DATA &B1100_0110 ' 5
DATA &B1100_0110 ' 6
DATA &B1100_0110 ' 7
DATA &B1100_0110 ' 8
DATA &B1100_0110 ' 9
DATA &B1100_0110 ' 10
DATA &B1100_0110 ' 11
DATA &B1100_0110 ' 12
DATA &B1100_0110 ' 13
DATA &B0100_0100 ' 14
DATA &B0011_1000 ' 15
DATA &B0000_0000 ' 16
' Байтов:16



'1
DATA &B0001_1000 ' 1
DATA &B0011_1000 ' 2
DATA &B0011_1000 ' 3
DATA &B0111_1000 ' 4
DATA &B0111_1000 ' 5
DATA &B0001_1000 ' 6
DATA &B0001_1000 ' 7
DATA &B0001_1000 ' 8
DATA &B0001_1000 ' 9
DATA &B0001_1000 ' 10
DATA &B0001_1000 ' 11
DATA &B0001_1000 ' 12
DATA &B0001_1000 ' 13
DATA &B0001_1000 ' 14
DATA &B0001_1000 ' 15
DATA &B0000_0000 ' 16
' Байтов:16



'2
DATA &B0011_1000 ' 1
DATA &B0100_0100 ' 2
DATA &B1100_0110 ' 3
DATA &B1100_0110 ' 4
DATA &B1100_0110 ' 5
DATA &B0000_0110 ' 6
DATA &B0000_0100 ' 7
DATA &B0000_1000 ' 8
DATA &B0001_0000 ' 9
DATA &B0010_0000 ' 10
DATA &B0100_0000 ' 11
DATA &B1100_0000 ' 12
DATA &B1100_0000 ' 13
DATA &B1100_0110 ' 14
DATA &B1111_1110 ' 15
DATA &B0000_0000 ' 16
' Байтов:16



'3                                                           '
DATA &B0011_1000 ' 1
DATA &B0100_0100 ' 2
DATA &B1100_0110 ' 3
DATA &B1100_0110 ' 4
DATA &B0000_0110 ' 5
DATA &B0000_0110 ' 6
DATA &B0001_1100 ' 7
DATA &B0001_1100 ' 8
DATA &B0000_0110 ' 9
DATA &B0000_0110 ' 10
DATA &B0000_0110 ' 11
DATA &B1100_0110 ' 12
DATA &B1100_0110 ' 13
DATA &B0100_0100 ' 14
DATA &B0011_1000 ' 15
DATA &B0000_0000 ' 16
' Байтов:16


'4
DATA &B1100_1100 ' 1
DATA &B1100_1100 ' 2
DATA &B1100_1100 ' 3
DATA &B1100_1100 ' 4
DATA &B1100_1100 ' 5
DATA &B1100_1100 ' 6
DATA &B1100_1100 ' 7
DATA &B1111_1110 ' 8
DATA &B1111_1110 ' 9
DATA &B0000_1100 ' 10
DATA &B0000_1100 ' 11
DATA &B0000_1100 ' 12
DATA &B0000_1100 ' 13
DATA &B0000_1100 ' 14
DATA &B0000_1100 ' 15
DATA &B0000_0000 ' 16
' Байтов:16


'5
DATA &B1111_1110 ' 1
DATA &B1100_0110 ' 2
DATA &B1100_0000 ' 3
DATA &B1100_0000 ' 4
DATA &B1100_0000 ' 5
DATA &B1100_0000 ' 6
DATA &B1111_1100 ' 7
DATA &B0000_0110 ' 8
DATA &B0000_0110 ' 9
DATA &B0000_0110 ' 10
DATA &B0000_0110 ' 11
DATA &B1100_0110 ' 12
DATA &B1100_0110 ' 13
DATA &B1100_0110 ' 14
DATA &B0111_1100 ' 15
DATA &B0000_0000 ' 16
' Байтов:16


'6
DATA &B0111_1110 ' 1
DATA &B1100_0110 ' 2
DATA &B1100_0000 ' 3
DATA &B1100_0000 ' 4
DATA &B1100_0000 ' 5
DATA &B1100_0000 ' 6
DATA &B1111_1100 ' 7
DATA &B1100_0110 ' 8
DATA &B1100_0110 ' 9
DATA &B1100_0110 ' 10
DATA &B1100_0110 ' 11
DATA &B1100_0110 ' 12
DATA &B1100_0110 ' 13
DATA &B1100_0110 ' 14
DATA &B0111_1100 ' 15
DATA &B0000_0000 ' 16
' Байтов:16


'7
DATA &B1111_1110 ' 1
DATA &B1111_1110 ' 2
DATA &B0000_0110 ' 3
DATA &B0000_0110 ' 4
DATA &B0000_0110 ' 5
DATA &B0000_1100 ' 6
DATA &B0001_1000 ' 7
DATA &B0001_1000 ' 8
DATA &B0001_1000 ' 9
DATA &B0011_0000 ' 10
DATA &B0011_0000 ' 11
DATA &B0011_0000 ' 12
DATA &B0110_0000 ' 13
DATA &B0110_0000 ' 14
DATA &B0110_0000 ' 15
DATA &B0000_0000 ' 16
' Байтов:16

'8
DATA &B0111_1100 ' 1
DATA &B1100_0110 ' 2
DATA &B1100_0110 ' 3
DATA &B1100_0110 ' 4
DATA &B1100_0110 ' 5
DATA &B1100_0110 ' 6
DATA &B1100_0110 ' 7
DATA &B0111_1100 ' 8
DATA &B1100_0110 ' 9
DATA &B1100_0110 ' 10
DATA &B1100_0110 ' 11
DATA &B1100_0110 ' 12
DATA &B1100_0110 ' 13
DATA &B1100_0110 ' 14
DATA &B0111_1100 ' 15
DATA &B0000_0000 ' 16
' Байтов:16


'9
DATA &B0111_1100 ' 1
DATA &B1100_0110 ' 2
DATA &B1100_0110 ' 3
DATA &B1100_0110 ' 4
DATA &B1100_0110 ' 5
DATA &B1100_0110 ' 6
DATA &B1100_0110 ' 7
DATA &B1100_0110 ' 8
DATA &B0111_1110 ' 9
DATA &B0000_0110 ' 10
DATA &B0000_0110 ' 11
DATA &B0000_0110 ' 12
DATA &B1100_0110 ' 13
DATA &B1100_0110 ' 14
DATA &B0111_1100 ' 15
DATA &B0000_0000 ' 16
' Байтов:16

'+
DATA &B0000_0000 ' 1
DATA &B0000_0000 ' 2
DATA &B0000_0000 ' 3
DATA &B0000_0000 ' 4
DATA &B0011_0000 ' 5
DATA &B0011_0000 ' 6
DATA &B1111_1100 ' 7
DATA &B1111_1100 ' 8
DATA &B0011_0000 ' 9
DATA &B0011_0000 ' 10
DATA &B0000_0000 ' 11
DATA &B0000_0000 ' 12
DATA &B0000_0000 ' 13
DATA &B0000_0000 ' 14
DATA &B0000_0000 ' 15
DATA &B0000_0000 ' 16
' Байтов:16




'-
DATA &B0000_0000 ' 1
DATA &B0000_0000 ' 2
DATA &B0000_0000 ' 3
DATA &B0000_0000 ' 4
DATA &B0000_0000 ' 5
DATA &B0000_0000 ' 6
DATA &B0111_1100 ' 7
DATA &B0111_1100 ' 8
DATA &B0000_0000 ' 9
DATA &B0000_0000 ' 10
DATA &B0000_0000 ' 11
DATA &B0000_0000 ' 12
DATA &B0000_0000 ' 13
DATA &B0000_0000 ' 14
DATA &B0000_0000 ' 15
DATA &B0000_0000 ' 16
' Байтов:16


'%-20
DATA &B0110_0010 ' 1
DATA &B1001_0010 ' 2
DATA &B1001_0100 ' 3
DATA &B0110_0100 ' 4
DATA &B0000_1000 ' 5
DATA &B0000_1000 ' 6
DATA &B0001_0000 ' 7
DATA &B0001_0000 ' 8
DATA &B0001_0000 ' 9
DATA &B0010_0000 ' 10
DATA &B0010_0000 ' 11
DATA &B0100_1100 ' 12
DATA &B0101_0010 ' 13
DATA &B1001_0010 ' 14
DATA &B1000_1100 ' 15
DATA &B0000_0000 ' 16
' Байтов:16


'Пробел для стирания
DATA &B0000_0000 ' 1
DATA &B0000_0000 ' 2
DATA &B0000_0000 ' 3
DATA &B0000_0000 ' 4
DATA &B0000_0000 ' 5
DATA &B0000_0000 ' 6
DATA &B0000_0000 ' 7
DATA &B0000_0000 ' 8
DATA &B0000_0000 ' 9
DATA &B0000_0000 ' 10
DATA &B0000_0000 ' 11
DATA &B0000_0000 ' 12
DATA &B0000_0000 ' 13
DATA &B0000_0000 ' 14
DATA &B0000_0000 ' 15
DATA &B0000_0000 ' 16

'точка
DATA &B00_000000 ' 1
DATA &B00_000000 ' 2
DATA &B00_000000 ' 3
DATA &B00_000000 ' 4
DATA &B00_000000 ' 5
DATA &B00_000000 ' 6
DATA &B00_000000 ' 7
DATA &B00_000000 ' 8
DATA &B00_000000 ' 9
DATA &B00_000000 ' 10
DATA &B00_000000 ' 11
DATA &B00_000000 ' 12
DATA &B00_000111 ' 13
DATA &B00_000111 ' 14
DATA &B00_000111 ' 15
DATA &B00_000000 ' 16
' Байтов:16



'эзапятая
DATA &B00_000000 ' 1
Data &B00_000000                                            ' 2
Data &B00_000000                                            ' 3
Data &B00_000000                                            ' 4
Data &B00_000000                                            ' 5
Data &B00_000000                                            ' 6
Data &B00_000000                                            ' 7
DATA &B00_000000 ' 8
Data &B00_000000                                            ' 9
DATA &B00_000000 ' 10
Data &B00_000000                                            ' 11
DATA &B00_000000 ' 12
Data &B00_000111                                            ' 13
DATA &B00_000111 ' 14
Data &B00_000011                                            ' 15
Data &B00_000100                                            ' 16
' Байтов:16