RC5 Fernbedinung ATtiny2313 und powerdown Mode Proplem

[Searcher]

Hallo Bastler,
ich habe im Code ein paar Stellen farbig markiert:

$regfile = "attiny2313.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32

 'Ddrd = &B00000010  'Würde PORTD.1 auf Output schalten. Ich würde die komplette Zeile rauslöschen

Config Portd.6 = Output
Led_gelb Alias Portd.6   'LED GELB - Ob Programm Arbeitet ( Nur zum TESTEN)

Portd.1 = 1   'Pullup auf portd.1, Portds sind ist defaultmäßig nach reset sowieso auf Input.
Config Portd.2 = Input
Portd.2 = 1
Config Portd.3 = Input
Portd.3 = 1
Config Portd.4 = Input
Portd.4 = 1
Config Portd.5 = Input
Portd.5 = 1
Config Portd.5 = Input  'ist doppelt und kann entfallen
Portd.6 = 1  'Einschalten von LED_gelb

...dann auf die TASTE1 Drücke wird nicht mal der code gesendet und (led_gelb) geht an und bleibt an nichts geht mehr, auser neu programieren....

Wo ist TASTE1 angeschlossen? Bei PORTD.1 fehlt Aktivierung von Pullup (oben in grün hinzugefügt)
Portd.5 ist sowieso Input und wird darüber hinaus auch zwei Mal als Input konfiguriert.

Fuses richtig gesetzt? Insbesondere CKDIV8 für 8MHz Systemtakt.

Das DISABLE INT0 würde ich direkt nach dem IF PIN Befehl einfügen. Das Verhalten kenne ich auch nicht genau und kann ich im Augenblick auch nicht testen.

Sonst fällt mir im Augenblick nichts Neues ein

Gruß
Searcher

[Der bastler]

PonyPro2000 Fuse einstellung


Nachreichen...

[Searcher]

PonyPro2000 Fuse einstellung

Die Fuses sind richtig.
Benutzt Du nicht die Bascom IDE zum Fuses setzen/lesen?


Hast Du mal ausprobiert, den Interrupt sofort nach Abfrage der Tasten zu disablen, so wie unten angedeutet?

Durch den Tastendruck wird über den INT0 der µC aus dem powerdown herausgeholt.
Wird der Interrupt nicht sofort disabled, könnte durch den Tastendruck, den man ja nicht innerhalb von µs oder wenigen Millisekunden lösen kann, ein weiterer bzw viele weitere INT0 erkannt werden. Die ISR würde andauernd angesprungen werden, führt zwar keine Kommados aus aber nimmt Rechenzeit weg. Weitere Konsequenzen traue ich mir nicht auszumahlen ...
Möglicherweise müßte man das Konzept des Programms überarbeiten oder auch mal testen ob man ohne ISR auskommt.

If Pind.3 = 0 Then
    Disable Int0
    Led_gelb = 1
    Geraet = 0           'Blinker / Lauflicht / Radio
    Kommando = 1         'Was wird geschaltet
    Rc5send Togglebit , Geraet , Kommando
   'NEU
    ' Disable Int0
    'NEU
    Waitms 50
    Gosub Code
End If

Gruß
Searcher