option explicit
option default NONE
initdisplay(16,15) 'Reset on pin 16, Chip select on pin 15
cursoron
pstring("World",9,0)
pause 375 'pause to allow cursor to flash and check it gets corrected
pstring("Hello my",0,0)
pause 375
pstring("World",10,3)
pause 375
pstring("Hello my",1,3)
pause 8000
cursoroff
cls
end
'
sub initdisplay(rs as integer,cs as integer)
DIM integer LCD_RESET=rs
DIM integer LCD_CS=cs
DIM integer LCD_CMD=&B11111000
DIM integer LCD_DATA=&B11111010
dim screen$(4) length 16 'memory map used to get round the problems of single character output
dim integer cursorx,cursory,cursorstate,lastx, lasty, cursoronoff
spi open 1000000,3,8
pin(LCD_RESET)=1
pin(LCD_CS)=1
setpin LCD_RESET,dout
setpin LCD_CS,dout
pin(LCD_RESET)=0
pause 200
PIN(LCD_RESET)=1
pause 200
PIN(LCD_CS)=1 ' continuous enable for the moment
sendCMD(1) 'DISPLAY CLEAR
sendCMD(&B00001100) 'display on
cls
end sub
'
sub cls 'clear screen
sendCMD(1) 'DISPLAY CLEAR
screen$(0)=" "
screen$(1)=" "
screen$(2)=" "
screen$(3)=" "
cursorx=0
cursory=0
end sub
'
sub sendbytes(databyte1 as integer,databyte2 as integer)
local integer i
i=SPI(LCD_DATA)
i=spi(DATABYTE1 AND &HF0)
i=spi((DATABYTE1 and &H0F)<<4)
i=spi(DATABYTE2 AND &HF0)
i=spi((DATABYTE2 and &H0F)<<4)
end sub
'
sub sendCMD(databyte as integer)
local integer i,J
i=SPI(LCD_CMD)
i=spi(DATABYTE AND &HF0)
i=spi((DATABYTE and &H0F)<<4)
pause 2
end sub
'
sub goto2xy(x as integer, y as integer)
local integer command
command=&H80
command=command or (x and &H07)
command=command or ((Y mod 2)<<4)
if y>1 then command=command or 8
sendCMD(command)
end sub
'
sub pstring(instring$,x%,y%)
settick 0,0,1
goto2xy(0,y%)
local i%,j%,k%
for i%=1 to len(instring$)
poke var screen$(y%),i%+x%,asc(mid$(instring$,i%,1)) 'update the memory image
next i%
for i%=1 to 16 step 2
j%=peek(var screen$(y%),i%)
k%=peek(var screen$(y%),i%+1)
sendbytes(j%,k%)
next i%
cursory=y%
cursorx=x%+len(instring$)
if cursoronoff then settick 400,blink,1
end sub
'
sub cursoron
cursorstate=1
cursoronoff=1
settick 400,blink,1
end sub
'
sub cursoroff
cursorstate=0
cursoronoff=0
blink
settick 0,0,1
end sub
'
sub blink
local i%,j%,k%
if cursorstate then
goto2xy(cursorx\2,cursory)
lastx=cursorx
lasty=cursory
if cursorx mod 2 then 'odd position
j%=peek(var screen$(cursory),cursorx)
k%=&H5F
else
j%=&H5F
k%=peek(var screen$(cursory),cursorx+2)
endif
cursorstate=0
else
goto2xy(lastx\2,lasty)
if lastx mod 2 then 'odd position
j%=peek(var screen$(lasty),lastx)
k%=peek(var screen$(lasty),lastx+1)
else
j%=peek(var screen$(lasty),lastx+1)
k%=peek(var screen$(lasty),lastx+2)
endif
cursorstate=1
endif
sendbytes(j%,k%)
end sub