Dim Offset256 As Byte

   '
   '  ***********************************
   '  *  2.8inch 65K full color LCD     *
   '  *    240 x 320 dot [ILI9341] SPI  *
   '  *  Touch screen (XPT2046) test    *
   '  *           O-Family  2019. 9.26  *
   '  ***********************************
   '

$regfile = "m88pdef.dat"                                    'ATmega88P
   Config Clockdiv = 1                                      'Change the AVR operating clock to 8MHz.
$crystal = 8000000

$hwstack = 64
$swstack = 10
$framesize = 24

   '
   '  * Initial setting of G-LCD *
   '
   Const Portrait = 1                                       'LCD screen. (0: Landscape [X=320, Y=240], 1: Portrait [X=240, Y=320])
   Const Rotate_180 = 0                                     'LCD screen 180 degree rotation. (0: connector Upper side, 1: connector Lower side)
   Dim Offset256 As Byte                                    'LCD address offset flag. (0:0-255 , 1:256-319)
$lib "glcd-ILI9341_2R8_240x320.lib"                         'Incorporate the ILI9341 2.8inch 240x320 library.
   ' Designate the connection port of LCD. Cs1 = [CS] , Rst = [RESET] , A0 = [DC] , Si = [SDI] , Sclk = [SCK]
   Config Graphlcd = Color , Cs1 = Portd.3 , Rst = Portd.4 , A0 = Portd.5 , Si = Portd.6 , Sclk = Portd.7       '[Cs1] and [Rst] are optional.
   Initlcd                                                  'Initialize ILI9341.
   Cls                                                      'Erase the entire screen of the G-LCD.

   '
   '  * Define the color name *  [RRRG_GGBB] = [R2,R1,R0,G2_G1,G0,B1,B0]
   '
   Const Black = &B0000_0000
   Const Red = &B1110_0000
   Const Green = &B0001_1100
   Const Blue = &B0000_0011
   Const Magenta = &B1110_0011
   Const Yellow = &B1111_1100
   Const Cyan = &B0001_1111
   Const White = &B1111_1111
   '
   Const Orange = &B1111_0100
   Const Brightgreen = &B0011_1110
   Const Brightblue = &B0001_1111
   Const Darkred = &B1100_0000
   Const Darkgreen = &B0001_0100
   Const Darkblue = &B0000_0010

'--------------------------------------------------------------------------------------------------

   '
   '  * Touch screen controller settings *   (XPT2046 , ADS7846 , TSC2046 , AK4182A)
   '
   Touch_clk Alias Portd.7                                  'XPT2046 [Touch_CLK] Connection port.
   Touch_cs Alias Portd.2                                   'XPT2046 [Touch_CS] Connection port.
   Touch_din Alias Portd.6                                  'XPT2046 [Touch_DIN] Connection port.
   Touch_do Alias Pind.1                                    'XPT2046 [Touch_DO] Connection port.
   Touch_irq Alias Pind.0                                   'XPT2046 [Touch_IRQ] Connection port.
   '
   Config Touch_clk = Output                                'XPT2046 Set the connection port of [Touch_CLK] to output.
   Config Touch_cs = Output                                 'XPT2046 Set the connection port of [Touch_CS] to output.
   Set Touch_cs                                             'XPT2046 Set [Touch_CS] to [H].
   Config Touch_din = Output                                'XPT2046 Set the connection port of [Touch_DIN] to output.
   Config Touch_do = Input                                  'XPT2046 Set the connection port of [Touch_DO] to input.
   Config Touch_irq = Input                                 'XPT2046 Set the connection port of [Touch_IRQ] to input.
   '
   Dim Touchx As Word                                       '[X] data of touch screen.
   Dim Touchy As Word                                       '[Y] data of touch screen.
   Dim Touchflag As Byte                                    'Touch screen detection flag.
   Dim Temptclk As Byte                                     '[Touch_CLK] for port state storage.
   Dim X_command As Byte , Y_command As Byte : X_command = &B1101_0000 : Y_command = &B1001_0000       'XPT2046 A/D measurement start command.
   '
   Temptclk = Touch_clk                                     'Save the status of the [Touch_CLK] port.
   Reset Touch_cs                                           'Set [Touch_CS] of XPT2046 to [L].
   Shiftout Touch_din , Touch_clk , X_command , 1           'Send the touch controller setting command.
   Set Touch_cs                                             'Set [Touch_CS] of XPT2046 to [H].
   Touch_clk = Temptclk                                     'Return the state of [Touch_CLK] port.
   '
   Dim Touchxmin As Word : Touchxmin = 300                  'Minimum specified value of [X]. (Adjustment is required due to individual differences in touch screen)
   Dim Touchxmax As Word : Touchxmax = 3800                 'Maximum specified value of [X]. (Adjustment is required due to individual differences in touch screen)
   Dim Touchymin As Word : Touchymin = 400                  'Minimum specified value of [Y]. (Adjustment is required due to individual differences in touch screen)
   Dim Touchymax As Word : Touchymax = 3900                 'Maximum specified value of [Y]. (Adjustment is required due to individual differences in touch screen)


'--------------------------------------------------------------------------------------------------

   '
   '  ****************
   '  * Drawing test *
   '  ****************
   '
   Dim Coefficientx As Word , Coefficienty As Word          'Screen position factor for [X] and [Y].
   Dim Temp1 As Byte                                        'General-purpose temporary variable.
   Dim Temp2 As Byte                                        'General-purpose temporary variable.
   Dim Tempw1 As Word                                       'General-purpose temporary variable.
   Dim Tempw2 As Word                                       'General-purpose temporary variable.
   Dim Tempdw1 As Dword                                     'General-purpose temporary variable.
   Dim Tempstr As String * 10                               'General-purpose temporary variable.
   '
   '
Main:
   Tempw1 = Touchxmax - Touchxmin                           'Calculate the A/D value range of [X].
   Tempdw1 = 2400000 / Tempw1                               '[X](240dot * 10000) / [X]A/D value range
   Coefficientx = Tempdw1                                   'Find the screen position coefficient of [X].
   Tempw1 = Touchymax - Touchymin                           'Calculate the A/D value range of [Y].
   Tempdw1 = 3200000 / Tempw1                               '[Y](320dot * 10000) / [Y]A/D value range
   Coefficienty = Tempdw1                                   'Find the screen position coefficient of [Y].
   '
   Cls                                                      'Erase the entire screen of the G-LCD.
   Setfont Color8x8                                         'Select a font.
   Offset256 = 0                                            'LCD address offset value. (0: 0-255)
   Box(0 , 0) -(239 , 255) , White                          'Display area frame.
   Offset256 = 1                                            'LCD address offset value. (1: 256-319)
   Box(0 , 256) -(239 , 319) , Red                          'Display area frame.
   Offset256 = 0                                            'LCD address offset value. (0: 0-255)
   Boxfill(229 , 0) -(239 , 10) , Yellow                    'Erase area frame.
   '
Mainloop:
   Gosub Touchget                                           'Touch screen controller reading.
   If Touchflag <> 0 Then                                   'Did you touch the screen?
      Touchflag = 0
      '
      Tempstr = Str(touchx)                                 'Displays the A/D coordinate value of [X].
      Lcdat 100 , 90 , "X: " ; Format(tempstr , "   0") , White , Blue
      Tempstr = Str(touchy)                                 'Displays the A/D coordinate value of [Y].
      Lcdat 120 , 90 , "Y: " ; Format(tempstr , "   0") , White , Blue
      '
      Tempw1 = Touchx - Touchxmin                           'The screen coordinates of [X] are calculated from the A/D value and coefficient of [X].
      Tempdw1 = Coefficientx * Tempw1
      Tempdw1 = Tempdw1 / 10000
      Temp1 = Tempdw1
      Temp1 = 239 - Temp1                                   'The [X] axis is corrected because the left and right addresses are reversed.
      '
      Tempw2 = Touchy - Touchymin                           'The screen coordinates of [Y] are calculated from the A/D value and coefficient of [Y].
      Tempdw1 = Coefficienty * Tempw2
      Tempdw1 = Tempdw1 / 10000
      Tempw2 = Tempdw1
      Temp2 = Tempw2
      '
      If Temp1 > 229 And Tempw2 < 10 Then Goto Main         'Is the screen erase area?
      If Tempw2 < 256 Then                                  'Is [Y] coordinate within 255?
         Offset256 = 0
      Else                                                  '[Y] Coordinate exceeds 255.
         Offset256 = 1
      End If
      If Temp1 > 238 Then                                   'Does [X] circle drawing exceed the screen?
         Temp1 = 238
      End If
      Circle(temp1 , Temp2) , 2 , Green                     'Draw a circle at the touched location.
      Offset256 = 0
      '
'      Waitms 1                                             'The waiting time for continuous drawing.
   End If
   Goto Mainloop


'--------------------------------------------------------------------------------------------------

   '
   '  **************************************************
   '  * Reading subroutine for touch screen controller *  (Touchx = A/D value of [X] , Touchy = A/D value of [Y])
   '  *     (XPT2046 , ADS7846 , TSC2046 , AK4182A)    *  (Touchflag = Touch detection flag, 1: Detected)
   '  **************************************************
   '
   Dim Touch_mean As Byte , Touchx_sum As Word , Touchy_sum As Word

Touchget:
   If Touch_irq = 0 Then                                    'Did you touch the screen [Touch_IRQ]=[L]?
      Temptclk = Touch_clk                                  'Save the status of the [Touch_CLK] port.
      '
      Touchx_sum = 0                                        'Initialize the average sum.
      Touchy_sum = 0
      '
      For Touch_mean = 1 To 16                              'Sample the A/D value of the touch screen 16 times.
         Waitus 30                                          'A/D value stabilization wait time.
         Reset Touch_clk                                    'Set [Touch_CLK] to [L].
         Reset Touch_din                                    'Set [Touch_DIN] to [L].
         Reset Touch_cs                                     'Set [Touch_CS] to [L].
         '
         Shiftout Touch_din , Touch_clk , X_command , 1 , 8 , 2       'Send [X] A/D start command.
         Reset Touch_din                                    'Set [Touch_DIN] to [L].
         Set Touch_clk                                      'Set [Touch_CLK] to [H].
         Waitus 2                                           'Make a 9th clock pulse.
         Reset Touch_clk                                    'Set [Touch_CLK] to [L].
         Waitus 2
         '
         Shiftin Touch_do , Touch_clk , Touchx , 1 , 12 , 2 'Receive A/D data of [X].
         Shift Touchx , Right , 4                           'Set right-justified 12bit.
         '
         Shiftout Touch_din , Touch_clk , Y_command , 1 , 8 , 2       'Send [Y] A/D start command.
         Reset Touch_din                                    'Set [Touch_DIN] to [L].
         Set Touch_clk                                      'Set [Touch_CLK] to [H].
         Waitus 2                                           'Make a 9th clock pulse.
         Reset Touch_clk                                    'Set [Touch_CLK] to [L].
         Waitus 2
         '
         Shiftin Touch_do , Touch_clk , Touchy , 1 , 12 , 2 'Receive A/D data of [Y].
         Shift Touchy , Right , 4                           'Set right-justified 12bit.
         '
         Set Touch_cs                                       'Set [Touch_CS] to [H].
         '
         Touchx_sum = Touchx_sum + Touchx                   'Add the average sum.
         Touchy_sum = Touchy_sum + Touchy
      Next Touch_mean
      Touch_clk = Temptclk                                  'Return the state of [Touch_CLK] port.
      '
      Shift Touchx_sum , Right , 4                          'Take the average of [X] values.
      Touchx = Touchx_sum
      Shift Touchy_sum , Right , 4                          'Take the average of [Y] values.
      Touchy = Touchy_sum
      '
      If Touchx > Touchxmin Then                            'Is the [X] value greater than the minimum specified value?
         If Touchx < Touchxmax Then                         'Is the [X] value smaller than the maximum specified value?
            If Touchy > Touchymin Then                      'Is the [Y] value greater than the minimum specified value?
               If Touchy < Touchymax Then                   'Is the [Y] value smaller than the maximum specified value?
                  Touchflag = 1                             'Set the touch screen detection flag.
               End If
            End If
         End If
      End If
   End If
   Return


   End

'--------------------------------------------------------------------------------------------------

   '
   '  * Font data *
   '
$include "color8x8.font"