dann probier mal diese vereinfachte Version:

Code:
'  '******************************************************************************
'
'                            AT Mega 8535 & LCD 16*2 Anschluß & TSOP 1736
'
'------ Standard-Init von Bascom ------------------------------

$regfile = "m8535.dat"
$crystal = 8000000
$hwstack = 40                                               ' default use 32 for the hardware stack
$swstack = 40                                               ' default use 32 for the SW stack
$framesize = 100                                            ' default use 40 for the frame space

Config Lcdpin = Pin , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5 , E = Porta.6 , Rs = Porta.7
Config Lcd = 16 * 2

Cls

Dim Impuls_laenge As Word , Flanken_index As Byte , Flanken_anzahl As Byte , Bit_count As Byte
Dim Befehl As Word , Geraet As Word , Neg_befehl As Word , Neg_geraet As Word , Nrc17_start As Byte
Dim Daten_pruefung As Byte , Parity As Byte , Hersteller As Word , System As Byte , Produkt As Byte , Modus As Byte
Dim Imp_array(200) As Byte , Daten As Long , Daten1 As Long , Temp_daten As Long , Code_found As Byte
Dim Timer0_startwert As Word , I As Byte
Dim Print_pc As Byte
Dim Zeit As Byte

Zeit = 3
Const Std_pulse = 5
Const Std_pulse_min = Std_pulse - 2
Const Std_pulse_max = Std_pulse + 2

Config Timer0 = Timer , Prescale = 8                        'hier den Timer eintragen (8-bit)
On Ovf0 Tim0_isr
Enable Timer0
Timer0_startwert = 78                                       '161                                      'bei mir 16000000/8/(256-56) entspricht 10Khz
Timer0 = Timer0_startwert                                   'Auflösung reicht und gefundene Werte entsprechen immer 100µs

Config Int0 = Change                                        'externer interrupt, bei mir Int0 auf portd.2
On Int0 Get_rc_isr
Enable Int0
Ddrd.2 = 0                                                  'ausgang des RC-empfängers
Portd.2 = 1

$baud = 19200                                               'Vorsicht: Wenn's langsam geht, kann dies die erkannten Flankenzeiten beeinflussen

Print_pc = 0                                                'auf 1 setzen, um über Print auszugeben

Enable Interrupts

Do
   If Code_found = 1 Then                                   'Jetzt geht es an die Erkennung des Codes
      Flanken_index = Flanken_anzahl
      Daten = 0
      Daten1 = 0
      Bit_count = 0
      Code_found = 0
      Print Flanken_anzahl ; ":"                            'Jetzt geht es an die Erkennung des Codes
      For I = 1 To Flanken_anzahl
         Print Imp_array(i) ; " "
      Next I
   End If
'RC5 hat immer gerade Anzahl Flanken, bei mir immer zwischen 16 und 26
'Imp_array(1) enthält die Pause seit dem letzten Befehl, ist also uninteressant
'Imp_array(2) ist das Ende der ersten Start-1
'Imp_array(3) ist der Anfang der zweiten Start-1


'-------------------------


Loop

End

Tim0_isr:
   Timer0 = Timer0_startwert
   Incr Impuls_laenge                                       'bei jedem Überlauf um 1 erhöhen
   If Impuls_laenge = 200 Then                              'Kein Impuls für 20ms und in Get_rc_isr schon mindestens 14 Flanken gespeichert
         Code_found = 1                                     'Auswertung im Hauptprogramm starten
   End If
Return

Get_rc_isr:
   If Impuls_laenge > 0 Then
      Incr Flanken_anzahl
      If Flanken_anzahl > 200 Then Flanken_anzahl = 200
      If Impuls_laenge > 255 Then Impuls_laenge = 255
      Imp_array(flanken_anzahl) = Impuls_laenge
      Impuls_laenge = 0
   End If
Return