[10]
Example Initialization Program
'INIT--------------------------------------------------------------------------------
A = &H30
Call Writecom
'wake up
Waitms 100
Call Writecom
'wake up
Waitms 10
Call Writecom
'wake up
Waitms 10
A = &H38
'function set
Call Writecom
A = &H10
'shift display=no
Call Writecom
A = &H0C
'display on
Call Writecom
A = &H06
'entry mode set
Call Writecom
'------------------------------------------------------------------------------------
Sub Writecom
P1 = A
Reset P3.0
'instruction
Reset P3.7
'RW
Waitms 1
Set P3.4
'E
Waitms 1
Reset P3.4
'E
End Sub
'------------------------------------------------------------------------------------
Sub Writedata
P1 = A
Set P3.0
'data
Reset P3.7
'RW
Waitms 1
Set P3.4
'E
Waitms 1
Reset P3.4
'E
End Sub
'------------------------------------------------------------------------------------