'**************************************************************************
'* Name        : Timer-Ton
'* Function    : First Steps Example
'* Hardware    : aTeVaL Evaluation Board - http://www.ehajo.de
'**************************************************************************
'* Compiler    : lunaAVR 2013.r4 (or newer)
'**************************************************************************
'* Author      : rgf, avr@myluna.de
'* Date/Version: 16.08.2013
'* www         : http://avr.myluna.de
'**************************************************************************
' µC-Belegung am Beispiel Atmega328p
' Summer:  PortD.7 !Die Lötbrücke "SPKR" auf der Lötseite muss geschlossen sein!
' Taste1:  PortD.2
' Taste2:	PortD.3
'**************************************************************************

avr.device = atmega328p		'Controller-Typ festlegen
avr.clock = 8000000			'Dem Compiler mitteilen mit welcher Taktrate der Controller läuft
avr.stack = 64				'Den Programmstack einstellen

'Die Port-Pins der Taster und des Summers mit einem Bezeichner
'versehen. Dies zur besseren Lesbarkeit im Quelltext
#define SUMMER as PortD.7
#define TASTE1 as PortD.2
#define TASTE2 as PortD.3

'Diese Werte berechnen sich aus "8MHz / Frequenz des Tones / 2"
'Sollte ein anderer CPU-Takt verwendet werden muessen
'die Werte neu berechnet werden.
#define TON_C		as 15152
#define TON_CIS		as 14545
#define TON_D		as 13468
#define TON_ES		as 12618
#define TON_E		as 12121
#define TON_F		as 11364
#define TON_FIS		as 10899
#define TON_G		as 10101
#define TON_GIS		as 9479
#define TON_A		as 9091
#define TON_B		as 8421
#define TON_H		as 8081
#define TON_CC		as 7576
#define TON_CCIS	as 7273
#define TON_DD		as 6734
#define TON_EES		as 6309
#define TON_EE		as 6061
#define TON_FF		as 5682
#define TON_FFIS	as 5450
#define TON_GG		as 5051
#define TON_GGIS	as 4740
#define TON_AA		as 4546
#define TON_BB		as 4211
#define TON_HH		as 4041

SUMMER.mode	= output,low	'Summer als Ausgang
TASTE1.mode	= input,pullup	'Taste1 als Eingang, Pullup einschalten
TASTE2.mode	= input,pullup	'Taste2 als Eingang, Pullup einschalten

'Den Timer1 Konfigurieren
'Taktteiler des Timers einstellen auf 1:1 (8 Mhz)
Timer1.Clock = 1
'Compare-Interrupt aktivieren
Timer1.CmpA.Isr = timer1_compare
'CTC-Mode aktivieren (Zähler setzt sich selbsttätig zurück)
Timer1.CmpA.Clear.enable

' Outputcompare-Register setzen, hier fuer Ton A
' Um einen anderen Ton auszugeben muss man hier
' einen anderen Wert aus den Defines eintragen
Timer1.CmpA.Value = TON_C

'Globale Interrupts einschalten
Avr.Interrupts.Enable

'Hauptschleife
do
  if TASTE1=0 then
    'Taste 1 wurde gedrueckt, Ton starten
    Timer1.CmpA.enable
  end if
  if TASTE2=0 then
    'Taste 2 wurde gedrueckt, Ton aus
    Timer1.CmpA.disable
  end if
loop

isr timer1_compare
  SUMMER.toggle
endisr