RC5 Abfrage funktioniert per Polling, aber nicht per INT0

[luvat]

Servus.

Ich stehe hier vor einem Phänomen, welches ich mir nicht ganz erklären kann.

Ich habe lange rumgedockert und gesucht um nun endlich eine RC5 IR Fernbedieung auswerten zu können.

Als Controllerboard verwende ich das RN-Control.
Programmiere mit BASCOM.
IR Fernbedienung: Phillips
Empfänger: Keine Ahnung. Hab ich aus einem Technisat Reciever ausgebaut.


Der funktionierende Polling basierte Code:

$regfile = "m32def.dat"                                     
$crystal = 16000000                                        
$baud = 9600

Config Rc5 = Pina.1

Enable Interrupts

Dim Address As Byte , Command As Byte

Print "Waiting for RC5..."

Sound Portd.7 , 400 , 450                                   'BEEP
Sound Portd.7 , 400 , 250                                   'BEEP
Sound Portd.7 , 400 , 450                                   'BEEP

Do
  Getrc5(address , Command)
  Command = Command And &B01111111
  If Address < 255 Then
   Print Address ; "  " ; Command
  End If
Loop
End

Der Code funktioniert vom feinsten.
Dieser oben gezeigte Code, war eig. nur um die generelle Funktionalität zu testen. Also: Zwekc erfüllt.

Da das Polling aber überaus unschön und unpraktikabel ist, wollte ich das ganze Interrupt gesteuert umsetzen. ... Dies ist mein bisheriger Code:

$regfile = "m32def.dat"                                    
$crystal = 16000000                                       
$baud = 9600                                               

$lib "mcsbyte.lbx"

Config Rc5 = Pind.3

On Int0 Int0_int                                           
Enable Int0
Enable Interrupts

Dim Address As Byte , Command As Byte , Rc5_flag As Bit

Sound Portd.7 , 400 , 450                                   'BEEP
Sound Portd.7 , 400 , 250                                   'BEEP
Sound Portd.7 , 400 , 450                                   'BEEP

Do
        Print "Hallo"
        Waitms 1000
Loop

End

'Lesen der RC5 Codes
Int0_int:                                                   'Interrupt Handler For Int1
  Disable Int0
    Address = 0
    Command = 0
    Getrc5(address , Command)
    Command = Command And &B01111111
     Print Address ; "  " ; Command
   Enable Int0
Return

Hier funktioniert so ziemlich garnichts. In der Mail ist ein Print eingebaut, welcher jede Sekune "Hallo" sagt.

Wenn das Programm startet funktioniert die Ausgabe durch Print auch. Sobald einmal die IR Fernbedienung betätigt wird, scheint sich alles wegzuhängen.

Es wird keine Ausgabe des Empfangs getätigt. Das Programm springt nicht mehr in die Mainschleife zurück.

Hat da wer ne Idee woran das liegen könnte?

[for_ro]

Hallo,
ich glaube nicht, dass das so etwas wird.
Falls du dein Signal nicht auf Pind.2 und Pind.3 liegen hast, geht es eh nicht.
Dein Int0 liegt doch wohl auf Pind.2, RC5 ist auf Pind.3 konfiguriert.
Aber auch dann wird es eher nicht gehen. Zum einen hast du nicht konfiguriert, auf welcher Flanke der Interrupt ausgelöst werden soll. Ob es da einen Default gibt, weiss ich gerade nicht.
Die GETRC5() Funktion wird regelmäßig nicht den ersten Impuls mitkriegen, da die ISR Int0_int ja erst beim Flankenwechsel aufgerufen wird.
Davon ab würde ich so einen Zeitfresser wie GETRC5 niemals in eine ISR stecken. Ich meine mich zu erinnern, dass die 150ms braucht, um zu einem Output zu kommen. Während der Zeit tut sich nichts in deinem System.

Gruß

Rolf

[Dirk]

Hallo luvat,

probier 'mal dies hier:

'IR-Empfänger an Pind.2 initialisieren:
Config Rc5 = Pind.2
On Int0 Rc5_receive
Enable Int0
Config Int0 = Falling
Enable Interrupts

'Hauptprogramm:
Reset Rc5_flag
Do
  For I = 1 To 4
    Locate I , 1
    Lcd "Warte auf IR ..."
    If Rc5_flag = 1 Then
      Reset Rc5_flag
      Gosub Rc5_display
    End If
    Wait 1
  Next I
  Cls
Loop

'RC5 auf LCD anzeigen:
Rc5_display:
  If Address <> 255 Then
    Command = Command And &B01111111
    Cls
    Locate 2 , 1
    Lcd "Addr:   Cmd:"
    Locate 3 , 1
    Lcd Address ; " "
    Locate 3 , 9
    Lcd Command ; " "
    Wait 1
    Cls
  End If
Return

'RC5 einlesen:
Rc5_receive:
  Disable Int0
  Enable Interrupts
  Getrc5(address , Command)
  Set Rc5_flag
  Gifr = Gifr Or &B01000000                       'Clear Flag Int0
  Enable Int0
Return

Gruß Dirk

[for_ro]

Hallo,
wenn du schon einen externen Interrupt Pin benutzt, dann würde ich die Auswertung auch direkt selber machen.
Ich bin mir sehr sicher, dass GETRC5() das erste Paket nicht richtig erkennen kann, da die erste Flanke fehlt. Ist das Paket dann nach 25ms durch, kommt eine Pause von 114ms, bevor das zweite Paket gesendet wird.
Jetzt wird der Befehl in weiteren 25ms erkannt. Der µC hat bei 16MHz in der Zwischenzeit 2.500.000 Zyklen abgespult. Bleibt man einen Moment zu lange auf der Taste sind es wieder 2.500.000 Zyklen. Und auch bei Dirks Version findet das Ganze in einer ISR statt.
Hast du in der ISR die Zeiten der Flankenwechsel in einem kleinen Array mitgeloggt, brauchst du im Hauptprogramm nur diese paar Befehle um einen gültigen RC5 Befehl zu erkennen:

If Flanken_anzahl > 15 And Flanken_anzahl < 27 And Flanken_anzahl.0 = 0 Then
   If Imp_array(2) > kurz_min And Imp_array(2) < kurz_max And Imp_array(3) > kurz_min And Imp_array(3) < kurz_max Then       
      I = 4
      Daten = 1
      While I < Flanken_anzahl
         Shift Daten , Left
         Daten.0 = Daten.1
         If Imp_array(i) > kurz_min And Imp_array(i) < kurz_max Then
            Incr I
            If Imp_array(i) <= kurz_min Or Imp_array(i) >= kurz_max Then
               Exit While         'fehlerhafter Empfang
            End If
         Elseif Imp_array(i) > lang_min And Imp_array(i) < lang_max Then
            Toggle Daten.0
         Else
            Exit While            'fehlerhafter Empfang
         End If
         Incr I
      Wend
      If I >= Flanken_anzahl Then
         If Imp_array(i) > lang_min And Imp_array(i) < lang_max Then
            Shift Daten , Left
         End If
         Temp_daten = Daten
         Rc5_befehl = Temp_daten And &B00111111
         Shift Temp_daten , Right , 6
         Rc5_adresse = Temp_daten And &B00111111
         Print  "Adresse=" ; Rc5_adresse ; ", Befehl=" ; Rc5_befehl
      End If
   End If
End If

Und das geht bestimmt 1000 mal so schnell, denn 2500 Zyklen braucht er sicher nicht dafür.

Gruß

Rolf

[stefan_Z]

Hier im Forum gibts irgendwo ne selbstgebastelte RC5-Routine die super im Interrupt funktioniert. Such die mal raus, die tuts fantastisch!