$regfile = "STC_8H.DAT"       ' STC registers list
$crystal = 11059200           ' CPU clock frequence
$ramsize = &H400              ' 1024

$large


Dim Temp As Byte , Temp2 As Byte
Dim Temp_w As Word

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



'Графический ЖКИ 128*64 с контроллером ST7920
'Подключено последовательной шиной, вывод 15 (Psb) подключить на минус. Вывод 4  на +5в

Sid_glcd Alias P3.5           ' 16 : Config Sid_glcd = Output       ' data
Sclk_glcd Alias P3.4          ' 15 : Config Sclk_glcd = Output       ' clock

P3ie = &B11001111             ' 1: Enable digital signal input
P3m1 = 0 : P3m0 = &B00110000  ' Push-pull output mode
P3pu = &B00000000             ' 1: pull-up resistor


' ---  Инициализация ST7920
Sclk_glcd = 0 : Sid_glcd = 0
Waitms 100                  ' обязательно
Glcd_data = &B00110100 : Gosub Lcdcommand       ' EXTENDEN instruction
Glcd_data = &B00110000 : Gosub Lcdcommand       ' GRAGIC display Off
Glcd_data = &B00000110 : Gosub Lcdcommand       ' Entry Mode Set
Glcd_data = &B00001100 : Gosub Lcdcommand       ' Выкл Курсор и мигание символа
Glcd_data = &B00000001 : Gosub Lcdcommand       ' Clear Text Display
Waitms 3
Glcd_data = &B00110100 : Gosub Lcdcommand       ' EXTENDEN instruction
Glcd_data = &B00110110 : Gosub Lcdcommand       ' GRAGIC display On

' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Gosub Lcdimgcls               ' очистка графической памяти ЖКИ
Lcdstr$ = "ПРИВЕТИК ВСЕМ!" : Y_lcd = 0 : X_lcd = 0 : Gosub Print_lcd
Lcdstr$ = "ПРОВЕРКА ST-7920" : Y_lcd = 2 : X_lcd = 0 : Font_bold = 1 : Gosub Print_lcd
Lcdstr$ = "MCU: STC8H1K08" : Y_lcd = 4 : X_lcd = 0 : Font_bold = 1 : Gosub Print_lcd
Lcdstr$ = "НУ ОЧЕНЬ БЫСТРО!" : Y_lcd = 5 : X_lcd = 0 : Gosub Print_lcd
Lcdstr$ = "29-04-2024 23:45" : Y_lcd = 6 : X_lcd = 0 : Invers_font = 1 : Gosub Print_lcd
Lcdstr$ = "РОССИЯ, С.ПОСАД" : Y_lcd = 7 : X_lcd = 0 : Gosub Print_lcd

End

'=========================================================
Lcdcommand:                   ' Записать команду -----------------------
  Temp = &B11111000
  Shiftout Sid_glcd , Sclk_glcd , Temp , 1       ' Команда RW=0 RS=0

  Temp = Glcd_data
  Temp = Temp And &B11110000  ' Сбросим 4 бита LSB
  Shiftout Sid_glcd , Sclk_glcd , Temp , 1       ' передаём

  Temp = Glcd_data
  Shift Temp , Left , 4 : Temp = Temp And &B11110000       ' Сбросим 4 бита LSB
  Shiftout Sid_glcd , Sclk_glcd , Temp , 1       ' передаём
Return

'========================================================
Lcdwrite:                     ' Записать данные -----------------------
  Temp = &B11111010 : Shiftout Sid_glcd , Sclk_glcd , Temp , 1       ' данные RW=0 RS=1

  Temp = Glcd_data
  Temp = Temp And &B11110000  ' Сбросим 4 бита LSB
  Shiftout Sid_glcd , Sclk_glcd , Temp , 1       ' передаём

  Shift Glcd_data , Left , 4
  Temp = Glcd_data : Temp = Temp And &B11110000       ' Сбросим 4 бита LSB
  Shiftout Sid_glcd , Sclk_glcd , Temp , 1       ' передаём младшие 4 бита LSB
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

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

    Lcd_w1 = Lcd_m * 8        ' Адрес левого символа

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

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

      Lcd_rt = Lookup(lcd_w2 , Shrift_8x8)
      If Font_bold = 1 Then   ' делаем символы жирными - копируем точку правее
        Lcd_m = Lcd_rt : Shift Lcd_m , Right , 1
        Lcd_rt = Lcd_rt Or Lcd_m
      End If
      If Invers_font = 1 Then Lcd_rt = 255 - 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  --
  Lcd_m = 0
  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
      Glcd_data = Lcd_m : Gosub Lcdwrite
    Next
  Next
Return

'=========================================================
$include "font-8x8_big_eng_rus.inc"