Druckbare Version
Hi, Mic
Dein Programm sieht sehr gut aus, nur bei mir bleibt er in der Simulation von Bascom bei:
'Ab hier übernimmt die ISR die Kontrolle. Wir warten, bis alle Bits gesendet sind'
Do
Wait 1
Loop Until Rc5_bitmaske = 0
hängen und die Led tut überhaupt nichts.
Hat sich irgendwo der Fehlerteufel eingeschlichen?
Ich war Gestern wieder RC fahren.... neues Spielzeug (LRP Shark 18) mein Fuhrpark wird immer grösser..... ;-)
Mfg
Harry
Nein, sieht so aus als ob bei mir der Fehlerteufel liegt!
Vss >= 5V
Muss Akku wieder laden!
Mfg
Harry
Hallo
Ich schätze, nun bin ich selbst in die Takt/Frequenz-Falle getappt. Wenn die Bitlänge 64 Zyklen der 36kHz dauert, müssen die Startpunkte für die Halbbits in der ISR bei 128 und 64 sein. Vermute ich mal...Zitat:
Constant bit time of 1.778ms (64 cycles of 36 kHz)
Ob man das im Simulator überhaupt testen kann weis ich nicht, aber ich vermute mal, dass die ISR nicht aufgerufen wird. Das könnte man erkennen, wenn man den Wert für rc5_halbbit betrachtet., der sollte in der ISR hintergezählt werden. Dieser Code, der die ISR definiert
On Timer0 Rc5_isr
erscheint mir kritisch. Eigentlich sollte bei CompareMatch das "Compare0a"-Ereigniss abgefangen werden. Dieses ist aber bei Bascom nicht verfügbar, es gibt nur das "Compare1a"-Ereigniss. Hier hilft vielleicht die direkte Manipulation der Sprungtabelle für die Interrupts.
Eine andere Fehlerquelle könnten die globalen Variablen sein. Wahrscheinlich arbeitet die ISR nur mit der Kopie der Werte und deshalb wird rc5_bitmaske im Hauptprogramm nie zu 0 und das Programm würde sich aufhängen. Das muss ich nochmal überdenken/nachlesen. Ein Update folgt aber frühestens heute abend, weil ich heute vorweihnachtliche Familienfeier habe. *würks*
Gruß
mic
Hallo
Es ist nicht einfach, Bascom wehrt sich gegen die Verwendung des tiny13.
Bei der letzen Version des Programms war ein falscher Interrupt in der Sprungtabelle eingetragen. Das war ja mein erster Verdacht und es hatte sich bestätigt. Die Sprungtabelle des tiny13 sieht so aus:
Mein erster Versuch war: "On Timer0 Rc5_isr" und erzeugte diese Tabelle:Zitat:
Address Labels Code Comments
0x0000 rjmp RESET ; Reset Handler
0x0001 rjmp EXT_INT0 ; IRQ0 Handler
0x0002 rjmp PCINT0 ; PCINT0 Handler
0x0003 rjmp TIM0_OVF ; Timer0 Overflow Handler
0x0004 rjmp EE_RDY ; EEPROM Ready Handler
0x0005 rjmp ANA_COMP ; Analog Comparator Handler
0x0006 rjmp TIM0_COMPA ; Timer0 CompareA Handler
0x0007 rjmp TIM0_COMPB ; Timer0 CompareB Handler
0x0008 rjmp WATCHDOG ; Watchdog Interrupt Handler
0x0009 rjmp ADC ; ADC Conversion Handler
Es wurde ein OverFlow-Sprung eingetragen. Um das zu überprüfen habe ich mir einen Disassembler besorgt (ReAVR) und das hex-File untersucht.Code:L0000:
rjmp __start ; L000A
; ----------- jump on last line
reti
;----------------------*
; pc=0x2(0x4)
;
reti
;----------------------*
; pc=0x3(0x6)
;
rjmp L00B0
; ----------- jump on last line
reti
;----------------------*
; pc=0x5(0xA)
;
reti
;----------------------*
; pc=0x6(0xC)
;
reti
;----------------------*
; pc=0x7(0xE)
;
reti
;----------------------*
; pc=0x8(0x10)
;
reti
;----------------------*
; pc=0x9(0x12)
;
reti
;----------------------*
; pc=0xA(0x14)
;
__start::
Nun verwende ich folgenden Code: "On Oc0a Rc5_isr" und alles ist gut:
Jetzt war zwar der richtige Interrupt eingetragen, aber meine ISR wurde immer noch nicht aufgerufen. Das lag daran, dass der falsche Timerinterrupt erlaubt wurde. Aus "Enable Timer0" wurde deshalb "Enable Oc0a" und schon funzt auch die ISR.Code:L0000:
rjmp __start ; L000A
; ----------- jump on last line
reti
;----------------------*
; pc=0x2(0x4)
;
reti
;----------------------*
; pc=0x3(0x6)
;
reti
;----------------------*
; pc=0x4(0x8)
;
reti
;----------------------*
; pc=0x5(0xA)
;
reti
;----------------------*
; pc=0x6(0xC)
;
rjmp L00B0
; ----------- jump on last line
reti
;----------------------*
; pc=0x8(0x10)
;
reti
;----------------------*
; pc=0x9(0x12)
;
reti
;----------------------*
; pc=0xA(0x14)
;
__start::
Um das ganze testen zu können habe ich mir inzwischen eine kleine Testschaltung auf einem IC-Sockel zusammengebastelt:
Bild hier
Als Empfänger, es gibt leider nicht mehr viele Geräte die RC5 verstehen, habe ich meinen RP6 verwendet. Den Code habe ich aus den Beispielen der RP6-Doku und damit erzeugt mein tiny13 nun folgenen Output:
Das 8/2 ist meine Testfernbedienung, alle anderen Codes hatte der tiny13 gesendet. Ist zwar noch nicht das Erwartete, aber ich bin wohl auf dem richtigen Weg. Der große Fehler ist noch der Wert für das OCR0-Register. Um bei meinen Tests mit einer normalen LED etwas erkennen zu können, hatte ich das alles erst mit Presaler=1024 und OCR0=255 probiert. Man sieht dann sogar die einzelnen Bits. In "Echtzeit" mit IR-LED und Prescaller=1 hatte ich versehentlich das OCR0 nicht geändert und deshalb die unerwarteten Werte gesendet. Blöderweise hängt sich das Programm aber mit dem richtigen Wert (133) auf weil vermutlich die ISR zu lange ist. Aber das sollte auch noch machbar sein...Zitat:
Please make sure that your IR Remote Control really transmits RC5 code!
Toggle Bit:1 | Device Address:8 | Key Code:2
Toggle Bit:1 | Device Address:8 | Key Code:2
Toggle Bit:0 | Device Address:0 | Key Code:0
Toggle Bit:0 | Device Address:26 | Key Code:6
Toggle Bit:0 | Device Address:3 | Key Code:0
Toggle Bit:0 | Device Address:26 | Key Code:6
Toggle Bit:0 | Device Address:3 | Key Code:0
Toggle Bit:0 | Device Address:26 | Key Code:6
Toggle Bit:0 | Device Address:3 | Key Code:0
Toggle Bit:0 | Device Address:26 | Key Code:6
Toggle Bit:0 | Device Address:3 | Key Code:0
Toggle Bit:0 | Device Address:26 | Key Code:6
Toggle Bit:0 | Device Address:3 | Key Code:0
Toggle Bit:0 | Device Address:26 | Key Code:6
Toggle Bit:0 | Device Address:3 | Key Code:0
Im Simulator blieb ich übrigens immer bei den Wait-Befehlen stecken. Irgendwie funzt das nicht, aber ich habe noch keine Zeit investiert um mich mit der Funktion des Simulators vertraut zu machen.
Hier noch der aktuelle Code:
GrußCode:'RC5-Code senden mit ATtiny13 (erster ernsthafter Versuch mit Bascom) 16.12.07 mic'
'Achtung! Das ist ein eher theoretischer Code den ich noch nicht getestet habe!'
'Es sollten im 0,5 Sekundentakt die Werte 0 bis 31 als Addresse und Kommando'
'mit Togglebit=0 gesendet werden. Ob das so funktioniert muss ich noch testen'
'Die IR-LED wird mit Widerstand(!) zwischen Pin5(PB0, OC0A) und GND angeschlossen '
'Trägerfrequenz = 36kHz(Puls/Pause 1:1), Bitlänge = Trägerfrequenz/64'
'Code basierden auf den Angaben von: http://www.sbprojects.com/knowledge/ir/rc5.htm'
'Einstellungen --------------------------------------------------------------------'
'Wir verwenden einen tiny13'
$regfile = "ATtiny13.dat"
'der mit internen 9,6MHZ getaktet wird (Fuse Takt/8 nicht gesetzt!)'
$crystal = 9600000
'Weitere, von mir noch nicht geprüfte Compileranweisungen:'
$hwstack = 32
$swstack = 8
'Hier musste ich von 16 auf 8 ändern,ich habe keine Ahnung, was das bewirkt'
'Mit 16 erhalte ich eine Fehlermeldung:'
'Out of SRAM-Space bei Dim Rc5_bit_gesetzt As Word'
$framesize = 8
'Dims und Declears ----------------------------------------------------------------'
'Der zu sendende RC5-Code als 16bit-Wert'
Dim Rc5_code As Word
'Bitmaske für das zu sendende Bit aus RC-Code'
Dim Rc5_bitmaske As Word
'Teiler des Trägertaktes und Kennung des Halbbits'
'128-65 bedeutet erstes Manchester-Halbbit, 64-1 bedeutet zweites Manchester-Halbbit'
'0 bedeutet komplettes Bit gesendet!'
Dim Rc5_halbbit As Byte
'die zu sendende RC5-Adresse (5 Bits, 0-31)'
Dim Rc5_adresse As Byte
'das zu sendende RC5-Kommando (6 Bits, 0-63)'
Dim Rc5_kommando As Byte
'größer 0 bedeutet aktuelles zu sendende Bit ist gesetzt'
Dim Rc5_bit_gesetzt As Word
'Zähler für das Demo'
Dim Count As Byte
'Startblinken'
Config Portb.0 = Output
Portb.0 = 1
Wait 1
Portb.0 = 0
Wait 1
'Die Sendesubroutine deklarieren'
Declare Sub Rc5_send(byval Address As Byte , Byval Command As Byte , Byval Tog As Byte)
'Initialisierung ------------------------------------------------------------------'
'Timer0 auf CTC-Mode mit OC0A-Toggeln und OCR0A löschen nach Match bei perscale=1'
Config Timer0 = Timer , Compare A = Toggle , Prescale = 1 , Clear Timer = 1
'MatchCompareRegister setzen: 133 für 36kHz oder 126 für 38kHz'
'Anmerkung für Harry: Ob das Bittiming bei 38kHz funktioniert weiß ich nicht,'
'aber ein 36kHz-LSoP kostet nur ca. 1,xx Euro + Versandkosten im Onlineversand'
Ocr0a = 255
'ISR für Timer0 bei OutputCompareA definieren'
On Oc0a Rc5_isr
'MatchCompare Interrupt erlauben'
Enable Oc0a
'Interrupts generell erlauben'
Enable Interrupts
'Es wird noch wird nicht gesendet'
Rc5_bitmaske = 0
'Hauptprogramm --------------------------------------------------------------'
Do
For Count = 0 To 31
Call Rc5_send(count , Count , 0)
Waitms 200
Next
Loop
'Sub und ISR ---------------------------------------------------------------------'
'die eigentliche Sendefunktion'
Sub Rc5_send(address As Byte , Command As Byte , Tog As Bit)
'14 bits RC5-Code zusammensetzen in der 16 Bit Variablen Rc5_code'
'Bitnummer: 1111110000000000'
' 5432109876543210'
'Funktion: --sstaaaaacccccc'
'2 Startbits setzen'
Rc5_code = &B11
'Bitmuster nach links weiterschieben und Platz für die nächsten Bits schaffen'
Shift Rc5_code , Left , 1
'das Toggle-Bit setzen wenn gewünscht'
If Tog <> 0 Then
Set Rc5_code.0
End If
'address hat 5 gültige Bits'
Shift Rc5_code , Left , 5
'überflüssige Addressbits ausblenden'
Address = Address And &B11111
'und Address-Bits in Rc5_code setzen'
Rc5_code = Rc5_code Or Address
'command hat 6 gültige Bits'
Shift Rc5_code , Left , 6
'überflüssige Commandbits ausblenden'
Command = Command And &B111111
'und Kommando-Bits in Rc5_code setzen'
Rc5_code = Rc5_code Or Command
'Bitmaske auf bit13 (erstes von 14 RC5-Bits) setzen
'Bitnummer: 1111110000000000'
' 5432109876543210'
'Funktion: --sstaaaaacccccc'
'Maske: 0010000000000000'
Rc5_bitmaske = &B0010000000000000
'Start der Übertragung mit dem ersten Halbbit'
Rc5_halbbit = 64
'Ab hier übernimmt die ISR die Kontrolle. Wir warten, bis alle Bits gesendet sind'
Do
Wait 1
Loop Until Rc5_bitmaske = 0
'LED ausschalten'
Config Portb.0 = Input
'Fertig'
End Sub
'Ab hier folgt die ISR'
Rc5_isr:
'Wenn wir senden wollen'
If Rc5_bitmaske > 0 Then
'ermitteln wir den Status des aktuellen Bits'
Rc5_bit_gesetzt = Rc5_code And Rc5_bitmaske
'und wenn wir beim Start des ersten Halbbits sind,'
If Rc5_halbbit = 64 Then
'geben wir das erste Halbbit invertiert aus (Manchestercodierung?)
If Rc5_bit_gesetzt > 0 Then
Config Portb.0 = Input
Else
Config Portb.0 = Output
End If
'ende erstes Halbbit'
End If
'Beim zweiten Halbbit müssen wir nun den gewünschten Bitstatus ausgeben'
If Rc5_halbbit = 32 Then
If Rc5_bit_gesetzt > 0 Then
Config Portb.0 = Output
Else
Config Portb.0 = Input
End If
'ende zweites Halbbit'
End If
'Bitzeit ist Trägerfrequenz/64, also wir zählen den Bittimer runter'
Rc5_halbbit = Rc5_halbbit - 1
'Bei RC5_halbbit = 0 ist das aktuelle Bit gesendet, wir senden nun das nächste Bit'
If Rc5_halbbit = 0 Then
'und laden den Bittimer mit dem Startwert für erstes Halbbit.'
Rc5_halbbit = 64
'Dann setzen wir die Bitmaske auf das nächste zu sendende Bit'
Rc5_bitmaske = Rc5_bitmaske / 2
'Rc5_bitmaske = 0 beim nächsten Aufruf der ISR bedeutet,'
'alle Bits sind gesendet, also sind wir fertig'
'nächstes Bit'
End If
'und wiederholen 14 mal'
'Ende wenn rc5_bitmaske >0'
End If
Return
mic
Guten Morgen, Mic
Sag, kannst du nicht schlafen? Halb vier Uhr Morgens.... Die arme Kaffemaschine! ;-) Werd denn Quellcode mal versuchen, hab mein ganzes Zeugs in der Werkstatt (Haus von Daddy), melde mich am Abend wieder ob ich ein erfolgserlebniss hatte!
Nochmal viele Dank für deine Hilfe! Ich hab mir das ganze viel einfacher vorgsestellt!
Mfg
Harry
Hi, Mic!
Hab deinen Quellcode getestet! Bei mir sendet er nur alle 16 sekunden...
Wenn ich bei Bascom die Fuses und Bits einstelle, schreibe und dann auf aktualisieren gehe kommen wieder die grundeinstellungen...
Hat da mein Brenner was??? Ich verstehs nicht! ----> myavr Multiprog mit USB Interface...
Mfg
Harry
Hallo Harry
Ich verwende den mysmartusb-Programmer und kann damit die Fuses weder mit avrdude noch mit bascom setzen. Ich setze meine Fuses deshalb mit dem myavr-Workpad-Demo das auf meiner Programmer-CD drauf war und das man auch bei myavr.de downloaden kann. (unter [Extras->Fuses- und Lock-Bits])
In der letzten Version meines Bascom-Programmes blinkt die LED nach dem Start eine Sekunde lang (Wait 1), ist dann eine Sekunde dunkel und dann erst wird der Timer gestartet und der RC5-Code gesendet. Wenn dein tiny13 nur mit 1,2MHz taktet wird mit Sicherheit die ISR zu langsam ausgeführt und der tiny12 hängt sich auf. Das geschieht nach dem Start des Timers sehr schnell und würde ziemlich genau zu deinem 16 Sekunden Blinkintervall passen, denn alles wäre 8 mal langsamer:
8 Sekunden Starthell + 8 Sekunden Startdunkel + ein paar Millisekunden bis Stapelüberlauf durch die ISR und dadurch ausgelöstem Neustart.
Stell doch mal testweise den $crystal-Wert auf 1200000, dann sollte bei einem 1,2MHz-tinytakt das Startblinken im Sekundentakt erscheinen weil Wait richtig berechnet wird. Allerdings immer noch mit dem Stapelüberlauf durch die ISR.
Irgendwas stimmt mit dem Timing des RC-Codes immer noch nicht. Ich habe zwar inzwischen die ISR abgespeckt (mit nosave im on orc0-Befehl) und nun kann ich auch wieder mit ocr0=133 toggeln ohne das sich mein tiny13 aufhängt. Aber auch mit doppelter Bitlänge=128 wird dann gar nichts empfangen. Möglicherweise liegt das aber schlicht an meinem 100 Ohm Vorwiderstand für die IR-LED. Mit einer normalen roten 5mm-LED sehe ich zwar das Blinken, aber wirklich hell ist es nicht. Ich muss wohl doch mal den Spannungsabfall an den LEDs messen und den Vorwiderstand richtig berechnen. (In der Spenderfernbedienung der IR-LED war bei 3V-Versorgungsspannung ein 1 Ohm-SMD Widerstand in Reihe zur IR-LED eingebaut.)
Gruß
mic
Hi, Mic!
Danke für den tip, werde mal Workpad versuchen um die Fuses zu setzen.
Also, bei mir blinkt die LED ordentlich... Stab. Spannung über 7805 anbei Grüne LED (ohne Vorwiderstand.... [-X )
Mfg
Harry
Mit meinem Workpad geht das nicht!!!
Meldung:
Fehler für den Prozessor konnte keine Konfiguration ermittelt werden.
und wenn ich den Tiny in den Einstellungen ändern möchte sagt es mir dass das diese version nicht unterstützt.......
Mfg Harry
Nein, jetzt muß ich mir wohl auch noch die Vollversion bestellen und wieder eine Woche warten..... :-(