$regfile = "m328pdef.dat"
$crystal = 16000000

config PORTC.1 = OUTPUT : LCD_led alias portc.1 : LCD_led = 1
Config Portb.1 = Output : Lcd_rs Alias Portb.1       '   LCD D/C
Config Portb.2 = Output : Lcd_reset Alias Portb.2       'LCD Reset
Config Portb.0 = Output : Lcd_cs Alias Portb.0       'LCD Cs
'*******************************************************************************
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = High , Phase = 1 , Clockrate = 4 , Noss = 1
Spsr.spi2x = 1                'Spsr.0 = 1
Spiinit
'*******************************************************************************
Const Blue = &B00000011
Const Yellow = &B11111100
Const Red = &B11100000
Const Green = &B00011100
Const Black = &B00000000
Const White = &B11111111
Const Brightgreen = &B00111110
Const Darkgreen = &B00010100
Const Darkred = &B10100000
Const Darkblue = &B00000010
Const Brightblue = &B00011111
Const Orange = &B11111000
Const Violet = &B11100011
Const S65_ROTATE = 0
Const S65_MIRROR = 1
Const S65_WIDTH = 175
Const S65_HEIGHT = 131
CONST öâåò_òåêñòà = red
const fon = green
Declare Sub Lcd_init()
Declare Sub Lcd_write_command(byval Command As Byte , Byval Command1 As Byte)
Declare Sub Lcd_write_data(byval Da_ta As Byte)
Declare Sub Lcd_set_window(byval Xpos As Byte , Byval Ypos As Byte , Byval Xsize As Byte , Byval Ysize As Byte)
Declare Sub Lcd_clear(byval Color As Word)
Declare Sub Lcd_write_color(byval Color As Byte)
Declare Sub Lcd_set_pixel(byval X As Byte , Byval Y As Byte , Byval Color As Byte)
Declare Sub Lcd_text(byval D3310string As String * 14 , Byval Xs As Byte , Byval Ys As Byte )
Declare Sub Lcd_set(byval Xs As Word , Byval Ys As Byte)
Declare Sub Lcd_set_pixel2(byval X1 As Byte , Byval Y1 As Byte , Byval Color As Byte)
Declare Sub Lcd_set_pixel4(byval X1 As Byte , Byval Y1 As Byte , Byval Color As Byte)
dim x as byte , y as byte
dim massiv(10) as byte
call Lcd_init
call Lcd_clear(White)
Lcd_cs = 0

'wait 2
do
' x = 10
  'y = 10
  call Lcd_text( "0" , 30 , 30)
  'call Lcd_text( "1" , 30 , 30)
  'for x = 1 to 100 step 10
  '  for y = 1 to 100 step 10
     'call Lcd_set_pixel4(x , y , red)
     call Lcd_set_pixel2(10 , 100 , red)
   ' next y
  'next x
  wait 1
  call Lcd_clear(green)
  call Lcd_clear(White)
loop

Sub Lcd_clear(byval Color As Byte)
local Coll As Byte , Colh As Byte
  Lcd_cs = 0
  Call Lcd_write_command(&h0A , 0)       'set y0
  Call Lcd_write_command(&h0B , 175)       'set y1
  Call Lcd_write_command(&h08 , 0)       'set x0
  Call Lcd_write_command(&h09 , 131)       'set x1
  Call Lcd_write_command(&hE8 , &h01)
  Call Lcd_write_command(&h5a , &hbf)       'set y cursor pos
  Lcd_rs = 0
  for Coll = 0 to 131
    for Colh = 0 to 175
    Spiout Color , 1
    'Spiout Colh , 1
  next Colh
  next Coll
  Lcd_cs = 1
End Sub

Sub Lcd_set_pixel(byval X As Byte , Byval Y As Byte , Byval Color As Byte)
  Lcd_cs = 0
  'x = S65_HEIGHT - x
  'y = S65_WIDTH - y
  Call Lcd_write_command(&hef , &h90)
  Call Lcd_write_command(&h05 , &h00)
  Call Lcd_write_command(&h06 , x)       'set y0
  Call Lcd_write_command(&h07 , y)       'set x0
  Call Lcd_write_command(&h5a , &hbf)
  Lcd_rs = 0
  Spiout Color , 1
  Lcd_cs = 1
End Sub
Sub Lcd_set_pixel2(byval X1 As Byte , Byval Y1 As Byte , Byval Color As Byte)
  Lcd_cs = 0
  Lcd_rs = 1
  Call Lcd_write_command(&h0A , x1)       'set y0
  Call Lcd_write_command(&h0B , x1 + 1)       'set y1
  Call Lcd_write_command(&h08 , y1)       'set x0
  Call Lcd_write_command(&h09 , y1 + 1)       'set x1
  'Call Lcd_write_command(&hE8 , &h01)
  'Call Lcd_write_command(&h5a , &hbf)       'set y cursor pos
  Lcd_rs = 0
  Spiout Color , 1
  Spiout Color , 1
  Spiout Color , 1
  Spiout Color , 1
  Lcd_cs = 1
End Sub

Sub Lcd_set_pixel4(byval X1 As Byte , Byval Y1 As Byte , Byval Color As Byte)
  Local XS1 As Byte
  Lcd_cs = 0
  Call Lcd_write_command(&h0A , x1)       'set y0
  Call Lcd_write_command(&h0B , x1 + 3)       'set y1
  Call Lcd_write_command(&h08 , y1)       'set x0
  Call Lcd_write_command(&h09 , y1 + 3)       'set x1
  Call Lcd_write_command(&hE8 , &h01)
  Call Lcd_write_command(&h5a , &hbf)       'set y cursor pos
  Lcd_rs = 0
  for XS1 = 0 to 15
  Spiout Color , 1
  next XS1
  Lcd_cs = 1
End Sub

Sub Lcd_write_color(byval Color As Byte)
  Lcd_rs = 0
  Spiout Color , 1
End Sub

Sub Lcd_init()                ' file:///C:/Users/%D0%90%D0%B4%D0%BC%D0%B8%D0%BD%D0%B8%D1%81%D1%82%D1%80%D0%B0%D1%82%D0%BE%D1%80/Downloads/Rus_manual_S65_.pdf
  Lcd_cs = 0
  Lcd_rs = 0
  Lcd_reset = 0
  waitms 10
  Lcd_reset = 1
  waitms 50
  Call Lcd_write_command(&hFD , &hFD)
  Call Lcd_write_command(&hFD , &hFD)
  waitms 50
   'init 1
  Call Lcd_write_command(&hEF , &h00)
  Call Lcd_write_command(&hEE , &h04)
  Call Lcd_write_command(&h1B , &h04)
  Call Lcd_write_command(&hFE , &hFE)
  Call Lcd_write_command(&hFE , &hFE)
  Call Lcd_write_command(&hEF , &h90)
  Call Lcd_write_command(&h4A , &h04)
  Call Lcd_write_command(&h7F , &h3F)
  Call Lcd_write_command(&hEE , &h04)
  Call Lcd_write_command(&h43 , &h06)
  waitms 7                    'important 7ms
  'init 2
  Call Lcd_write_command(&hEF , &h90)
  Call Lcd_write_command(&h09 , &h83)
  Call Lcd_write_command(&h08 , &h00)
  Call Lcd_write_command(&h0B , &hAF)
  Call Lcd_write_command(&h0A , &h00)
  Call Lcd_write_command(&h05 , &h00)
  Call Lcd_write_command(&h06 , &h00)
  Call Lcd_write_command(&h07 , &h00)
  Call Lcd_write_command(&hEF , &h00)
  Call Lcd_write_command(&hEE , &h0C)
  Call Lcd_write_command(&hEF , &h90)
  Call Lcd_write_command(&h00 , &h80)
  Call Lcd_write_command(&hEF , &hB0)
  Call Lcd_write_command(&h49 , &h02)
  Call Lcd_write_command(&hEF , &h00)
  Call Lcd_write_command(&h7F , &h01)
  Call Lcd_write_command(&hE1 , &h81)
  Call Lcd_write_command(&hE2 , &h02)
  Call Lcd_write_command(&hE2 , &h76)
  Call Lcd_write_command(&hE1 , &h83)
  waitms 50
  'display on
  Call Lcd_write_command(&h80 , &h01)
  Call Lcd_write_command(&hEF , &h90)
  Call Lcd_write_command(&h00 , &h00)

  'display options
  Call Lcd_write_command(&hEF , &h90)
  #if S65_ROTATE = 0
    #if S65_MIRROR = 0
      Call Lcd_write_command(&h01 , &hC0)       'x1->x0, y1->y0
      Call Lcd_write_command(&h05 , &h00)       '&h04=rotate, &h00=normal
    #else
      Call Lcd_write_command(&h01 , &h00)       'x0->x1, y0->y1
      Call Lcd_write_command(&h05 , &h00)       '&h04=rotate, &h00=normal
   #endif
  #endif

  #if S65_ROTATE = 1
    #if S65_MIRROR = 0
       Call Lcd_write_command(&h01 , &h80)       'x0->x1, y1->y0
       Call Lcd_write_command(&h05 , &h04)       '&h04=rotate, &h00=normal
    #else
       Call Lcd_write_command(&h01 , &h40)       'x1->x0, y0->y1
       Call Lcd_write_command(&h05 , &h04)       '&h04=rotate, &h00=normal
    #endif
   #endif
  's65_setArea(0 , 0 ,(S65_WIDTH -1) ,(S65_HEIGHT -1))
Lcd_cs = 1
End Sub
' RS=1 êîìàíäû
' RS = 0 äàííûå
Sub Lcd_write_command(byval Command As Byte , Byval Command1 As Byte)
   Lcd_rs = 1
   Spiout Command , 1
   Spiout Command1 , 1
End Sub
'*******************************************************************************
'  send Data
'*******************************************************************************
Sub Lcd_write_data(byval Da_ta As Byte)
   Lcd_rs = 0
   Spiout Da_ta , 1
End Sub

Sub Lcd_set_window(byval Xpos As Byte , Byval Ypos As Byte , Byval Xsize As Byte , Byval Ysize As Byte)
'call s65_setArea(uint8_t x0 , uint8_t y0 , uint8_t x1 , uint8_t y1)
Call Lcd_write_command(&hEF , &h90)

  Call Lcd_write_command(&h0A , Xpos)       'set y0
  Call Lcd_write_command(&h0B , Xsize)       'set y1
  Call Lcd_write_command(&h08 , Ypos)       'set x0
  Call Lcd_write_command(&h09 , Ysize)       'set x1
  Call Lcd_write_command(&hE8 , &h01)
  Call Lcd_write_command(&h5a , &hbf)       'set y cursor pos
  End Sub

Sub Lcd_text(byval D3310string As String * 14 , byval Xs As Byte , Byval Ys As Byte )
   'Lcd_cs = 0
   Local XS_ As Byte :
   Local YS_ As Byte : YS_ = YS
   Local cikl As Byte
   'Local D3310columnloop As Byte       'Loop variable for the columns
   'Local D3310column(5) As Byte
   Select Case D3310string    'Position the pointer to the correct character in the Eeprom and read the first byte
         Case "0" : Restore Zero
         Case "1" : Restore One
         Case "2" : Restore Two
         Case "3" : Restore Three
         Case "4" : Restore Four
         Case "5" : Restore Five
         Case "6" : Restore Six
         Case "7" : Restore Seven
         Case "8" : Restore Eight
         Case "9" : Restore Nine
         Case "A" : Restore A11
         Case "B" : Restore B
         Case "C" : Restore C
         Case "D" : Restore D
         Case "E" : Restore E
         Case "F" : Restore F
         Case "G" : Restore G
         Case "H" : Restore H
         Case "I" : Restore I
         Case "J" : Restore J
         Case "K" : Restore K
         Case "L" : Restore L
         Case "M" : Restore M
         Case "N" : Restore N
         Case "O" : Restore O
         Case "P" : Restore P
         Case "Q" : Restore Q
         Case "R" : Restore R
         Case "S" : Restore S11
         Case "T" : Restore T
         Case "U" : Restore U11
         Case "V" : Restore V
         Case "W" : Restore W11
         Case "X" : Restore X11
         Case "Y" : Restore Y11
         Case "Z" : Restore Z11
         Case "Å" : Restore Aa
         Case "Ä" : Restore Ae
         Case "Ö" : Restore Oe
         Case "a" : Restore A1
         Case "b" : Restore B1
         Case "c" : Restore C1
         Case "d" : Restore D1
         Case "e" : Restore E1
         Case "f" : Restore F1
         Case "g" : Restore G1
         Case "h" : Restore H1
         Case "i" : Restore I1
         Case "j" : Restore J1
         Case "k" : Restore K1
         Case "l" : Restore L1
         Case "m" : Restore M1
         Case "n" : Restore N1
         Case "o" : Restore O1
         Case "p" : Restore P1
         Case "q" : Restore Q1
         Case "r" : Restore R111
         Case "s" : Restore S1
         Case "t" : Restore T1
         Case "u" : Restore U1
         Case "v" : Restore V1
         Case "w" : Restore W1
         Case "x" : Restore X1
         Case "y" : Restore Y1
         Case "z" : Restore Z1
         Case "å" : Restore Aa1
         Case "ä" : Restore Ae1
         Case "ö" : Restore Oe1
         Case " " : Restore Spacesign
         Case "-" : Restore Dash
         Case "." : Restore Dot
         Case ":" : Restore Colon
         Case ">" : Restore Arrowright
         Case "°" : Restore Degree
         Case "@" : Restore Alpha
         Case "&" : Restore Ampersand
         Case "'" : Restore Apostrophe
         Case "<" : Restore Arrowleft
         Case "*" : Restore Asterisc
         Case "," : Restore Comma
         Case "$" : Restore Dollar
         Case "=" : Restore Equals
         Case "!" : Restore Exclamation
         Case "½" : Restore Grid
         Case "#" : Restore Hash
         Case "(" : Restore Leftparagraph
         Case "[" : Restore Leftsquareparagraph
         Case "%" : Restore Percent
         Case "+" : Restore Plus
         Case "^" : Restore Powerof
         Case "?" : Restore Question
         'Case D3310quotation : Restore Quotation
         Case "]" : Restore Rightparagraph
         Case ")" : Restore Rightsquareparagraph
         Case ";" : Restore Semicolon
         Case "/" : Restore Slash
         Case "\" : Restore Backslash
         Case "_" : Restore Underscore
      End Select
   Read massiv(1)
   Read massiv(2)
   Read massiv(3)
   Read massiv(4)
   Read massiv(5)
        XS_ = XS              ' + XS_
         'x = massiv(1)
         for y = 0 to 7
           YS_ = 2 * y
           YS_ = YS + YS_
           if massiv(1).y = 1 then
                call Lcd_set_pixel2(XS_ , YS_ , öâåò_òåêñòà)
              else
                call Lcd_set_pixel2(XS_ , YS_ , fon)
           END IF
         next y
        wait 1
        XS_ = XS + 2          ' + XS_
         for y = 0 to 7
           YS_ = 2 * y
           YS_ = YS + YS_
           if massiv(2).y = 1 then
                call Lcd_set_pixel2(XS_ , YS_ , öâåò_òåêñòà)
              else
                call Lcd_set_pixel2(XS_ , YS_ , fon)
           END IF
           'Lcd_cs = 1
         next y
         wait 1
         XS_ = XS + 4         ' + XS_
         for y = 0 to 7
           YS_ = 2 * y
           YS_ = YS + YS_
           if massiv(3).y = 1 then
                call Lcd_set_pixel2(XS_ , YS_ , öâåò_òåêñòà)
              else
                call Lcd_set_pixel2(XS_ , YS_ , fon)
           END IF
           'Lcd_cs = 1
         next y
         wait 1
         XS_ = XS + 6         ' + XS_
         for y = 0 to 7
           YS_ = 2 * y
           YS_ = YS + YS_
           if massiv(4).y = 1 then
                call Lcd_set_pixel2(XS_ , YS_ , öâåò_òåêñòà)
              else
                call Lcd_set_pixel2(XS_ , YS_ , fon)
           END IF
           'Lcd_cs = 1
         next y
         wait 1
         XS_ = XS + 8         ' + XS_
         for y = 0 to 7
           YS_ = 2 * y
           YS_ = YS + YS_
           if massiv(5).y = 1 then
                call Lcd_set_pixel2(XS_ , YS_ , öâåò_òåêñòà)
              else
                call Lcd_set_pixel2(XS_ , YS_ , fon)
           END IF
           'Lcd_cs = 1
         next y

End Sub

'Digits
Zero:
Data &H3E , &H51 , &H49 , &H45 , &H3E
One:
Data &H00 , &H42 , &H7F , &H40 , &H00
Two:
Data &H42 , &H61 , &H51 , &H49 , &H46
Three:
Data &H22 , &H41 , &H49 , &H49 , &H36
Four:
Data &H18 , &H14 , &H12 , &H7F , &H10
Five:
Data &H27 , &H45 , &H45 , &H45 , &H39
Six:
Data &H3E , &H49 , &H49 , &H49 , &H32
Seven:
Data &H61 , &H11 , &H09 , &H05 , &H03
Eight:
Data &H36 , &H49 , &H49 , &H49 , &H36
Nine:
Data &H26 , &H49 , &H49 , &H49 , &H3E
'Upper-case
A11:
Data &H7E , &H09 , &H09 , &H09 , &H7E
B:
Data &H7F , &H49 , &H49 , &H49 , &H36
C:
Data &H3E , &H41 , &H41 , &H41 , &H22
D:
Data &H7F , &H41 , &H41 , &H41 , &H3E
E:
Data &H7F , &H49 , &H49 , &H49 , &H41
F:
Data &H7F , &H09 , &H09 , &H09 , &H01
G:
Data &H3E , &H41 , &H49 , &H49 , &H3A
H:
Data &H7F , &H08 , &H08 , &H08 , &H7F
I:
Data &H00 , &H41 , &H7F , &H41 , &H00
J:
Data &H20 , &H41 , &H41 , &H41 , &H3F
K:
Data &H7F , &H08 , &H14 , &H22 , &H41
L:
Data &H7F , &H40 , &H40 , &H40 , &H40
M:
Data &H7F , &H02 , &H04 , &H02 , &H7F
N:
Data &H7F , &H04 , &H08 , &H10 , &H7F
O:
Data &H3E , &H41 , &H41 , &H41 , &H3E
P:
Data &H7F , &H09 , &H09 , &H09 , &H06
Q:
Data &H3E , &H41 , &H51 , &H61 , &H7E
R:
Data &H7F , &H09 , &H19 , &H29 , &H46
S11:
Data &H06 , &H49 , &H49 , &H49 , &H30
T:
Data &H01 , &H01 , &H7F , &H01 , &H01
U11:
Data &H3F , &H40 , &H40 , &H40 , &H3F
V:
Data &H1F , &H20 , &H40 , &H20 , &H1F
W11:
Data &H7F , &H20 , &H10 , &H20 , &H7F
X11:
Data &H63 , &H14 , &H08 , &H14 , &H63
Y11:
Data &H03 , &H04 , &H78 , &H04 , &H03
Z11:
Data &H61 , &H51 , &H49 , &H45 , &H43
Aa:
Data &H78 , &H14 , &H15 , &H14 , &H78
Ae:
Data &H78 , &H15 , &H14 , &H15 , &H78
Oe:
Data &H38 , &H45 , &H44 , &H45 , &H38
A1:
Data &H20 , &H54 , &H54 , &H54 , &H78
B1:
Data &H7F , &H48 , &H44 , &H44 , &H38
C1:
Data &H38 , &H44 , &H44 , &H44 , &H28
D1:
Data &H38 , &H44 , &H44 , &H48 , &H7F
E1:
Data &H38 , &H54 , &H54 , &H54 , &H18
F1:
Data &H00 , &H04 , &H7E , &H05 , &H00
G1:
Data &H0C , &H52 , &H52 , &H4A , &H3C
H1:
Data &H7F , &H08 , &H04 , &H04 , &H78
I1:
Data &H00 , &H44 , &H7D , &H40 , &H00
J1:
Data &H00 , &H40 , &H44 , &H3D , &H00
K1:
Data &H7F , &H20 , &H10 , &H28 , &H44
L1:
Data &H00 , &H41 , &H7F , &H40 , &H00
M1:
Data &H7C , &H04 , &H18 , &H04 , &H7C
N1:
Data &H7C , &H08 , &H04 , &H04 , &H78
O1:
Data &H38 , &H44 , &H44 , &H44 , &H38
P1:
Data &H7C , &H14 , &H24 , &H24 , &H18
Q1:
Data &H18 , &H24 , &H24 , &H14 , &H7C
R111:
Data &H7C , &H04 , &H04 , &H08 , &H00
S1:
Data &H08 , &H54 , &H54 , &H54 , &H20
T1:
Data &H04 , &H3F , &H44 , &H40 , &H00
U1:
Data &H3C , &H40 , &H40 , &H40 , &H7C
V1:
Data &H1C , &H20 , &H40 , &H20 , &H1C
W1:
Data &H3C , &H40 , &H30 , &H40 , &H3C
X1:
Data &H44 , &H28 , &H10 , &H28 , &H44
Y1:
Data &H0C , &H50 , &H50 , &H48 , &H3C
Z1:
Data &H44 , &H64 , &H54 , &H4C , &H44
Aa1:
Data &H20 , &H54 , &H55 , &H54 , &H78
Ae1:
Data &H20 , &H55 , &H54 , &H55 , &H78
Oe1:
Data &H38 , &H45 , &H44 , &H45 , &H38
Spacesign:
Data &H00 , &H00 , &H00 , &H00 , &H00
Dot:
Data &H00 , &H60 , &H60 , &H00 , &H00
Dash:
Data &H08 , &H08 , &H08 , &H08 , &H08
Colon:
Data &H00 , &H36 , &H36 , &H00 , &H00
Degree:
Data &H00 , &H07 , &H05 , &H07 , &H00
Leftsquareparagraph:
Data &H00 , &H7F , &H41 , &H41 , &H00
Rightsquareparagraph:
Data &H00 , &H41 , &H41 , &H7F , &H00
Grid:
Data &H55 , &H2A , &H55 , &H2A , &H55
Powerof:
Data &H04 , &H02 , &H01 , &H02 , &H04
Underscore:
Data &H40 , &H40 , &H40 , &H40 , &H40
Semicolon:
Data &H00 , &H56 , &H36 , &H00 , &H00
Arrowleft:
Data &H08 , &H1C , &H36 , &H63 , &H41
Arrowright:
Data &H41 , &H63 , &H36 , &H1C , &H08
Equals:
Data &H14 , &H14 , &H14 , &H14 , &H14
Question:
Data &H02 , &H01 , &H51 , &H09 , &H06
Alpha:
Data &H32 , &H49 , &H59 , &H51 , &H3E
Exclamation:
Data &H00 , &H00 , &H5F , &H00 , &H00
Quotation:
Data &H00 , &H07 , &H00 , &H07 , &H00
Hash:
Data &H14 , &H7F , &H14 , &H7F , &H14
Dollar:
Data &H24 , &H2A , &H7F , &H2A , &H12
Percent:
Data &H23 , &H13 , &H08 , &H64 , &H62
Ampersand:
Data &H36 , &H49 , &H55 , &H22 , &H50
Apostrophe:
Data &H00 , &H05 , &H03 , &H00 , &H00
Leftparagraph:
Data &H00 , &H1C , &H22 , &H41 , &H00
Rightparagraph:
Data &H00 , &H41 , &H22 , &H1C , &H00
Asterisc:
Data &H14 , &H08 , &H3E , &H08 , &H14
Plus:
Data &H08 , &H08 , &H3E , &H08 , &H08
Comma:
Data &H00 , &H00 , &H50 , &H30 , &H00
Slash:
Data &H20 , &H10 , &H08 , &H04 , &H02
Backslash:
Data &H02 , &H04 , &H08 , &H10 , &H20