'JP Duval le 08/10/2004
' 4° programme timer2, counter2, compare sur le M8
' cet exemple est inspiré à 99% de :
'------------------------------------------------------------
'                      MEGACLOCK.BAS
'                  (c) 2000-2004 MCS Electronics
'------------------------------------------------------------

'Timer2 est un des 3 timer du M8, c'est un timer sur 8 bits
'utilisable en Timer pour déclencher un événement aprés x périodes
'ou utilisable en compteur d'événements Counter
'ou  en générateur PWM (8bit)
'Pour ces fonction voir "interrupton Timer0.bas" et interruption Timer1.bas"
' timer2 est utilisé aussi pour l'horloge temps réel
' dans ce cas on place un quartz de 32KHz (quartz horloger) sur les entrées
'OCS1 PortB.6 et OCS2 PortB.7   on peut ajouter un condensateur
'de quelques pF(22,47) entre une broche et la masse si l'horloge ne démarre pas
'le M8 doit être en horloge interne, ce n'est pas le cas du M32 par exemple
'voir la data sheet, pour le brochage.
'cette fonction ne marche que si le timer2 accepte d'être réglé Asynchrone
'-(voir datasheet)  ce n'est pas le cas de tous les ATMEL-AVR

Dim J As Word , K As Word
' -------[ config ]-----------------------------------
' les config doivent être écrites sans retour à la ligne.
Config Lcdmode = Port       ' config  4 bit
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5
Config Lcd = 16 * 2
Wait 1
Enable Interrupts
Config Date = Dmy , Separator = /
Config Clock = Soft

Date$ = "09/10/04"
Time$ = "12:12:00"
Cls
Do
  Home
  Locate 1 , 1 : Lcd Date$
  Locate 2 , 1 : Lcd Time$
Loop
End       'end program