> for a=0 to 16 step 8:m=0:for n=0 to 255:q=n<<a:pixel 9,9,q:c=pixel(9,9):if c=q then:inc m :endif :next:?:?m:next

64

64

64
>

for a=0 to 16 step 8
   m=0
   for n=0 to 255
     q=n<<a:pixel 9,9,q:c=pixel(9,9)
       if c=q then:inc m
     endif
   next
?
?m
 next

> option list
PicoMite MMBasic Version 5.09.00RC3
OPTION SYSTEM SPI GP18,GP19,GP16
OPTION LCDPANEL ILI9488, LANDSCAPE,GP15,GP14,GP13,GP17,INVERT
OPTION TOUCH GP12,GP11
GUI CALIBRATE 0, 3902, 3845, -1284, -872
OPTION SDCARD GP22

> for a=0to 2:b=0:for c=0to 255:d=c<<a*8:pixel 9,9,d:if d=pixel(9,9)then:inc b:endif:next:?b:next
64
64
64
> b=0:for c=0to 255:d=c<<16:pixel 9,9,d:if d=pixel(9,9)then:inc b:endif:next:?b
64
> b=0:for c=0to 255:d=c<<8:pixel 9,9,d:if d=pixel(9,9)then:inc b:endif:next:?b
64
> b=0:for c=0to 255:d=c:pixel 9,9,d:if d=pixel(9,9)then:inc b:endif:next:?b
64
>

? "--------------------------------------------------"
? "Connected to: " MM.DEVICE$ MM.VER
? "--------------------------------------------------"
?
PAUSE 1000
'Program to verify LCDPanel read and write
'Writes a pixel to every point and reads it back to check
'Does a BLIT and check is still correct

OPTION EXPLICIT
OPTION DEFAULT NONE

DIM INTEGER s,t, x, y, r, red, green, blue, c, b,i=0
DIM INTEGER x1,y1,la
DIM INTEGER x2,y2,tp,hmax,vmax,shorttest
DIM INTEGER pwr=0,pb=0,tx=0,ty=0,tbx=0,tby=0,tbt=0,pir=0,pirw=0,top,bottom
DIM INTEGER pwre=0,pbe=0,txe=0,tye=0,tbxe=0,tbye=0,tbte=0,pire=0,pirwe=0
DIM INTEGER myWHITE,rgbWHITE,nearWHITE,rgbmask
DIM INTEGER getscanlineSupported=1,blitsupport=1,backlightsupported=1
DIM INTEGER MMVRES,MMHRES,retry
DIM ok$=""
'myWHITE=RGB(&HFF,&HFF,&HFF)
myWHITE=RGB(&HF8,&HFC,&HF8)
'myWHITE=RGB(&HF8,&HF8,&HF8)
'myWHITE=RGB(&HF0,&HF8,&HF0)
''nearWHITE=RGB(&HF8,&HF0,&HF8)
rgbWHITE=RGB(&HF8,&HFC,&HF8)
'rgbWHITE=RGB(&HFF,&HFF,&HFF)
rgbmask=&HF8FCF8

DIM INTEGER MAXTESTS=1    'Number of times to repeat test
DIM INTEGER MAXPRINT=20   'How many errors to output

DIM INTEGER TESTCOUNT=0,TESTFAILED=0
TESTSTART:
IF TESTCOUNT=MAXTESTS THEN
? vt100.colour$("GREEN");
? "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
? "!!!! "+STR$(MAXTESTS,2)+ " tests completed    !!!!"
IF TESTFAILED>0 THEN
  ? vt100.colour$("RED");
  ? "!!!! "+STR$(TESTFAILED,2)+ " tests Failed       !!!!"
ELSE
  ? vt100.colour$("GREEN");
  ? "!!!! "+STR$(TESTFAILED,2)+ " tests Failed       !!!!"
ENDIF
? "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
? vt100.colour$("RESET")
END
ENDIF
s=0:t=0:i=0
pwr=0:pb=0:tx=0:ty=0:tbx=0:tby=0:tbt=0:pir=0:pirw=0
pwre=0:pbe=0:txe=0:tye=0:tbxe=0:tbye=0:tbte=0:pire=0:pirwe=0
CLS
? vt100.colour$("HOME"):? vt100.colour$("CLS")

'if MM.INFO$(LCDPANEL)="ILI9341" then getscanlineSupported=0
'if MM.INFO$(LCDPANEL)="ILI9488" then getscanlineSupported=0
'if MM.INFO$(LCDPANEL)="ILI9481" then getscanlineSupported=0:blitsupport=0
'if MM.INFO$(LCDPANEL)="ILI9486" then getscanlineSupported=0
'if MM.INFO$(LCDPANEL)="ST7789" then getscanlineSupported=0:blitsupport=0

IF MM.INFO$(LCDPANEL)="SSD1963_4" THEN rgbmask=&HFFFFFF    'RGB888
IF MM.INFO$(LCDPANEL)="SSD1963_5ER" THEN rgbmask=&HFFFFFF  'RGB888
IF MM.INFO$(LCDPANEL)="SSD1963_5" THEN rgbmask=&HFFFFFF    'RGB888
IF MM.INFO$(LCDPANEL)="SSD1963_5A" THEN rgbmask=&HFFFFFF   'RGB888
IF LEFT$(MM.DEVICE$,4)="Pico" THEN
  IF MM.INFO$(LCDPANEL)="ILI9488" THEN rgbmask=&HFCFCFC     'RGB666
  IF MM.INFO$(LCDPANEL)="ILI9481IPS" THEN rgbmask=&HFCFCFC  'RGB666
END IF  

retry=1
shorttest=1
IF shorttest=0 THEN
 vmax=MM.VRES-1
 hmax=MM.HRES-1
ELSE
 vmax=99
 hmax=99
ENDIF  
tp=(vmax+1)*(hmax+1)
? vt100.colour$("RESET")
? "LCDPANEL Integrity Test "
? "----------------------- "

IF shorttest=0 THEN
? "Long Test - All pixels tested"
ELSE
? "Short Test - 100*100 pixels tested"
ENDIF
? MM.INFO$(LCDPANEL)
'? MM.INFO$(LCDPANELID)



'Check for BLIT SUPPORT'''''''''''''''''
ON ERROR SKIP 1
t = PIXEL(0,0)
IF MM.ERRNO<>0 THEN blitsupport=0
ON ERROR CLEAR
IF blitsupport=1 THEN
 ? "BLIT Supported"
ELSE
 ? "BLIT NOT Supported""
END IF

'Check for BACKLIGHT SUPPORT'''''''''''''''''
ON ERROR SKIP 1
BACKLIGHT 50
IF MM.ERRNO<>0 THEN backlightsupported=0
ON ERROR CLEAR
IF backlightsupported=1 THEN
 ? "BACKLIGHT Supported"
ELSE
 ? "BACKLIGHT NOT Supported"
END IF

'Check for GETSCANLINE SUPPORT'''''''''''''''''
ON ERROR SKIP 1
t = GETSCANLINE()
IF MM.ERRNO<>0 THEN getscanlineSupported=0
ON ERROR CLEAR
IF getscanlineSupported=1 THEN
 ? "getscanline{} Supported"
ELSE
 ? "getscanline() NOT Supported"
END IF
''''''''''''''''''''''''''''''''''''''''''''

? "TEST RGB colour order"
CLS RGB(RED)
TEXT MM.HRES/2,MM.VRES/2,"RED","CM",1,6,RGB(BLACK),RGB(RED)
PAUSE 1000
CLS RGB(GREEN)
TEXT MM.HRES/2,MM.VRES/2,"GREEN","CM",1,6,RGB(BLACK),RGB(GREEN)
PAUSE 1000
CLS RGB(BLUE)
TEXT MM.HRES/2,MM.VRES/2,"BLUE","CM",1,6,RGB(BLACK),RGB(BLUE)
PAUSE 1000
CLS RGB(BLACK)
TEXT MM.HRES/2,MM.VRES/4,"WHITE","CM",1,3,RGB(WHITE)
TEXT MM.HRES/2,MM.VRES/2,"on","CM",1,3,RGB(WHITE)
TEXT MM.HRES/2,3*MM.VRES/4,"BLACK","CM",1,3,RGB(WHITE)
PAUSE 1000
IF backlightsupported=1 THEN
 ? "**************************************************"
 ? "  BACKLIGHT TEST 10-100%                          "
 ? "**************************************************"
 '
 CLS RGB(BLUE)
 FOR x=10 TO 100 STEP 10
   BACKLIGHT x
   'pause 500
  '' TEXT MM.HRES/2,2.2*x,"BACKLIGHT "+str$(x),"CM",1,2,RGB(RED)
  '' TEXT MM.HRES/2,2.2*x,"BACKLIGHT "+str$(x),"CM",1,2,RGB(BLUE)
   TEXT MM.HRES/2,2.2*x,"BACKLIGHT "+STR$(x),"CM",1,2,RGB(WHITE)
   PAUSE 500
 NEXT x
 BACKLIGHT 100
ENDIF

? "************************************"
? " Doing write to Pixels colour gradiant"
? " and then read of pixels."
? "************************************"
? "writing ",tp," pixels..."
 s=0:t=0:i=0
CLS
TIMER=0
FOR x1=0 TO hmax
 FOR y1=0 TO vmax
   'c=RGB((x1<<3 AND &HF8 )OR 5 ,((x1+y1)<<2  and &HFC) or 1 ,(y1<<3 and &HF8) or 2)
   c=RGB((x1<<3 AND &HF8 ) ,((x1+y1)<<2  AND &HFC)  ,(y1<<3 AND &HF8) )
   'c=&H48
   PIXEL x1,y1,c
 NEXT
NEXT
? TIMER," mSec"
IF blitsupport=1 THEN
? "reading ",tp," pixels..."
TIMER=0
FOR x1=0 TO hmax
 FOR y1=0 TO vmax
   i=i+1
   c=RGB(x1<<3 AND &HF8 ,(x1+y1)<<2 AND &HFC,y1<<3 AND &HF8)
   'c=&H48
   r=PIXEL (x1,y1)
  ' r=r and &HF8FFF8
   c=c AND rgbmask
   IF r=c THEN
     s=s+1
   ELSE
     IF t=0 THEN ? "Pixels not read as written"
     IF t<maxprint THEN printerror
     t=t+1
   ENDIF
   IF i>10000 THEN
     ? ".";
     i=0
   ENDIF  
 NEXT
NEXT
?
? TIMER," mSec"
? "correct pixels ",s
? "incorrect pixels",t
? "total pixels",s+t
 IF t=0 THEN pwr=1
 pwre=t

?
? "************************************"
? "Doing BLIT - blit 0,0,0,0,100,100"
? " and re read of pixels."
? "************************************"


BLIT 0,0,100,100,100,100
'blit 100,100,200,200,100,100
'blit 200,200,300,300,100,100
BLIT 0,0,0,0,100,100
'blit 300,300,0,0,100,100
'blit read #1 ,0,0,100,100
'BLIT WRITE #1,0,0
'BLIT CLOSE #1
 'for x1=0 to hmax
 'for y1=0 to vmax
 '   PIXEL x1,y1,PIXEL (x1,y1)
 'NEXT
 'NEXT
 
'CLS RGB(RED)
'CLS rgb(green)
'CLS rgb(BLUE)
s=0:t=0:i=0
? "reading ",tp," pixels after blit ..."
TIMER=0
FOR x1=0 TO hmax
 FOR y1=0 TO vmax
   i=i+1
   c=RGB(x1<<3 AND &HF8,(x1+y1)<<2 AND &HFC,y1<<3 AND &HF8)
   'c=&H48
   r=PIXEL (x1,y1)
   c=c AND rgbmask
   IF r=c THEN
     s=s+1
   ELSE
     IF t=0 THEN ? "Pixels not read as written"
     IF t<maxprint THEN printerror
     t=t+1
   ENDIF
   IF i>10000 THEN
     ? ".";
     i=0
   ENDIF  
 NEXT
NEXT
?
? TIMER," mSec"
? "correct pixels ",s
? "incorrect pixels ",t
? "total pixels",s+t
IF t=0 THEN pb=1
pbe=t
ENDIF
'''end
IF MM.INFO$(SDCARD)="Ready" THEN

 ?
 ? "************************************"
 ? "Doing  SAVE IMAGE TEST.BMP ,0,0,100,100"
 ? "then  RESTORE IMAGE TEST.BMP 0,0"
 ? " and re read of pixels."
 ? "************************************"

 IF blitsupport=1 THEN
    SAVE IMAGE "TEST.BMP", 0,0,100,100
    ? "Image saved as TEST.BMP"
 ENDIF
 CLS
 PAUSE 2000
 ? "Loading Image TEST.BMP"
 LOAD IMAGE "TEST.BMP" , 0,0
 TEXT 20,150, "Image Loaded above"
 PAUSE 5000
 s=0:t=0:i=0
 IF blitsupport=1  THEN
   ? "reading ",tp," pixels after LOAD IMAGE ..."
   TIMER=0
   FOR x1=0 TO hmax
   FOR y1=0 TO vmax
     i=i+1
     c=RGB(x1<<3 AND &HF8,(x1+y1)<<2 AND &HFC,y1<<3 AND &HF8)
     r=PIXEL (x1,y1)
     c=c AND rgbmask
     IF r=c THEN
       s=s+1
     ELSE
       IF t=0 THEN ? "Pixels not read as written"
       IF t<maxprint THEN printerror
       t=t+1
     ENDIF
     IF i>10000 THEN
       ? ".";
       i=0
     ENDIF  
   NEXT
   NEXT
   ?
   ? TIMER," mSec"
   ? "correct pixels ",s
   ? "incorrect pixels ",t
   ? "total pixels",s+t
   IF t=0 THEN
     pirw=1
     ON ERROR SKIP
     NAME "TEST.BMP" AS "REFERENCE.BMP"
   END IF
    pirwe=t
ENDIF
ENDIF
IF MM.INFO$(SDCARD)="Ready" AND blitsupport=0 THEN

 ?
 ? "************************************"
 ? "Doing  RESTORE IMAGE REFRENCE.BMP 0,0"
 ? "and read of pixels.                  "
 ? "************************************"

 CLS
 PAUSE 2000
 ? "Loading Image REFERENCE.BMP"
 LOAD IMAGE "REFERENCE.BMP" , 0,0
 TEXT 20,150, "Image Loaded above"
 PAUSE 5000
 s=0:t=0:i=0
 IF blitsupport=1  THEN
   ? "reading ",tp," pixels after LOAD IMAGE ..."
   TIMER=0
   FOR x1=0 TO hmax
   FOR y1=0 TO vmax
     i=i+1
     c=RGB(x1<<3 AND &HF8,(x1+y1)<<2 AND &HFC,y1<<3 AND &HF8)
     r=PIXEL (x1,y1)
     c=c AND rgbmask
     IF r=c THEN
       s=s+1
     ELSE
       IF t=0 THEN ? "Pixels not read as written"
       IF t<maxprint THEN printerror
       t=t+1
     ENDIF
     IF i>10000 THEN
       ? ".";
       i=0
     ENDIF  
   NEXT
   NEXT
   ?
   ? TIMER," mSec"
   ? "correct pixels ",s
   ? "incorrect pixels ",t
   ? "total pixels",s+t
   IF t=0 THEN pir=1
   pire=t
ENDIF
ENDIF
'******************************************************************************************
? "----------------------"
? " All Bit transistion test"
? "change by X coordinate "
? "---------------------"

? "writing ",tp," pixels..."
s=0:t=0:i=0
CLS
TIMER=0
FOR x1=0 TO hmax
 FOR y1=0 TO vmax
   'c=RGB((x1<<3 AND &HF8 )OR 5 ,((x1+y1)<<2  and &HFC) or 1 ,(y1<<3 and &HF8) or 2)
   IF x1 MOD 2  THEN c=RGB(BLACK) ELSE c=myWHITE
   'if x1 mod 2  then c=RGB(RED) else c=RGB(GREEN)
   'if x1 mod 2  then c=RGB(0,0,&h40) else c=RGB(255,255,&HBF)
   PIXEL x1,y1,c
 NEXT
NEXT
? TIMER," mSec"
IF blitsupport=1 THEN
? "reading ",tp," pixels..."
TIMER=0
FOR x1=0 TO hmax
 FOR y1=0 TO vmax
   i=i+1
   'c=RGB(x1<<3 AND &HF8 ,(x1+y1)<<2 and &HFC,y1<<3 and &HF8)
   IF x1 MOD 2  THEN c=RGB(BLACK) ELSE c=myWHITE
   'if x1 mod 2  then c=RGB(RED) else c=RGB(GREEN)
   'if x1 mod 2  then c=RGB(0,0,&h40) else c=RGB(255,255,&HBF)
   r=PIXEL (x1,y1)
  ' r=r and &HF8FFF8
   c=c AND rgbmask
   'if r<>c then r=PIXEL (x1,y1) 'reread
   IF r=c THEN
     s=s+1
   ELSE
     IF t=0 THEN ? "Pixels not read as written"
     IF t<maxprint THEN printerror
     INC t
   ENDIF
   IF i>10000 THEN
     ? ".";
     i=0
   ENDIF  
 NEXT
NEXT
?
? TIMER," mSec"
? "correct pixels ",s
? "incorrect pixels",t
? "total pixels",s+t
?
IF t=0 THEN tx=1
txe=t

? "************************************"
? "Doing BLIT - blit 0,0,0,0,100,100"
? " and re read of Transition X pixels."
? "************************************"
BLIT 0,0,100,100,100,100
BLIT 0,0,0,0,100,100
s=0:t=0:i=0
? "reading ",tp," pixels after blit ..."
TIMER=0
FOR x1=0 TO hmax
 FOR y1=0 TO vmax
   i=i+1
   'c=RGB(x1<<3 AND &HF8,(x1+y1)<<2 and &HFC,y1<<3 and &HF8)
   IF x1 MOD 2  THEN c=RGB(BLACK) ELSE c=myWHITE
   'if x1 mod 2  then c=RGB(RED) else c=RGB(GREEN)
  ' if x1 mod 2  then c=RGB(0,0,&h40) else c=RGB(255,255,&HBF)
   r=PIXEL (x1,y1)
   c=c AND rgbmask
   'if r<>c then r=PIXEL (x1,y1) 'reread
   IF r=c THEN
     s=s+1
   ELSE
     IF t=0 THEN ? "Pixels not read as written"
     IF t<maxprint THEN printerror
     t=t+1
   ENDIF
   IF i>10000 THEN
     ? ".";
     i=0
   ENDIF  
 NEXT
NEXT
?
? TIMER," mSec"
? "correct pixels ",s
? "incorrect pixels ",t
? "total pixels",s+t
IF t=0 THEN tbx=1
tbxe=t
ENDIF

'*********************************************************************************************************************
? "************************************"
? "Bit transistion by Y test"
? " and re read of pixels."
? "************************************"
? "writing ",tp," pixels..."
CLS
s=0:t=0:i=0
TIMER=0
FOR x1=0 TO hmax
 FOR y1=0 TO vmax
   'c=RGB((x1<<3 AND &HF8 )OR 5 ,((x1+y1)<<2  and &HFC) or 1 ,(y1<<3 and &HF8) or 2)
   IF y1 MOD 2 THEN c=RGB(BLACK) ELSE c=myWHITE
   PIXEL x1,y1,c
 NEXT
NEXT
? TIMER," mSec"
IF blitsupport=1 THEN
? "reading ",tp," pixels..."
TIMER=0
FOR x1=0 TO hmax
 FOR y1=0 TO vmax
   i=i+1
   'c=RGB(x1<<3 AND &HF8 ,(x1+y1)<<2 and &HFC,y1<<3 and &HF8)
   IF y1 MOD 2 THEN c=RGB(BLACK) ELSE c=myWHITE
   r=PIXEL (x1,y1)
  ' r=r and &HF8FFF8
   'if r<>c then r=PIXEL (x1,y1) 'reread
   c=c AND rgbmask
   IF r=c THEN
     s=s+1
   ELSE
     IF t=0 THEN ? "Pixels not read as written"
     IF t<maxprint THEN printerror
     t=t+1
   ENDIF
   IF i>10000 THEN
     ? ".";
     i=0
   ENDIF  
 NEXT
NEXT
?
? TIMER," mSec"
? "correct pixels ",s
? "incorrect pixels",t
? "total pixels",s+t
IF t=0 THEN ty=1
tye=t
?
? "************************************"
? "Doing BLIT - blit 0,0,0,0,100,100"
? " and re read of transition Y pixels."
? "************************************"

BLIT 0,0,0,0,100,100
s=0:t=0:i=0
? "reading ",tp," pixels after blit ..."
TIMER=0
FOR x1=0 TO hmax
 FOR y1=0 TO vmax
   i=i+1
   'c=RGB(x1<<3 AND &HF8,(x1+y1)<<2 and &HFC,y1<<3 and &HF8)
   IF y1 MOD 2 THEN c=RGB(BLACK) ELSE c=myWHITE
   r=PIXEL (x1,y1)
   'if r<>c then r=PIXEL (x1,y1) 'reread
   c=c AND rgbmask
   IF r=c THEN
     s=s+1
   ELSE
     IF t=0 THEN ? "Pixels not read as written"
     IF t<maxprint THEN printerror
     t=t+1
   ENDIF
   IF i>10000 THEN
     ? ".";
     i=0
   ENDIF  
 NEXT
NEXT
 ?
 ? TIMER," mSec"
 ? "correct pixels ",s
 ? "incorrect pixels ",t
 ? "total pixels",s+t
 IF t=0 THEN tby=1
 tbye=t
ENDIF

'*********************************************************************************************************************
? "************************************"
? "BLIT TEST OF BLACK ON WHITE TEXT"
? "************************************"
? "writing ",tp," pixels..."
CLS
s=0:t=0:i=0
TIMER=0
TEXT 1,20,"IMHO",,2,2,myWHITE,RGB(BLACK):TEXT 1,60,"IMHO",,2,2,RGB(BLACK),myWHITE
PAUSE 1000
IF blitsupport=1 THEN
 BLIT 0,0,100,0,100,100
 
 '? timer," mSec"
 ? "verifying TEXT",tp," pixels..."
TIMER=0
FOR x1=0 TO hmax
 FOR y1=0 TO vmax
   i=i+1
   c=PIXEL(x1+100,y1)
   r=PIXEL (x1,y1)
 
   IF r=c THEN
     s=s+1
   ELSE
     IF t=0 THEN ? "TEXT Pixels not matched in BLIT area"
     IF t<maxprint THEN printerror
     t=t+1
   ENDIF
   IF i>10000 THEN
     ? ".";
     i=0
   ENDIF  
 NEXT
NEXT
 
 ?
 ? TIMER," mSec"
 ? "correct pixels ",s
 ? "incorrect pixels ",t
 ? "total pixels",s+t
 IF t=0 THEN tbt=1
 tbte=t
ENDIF


'***************************************************************************************************************
IF getscanlineSupported=1 THEN
 ? "************************************"
 ? "   Testing GETSCANLINE() Range      "
 ? "************************************"


 
 CLS
 TEXT MM.HRES/2,(MM.VRES/2)-50,"testing ...","CM",1,3,RGB(WHITE)
 TEXT MM.HRES/2,MM.VRES/2,"testing ...","CM",1,3,RGB(RED)
 TEXT MM.HRES/2,(MM.VRES/2)+50,"testing ...","CM",1,3,RGB(WHITE)
 
 
 
 'pause 3000

 
 
 'getscanline() testing
 top=0
 t=1000
 bottom=1000
  FOR s=1 TO MM.HRES*100
  t=getscanline()
  top=MAX(t,top)
  bottom=MIN(t,bottom)
 
NEXT s
ENDIF

CLS

? "**************************************************"
? "  TRANSPARENT TEXT TEST                          "
? "**************************************************"

 MMVRES=MM.VRES
 MMHRES=MM.HRES
 POKE DISPLAY HRES 308
 POKE DISPLAY VRES 108
 CLS RGB(BLUE)
 POKE DISPLAY HRES MMHRES
 POKE DISPLAY VRES MMVRES
 BOX 0,0,300,100,,RGB(green),RGB(green)
 
 IF blitsupport=1 THEN
   TEXT 150,30,"TRANSPARENT",CM,2,2,RGB(RED),-1
   TEXT 150,70,"TEXT",CM,2,2,RGB(RED),-1
 ELSE
   TEXT 150,30,"TRANSPARENT",CM,2,2,RGB(RED),-1
   TEXT 150,70,"NO SUPPORT",CM,2,2,RGB(RED),-1
 ENDIF
 


? "******************************************"
? "              TEST RESULTS                  "
? "********************************************"
? "DEVICE     ",MM.DEVICE$
? "LCDPANEL   ",MM.INFO$(LCDPANEL)
'? "LCDPANELID ",MM.INFO$(LCDPANELID)
? "Size ",MM.HRES,"x",MM.VRES
'if getscanlineSupported=1 then
'  ? "LCD ID1    ",hex$(getscanline(1),2)
'  ? "LCD ID2    ",hex$(getscanline(2),2)
'  ? "LCD ID3    ",Hex$(getscanline(3),2)
'end if
IF blitsupport=1 THEN
 IF pwr THEN ? vt100.colour$("GREEN")+"Pixel write/read by gradiant OK" ELSE ? vt100.colour$("RED")+"Pixel write/read by gradiant FAILED!!!!!!!!!! " +STR$(pwre) +" pixels"
 IF pb THEN ? vt100.colour$("GREEN")+"Pixel blit by gradiant OK" ELSE  ? vt100.colour$("RED")+"Pixel blit  by gradiant FAILED!!!!!!!!!!!! " +STR$(pbe) +" pixels"
 IF tx THEN ? vt100.colour$("GREEN")+"Pixel write/read for all bit X transition OK" ELSE  ? vt100.colour$("RED")+"Pixel write/read for all bit X transition FAILED!!!!!!!!!! " +STR$(txe) +" pixels"
 IF tbx THEN ? vt100.colour$("GREEN")+"Pixel blit for all bit X transition OK" ELSE  ? vt100.colour$("RED")+"Pixel blit for all bit X transition FAILED!!!!!!! " +STR$(tbxe) +" pixels"
 IF ty THEN ? vt100.colour$("GREEN")+"Pixel write/read for all bit Y transition OK" ELSE  ? vt100.colour$("RED")+"Pixel write/read for all bit Y transition FAILED!!!!!!!!! " +STR$(tye) +" pixels"
 IF tby THEN ? vt100.colour$("GREEN")+"Pixel blit for all bit Y transition OK" ELSE  ? vt100.colour$("RED")+"Pixel blit for all bit Y transition FAILED!!!!!!!!!! " +STR$(tbye) +" pixels"
 IF tbt THEN ? vt100.colour$("GREEN")+"TEXT blit for Black on White OK" ELSE  ? vt100.colour$("RED")+"TEXT blit for Black on White FAILED!!!!!!!!!! " +STR$(tbte) +" pixels"
ENDIF
? vt100.colour$("RESET")
IF pir THEN
 IF blitsupport=1 THEN
    ? vt100.colour$("GREEN")+"LOAD IMAGE and test of pixels as loaded OK"
  ENDIF  
ELSE
 IF MM.INFO$(SDCARD)="Ready" THEN
   IF blitsupport=1 THEN
     IF pire>0 THEN
      ? vt100.colour$("RED")+"LOAD IMAGE  and test pixels FAILED!!!!!!!!!!! " +STR$(pire) +" pixels"
     END IF
   ELSE
    ? vt100.colour$("MAGENTA")+"LOAD IMAGE  Done - visually check it appear on screen"
   ENDIF
 ELSE
   ? vt100.colour$("YELLOW")+"LOAD IMAGE not TESTED - NO SDCARD"
 ENDIF
ENDIF
IF pirw THEN
  IF blitsupport=1 THEN
   ? vt100.colour$("GREEN")+"SAVE IMAGE then LOAD IMAGE and test of pixels as loaded OK"
  ENDIF  
ELSE
 IF MM.INFO$(SDCARD)="Ready" THEN
   IF blitsupport=1 THEN
    ? vt100.colour$("RED")+"SAVE IMAGE then LOAD IMAGE  and test pixels FAILED!!!!!!!!!!! " +STR$(pirwe) +" pixels"
   ELSE
    ? vt100.colour$("MAGENTA")+"LOAD IMAGE  OK - visually check it appears on screen"
   ENDIF
 ELSE
   ? vt100.colour$("YELLOW")+"SAVE IMAGE/LOAD IMAGE not TESTED - NO SDCARD"
 ENDIF
ENDIF
IF blitsupport=1 THEN
? vt100.colour$("MAGENTA")+"TRANSPARENT TEXT tested - Check on display if OK"
? vt100.colour$("YELLOW")
ELSE
? "BLIT, TRANSPARENT TEXT and Read PIXEL() not supported on this LCDPANEL"
ENDIF
IF getscanlineSupported=1 THEN
? "GETSCANLINE() Range ",bottom,"-",top
ELSE
? "GETSCANLINE() Not Supported on this display"
ENDIF
IF backlightSupported=1 THEN
? "Backlight Supported on this display "
ELSE
? "Backlight Not Setup/Supported on this display"
ENDIF
'? "COM1 Baudrate ",BAUDRATE(1,1)
'? "COM2 Baudrate ",BAUDRATE(2,1)
'? "COM3 Baudrate ",BAUDRATE(3,1)
'? "COM4 Baudrate ",BAUDRATE(4,1)
'? "Battery Voltage ",PIN(BAT)
'? "Battery Voltage ",PIN(BAT)
'? "Battery Voltage ",PIN(BAT)
'OPTION VCC 3.3
'OPTION VCC 3.3 * PIN(SREF) / PIN(IREF)
'? "**** AFTER VCC is adjusted ********"
'? "Battery Volatge ",PIN(BAT)
'? "Battery Volatge ",PIN(BAT)
'? "Battery Volatge ",PIN(BAT)

'CLS
TEXT MM.HRES/2,(MM.VRES/2)-20,"Complete","CM",1,4,RGB(WHITE)
TEXT MM.HRES/2,(MM.VRES/2)+30,"Complete","CM",1,4,RGB(RED)
TEXT MM.HRES/2,(MM.VRES/2)+80,"Complete","CM",1,4,RGB(WHITE)
? vt100.colour$("RESET")  
PAUSE 1000
POKE DISPLAY &H28
PAUSE 2000
POKE DISPLAY &H29
IF (pwre+pbe+txe+tye+tbxe+tbye+tbte+pire+pirwe=0) THEN
 INC TESTCOUNT
 GOTO TESTSTART
ELSE  
 ? vt100.colour$("RED")
 ? " !!!! test " + STR$(TESTCOUNT)+" Failed !!!"
 ? vt100.colour$("RESET")
 INC TESTFAILED
 INC TESTCOUNT
 GOTO TESTSTART
END IF  

SUB printerror
       ?
       ? LEFT$(BIN$(c,24),8)+" "+MID$(BIN$(c,24),9,8)+" "+RIGHT$(BIN$(c,24),8)+" @ "+STR$(x1)+","+STR$(y1)
       ? LEFT$(BIN$(r,24),8)+" "+MID$(BIN$(r,24),9,8)+" "+RIGHT$(BIN$(r,24),8)      
       IF retry THEN
         r=PIXEL (x1,y1)
         IF r=c THEN
           ok$=" OK"
         ELSE
           ok$=""
         ENDIF
         '? left$(BIN$(c,24),8)+" "+mid$(BIN$(c,24),9,8)+" "+right$(BIN$(c,24),8)+" ReDo "+str$(x1)+","+str$(y1)
         ? LEFT$(BIN$(r,24),8)+" "+MID$(BIN$(r,24),9,8)+" "+RIGHT$(BIN$(r,24),8)+" Retry "+ ok$
       ENDIF  
END SUB

'#Include "../vt100.inc"
FUNCTION vt100$(s$)
 vt100$ = CHR$(27) + "[" + s$
END FUNCTION

FUNCTION vt100.colour$(c$)
 SELECT CASE LCASE$(c$)
   CASE "black"   : vt100.colour$ = vt100$("30m")
   CASE "red"     : vt100.colour$ = vt100$("31m")
   CASE "green"   : vt100.colour$ = vt100$("32m")
   CASE "yellow"  : vt100.colour$ = vt100$("33m")
   CASE "blue"    : vt100.colour$ = vt100$("34m")
   CASE "magenta", "purple" : vt100.colour$ = vt100$("35m")
   CASE "cyan"    : vt100.colour$ = vt100$("36m")
   CASE "white"   : vt100.colour$ = vt100$("37m")
   CASE "reset"   : vt100.colour$ = vt100$("0m")
   CASE "cls"   : vt100.colour$ = vt100$("2J")     'Clear Display
   CASE "home"   : vt100.colour$ = vt100$("H")     'Home Cursor
   CASE ELSE      : ERROR "Unknown VT100 colour: " + c$
 END SELECT
END FUNCTION