'=========================================================
' File........JP Serial GLCD 128x64 Module Test.BSP
' Purpose.....This test code use JP SerGLCD Module and BS2P
' Auther......Jianping Sun
' Email.......JP@JianpingUSA.com
' WebSite.....www.JianpingUSA.com
' Started.....Feb 18, 2010
' Updated.....
'========================================================
' {$STAMP BS2p}
' {$PBASIC 2.5}

SOUT          PIN     0            ' Serial output for GLCD
S_IN          PIN     1            ' Serial input  for GLCD
I2CPin        PIN     8            ' I2C Input/Ouput pin.
EE_Adr        VAR     Word         ' EEProm 24LC128 Address
idx           VAR     Word         ' For loop
ImageDat      VAR     Byte         ' Pass data


#SELECT $STAMP
  #CASE BS2, BS2E, BS2PE
    T1200       CON     813
    T2400       CON     396
    T4800       CON     188
    T9600       CON     84
    T19K2       CON     32
    T38K4       CON     6
  #CASE BS2SX, BS2P
    T1200       CON     2063
    T2400       CON     1021
    T4800       CON     500
    T9600       CON     240
    T19K2       CON     110
    T38K4       CON     45
  #CASE BS2PX
    T1200       CON     3313
    T2400       CON     1646
    T480        CON     813
    T9600       CON     396
    T19K2       CON     188
    T38K4       CON     84
#ENDSELECT

Inverted        CON     $4000
Baud            CON     T19K2 '+ Inverted

'==============================================================
'                         Main program
'==============================================================
Main:
    PAUSE 2000
    EE_Adr = 0
    GOSUB LoadImage_0    'Load Image Data to CGRam_0, Show image from CGRam_0
    PAUSE 100
    GOSUB LoadImage_1    'Load Image Data to CGRam_1, Show image from CGRam_1
    PAUSE 100
    GOSUB LoadImage_0    'Load Image Data to CGRam_0, Show image from CGRam_0
    PAUSE 100
    GOSUB LoadImage_1    'Load Image Data to CGRam_1, Show image from CGRam_1
    PAUSE 100
    GOSUB LoadImage_0    'Load Image Data to CGRam_0, Show image from CGRam_0
    PAUSE 100
    GOSUB LoadImage_1    'Load Image Data to CGRam_1, Show image from CGRam_1
    PAUSE 100
    GOSUB LoadImage_0    'Load Image Data to CGRam_0, Show image from CGRam_0
    PAUSE 100
    GOSUB LoadImage_1    'Load Image Data to CGRam_1, Show image from CGRam_1
    PAUSE 2000
    GOSUB ShowImage_0    'Show image from CGRam_0
    PAUSE 2000
    GOSUB ShowImage_1    'Show image from CGRam_1
END
'===================== Load Image Data to CGRam_0 =======================
LoadImage_0:
    SEROUT SOUT, Baud, [$41]   ' Send Command to CGRam_0 for load picture
    SEROUT SOUT, Baud, [250]
    PAUSE 100
    FOR idx = 0 TO 1023
        I2CIN I2CPin, $A1, EE_Adr.BYTE1\EE_Adr.BYTE0,[ImageDat]
        SEROUT SOUT, Baud, [ImageDat]
        EE_Adr = EE_Adr + 1
    NEXT
    PAUSE 100
'----------------------- Show Image from CGRam_0 ------------------------
ShowImage_0:
    SEROUT SOUT, Baud, [$43]   ' Send Command to CGRam_0 for show picture
    SEROUT SOUT, Baud, [250]
RETURN
'===================== Load Image Data to CGRam_1 =======================
LoadImage_1:
    SEROUT SOUT, Baud, [$42]   ' Send Command to CGRam_1 for load picture
    SEROUT SOUT, Baud, [250]
    PAUSE 100
    FOR idx = 0 TO 1023
        I2CIN I2CPin, $A1, EE_Adr.BYTE1\EE_Adr.BYTE0,[ImageDat]
        SEROUT SOUT, Baud, [ImageDat]
        EE_Adr = EE_Adr + 1
    NEXT
    PAUSE 100
'----------------------- Show Image from CGRam_1 ------------------------
ShowImage_1:
    SEROUT SOUT, Baud, [$44]   ' Send Command to CGRam_1 for show picture
    SEROUT SOUT, Baud, [250]
RETURN