[8]?
?
Example?Initialization?Program?
?
'-------------------------------------------------------------------------------
'DB0-DB7 7-14 P1
'CS2B 16 P3.6
'CS1B 15 P3.1
'/RST 17 P3.2
'R/W 5 P3.7
'RS 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