'Testprogramm für Sebo
$regfile = "m8def.dat"
$crystal = 1000000
'$hwstack = 128
'$swstack = 128
'$framesize = 128
Ddrc = &B11_1111 '1 ist Ausgang 0 ist Eingang
Portc = &B00_0000 'auf Hi oder Low setzen
'Ddrd = &B1111_1111 '1 ist Ausgang 0 ist Eingang
'Portd = &B0000_0000 'auf Hi oder Low setzen
'Ddrb = &B1111_1111 '1 ist Ausgang 0 ist Eingang
'Portb = &B0000_0000 'auf Hi oder Low setzen
' Configuriere das LCD
'some routines to control the display are in the glcdKS108.lib file
$lib "glcdKS108.lib"
Config Graphlcd = 128 * 64sed , Dataport = Portb , Controlport = Portd , Cd = 0 , Rd = 1 , Ce = 4 , Ce2 = 3 , Enable = 2 , Reset = 5
'Enable Interrupts
'---------------------------------------------------
'Dim variables
Dim Y As Byte
Glcdcmd &H3E , 1 : Glcdcmd &H3E , 2 ' both displays off
Cls
Waitms 50
Glcdcmd &H3F , 1 : Glcdcmd &H3F , 2 'both on
Waitms 50
Setfont Font8x8
Cls
Portc.5 = 0
Wait 1
' Arbeitsschleife----------------------------------
Do
Portc.5 = 1
Lcdat 1 , 1 , "Testprogramm"
Lcdat 2 , 1 , "GLCD KS0108"
Lcdat 3 , 1 , "AVR-ATMega8"
Lcdat 4 , 1 , "Cassio"
Lcdat 5 , 1 , "AVR-Praxis.de"
Lcdat 6 , 1 , "fuer"
Lcdat 7 , 1 , "Sebo"
Lcdat 8 , 1 , "Bitte sehr !"
Wait 3
Portc.5 = 0
For Y = 0 To 63
Line(0 , Y) -(127 , Y) , 1 'Vorhang runter
Waitms 5
Next X
Wait 1
Portc.5 = 1
For Y = 0 To 63
Line(0 , Y) -(127 , Y) , 0 'Vorhang löschen
Waitms 5
Next X
Portc.5 = 0
Wait 1
Loop
' #############################################################################
End 'end program
' ------------------------------------------------------------------------------
$include "font8x8.font"