'test40X4
$regfile = "m1284pdef.dat"
$crystal = 11052000
$hwstack = 375
$swstack = 200
$framesize = 200
Config Submode = New
$sim
'---lcd --------------------------------------------------------------------
Config Lcdpin = Pin , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5 , E = Porta.1 , Rs = Porta.0
'Config Lcd = 40 * 4
Config Lcd = 20 * 4
' test lcd
'Locate 1 , 1 : Lcd "123456789A123456789A123456789A123456789A"
'Locate 2 , 1 : Lcd "123456789B123456789B123456789B123456789B"
'Locate 3 , 1 : Lcd "123456789C123456789C123456789C123456789C"
'Locate 4 , 1 : Lcd "123456789D123456789D123456789D123456789D"
' test lcd
Locate 1 , 1 : Lcd "123456789A123456789A"
Locate 2 , 1 : Lcd "123456789B123456789B"
Locate 3 , 1 : Lcd "123456789C123456789C"
Locate 4 , 1 : Lcd "123456789D123456789D"
'(
Locate 1 , 1 : Lcd "123456789A123456789A"
Locate 2 , 1 : Lcd "123456789B123456789B"
Thirdline
Lcd "123456789C123456789C"
Fourthline
Lcd "123456789D123456789D"
')
End |