Example Initialization Program
//‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐
Sub Writecom
P1 = A 'move data to port 1
Set P3.0 'set I/D for instruction
Reset P3.1 'reset /CS
Reset P3.4 'reset /WR
Set P3.1 'set /CS
Set P3.4 'set /WR
End Sub
Sub Writedata
P1 = A 'move data to port 1
Reset P3.0 'reset I/D for instruction
Reset P3.1
Reset P3.4 'toggle /CS and /WR
Set P3.1
Set P3.4
End Sub
//‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐‐
Sub Init
Set P3.6
Set P3.7
Reset P3.3 'reset FS
A = &H00
Call Writedata
Call Writedata 'text address = 0000h
A = &H40
Call Writecom 'text home address set
A = &H00
Call Writedata
A = &H40 'graphic home address = 4000h
Call Writedata
A = &H42
Call Writecom 'graphic home address set
A = &H1E
Call Writedata
A = &H00 'text area address = 001Eh
Call Writedata
A = &H41
Call Writecom 'text area control set
A = &H1E
Call Writedata
A = &H00 'graphic area = 001Eh
Call Writedata
A = &H43
Call Writecom 'graphic area control set
A = &H80
Call Writecom 'set display mode
End Sub
[8]