'
   '  **************************************
   '  *  0.96inch 65K full color LCD test  *
   '  *      160 x 80 dot [ST7735S] SPI    *
   '  *        O-Family  2021. 1. 5        *
   '  **************************************
   '

$regfile = "m168def.dat"
$crystal = 8000000
$baud = 38400

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

print version(3)

   '
   '  * Initial setting of G-LCD *
   '

$lib "glcd-ST7735S_160x80.lib"                              'Incorporate the ST7735S 160x80 library.
   'Designate the connection port of LCD. Cs1 = [CS] , A0 = [DC] , Rst = [RSE] , Si = [SDA] , Sclk = [SCL]
   'Config Graphlcd = Color , A0 = Portd.5 , Rst = Portd.6 , Si = Portd.4 , Sclk = Portd.7       '[Cs1] and [Rst] are optional.
Config Graphlcd = Color , A0 = Portd.5 , Cs1 = Portd.3, Rst = Portd.6 ,  Si = Portd.4 , Sclk = Portd.7

Const Portrait = 0         'LCD screen. (0: Landscape [X=160, Y=80], 1: Portrait [X=80, Y=160])
Const Rotate_180 = 1       'LCD screen 180 degree rotation. (0: connector Lower side, 1: connector Upper side)

Cls                        'Erase the entire screen of the G-LCD.

'For some reason, that I don't understand,
'my ST7735S colors are inverted.
Const White = &B0000_0000
Const Blue = &B1111_1100
Const Black = &B1111_1111
Const Magenta = &B0001_1100

'setfont Alpha_20p29x21
'setfont font16x16
Setfont Color8x8    'Only font that worked.

Lcdat 5 , 10 , "123" , blue , white
Lcdat 30 , 10 , "456" , Black , White
Lcdat 50 , 10 , "789" , Magenta , white

End

$include "color8x8.font"
'$include "font16x16.font"
'$include "Arial.font"

$crystal = 32000000
$regfile = "xm32E5def.dat"
$hwstack = 100
$swstack = 100
$framesize = 100
$lib "xmega.lib"
CONFIG SUBMODE = NEW

Config Osc = Disabled , 32mhzosc = Enabled

Config Sysclock = 32mhz , Prescalea = 1 , Prescalebc = 1_1  ' we will use 32 MHz and divide by 1 to end up with 32 MHz
Config Priority = Static , Vector = Application , Lo = Disabled , Med = Enabled , Hi = Disabled

   '
   '  * Initial setting of G-LCD *
   '
Const Portrait = 0                                       'LCD screen. (0: Landscape [X=160, Y=128], 1: Portrait [X=128, Y=160])
Const Rotate_180 = 1                                     'LCD screen 180 degree rotation. (0: connector Upper side, 1: connector Lower side)
$lib "glcd-ST7735S_1R8_128x160.lib"                      'Incorporate the ST7735S 1.8inch 128x160 library.
'$lib "glcd-ST7735R.lib"

Config Graphlcd = Color , Cs1 = Portd.0 , Rst = Portd.6 , A0 = Portd.7 , Si = Portd.5 , Sclk = Portd.4      '[Cs1] and [Rst] are optional.
Initlcd
Cls

end

'Both Libs above gererate this error.
'Error : 221   Line :   219   Backward jump out of range [_CLEAR_GRAPH1 [ 86]]  , in File : C:\MCS\BASCAVR2085\LIB\GLCD-ST7735R.LIB
'Error : 221   Line :   219   Backward jump out of range [_CLEAR_GRAPH1 [ 86]]  , in File : C:\MCS\BASCAVR2085\LIB\GLCD-ST7735S_1R8_128X160.LIB