Druckbare Version
Hmm..aber wenn Tonwert kein Register ist, dann meckert er hier:
mov tonwert, lpm_reg ;erstes Byte in tmp verschieben
[edit]
subi tonwert,255
Es ist aber immer noch ein Register...hmm...Also muss ich den Wert von Tonwert in einer Variable bringen...
bspw. in
.equ vorlader = 0?
klar, weil mov 2 Register als Argumente erwartetZitat:
Hmm..aber wenn Tonwert kein Register ist, dann meckert er hier:
mov tonwert, lpm_reg ;erstes Byte in tmp verschieben
aber was hälst Du von dem sub Befehl?
Du richtest Dir einen Register und belegst Ihn mit 255,
dann machst Du folgendes:
sub irgendein_register,tonwert
im irgendein_register bleibt dann was über, ich frag mich was...
Ähhmm..in irgendein_register bleibt dann 255-tonwert übrig. Aber das hilft mir doch nichts :o
Und dann hab ich ja beim Vorladen vom Timer immer noch ein Register :(
Thomas, lass Dich nicht hängen!Zitat:
Aber das hilft mir doch nichts Surprised
Und dann hab ich ja beim Vorladen vom Timer immer noch ein Register Sad
Schau:
ldi irgendein_register,0xFF
sub irgendein_register,tonwert
out TCNT0,irgendein_register
Na, hat es Klick gemacht?
Ach, mist. Ja sicher machts Klick *g*
Hab ja vorher immer noch in tmp und dann schön mit 255-x
Aber klar, oje *g*
Aber komisch anhören tut sich das. Vor allem macht er nicht immer dasselbe.
Einmal ist nur ein hoher Ton zu hören, einmal ist der hohe Ton zu hören und wechselt dann auf niederen Ton. Komisch irgendwie.
Eine andere und vielleicht auch bessere Möglichkeit, wäre es in der tonleiter1:
nicht 28,16,14 zu schreiben, sondern 256-28 -> 228 265-16 -> 240 256-14 -> 242
damit hast Du direkt den Wert mit dem der Timer geladen werden soll,
fiel mir gerade so ein.
Nu ob der Florian das so haben möchte weiß ich auch nicht
Stimmt, so spar ich mir ein Register. Florian wollt ja nur die Tonleiter haben ;) Aber die hört sich ja wie oben gesagt, komisch an:
Hier nochmal der aktuelle Code.Code:;Programm
;CDurTonleiter rauf und runter spielen
.include "m8def.inc"
.def tmp = r16 ;Mein Universallregister
.def zaehlerSek = r17 ;Mein Zählregister
.def zaehlerTon = r18 ;Mein Zählregister, um zu prüfen, ob alle Töne geladen wurden
.def tonwert = r19 ;aktueller Wert für den Ton
.def lpm_reg = r0 ;Mein lpm-Register
.equ Summer = PB2 ;Summer an B.2
.equ time0 = 256-255 ;Timer0 für die Tonleiter
.equ time2 = 256-90 ;Damit wird der Timer2 vorgeladen, für die Sekunde
.equ daten_laenge = 4 ;Anzahl der Werte
.org 0x000
rjmp reset ;Interruptvektor "reset:"
.org OVF2addr
rjmp pruefSek ;Interruptvektor "pruefSek:"
.org OVF0addr
rjmp timerSummer ;Interruptvektor "timerSummer:"
reset:
;Stack einrichten
ldi tmp, HIGH(RAMEND) ;HIGH-Byte der obersten RAM-Adresse
out SPH, tmp
ldi tmp, LOW(RAMEND) ;Low-Byte der obersten RAM-Adresse
out SPL, tmp
;Timer Register für Ton werden belegt, hier Timer 0
ldi tmp, (1<<CS02) ;Prescaler ist 512
out TCCR0, tmp ;Register TCCR0 ist für den Prescaller zuständig
ldi tmp, time0 ;Hier wird der Timer vorgeladen
out TCNT0, tmp
;Timer Register für Sekunde werden belegt, hier Timer 2
ldi tmp, (1<<CS22) | (1<<CS21) | (1<<CS20) ;Prescaler ist 1024
out TCCR2, tmp ;Register TCRR2 ist für den Prescaller zuständig
ldi tmp, (1<<TOIE0) | (1<<TOIE2);Hier werden Interrupts nach Timer0 Überlauf eingeschaltet
out TIMSK, tmp ;Register TIMSK ist dafür zuständig
;Z-Register mit daten1 füllen
ldi ZH, HIGH(tonleiter1 * 2)
ldi ZL, LOW(tonleiter1 * 2)
ldi zaehlerSek, 0b00000000 ;ZählerSek auf 0 setzen
sbi DDRB, Summer ;B.2 als Ausgang
sbi PORTB, Summer ;B.2 auf HIGH stellen
sei ;Interrupts zulassen
;Die Hauptschleife
main:
cpi zaehlerSek, 0b00010100 ;wenn ZählerSek != 40 ist
brne main ;dann immer wieder zu "main:" springen
;Wenn eine Sekunde um ist, dann springe hier rein
;und prüfe, ob es noch einen Wert für die Tonleiter
;zu laden gibt, wenn nicht, spring wieder zurück zu main
pruefTonleiter:
clr zaehlerSek ;Zähler auf 0 setzen
cpi zaehlerTon, 0b11111111 ;Wenn ZählerTon != 255 ist
brne ladeTon ;dann spring zu "ladeTon:"
rjmp main ;sonst wieder zurück zu "main:"
;Wird aufgerufen, wenn Timer2 überläuft (Timer für Sekunde)
;Hier wird das Zählregister für den Timer um 1 erhöht und der
;Timer neu geladen
pruefSek:
push tmp ;tmp sichern
in tmp, SREG ;SREG sichern
push tmp
inc zaehlerSek ;ZählerSek um 1 erhöhen
ldi tmp, time2 ;Hier wird der Timer vorgeladen
out TCNT2, tmp
pop tmp ;SREG wiederholen
out SREG, tmp
pop tmp ;tmp wiederholen
reti ;wieder dahin, wo du hergekommen bist
;Wenn 1 Sekunde vorbei ist und es noch einen Ton gibt,
;der noch nicht geladen ist dann springe hier hin und
;lade den nächsten Wert von der Datenbank "tonleiter"
ladeton:
clr zaehlerSek ;Zähler wieder auf 0 setzen
lpm ;Daten von tonleiter1: holen
mov tonwert, lpm_reg ;erstes Byte in tmp verschieben
adiw ZL,1 ;Z um 1 erhöhen, nächstes Byte
ldi tmp, LOW ((tonleiter1 * 2) + daten_laenge) ;vergleiche LOW-Byte
cp ZL, tmp
ldi tmp, HIGH ((tonleiter1 * 2) + daten_laenge) ;vergleiche HIGH-Byte
cpc ZH, tmp
breq endeTon ;springe zu "endeTon:", wenn letztes Byte ausgelesen
rjmp main ;wieder zurück zur "main:"
;Wenn alle Töne geladen sind, dann wird das Register "zaehlerTon"
;auf 255 gesetzt
endeTon:
ldi zaehlerTon, 0b11111111 ;ZählerTon auf 255 setzen -> keine weiteren Wert
;mehr von "tonleiter1:" holen
rjmp main ;wieder zurück zu "main:"
;Wird aufgerufen, wenn Timer0 überläuft (Timer für Ton)
;Hier wird geprüft, ob an B.2 HIGH oder LOW anliegt
;und dementsprechend umgesetzt
timerSummer:
push tmp ;tmp sichern
in tmp, SREG ;SREG sichern
push tmp
sbis PINB, Summer ;überspringe, wenn B.2 = 1 ist
rjmp timerSummer1 ;wenn B.2 = 0 ist, dann spring zu "umschalten1:"
cbi PORTB, Summer ;wenn B.2 = 1 ist, dann B.2 auf 0 setzen
rjmp timerSummer2 ;zu "timerSummer2:" springen
timerSummer1:
sbi PORTB, Summer ;wenn B.2 = 0 ist, dann auf 1 setzen
;Hier wird Timer0 mit dem aktuellen Tonwert vorgeladen
timerSummer2:
out TCNT0, tonwert ;Timer dementsprechen vorladen
rjmp timerSummer4 ;zu "timerSummer4:" springen
timerSummer4:
pop tmp ;SREG wiederholen
out SREG, tmp
pop tmp ;tmp wiederholen
reti
;Das sind die Werte, womit der Timer0 (Tonleiter-Timer) vorgeladen wird
tonleiter1:
.db 255-28, 255-16, 255-14, 0 ;Werte zum Vorladen des Timers für die Töne
;c', a' und c''
Naja,Zitat:
Einmal ist nur ein hoher Ton zu hören, einmal ist der hohe Ton zu hören und wechselt dann auf niederen Ton. Komisch irgendwie.
1. man muß 256 - tonwert nehmen, mit dem sub machen wir aber 255- tonwert,
ich denke, es verfälscht den Ton irgendwie.
Ich falle selber immerwieder auf 255 rein ](*,)
2. Es muß micht heißen, daß Dein Programm 100% funktioniert,
Wie war das Du hörst nur 2 Töne?
Ich hatte eigentlich daran gedacht im Programm vorher das abzuziehen, nicht von vorneherein im Datenspeicher, aber das können wir auch machen!
hey leute,
dieses Tutorial ist der hammer!!! Gerade arbeitete ich mich durch jeden Thread durch! Und hab jetzt endlich die Timer verstanden!!
Gruß Michi
@ Florian, sorry ich hoffe, Du bist mir nicht böse
@Michi
Ich freue mich daß Du auch gefallen an unserem Tutorial gefunden hast.
Ich muss euch echt loben *g* ist echt anfängertauglich!
Gruß Michi
Warum sollte ich das sein?Zitat:
sorry ich hoffe, Du bist mir nicht böse
So, habs jetzt mal mit extremeren Werten probiert, damit man besser den Unterschied hört:
.db 256-117, 256-16, 256-2, 0
2 Fehler hab ich noch drinne:
1.
Also wenn ich den Mikrocontroller einschalte (also Strom an), dann spielt er die drei Töne hintereinander ab. Also zuerst 256-117, dann 256-16 und dann 256-2, das soll er ja auch, doch dann spielt er noch einen Ton ab, den ich gar nicht aufgeführt hab. Auch einen hohen Ton, der noch höher ist als 256-2 ist. Und dann spielt er noch ein Ton, der wieder 256-117 entspricht. Also er spielt 5 Töne ab.
2:
Wenn ich den Mikrocontroller dann ausschalte und dann wieder anschalte, dann spielt er die Tonleiter nicht mehr ab, sondern spielt nur den niedrigsten Ton ab. Ich muss also ne Zeit lang warten, bis er wieder die Töne hintereinander spielt.
Und die 1 Sekunde hält er auch nicht ein, die Töne wechseln viel zu schnell.
Gruß
Thomas
[edit]
Der 1 Ton dauert eine Sekunde, dann wechselt er zum zweiten, aber dieser dauert sehr viel kürzer als eine Sekunde und wechselt dann zu dritten.
Kann es sein, dass Du die Begrenzung der Bytes vergessen hast, also er weiterspielt, selbst wenn da kein richtiger To mehr angefügt ist sondern er nur 0xFF spielt?
So hier kommt der Musik-Asuro. :)
Ich hatte leider keine Lust die Tonwerte auszurechen, aber das ist auch nicht unser Ziel. :) Deswegen habe ich irgenwas gennomen.
Ich habe aber noch ein Problem. Wenn der Asuro alles abgespielt hat,
fängt er einen Modem zu spielen(Es klingt so!). Das liegt aber wahrscheinlich
an der Hardware. Oder?
Hmm..ja kann sein...aber wie soll ich denn eine Begrenzung bauen?Zitat:
Zitat von Florian
[edit]
Hatte als daten_laegen 4 stehen, weil ich die 0 mitgezählt habe, darf ich natürlich nicht.
So, jetzt spielt er nur noch die 3 Töne ab, am Ende spielt er dann in einer Endlosschleife des letzten Ton, so wies erstmal sein soll. Aber die Sekunde stimmt nach wie vor nur vom ersten zu zweiten Ton. Vom zweiten zum dritten Ton vergeht sehr viel weniger als eine Sekunde.
Ich sag mal so,
Es gibt da 3 Sachen, die mir nicht so recht gefallen,
1. zaehlerton, brauchst Du das wirklich ?
2. datenlänge, muß die wirklich 4 betragen?
Du hast zwar 4 Werte drin, aber warum? weil es mit 3 nicht geht...
3. Du machst da irgendwo 2. clr zaehlersek,
schau da erstmal nach, ob es nicht eleganter gehen würde
ahh, das mit der datenlänge hab ich ja noch rechzeiti selbst gemerkt :)
Die anderen Punkte schau ich nacher mal nach, geh erstmal was essen.
Hast du vlt. noch eine Idee, warum er, nach aus und gleich wieder anschalten die Töne nicht abspielt, sondern einfach nur in einer Endlosschleife den letzten Ton spielt? Muss immer mind. 10 Sekunden warten, bis ich ihn wieder anschalten kann, sodass er dann auch die Töne nacheinander abspielt.
Ich merk grad, er spielt trotzdem noch 4 Töne ab. Die 3, die ich definiert hab und hinterher noch einen höheren. Hrmph...
So, nu aber essen.
Das glaube ich kaum, hast Du dafür gesorgt, daß er auch in eine Endlosschleife übergeht, wenn keine Töne mehr da sind?Zitat:
Das liegt aber wahrscheinlich
an der Hardware. Oder?
Ich vermute, daß er sich einfach weitere sachen aus dem Flash holt und die abspielt,
aber ich schaue mir erst Dein Programm an!
P.S. könntest Du das nächste mal direkt posten ?
So muß ich mir das abspeichern, lesen, wieder löschen, Du weißt ja , ich bin Faul :oops:
@Tekeli,
Ich hab Dich !!!!
schau
BREQ exit ; Ein ja bedeutet, dass wir am Ende sind -> Ende
Du meintest sicher ende , oder?
Der Asuro läuft Amok guck, wo Du ihn hingeschickt hast, nachdem er 0 gefunden hat
an Euch beide,
Wenn alle Töne durch sind, sollte Der Timer 0 abgeschaltet werden, sonst spielt er den letzten ton ja weiter, wie das geht, kriegt Ihr sicher selber raus.
So, da bin ich wieder, musste erstmal mein Gehirn durchlüften, habe den ganzen Tag in der Bude rumgehockt! ;o) *couchpotato*
Ich lese mir jetzt die beiden Codes durch bzw. versuche es sie durchzulesen!
Wie ist jetzt eigentlich der Stand?
Tekeli's Programm funktioniert jetzt, oder?
Was ist mit Thomas Programm?
Ja den ganzen Tag in der Bude, das ist hart,
ich hatte als alternative am Feuerwehrfest in unserem Dorf teilzunehmen, dann
wäre ich jetzt aber paar Euros ärmer, und der Kopf wäre auch nicht mehr so ganz klar
:twisted:
Der Stand ist jetzt so, daß Tekeli seinen Asuro wohl ziemlich abstürzen liess,Zitat:
Wie ist jetzt eigentlich der Stand?
aber so wie es aussieht ist es eine Kleingkeit.
Und Thomas sollte sein Programm etwas aufräumen denke ich,
Oh, das ist nicht gut!Zitat:
Der Stand ist jetzt so, daß Tekeli seinen Asuro wohl ziemlich abstürzen liess, aber so wie es aussieht ist es eine Kleingkeit.
Wie tief ist er denn gefallen? *kleiner dummer scherz*
Das denke ich auch, denn ich steige da nicht mehr durch! *lol*Zitat:
Und Thomas sollte sein Programm etwas aufräumen denke ich,
Siehst Du die Programme eigentlich nur so durch, oder lässt Du sie im Simulator durchlaufen?
So, da bin ich wieder, ich werd jetzt mal die Punkte von Sebastian durchgehen.
Florian, ich bin eine arme Sau.
Wie Du weißt habe ich nur Linux auf meiner Kiste UND AVRStudio will sich nicht dazu
überreden lassen unter Linux zu funktionieren.
Selbst mit wine, dem Windows Übersetzer sag ich mal nicht.
Und für Linux gibt es keine brauchbaren Simulatoren.
Ich hab hier avr_simulator, das Programm hat aber jedemenge Bugs, der Author hat wohl kein Bock mehr drauf, er antwortet auf keine Posts auf sourceforge, naja und ich
bin nicht gut genug um es selber zu verbessern.
Es gibt da noch den gdb, aber den kann ich auch nicht dazu überreden, mit .hex Dateien
zu arbeiten, habe mal ein Thread auf www.mikrocontroller.net geöffnet, aber selbst da
weißt keiner einen Rat, und das soll schon was heißen....
Also Zeile für Zeile durchlesen, und schauen was passiert.
Aber ich klage nicht, es geht auch ohne.
Ich weiß nimmer weiter. Hab nun erstmal Punke verbessert (wenn man das so nennen darf), die du mir gesagt hast:
Es kommt nichts gescheites bei raus. Er spielt irgendwie die Töne ab, aber immer noch nicht im 1 Sekundenabstand. Außerdem ist da noch ein Ton drinne, der da nicht reinsoll. :(Code:;Programm
;CDurTonleiter rauf und runter spielen
.include "m8def.inc"
.def tmp = r16 ;Mein Universallregister
.def zaehlerSek = r17 ;Mein Zählregister
.def tonwert = r19 ;aktueller Wert für den Ton
.def lpm_reg = r0 ;Mein lpm-Register
.equ Summer = PB2 ;Summer an B.2
.equ time0 = 256-255 ;Timer0 für die Tonleiter
.equ time2 = 256-90 ;Damit wird der Timer2 vorgeladen, für die Sekunde
.equ daten_laenge = 3 ;Anzahl der Werte
.org 0x000
rjmp reset ;Interruptvektor "reset:"
.org OVF2addr
rjmp pruefSek ;Interruptvektor "pruefSek:"
.org OVF0addr
rjmp timerSummer ;Interruptvektor "timerSummer:"
reset:
;Stack einrichten
ldi tmp, HIGH(RAMEND) ;HIGH-Byte der obersten RAM-Adresse
out SPH, tmp
ldi tmp, LOW(RAMEND) ;Low-Byte der obersten RAM-Adresse
out SPL, tmp
;Timer Register für Ton werden belegt, hier Timer 0
ldi tmp, (1<<CS02) ;Prescaler ist 512
out TCCR0, tmp ;Register TCCR0 ist für den Prescaller zuständig
ldi tmp, time0 ;Hier wird der Timer vorgeladen
out TCNT0, tmp
;Timer Register für Sekunde werden belegt, hier Timer 2
ldi tmp, (1<<CS22) | (1<<CS21) | (1<<CS20) ;Prescaler ist 1024
out TCCR2, tmp ;Register TCRR2 ist für den Prescaller zuständig
ldi tmp, (1<<TOIE0) | (1<<TOIE2);Hier werden Interrupts nach Timer0 Überlauf eingeschaltet
out TIMSK, tmp ;Register TIMSK ist dafür zuständig
;Z-Register mit daten1 füllen
ldi ZH, HIGH(tonleiter1 * 2)
ldi ZL, LOW(tonleiter1 * 2)
ldi zaehlerSek, 0b00000000 ;ZählerSek auf 0 setzen
sbi DDRB, Summer ;B.2 als Ausgang
sbi PORTB, Summer ;B.2 auf HIGH stellen
sei ;Interrupts zulassen
;Die Hauptschleife
main:
cpi zaehlerSek, 0b00010100 ;wenn ZählerSek != 40 ist
brne main ;dann immer wieder zu "main:" springen
;Wenn eine Sekunde um ist, dann springe hier rein
;und setze zaehlerSek wieder zurück auf 0 und
;lade den nächsten Ton
pruefTonleiter:
clr zaehlerSek ;Zähler auf 0 setzen
rjmp ladeTon ;nächsten Ton laden
rjmp main ;sonst wieder zurück zu "main:"
;Wird aufgerufen, wenn Timer2 überläuft (Timer für Sekunde)
;Hier wird das Zählregister für den Timer um 1 erhöht und der
;Timer neu geladen
pruefSek:
push tmp ;tmp sichern
in tmp, SREG ;SREG sichern
push tmp
inc zaehlerSek ;ZählerSek um 1 erhöhen
ldi tmp, time2 ;Hier wird der Timer vorgeladen
out TCNT2, tmp
pop tmp ;SREG wiederholen
out SREG, tmp
pop tmp ;tmp wiederholen
reti ;wieder dahin, wo du hergekommen bist
;Wenn 1 Sekunde vorbei ist und es noch einen Ton gibt,
;der noch nicht geladen ist dann springe hier hin und
;lade den nächsten Wert von der Datenbank "tonleiter"
ladeton:
lpm ;Daten von tonleiter1: holen
mov tonwert, lpm_reg ;erstes Byte in tmp verschieben
adiw ZL,1 ;Z um 1 erhöhen, nächstes Byte
ldi tmp, LOW ((tonleiter1 * 2) + daten_laenge) ;vergleiche LOW-Byte
cp ZL, tmp
ldi tmp, HIGH ((tonleiter1 * 2) + daten_laenge) ;vergleiche HIGH-Byte
cpc ZH, tmp
breq endeTon ;springe zu "endeTon:", wenn letztes Byte ausgelesen
rjmp main ;wieder zurück zur "main:"
;Wenn alle Töne geladen sind, dann wird das Register "zaehlerTon"
;auf 255 gesetzt
endeTon:
cpi zaehlerSek, 0b00010100 ;wenn ZählerSek = 40 ist
breq TonAus ;springe zu Tonaus
rjmp main ;wieder zurück zu "main:"
TonAus:
sbiw ZL,1 ;Z um 1 erniedrigen
ldi tmp, 0 ;Timer mit 0 laden, damit er nicht mehr abspielt
out TCNT0, tmp
rjmp main ;wieder zurück zu "main:"
;Wird aufgerufen, wenn Timer0 überläuft (Timer für Ton)
;Hier wird geprüft, ob an B.2 HIGH oder LOW anliegt
;und dementsprechend umgesetzt
timerSummer:
push tmp ;tmp sichern
in tmp, SREG ;SREG sichern
push tmp
sbis PINB, Summer ;überspringe, wenn B.2 = 1 ist
rjmp timerSummer1 ;wenn B.2 = 0 ist, dann spring zu "umschalten1:"
cbi PORTB, Summer ;wenn B.2 = 1 ist, dann B.2 auf 0 setzen
rjmp timerSummer2 ;zu "timerSummer2:" springen
timerSummer1:
sbi PORTB, Summer ;wenn B.2 = 0 ist, dann auf 1 setzen
;Hier wird Timer0 mit dem aktuellen Tonwert vorgeladen
timerSummer2:
out TCNT0, tonwert ;Timer dementsprechen vorladen
rjmp timerSummer4 ;zu "timerSummer4:" springen
timerSummer4:
pop tmp ;SREG wiederholen
out SREG, tmp
pop tmp ;tmp wiederholen
reti
;Das sind die Werte, womit der Timer0 (Tonleiter-Timer) vorgeladen wird
tonleiter1:
.db 256-117, 256-16, 256-2, 0 ;Werte zum Vorladen des Timers für die Töne
;c', a' und c''
Wie programmierst Du dann deine Programme?
Du armer Programmierer! *lol*
Ich finde den Simulator sehr hilfreich, aber hauptsächlich bei großen, vielverzweigten Programmen!
Normalerweise habe ich bei der Größe der Codes, wie hier, keine Probleme, aber irgendwie will mein Gehirn nicht! ;o)
Muss das nicht normalerweise von 255 abgezogen werden? *irgendwie klappts heute mit meiner Rechenleistung nicht mehr*Zitat:
.equ time0 = 256-255 ;Timer0 für die Tonleiter
.equ time2 = 256-90 ;Damit wird der Timer2 vorgeladen, für die Sekunde
Thomas, jetzt ganz langsam,
Du hast ein chaos im Deinem Programm, da blikt wirklich kein Mensch meh durch....
z.B. hier:
pruefTonleiter:
clr zaehlerSek ;Zähler auf 0 setzen
rjmp ladeTon ;nächsten Ton laden
rjmp main ;sonst wieder zurück zu "main:"
wozu springst Du nach ladeTon,könnte das nicht direkt drunter ?
und rjmp main
Da kommt er wohl nie hin , oder ?
oder das :
TonAus:
sbiw ZL,1 ;Z um 1 erniedrigen
ldi tmp, 0 ;Timer mit 0 laden, damit er nicht mehr abspielt
out TCNT0, tmp
rjmp main ;wieder zurück zu "main:"
wozu Zl -1 ?
bist Du Dir sicher daß 0 den Timer wirklich abschaltet?
@Florian, wie gesagt, ich klage nicht, es gibt andere Wege Programme wirksam zu debuggen!
Und es gibt echt geile Editoren , z.B. Emacs geht in der Konsole, und ist das Schweizer Taschenmesser unter den Editoren.
Von Seite 5:
Zitat:
Zitat von SprinterSB
Nein, 256 ist schon richtig, der Sprinter hat das irgendwo 10 Seiten zurück mal gesagt,
es geht sich ja um den Punkt, wo der Timer überläuft, und nicht, wo er
seinen höchsten Wert erreicht hat.
Edit: Danke Thomas, sehr aufmerksam
Sorry :(Zitat:
Zitat von izaseba
Ja, hast recht, hab ich grad verbessert. Aber ich denk, die Hauptsache ist doch erstmal dass es funktioniert und dann kann man an der Übersicht arbeiten, oder?Zitat:
pruefTonleiter:
clr zaehlerSek ;Zähler auf 0 setzen
rjmp ladeTon ;nächsten Ton laden
rjmp main ;sonst wieder zurück zu "main:"
wozu springst Du nach ladeTon,könnte das nicht direkt drunter ?
und rjmp main
Da kommt er wohl nie hin , oder ?
In C++ hatte ich nie Probleme mit der Übersicht, versteh ich nicht...
Das ZL-1 hab ich gemacht, damit er beim nächsten mal keinen Müll mehr einliest, sondern immer wieder die 0 aus der DB tonleiter.Zitat:
TonAus:
sbiw ZL,1 ;Z um 1 erniedrigen
ldi tmp, 0 ;Timer mit 0 laden, damit er nicht mehr abspielt
out TCNT0, tmp
rjmp main ;wieder zurück zu "main:"
wozu Zl -1 ?
bist Du Dir sicher daß 0 den Timer wirklich abschaltet?
Und das 0 den Timer abschaltet, dacht ich, jo, denn was soll er denn noch hochzählen, wenn ich den Timer mit 256-256 vorlade? Hmm...
[edit]
Das hier stoppt den Timer.
Datenblatt Seite 70 hilft.Code:ldi tmp, 0b00000000 ;Timer stoppen
out TCCR0, tmp
Hier nochmal der ganze Code, habs mal auf 2 Sekunden geändert, aber der spielt total verrückt :(
Weiß echt nicht, was ich da noch machen soll :(Code:;Programm
;CDurTonleiter rauf und runter spielen
.include "m8def.inc"
.def tmp = r16 ;Mein Universallregister
.def zaehlerSek = r17 ;Mein Zählregister
.def tonwert = r19 ;aktueller Wert für den Ton
.def lpm_reg = r0 ;Mein lpm-Register
.equ Summer = PB2 ;Summer an B.2
.equ time0 = 256-255 ;Timer0 für die Tonleiter
.equ time2 = 256-90 ;Damit wird der Timer2 vorgeladen, für die Sekunde
.equ daten_laenge = 3 ;Anzahl der Werte
.org 0x000
rjmp reset ;Interruptvektor "reset:"
.org OVF2addr
rjmp pruefSek ;Interruptvektor "pruefSek:"
.org OVF0addr
rjmp timerSummer ;Interruptvektor "timerSummer:"
reset:
;Stack einrichten
ldi tmp, HIGH(RAMEND) ;HIGH-Byte der obersten RAM-Adresse
out SPH, tmp
ldi tmp, LOW(RAMEND) ;Low-Byte der obersten RAM-Adresse
out SPL, tmp
;Timer Register für Ton werden belegt, hier Timer 0
ldi tmp, (1<<CS02) ;Prescaler ist 512
out TCCR0, tmp ;Register TCCR0 ist für den Prescaller zuständig
ldi tmp, time0 ;Hier wird der Timer vorgeladen
out TCNT0, tmp
;Timer Register für Sekunde werden belegt, hier Timer 2
ldi tmp, (1<<CS22) | (1<<CS21) | (1<<CS20) ;Prescaler ist 1024
out TCCR2, tmp ;Register TCRR2 ist für den Prescaller zuständig
ldi tmp, (1<<TOIE0) | (1<<TOIE2);Hier werden Interrupts nach Timer0 Überlauf eingeschaltet
out TIMSK, tmp ;Register TIMSK ist dafür zuständig
;Z-Register mit daten1 füllen
ldi ZH, HIGH(tonleiter1 * 2)
ldi ZL, LOW(tonleiter1 * 2)
ldi zaehlerSek, 0b00000000 ;ZählerSek auf 0 setzen
sbi DDRB, Summer ;B.2 als Ausgang
sbi PORTB, Summer ;B.2 auf HIGH stellen
sei ;Interrupts zulassen
;Die Hauptschleife
main:
cpi zaehlerSek, 0b01010000 ;wenn ZählerSek != 80 ist
brne main ;dann immer wieder zu "main:" springen
;Wenn eine Sekunde um ist, dann springe hier rein
;und setze zaehlerSek wieder zurück auf 0 und
;lade den nächsten Ton
pruefTonleiter:
clr zaehlerSek ;Zähler auf 0 setzen
;Wenn 1 Sekunde vorbei ist und es noch einen Ton gibt,
;der noch nicht geladen ist dann springe hier hin und
;lade den nächsten Wert von der Datenbank "tonleiter"
ladeton:
lpm ;Daten von tonleiter1: holen
mov tonwert, lpm_reg ;erstes Byte in tmp verschieben
adiw ZL,1 ;Z um 1 erhöhen, nächstes Byte
ldi tmp, LOW ((tonleiter1 * 2) + daten_laenge) ;vergleiche LOW-Byte
cp ZL, tmp
ldi tmp, HIGH ((tonleiter1 * 2) + daten_laenge) ;vergleiche HIGH-Byte
cpc ZH, tmp
breq endeTon ;springe zu "endeTon:", wenn letztes Byte ausgelesen
rjmp main ;wieder zurück zur "main:"
;Wenn alle Töne geladen sind, dann wird das Register "zaehlerTon"
;auf 255 gesetzt
endeTon:
cpi zaehlerSek, 0b01010000 ;wenn ZählerSek = 80 ist
breq TonAus ;springe zu Tonaus
rjmp main ;wieder zurück zu "main:"
TonAus:
ldi tmp, (1<<CS02) ;Timer stoppen
out TCCR0, tmp
rjmp main ;wieder zurück zu "main:"
;Wird aufgerufen, wenn Timer2 überläuft (Timer für Sekunde)
;Hier wird das Zählregister für den Timer um 1 erhöht und der
;Timer neu geladen
pruefSek:
push tmp ;tmp sichern
in tmp, SREG ;SREG sichern
push tmp
inc zaehlerSek ;ZählerSek um 1 erhöhen
ldi tmp, time2 ;Hier wird der Timer vorgeladen
out TCNT2, tmp
pop tmp ;SREG wiederholen
out SREG, tmp
pop tmp ;tmp wiederholen
reti ;wieder dahin, wo du hergekommen bist
;Wird aufgerufen, wenn Timer0 überläuft (Timer für Ton)
;Hier wird geprüft, ob an B.2 HIGH oder LOW anliegt
;und dementsprechend umgesetzt
timerSummer:
push tmp ;tmp sichern
in tmp, SREG ;SREG sichern
push tmp
sbis PINB, Summer ;überspringe, wenn B.2 = 1 ist
rjmp timerSummer1 ;wenn B.2 = 0 ist, dann spring zu "umschalten1:"
cbi PORTB, Summer ;wenn B.2 = 1 ist, dann B.2 auf 0 setzen
rjmp timerSummer2 ;zu "timerSummer2:" springen
timerSummer1:
sbi PORTB, Summer ;wenn B.2 = 0 ist, dann auf 1 setzen
;Hier wird Timer0 mit dem aktuellen Tonwert vorgeladen
timerSummer2:
out TCNT0, tonwert ;Timer dementsprechen vorladen
rjmp timerSummer4 ;zu "timerSummer4:" springen
timerSummer4:
pop tmp ;SREG wiederholen
out SREG, tmp
pop tmp ;tmp wiederholen
reti
;Das sind die Werte, womit der Timer0 (Tonleiter-Timer) vorgeladen wird
tonleiter1:
.db 256-117, 256-16, 256-2, 0 ;Werte zum Vorladen des Timers für die Töne
;c', a' und c''
Ich habe Dir gesagt, Du darfst nicht in Kategorien der Hochsprachen denken.Zitat:
In C++ hatte ich nie Probleme mit der Übersicht, versteh ich nicht...
Wieso wieder Traurig,Zitat:
Sorry Sad
Es war nicht böse gemeint, sondern die springerei hin und her trägt nicht gerade der Übersicht bei.
Hmmmm, ich glaube eher weniger, wer rührt schon ein funktionierendes Programm an?Zitat:
Ja, hast recht, hab ich grad verbessert. Aber ich denk, die Hauptsache ist doch erstmal dass es funktioniert und dann kann man an der Übersicht arbeiten, oder?
P.S. Warst Du das mit dem Edit:
Ja, das war ich, aber ich hab den Code geändert, aber beides stoppt leider nicht den Timer.
Ich weiß ja, dass du es nicht böse meinst, aber man ist nunmal traurig bzw. mehr enttäuscht, wenn man einfach nicht mehr weiß, was man verkehrt macht und es trotzdem nicht funktioniert und dann hat man doch die Angst, dass man es nimmer zum laufen bringt.
Das habe ich vor 10 Seiten schonmal angesprochen, das ist sehr gut!Zitat:
wie sag ichs meinem avr.pdf
Das ist dann aber schon die zweite Version, die erste Version ist auch sehr interessant!