Print "st7796S Test"
CLS RGB(GREEN)
Box 100,100,40,40,,RGB(RED),RGB(RED)
Print Hex$(Pixel(1,1))
Blit READ 1,100,100,40,40
Blit WRITE 1,150,100,40,40
Blit 100,100,200,100,40,40
Print Hex$(Pixel(121,125))
Print Hex$(Pixel(171,125))
Print Hex$(Pixel(221,125))
Text 300,150,"HELLO"
Text 300,100,"HELLO",,,,RGB(RED),-1
Timer =0
Box 0,0,10,10,1,RGB(red),RGB(red)
Box 10,10,10,10,1,RGB(BLUE),RGB(BLUE)
Print "WRITE TIME: ",Timer
Timer =0
Blit 0,0,200,200,20,20
Print "BLIT TIME: ", Timer
Timer =0
'CLS
Print " CLS TIME: ",Timer

#define ST7796Schangetowrite  4500

void ReadBufferSPI(int x1, int y1, int x2, int y2, unsigned char* p) {
.
.
.
.
if(Option.DISPLAY_TYPE==ST7796S){
int n=(x2- x1+1) * (y2- y1+1)*3;
while(N){
h=p[N-2];
l=p[N-1];
N-=2;
p[n-1]=h & 0xF8;
p[n-2]=((h & 0x7)<<5) | ((l & 0xE0)>>3);
p[n-3]=(l & 0x1F)<<3;
n-=3;
}
uSec(ST7796Schangetowrite);
ST7796Swritestate=true;
} else {

Print "st7796S Test"
CLS RGB(RED)
Print Hex$(Pixel(1,1)),"RED F80000"
Print Hex$(Pixel(171,125))
CLS RGB(GREEN)
Print Hex$(Pixel(1,1)),"GREEN FC00"
Print Hex$(Pixel(171,125))
CLS RGB(BLUE)
Print "------------"
Print Hex$(Pixel(1,1)),"BLUE F8"
Print Hex$(Pixel(1,1))
Print Hex$(Pixel(1,1))
Print Hex$(Pixel(1,1)),"BLUE F8"
Print Hex$(Pixel(1,1))
Print Hex$(Pixel(1,1))
Print Hex$(Pixel(1,1)),"BLUE F8"
Print Hex$(Pixel(1,1))
Print Hex$(Pixel(1,1))
Print "----------------"
CLS RGB(GREEN)
'CLS RGB(RED)
Box 0,98,320,50,,RGB(BLUE),RGB(BLUE)
Box 0,48,320,50,,RGB(yellow),RGB(yellow)
Box 0,50,40,40,,RGB(RED),RGB(RED)
Print Hex$(Pixel(1,1))':Pause 5
'Text 150,50," TRANSP ",,2,,RGB(RED)
'Pause 10
Blit READ 1,0,50,40,40
Blit WRITE 1,50,50
Print Hex$(Pixel(1,1))
Blit 0,50,100,50,40,40

Box 0,100,40,40,,RGB(RED),RGB(RED)
'Print Hex$(Pixel(1,1))
Print Hex$(Pixel(1,1))
Blit CLOSE 1
Blit READ 1,0,100,40,40
Blit WRITE 1,50,100
'Print Hex$(Pixel(1,1))
Print Hex$(Pixel(1,1))
Blit 0,100,100,100,40,40
'Print Hex$(Pixel(121,125))
'Print Hex$(Pixel(171,125))
Print Hex$(Pixel(221,125))
Text 150,70," NORMAL ",,2
Text 150,50," TRANSP ",,2,,RGB(RED),-1
Text 150,120," NORMAL ",,2
Text 150,100," TRANSP ",,2,,RGB(RED),-1
Timer =0
Box 0,0,20,20,1,RGB(red),RGB(red)
Box 20,20,20,20,1,RGB(BLUE),RGB(BLUE)
Print "WRITE TIME: ",Timer
Timer =0
Print Hex$(Pixel(1,1))
Blit 0,0,100,0,40,40
Print Hex$(Pixel(1,1))
Blit close 1
Blit Read 1,0,0,40,40
Blit Write 1,50,0
Print "BLIT TIME: ", Timer
Timer =0
'CLS
Print " CLS TIME: ",Timer
Triangle 30,180,125,190,90,220,RGB(RED),RGB(RED)
Line AA  150,180,220,230,5,RGB(BLUE)

8.4.2.2 Read Sequence
The read mode of the interface means that the micro controller reads register value from the driver. To achieve read function, the micro controller first has to send a command (read ID or register command) and then the following byte is transmitted in the opposite direction. After that CSX is required to go to high before a
new command is send ......

> option list
PicoMite MMBasic RP2040 Edition V6.00.02RC23
OPTION SYSTEM SPI GP18,GP19,GP16
OPTION SYSTEM I2C GP8,GP9
OPTION COLOURCODE ON
OPTION CONTINUATION LINES ON
OPTION CPUSPEED (KHz) 378000
OPTION DISPLAY 55, 155
OPTION LCDPANEL ST7796S, PORTRAIT,GP15,GP14,GP13,GP7
OPTION TOUCH GP12,GP11
GUI CALIBRATE 1, 154, 3980, 863, -1279
OPTION SDCARD GP17
OPTION RTC AUTO ENABLE
> gui test lcdpanel
> gui test touch
> RUN
ST7796S Test by disco4now 19-05-2025
F80000  RED F80000
F80000
1CC0    GREEN FC00
1CC0
------------
F80000  BLUE F8
F80000
F80000
F80000  BLUE F8
F80000
F80000
F80000  BLUE F8
F80000
F80000
----------------
F80000
1CC0
1CC0
F80000
1CC0
WRITE TIME:      0.684
1CC0
F80000
BLIT TIME:       16.948
CLS TIME:       0.104
>