symbol latchout=1
symbol lcddata=1
symbol lcdinst=0
symbol outbyte=b0
symbol rs=b1
symbol counter=b2
symbol nblcount=b3
rs=lcdinst
'for counter=0 to 5
'lookup counter, ($33,$32,$28,$0C,$01,$06), outbyte
'gosub lcdout
'next counter
outbyte = $33
gosub lcdout
outbyte = $32
gosub lcdout
outbyte = $28
gosub lcdout
outbyte = $0C
gosub lcdout
outbyte = $01
gosub lcdout
outbyte = $06
gosub lcdout
loop1:
rs=lcdinst
outbyte=$80
gosub lcdout
rs=lcddata
'for counter=0 to 4
'lookup counter, ("Hello"),outbyte
'gosub lcdout
'next counter
outbyte = "H"
gosub lcdout
outbyte = "e"
gosub lcdout
outbyte = "l"
gosub lcdout
outbyte = "l"
gosub lcdout
outbyte = "o"
gosub lcdout
goto loop1
lcdout:
for nblcount=1 to 2
pins=outbyte&$F0| 2| rs
low latchout
outbyte=outbyte*16
next nblcount
return