regfile = "m16adef.dat"                ' ПЕРЕВЕРНУТЫЙ Дисплей!!!
$crystal = 8000000
$hwstack = 64
$swstack = 64
$framesize = 64


Dim Tmp As Byte

Dim Font_bold , Invers_font As Byte
Dim Lcd_lf , Lcd_rt , Glcd_data As Byte
Dim Lcd_w1 , Lcd_w2 As Word
Dim Lcdstr$ As String * 16 , Simvol_1$ As String * 1 , Simvol_2$ As String * 1
Dim Lcdx , Lcdy , X_lcd , Y_lcd , Lcd_cnt , Lcd_bg , Lcd_asc , Lcd_tmp As Byte



'Графический ЖКИ 128*64 с контроллером ST7920
'Подключено последовательной шиной, вывод 15 (Psb) подключить на минус. Вывод 4  на +5в
Sid_glcd Alias Portc.4 : Config Sid_glcd = Output       ' data. Вывод ЖКИ 5, (R/W)
Sclk_glcd Alias Portc.5 : Config Sclk_glcd = Output       ' clock. Вывод ЖКИ 6, (E)
Gosub Init_st7920                       ' ---  Инициализация ST7920
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Gosub Lcdimgcls                         ' очистка графической памяти ЖКИ

Lcdstr$ = "ПРИВЕТ, АНДРЕЙ!" : Y_lcd = 7 : X_lcd = 0 : Gosub Print_lcd

Lcdstr$ = "ПРОВЕРКА ST-7920" : Y_lcd = 6 : X_lcd = 0 : Font_bold = 1 : Gosub Print_lcd

Lcdstr$ = "АВТОР: ДАНИЛИН А" : Y_lcd = 4 : X_lcd = 0 : Gosub Print_lcd
Lcdstr$ = "+7 930 828-47-48" : Y_lcd = 3 : X_lcd = 0 : Font_bold = 1 : Gosub Print_lcd
Lcdstr$ = "PIC-AVR@YA.RU <" : Y_lcd = 1 : X_lcd = 0 : Invers_font = 1 : Gosub Print_lcd
Lcdstr$ = "РОССИЯ, С.ПОСАД" : Y_lcd = 0 : X_lcd = 0 : Gosub Print_lcd

End

'======================================================================
Print_lcd:                              ' по вертикали 0-7 симв., по гориз.- 0-7 блоков
  Y_lcd = Y_lcd + 1

  ' Преобразуем номера позиции в физический адрес памяти ЖКИ
  If Y_lcd >= 5 Then                    ' нижняя физическая половина ЖКИ
    Y_lcd = Y_lcd - 4
    X_lcd = X_lcd + 15
  Else
    X_lcd = 7 - X_lcd
  End If

  Lcdx = X_lcd + 128

  Y_lcd = Y_lcd * 8 : Y_lcd = Y_lcd + 127

  For Lcd_cnt = 1 To Len(lcdstr$)
    Simvol_1$ = Mid(lcdstr$ , Lcd_cnt , 1) : Lcd_asc = Asc(simvol_1$) -32       ' До "пробела" нет символов
    If Lcd_asc > 159 Then Lcd_asc = Lcd_asc - 101       ' Убрали из таблицы маленькие английские и русские
    Lcd_w1 = Lcd_asc * 8                ' Адрес левого символа

    Incr Lcd_cnt
    Simvol_2$ = Mid(lcdstr$ , Lcd_cnt , 1) : Lcd_asc = Asc(simvol_2$) -32
    If Lcd_asc > 159 Then Lcd_asc = Lcd_asc - 101       ' Убрали из таблицы маленькие английские и русские
    Lcd_w2 = Lcd_asc * 8                ' Адрес правого символа

    Lcdy = Y_lcd
    For Lcd_bg = 0 To 7                 '  8 по вертикали
      Lcd_rt = Lookup(lcd_w1 , Shrift_8x8)
      If Font_bold = 1 Then             ' делаем символы жирными - копируем точку правее
        Lcd_tmp = Lcd_rt : Shift Lcd_tmp , Right , 1
        Lcd_rt = Lcd_rt Or Lcd_tmp
      End If
      If Invers_font = 1 Then Toggle Lcd_rt       ' Инверсия символа и фона

      Lcd_lf = Lookup(lcd_w2 , Shrift_8x8)
      If Font_bold = 1 Then             ' делаем символы жирными - копируем точку правее
        Lcd_tmp = Lcd_lf : Shift Lcd_tmp , Right , 1
        Lcd_lf = Lcd_lf Or Lcd_tmp
      End If
      If Invers_font = 1 Then Toggle Lcd_rt       '      ' Инверсия символа и фона

      ' левая половина блока - Lf, правая половина блока = Rt
      Glcd_data = Lcdy : Gosub Lcdcommand
      Glcd_data = Lcdx : Gosub Lcdcommand       '   X=16      16 точек по горизонтали


      If Simvol_2$ = "" Then
        Glcd_data = 0
      Else
        Glcd_data = Lcd_lf
        Gosub Zerkalo_baita             ' отзеркалим байт
      End If
      Gosub Lcdwrite

      Glcd_data = Lcd_rt
      Gosub Zerkalo_baita               ' отзеркалим байт
      Gosub Lcdwrite

      Decr Lcdy
      Incr Lcd_w1 : Incr Lcd_w2
    Next
    Decr Lcdx

  Next
  Font_bold = 0
  Invers_font = 0
Return


'=========================================================
Lcdimgcls:                              ' --  Очистка графической памяти ST7920  --
  For Lcdx = &H80 To &H8F
    For Lcdy = &H80 To &H9F
      Glcd_data = Lcdy : Gosub Lcdcommand
      Glcd_data = Lcdx : Gosub Lcdcommand
      Glcd_data = 0
      Gosub Lcdwrite : Gosub Lcdwrite
    Next
  Next
Return

' ============================================================
Zerkalo_baita:
  Lcd_tmp.0 = Glcd_data.7
  Lcd_tmp.1 = Glcd_data.6
  Lcd_tmp.2 = Glcd_data.5
  Lcd_tmp.3 = Glcd_data.4

  Lcd_tmp.4 = Glcd_data.3
  Lcd_tmp.5 = Glcd_data.2
  Lcd_tmp.6 = Glcd_data.1
  Lcd_tmp.7 = Glcd_data.0

  Glcd_data = Lcd_tmp
Return


'=====================================================================================================
Lcdcommand:                             ' Записать команду
  Lcd_tmp = &B11111000                  ' Команда RW=0 RS=0
  Goto Lcd_sending


Lcdwrite:                               ' Записать данные
  Lcd_tmp = &B11111010
'  Goto Lcd_sending                      ' данные RW=0 RS=1


Lcd_sending:
  Lcd_asc = 8                           ' Сколько бит передать
  Gosub Lcd_tx

  Lcd_asc = 4                           ' Сколько бит передать

  Lcd_tmp = Glcd_data : Gosub Lcd_tx    ' передаём Старшие 4 бита MSB
  Lcd_tmp = 0 : Gosub Lcd_tx            ' передаём 4 нуля

  Lcd_tmp = Glcd_data : Shift Lcd_tmp , Left , 4
  Gosub Lcd_tx                          ' передаём младшие 4 бита LSB

  Lcd_tmp = 0 : Gosub Lcd_tx            ' передаём 4 нуля

  Sclk_glcd = 0 : Sid_glcd = 0
Return

Lcd_tx:
  Shiftout Sid_glcd , Sclk_glcd , Lcd_tmp , 1 , Lcd_asc       ' Dat, Clock, Var, Option[, bits, delay]
Return


'========================================================
Init_st7920:                            ' ---  Инициализация ST7920
  Sclk_glcd = 0 : Sid_glcd = 0
  Waitms 50                             ' обязательно. Для ЖКИ - 100ms
  Glcd_data = &B_0011_0100 : Gosub Lcdcommand       ' EXTENDEN instruction
  Glcd_data = &B_0011_0000 : Gosub Lcdcommand       ' GRAGIC display Off
  Glcd_data = &B_0000_0110 : Gosub Lcdcommand       ' Entry Mode Set
  Glcd_data = &B_0000_1100 : Gosub Lcdcommand       ' Выкл Курсор и мигание символа
  Glcd_data = &B_0000_0001 : Gosub Lcdcommand       ' Clear Text Display
  Waitms 3
  Glcd_data = &B_0011_0100 : Gosub Lcdcommand       ' EXTENDEN instruction
  Glcd_data = &B_0011_0110 : Gosub Lcdcommand       ' GRAGIC display On
Return


'=========================================================
' Эта строка обязана быть последней в коде программы!
$include "font-8x8_big_eng_rus.inc"     ' Загрузка шрифтов

Shrift_8x8:

   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 32 ( )
   Data &H10 , &H10 , &H10 , &H10 , &H10 , &H00 , &H10 , &H00       '  code 33 (!)
   Data &H14 , &H14 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       ' Code 34(")
   Data &H28 , &H7C , &H40 , &H78 , &H40 , &H40 , &H7C , &H00       '  code 35 (Ё вместо #)
   Data &H04 , &H0E , &H1F , &H00 , &H00 , &H1F , &H0E , &H04       '  code 36 ($ Вверх и Вниз)
   Data &H64 , &H68 , &H08 , &H10 , &H20 , &H2C , &H4C , &H00       '  code 37 (%)
   Data 16 , 56 , 124 , 254 , 16 , 16 , 16 , 0       '  code 38 (^ Вверх  вместо &)
   Data 16 , 16 , 254 , 124 , 56 , 16 , 0 , 0       '  code 39 (v Вниз вместо ')

   Data 255 , 255 , 255 , 0 , 0 , 0 , 0 , 0       '  code 40 (ПОЛОСКА вверху вместо ()
   Data 0 , 0 , 0 , 0 , 255 , 255 , 255 , 0       '  code 41 (ПОЛОСКА внизу вместо ))
   Data 255 , 255 , 255 , 0 , 255 , 255 , 255 , 0       '  code 42 (ПОЛОСКА широкая вместо *)

   Data &H00 , &H08 , &H08 , &H3E , &H08 , &H08 , &H00 , &H00       '  code 43 (+)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H20 , &H20 , &H40       '  code 44 (,)
   Data &H00 , &H00 , &H00 , &H3E , &H00 , &H00 , &H00 , &H00       '  code 45 (-)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H10 , &H10 , &H00       '  code 46 (.)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H7E , &H00       '  code 47 (_ вместо /)

   Data 28 , 38 , 34 , 34 , 34 , 50 , 28 , 0       '  code 48 (0)
   Data 8 , 24 , 8 , 8 , 8 , 8 , 28 , 0 '  code 49 (1)
   Data 28 , 34 , 2 , 4 , 8 , 16 , 62 , 0       '  code 50 (2)
   Data 28 , 2 , 2 , 12 , 2 , 2 , 60 , 0       '  code 51 (3)
   Data 4 , 12 , 20 , 36 , 62 , 4 , 4 , 0       '  code 52 (4)
   Data 60 , 32 , 32 , 60 , 2 , 2 , 60 , 0       '  code 53 (5)
   Data 28 , 34 , 32 , 60 , 34 , 34 , 28 , 0       '  code 54 (6)
   Data 62 , 2 , 4 , 8 , 16 , 16 , 16 , 0       '  code 55 (7)
   Data 28 , 34 , 34 , 28 , 34 , 34 , 28 , 0       '  code 56 (8)
   Data 28 , 34 , 34 , 30 , 2 , 2 , 28 , 0       '  code 57 (9)

   Data &H00 , &H10 , &H10 , &H00 , &H10 , &H10 , &H00 , &H00       '  code 58 (:)

Data &B_10000000 '   code 59 ( 'C вместо ;  )
Data &B_10011100 
Data &B_00100010 
Data &B_00100000 
Data &B_00100000 
Data &B_00100010 
Data &B_00011100 
Data &B_00000000       

   Data &H00 , &H06 , &H1E , &H7E , &H7E , &H1E , &H06 , &H00       ' code 60( огромный  < )
   Data &H00 , &H00 , &HFC , &H00 , &HFC , &H00 , &H00 , &H00       ' code 61( = )
   'Data &H00 , &H60 , &H78 , &H7E , &H7E , &H78 , &H60 , &H00       'code 62( огромный  > )
Data &B_00001000   '   >
Data &B_00001100   
Data &B_00001110   
Data &B_00111111   
Data &B_00001110   
Data &B_00001100   
Data &B_00001000   
Data &B_00000000   



   Data &H38 , &H44 , &H04 , &H08 , &H10 , &H00 , &H10 , &H00       '  code 63 (?)

    Data &H1C , &H22 , &H4D , &H55 , &H55 , &H4E , &H20 , &H1C       '  code 64 (@)

   Data &H18 , &H18 , &H24 , &H24 , &H7E , &H42 , &H42 , &H00       '  code 65 (A)
   Data &H70 , &H48 , &H48 , &H78 , &H44 , &H44 , &H78 , &H00       '  code 66 (B)
   Data &H1C , &H22 , &H40 , &H40 , &H40 , &H22 , &H1C , &H00       '  code 67 (C)
   Data &H78 , &H44 , &H42 , &H42 , &H42 , &H44 , &H78 , &H00       '  code 68 (D)
   Data &H7C , &H40 , &H40 , &H78 , &H40 , &H40 , &H7C , &H00       '  code 69 (E)
   Data &H7C , &H40 , &H40 , &H78 , &H40 , &H40 , &H40 , &H00       '  code 70 (F)
   Data &H1C , &H22 , &H40 , &H4E , &H42 , &H22 , &H1E , &H00       '  code 71 (G)
   Data &H42 , &H42 , &H42 , &H7E , &H42 , &H42 , &H42 , &H00       '  code 72 (H)
   Data &H70 , &H20 , &H20 , &H20 , &H20 , &H20 , &H70 , &H00       '  code 73 (I)
   Data &H70 , &H10 , &H10 , &H10 , &H10 , &H10 , &H60 , &H00       '  code 74 (J)
   Data &H44 , &H48 , &H50 , &H60 , &H50 , &H48 , &H44 , &H00       '  code 75 (K)
   Data &H40 , &H40 , &H40 , &H40 , &H40 , &H40 , &H78 , &H00       '  code 76 (L)
   Data &H42 , &H66 , &H5A , &H5A , &H42 , &H42 , &H42 , &H00       '  code 77 (M)
   Data &H42 , &H62 , &H52 , &H4A , &H46 , &H42 , &H42 , &H00       '  code 78 (N)
   Data &H18 , &H24 , &H42 , &H42 , &H42 , &H24 , &H18 , &H00       '  code 79 (O)
   Data &H78 , &H44 , &H44 , &H44 , &H78 , &H40 , &H40 , &H00       '  code 80 (P)
   Data &H18 , &H24 , &H42 , &H42 , &H4A , &H24 , &H1C , &H02       '  code 81 (Q)
   Data &H78 , &H44 , &H44 , &H78 , &H50 , &H48 , &H44 , &H00       '  code 82 (R)
   Data &H38 , &H44 , &H40 , &H38 , &H04 , &H44 , &H38 , &H00       '  code 83 (S)
   Data &H7C , &H10 , &H10 , &H10 , &H10 , &H10 , &H10 , &H00       '  code 84 (T)
   Data &H42 , &H42 , &H42 , &H42 , &H42 , &H42 , &H3C , &H00       '  code 85 (U)
   Data &H42 , &H42 , &H42 , &H24 , &H24 , &H18 , &H18 , &H00       '  code 86 (V)
   Data &H49 , &H49 , &H55 , &H55 , &H55 , &H22 , &H22 , &H00       '  code 87 (W)
   Data &H48 , &H48 , &H30 , &H30 , &H30 , &H48 , &H48 , &H00       '  code 88 (X)
   Data &H44 , &H28 , &H28 , &H10 , &H10 , &H10 , &H10 , &H00       '  code 89 (Y)
   Data &H78 , &H08 , &H10 , &H20 , &H20 , &H40 , &H78 , &H00       '  code 90 (Z)

   Data &H18 , &H18 , &H24 , &H24 , &H7E , &H42 , &H42 , &H00       ' сode 192(А)
   Data &H7C , &H40 , &H40 , &H7C , &H42 , &H42 , &H7C , &H00       '  code 193 (Б)
   Data &H78 , &H44 , &H44 , &H78 , &H44 , &H44 , &H78 , &H00       '  code 194 (В)
   Data &H7C , &H44 , &H40 , &H40 , &H40 , &H40 , &H40 , &H00       '  code 195 (Г)
   Data &H38 , &H48 , &H48 , &H48 , &H48 , &HFC , &H84 , &H00       '  code 196 (Д)
   Data &H7C , &H40 , &H40 , &H78 , &H40 , &H40 , &H7C , &H00       '  code 197 (Е)
   Data &H92 , &H92 , &H54 , &H38 , &H54 , &H92 , &H92 , &H00       ' сode 198 (Ж)
   Data &H70 , &H08 , &H08 , &H30 , &H08 , &H08 , &H70 , &H00       '  code 199 (З)
   Data &H42 , &H42 , &H46 , &H4A , &H52 , &H62 , &H42 , &H00       '  code 200 (И)
   Data &H52 , &H42 , &H46 , &H4A , &H52 , &H62 , &H42 , &H00       '  code 201 (Й)
   Data &H44 , &H48 , &H50 , &H60 , &H50 , &H48 , &H44 , &H00       '  code 202 (К)
   Data &H3C , &H64 , &H44 , &H44 , &H44 , &H44 , &HC4 , &H00       '  code 203 (Л)
   Data &HC6 , &HC6 , &HAA , &HAA , &H92 , &H92 , &H82 , &H00       '  code 204 (М)
   Data &H42 , &H42 , &H42 , &H7E , &H42 , &H42 , &H42 , &H00       '  code 205 (Н)
   Data &H18 , &H24 , &H42 , &H42 , &H42 , &H24 , &H18 , &H00       '  code 206 (О)
   Data &H7e , &H42 , &H42 , &H42 , &H42 , &H42 , &H42 , &H00       '  code 207 (П)
   Data &H78 , &H44 , &H44 , &H44 , &H78 , &H40 , &H40 , &H00       '  code 208 (Р)
   Data &H1C , &H22 , &H40 , &H40 , &H40 , &H22 , &H1C , &H00       '  code 209 (С)
   Data &H7C , &H10 , &H10 , &H10 , &H10 , &H10 , &H10 , &H00       '  code 210 (T)
   Data &H44 , &H44 , &H44 , &H3C , &H04 , &H04 , &H38 , &H00       '  code 211 (У)
   Data &H08 , &H3E , &H49 , &H49 , &H49 , &H3E , &H08 , &H00       '  code 212 (Ф)
   Data &H42 , &H24 , &H18 , &H18 , &H18 , &H24 , &H42 , &H00       '  code 213 (Х)
   Data &H44 , &H44 , &H44 , &H44 , &H44 , &H44 , &H3E , &H02       '  code 214 (Ц)
   Data &H44 , &H44 , &H44 , &H3C , &H04 , &H04 , &H04 , &H00       '  code 215 (Ч)
   Data &H49 , &H49 , &H49 , &H49 , &H49 , &H49 , &H7F , &H00       '  code 216 (Ш)
   Data &H49 , &H49 , &H49 , &H49 , &H49 , &H49 , &H7F , &H01       '  code 217 (Щ)
   Data &H70 , &H10 , &H10 , &H1C , &H12 , &H12 , &H1C , &H00       '  code 218 (Ъ)
   Data &H42 , &H42 , &H42 , &H72 , &H4A , &H4A , &H72 , &H00       '  code 219 (Ы)
   Data &H80 , &H80 , &H80 , &HF0 , &H88 , &H88 , &HF0 , &H00       '  code 220 (Ь)
   Data &H78 , &H04 , &H02 , &H3E , &H02 , &H04 , &H78 , &H00       '  code 221 (Э)
   Data &H46 , &H49 , &H49 , &H79 , &H49 , &H49 , &H46 , &H00       '  code 222 (Ю)
   Data &H3C , &H44 , &H44 , &H3C , &H24 , &H44 , &H44 , &H00       '  code 223 (Я)

$regfile = "m16adef.dat"
$crystal = 8000000
$hwstack = 64
$swstack = 64
$framesize = 64


Dim Tmp As Byte

Dim Disp_w As Word
Dim Lcd_rt As Byte At Disp_w Overlay
Dim Lcd_lf As Byte At Disp_w + 1 Overlay

Dim Font_bold , Invers_font , Glcd_data As Byte
Dim Lcd_w1 , Lcd_w2 As Word
Dim Lcdstr$ As String * 16 , Simvol_1$ As String * 1 , Simvol_2$ As String * 1
Dim Lcdx , Lcdy , X_lcd , Y_lcd , Lcd_cnt , Lcd_bg , Lcd_asc , Lcd_tmp As Byte

Dim Temp_massiv_9bait(9) As Byte , Znak_temperatury As Byte       ' для чтения 1wire
Dim Temperatura_single As Single
Dim Vremya , Uroven , Shagi As Byte
Dim Gradus , Nagrev , T_min , T_max As Byte

Dim Massiv(31) As Word

Const T_minus = 45                      ' --

1wire_in Alias Pinb.4 : 1wire_out Alias Portb.4
Config 1wire = 1wire_out                ' DS18B20 и резистор 4,7 ком на +5в питания


'Графический ЖКИ 128*64 с контроллером ST7920
'Подключено последовательной шиной, вывод 15 (Psb) подключить на минус. Вывод 4  на +5в
Sid_glcd Alias Portc.4 : Config Sid_glcd = Output       ' data. Вывод ЖКИ 5, (R/W)
Sclk_glcd Alias Portc.5 : Config Sclk_glcd = Output       ' clock. Вывод ЖКИ 6, (E)
Gosub Init_st7920                       ' ---  Инициализация ST7920
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

T_min = 255 : T_max = 0


Do
  Gosub Lcdimgcls                       ' очистка графической памяти ЖКИ

  Lcdstr$ = "ТЕМПЕРАТУРА:-- ;" : Y_lcd = 0 : X_lcd = 0 : Gosub Print_lcd

' Вертикальная линия, в левом углу
  For Tmp = 128 To 159                  ' Сверху вниз
    Glcd_data = Tmp : Gosub Lcdcommand  ' 128-159 Y= вертикальная колонка 2*16 Бит
    Glcd_data = 136 : Gosub Lcdcommand  ' 136-143 X= нижний левый угол дисплея

    Glcd_data = 128 : Gosub Lcdwrite    ' Левая часть
    Glcd_data = 0 : Gosub Lcdwrite      ' Правая часть
  Next

' Горизонтальная линия слева направо, внизу
  For Tmp = 136 To 143
    Glcd_data = 159 : Gosub Lcdcommand  ' 128-159 = вертикальная колонка 2*16 Бит
    Glcd_data = Tmp : Gosub Lcdcommand  ' 136-143 = нижний левый угол дисплея

    Glcd_data = 255 : Gosub Lcdwrite    ' Левая часть
    Glcd_data = 255 : Gosub Lcdwrite    ' Правая часть
  Next

  Gosub Ochistka_massiva
  Uroven = 0


  For Vremya = 0 To 127
    Gosub Zapusk_izmereniya_temperatury ' Запуск измерения температуры ds18b20
    Waitms 999
    Gosub Zamer_temperaturi             ' Считаем температуру в помещении
    Lcdstr$ = Str(gradus) : Y_lcd = 0 : X_lcd = 6 : Font_bold = 1 : Gosub Print_lcd

    If Gradus < T_min Then T_min = Gradus
    If Gradus > T_max Then T_max = Gradus
    Lcdstr$ = "МИН:" + Str(t_min) + "; МАКС:" + Str(t_max) + ";" : Y_lcd = 2 : X_lcd = 0 : Gosub Print_lcd

    Nagrev = Gradus
    If Gradus > 22 Then Nagrev = Gradus - 22
    If Nagrev > 31 Then Nagrev = 31

    Lcd_tmp = 15 - Shagi
    Massiv(nagrev).lcd_tmp = 1
    Disp_w = Massiv(nagrev)

    If Vremya < 16 Then                 ' восстановим вертикальную линию слева
      Lcd_lf = &B_1000_0000 Or Lcd_lf
    End If

    Glcd_data = 159 - Nagrev : Gosub Lcdcommand       ' 128-159 Y= вертикальная колонка 2*16 Бит
    Glcd_data = 136 + Uroven : Gosub Lcdcommand       ' 136-143 X= нижний левый угол дисплея

    Glcd_data = Lcd_lf : Gosub Lcdwrite ' Левая часть
    Glcd_data = Lcd_rt : Gosub Lcdwrite ' Правая часть


    Incr Shagi
    If Shagi > 15 Then
      Shagi = 0
      Incr Uroven
      Gosub Ochistka_massiva
    End If
  Next

Loop

End



'---------------------------------------------------------------------------------------------------
Ochistka_massiva:
  For Tmp = 1 To 31
    Massiv(tmp) = 0
  Next
Return


'---------------------------------------------------------------------------------------------------
Zapusk_izmereniya_temperatury:
  1wreset                               ' Инициализация шины 1Wire
  1wwrite &HCC                          ' Выдаем команду чтения ПЗУ
  1wwrite &H4E                          ' Установим разрядность термодатчика
  1wwrite 0
  1wwrite 0

  1wwrite &H1F                          'Configuration Register 9-BIT Mode 0.5°       94 mS

  1wreset                               ' Инициализация шины 1Wire
  1wwrite &HCC                          ' Выдаем команду чтения ПЗУ
  1wwrite &H44                          ' Запуск измерения
Return

'---------------------------------------------------------------------------------------------------
Zamer_temperaturi:                      ' Измеряем температуру
  1wreset                               ' Инициализация шины 1Wire
  1wwrite &HCC                          ' Команда чтения ПЗУ
  1wwrite &HBE                          ' Команда чтения ОЗУ датчика  Ds18b20

  Temp_massiv_9bait(1) = 1wread(9)      ' Принимаем 8 байт данных  во временный буфер
  Gradus = 255
  Znak_temperatury = 0

  If Err = 0 Then                       ' Если получили ответ датчика без ошибок

    If Temp_massiv_9bait(9) = Crc8(temp_massiv_9bait(1) , 8) Then       '   Проверяем CRC полученных данных

      ' Проверяем на отрицательную температуру. 248 в десятичном, 11111000 в двоичном.
      If Temp_massiv_9bait(2) >= 248 Then       ' Если температура отрицательная – вычитаем из &HFF
        Temp_massiv_9bait(1) = &HFF - Temp_massiv_9bait(1)
        Temp_massiv_9bait(2) = &HFF - Temp_massiv_9bait(2)
        Znak_temperatury = T_minus      '  -   температура отрицательная
      End If

      Gradus = Temp_massiv_9bait(1)
      Gradus = Tmp And &B00001111       ' оставим 4 младших бита = Т после запятой

      Shift Temp_massiv_9bait(1) , Right , 4       ' Сдвигаем первый байт вправо на 4 бита
      Shift Temp_massiv_9bait(2) , Left , 4       ' Сдвигаем второй байт влево на 4 бита

      Gradus = Temp_massiv_9bait(1) + Temp_massiv_9bait(2)       ' Формируем целую часть температуры
      Temperatura_single = Tmp * 0.0625 ' Формируем дробную часть

      Temperatura_single = Tmp + Temperatura_single       ' Итоговая температура

      If Znak_temperatury = T_minus Then       '  -   температура отрицательная
        Temperatura_single = 0 - Temperatura_single       ' Для тестов, чтобы получить отрицательную температуру
        Gradus = 0
      End If
    End If
  End If                                '  If Err = 0
Return


'======================================================================
Print_lcd:                              ' по вертикали 0-7 симв., по гориз.- 0-7 блоков
   ' Преобразуем номера позиции в физический адрес памяти ЖКИ

  If Y_lcd > 3 Then                     ' нижняя половина ЖКИ
    X_lcd = X_lcd + 8
    Y_lcd = Y_lcd - 4
  End If
  Lcdx = X_lcd + 128

  Y_lcd = Y_lcd * 8 : Y_lcd = Y_lcd + 128

  For Lcd_cnt = 1 To Len(lcdstr$)
    Simvol_1$ = Mid(lcdstr$ , Lcd_cnt , 1) : Lcd_asc = Asc(simvol_1$) -32       ' До "пробела" нет символов
    If Lcd_asc > 159 Then Lcd_asc = Lcd_asc - 101       ' Убрали из таблицы маленькие английские и русские
    Lcd_w1 = Lcd_asc * 8                ' Адрес левого символа

    Incr Lcd_cnt
    Simvol_2$ = Mid(lcdstr$ , Lcd_cnt , 1) : Lcd_asc = Asc(simvol_2$) -32
    If Lcd_asc > 159 Then Lcd_asc = Lcd_asc - 101       ' Убрали из таблицы маленькие английские и русские
    Lcd_w2 = Lcd_asc * 8                ' Адрес правого символа

    Lcdy = Y_lcd
    For Lcd_bg = 0 To 7                 '  8 по вертикали
      Lcd_lf = Lookup(lcd_w1 , Shrift_8x8)
      If Font_bold = 1 Then             ' делаем символы жирными - копируем точку правее
        Lcd_tmp = Lcd_lf : Shift Lcd_tmp , Right , 1
        Lcd_lf = Lcd_lf Or Lcd_tmp
      End If
      If Invers_font = 1 Then Toggle Lcd_lf       ' Инверсия символа и фона

      Lcd_rt = Lookup(lcd_w2 , Shrift_8x8)
      If Font_bold = 1 Then             ' делаем символы жирными - копируем точку правее
        Lcd_tmp = Lcd_rt : Shift Lcd_tmp , Right , 1
        Lcd_rt = Lcd_rt Or Lcd_tmp
      End If
      If Invers_font = 1 Then Toggle Lcd_rt       '      ' Инверсия символа и фона

      ' левая половина блока - Lf, правая половина блока = Rt
      Glcd_data = Lcdy : Gosub Lcdcommand
      Glcd_data = Lcdx : Gosub Lcdcommand       '   X=16      16 точек по горизонтали

      Glcd_data = Lcd_lf : Gosub Lcdwrite

      If Simvol_2$ <> "" Then
        Glcd_data = Lcd_rt
        Gosub Lcdwrite
      End If

      Incr Lcdy
      Incr Lcd_w1 : Incr Lcd_w2
    Next

    Incr Lcdx
  Next

  Font_bold = 0 : Invers_font = 0
Return


'=========================================================
Lcdimgcls:                              ' --  Очистка графической памяти ST7920  --
  For Lcdx = &H80 To &H8F               ' 128-135 = верх, 136-143 = низ
    For Lcdy = &H80 To &H9F             ' 128-159
      Glcd_data = Lcdy : Gosub Lcdcommand
      Glcd_data = Lcdx : Gosub Lcdcommand
      Glcd_data = 0
      Gosub Lcdwrite : Gosub Lcdwrite
    Next
  Next
Return


'=====================================================================================================
Lcdcommand:                             ' Записать команду
  Lcd_tmp = &B11111000                  ' Команда RW=0 RS=0
  Goto Lcd_sending


Lcdwrite:                               ' Записать данные
  Lcd_tmp = &B11111010
'  Goto Lcd_sending                      ' данные RW=0 RS=1


Lcd_sending:
  Lcd_asc = 8                           ' Сколько бит передать
  Gosub Lcd_tx

  Lcd_asc = 4                           ' Сколько бит передать

  Lcd_tmp = Glcd_data : Gosub Lcd_tx    ' передаём Старшие 4 бита MSB
  Lcd_tmp = 0 : Gosub Lcd_tx            ' передаём 4 нуля

  Lcd_tmp = Glcd_data : Shift Lcd_tmp , Left , 4
  Gosub Lcd_tx                          ' передаём младшие 4 бита LSB

  Lcd_tmp = 0 : Gosub Lcd_tx            ' передаём 4 нуля

  Sclk_glcd = 0 : Sid_glcd = 0
Return

Lcd_tx:
  Shiftout Sid_glcd , Sclk_glcd , Lcd_tmp , 1 , Lcd_asc       ' Dat, Clock, Var, Option[, bits, delay]
Return


'========================================================
Init_st7920:                            ' ---  Инициализация ST7920
  Sclk_glcd = 0 : Sid_glcd = 0
  Waitms 50                             ' обязательно
  Glcd_data = &B_0011_0100 : Gosub Lcdcommand       ' EXTENDEN instruction
  Glcd_data = &B_0011_0000 : Gosub Lcdcommand       ' GRAGIC display Off
  Glcd_data = &B_0000_0110 : Gosub Lcdcommand       ' Entry Mode Set
  Glcd_data = &B_0000_1100 : Gosub Lcdcommand       ' Выкл Курсор и мигание символа
  Glcd_data = &B_0000_0001 : Gosub Lcdcommand       ' Clear Text Display
  Waitms 3
  Glcd_data = &B_0011_0100 : Gosub Lcdcommand       ' EXTENDEN instruction
  Glcd_data = &B_0011_0110 : Gosub Lcdcommand       ' GRAGIC display On
Return


'=========================================================
' Эта строка обязана быть последней в коде программы!
$include "font-8x8_big_eng_rus.inc"     ' Загрузка шрифтов