Example Initialization Program
'-------------------------------------------------------------------------------
'DB0-DB7
7-14
P1
'CS2
16
P3.6
'CS1
15
P3.1
'RST
17
P3.2
'R/W
5
P3.7
'D/I
4
P3.0
'E
6
P3.4
'-------------------------------------------------------------------------------
Sub Init
Reset P3.2
Set P3.2
Reset P3.4
Reset P3.0
Reset P3.7
Reset P3.6
Reset P3.1
A = &H3F
Call Comleft
'display on
Call Comright
'display on
End Sub
'-------------------------------------------------------------------------------
Sub Comleft
P1 = A
Set P3.6
Reset P3.0
Set P3.4
Reset P3.4
Reset P3.6
End Sub
Sub Comright
P1 = A
Set P3.1
Reset P3.0
Set P3.4
Reset P3.4
Reset P3.1
End Sub
Sub Writeleft
P1 = A
Set P3.6
Set P3.0
Set P3.4
Reset P3.4
Reset P3.6
End Sub
Sub Writeright
P1 = A
Set P3.1
Set P3.0
Set P3.4
Reset P3.4
Reset P3.1
End Sub
'-------------------------------------------------------------------------------
[8]