hallo

ich muß das GetRC5 über einen Interrupt auslösen - da ein polling mit GETRC5 zu lange dauert ...
dafür habe ich folgendes programm genommen :


$crystal = 10000000
$regfile = "m8def.dat"
$baud = 19200



Config Pinc.0 = Output ' IR Sensor sitzt mit GND an Pinc.0
Reset Portc.0 ' und mit +5V an Pinc.1
Config Pinc.1 = Output ' und mit Sign. an Pinc.2
Set Portc.1


Config Pind.4 = Output ' kontroll LED
Config Pind.5 = Output 'kontroll led

Gruen Alias Portd.4
Rot Alias Portd.5


Config Rc5 = Pinc.2

Config Pind.3 = Input 'int1 als Eingang

Config Int1 = Falling



On Int1 Int1_isr


Enable Interrupts
Enable Int1

Dim A As Byte , C As Byte


Print "Waiting for RC5..."


Do
Reset Rot
Waitms 100
Set Rot
Waitms 1
Print C
Loop

End


Int1_isr:
Disable Int1
Getrc5(a , C)
Enable Int1
Return


pinc.2 (RC5 Eingang) und Pind.3 (int1 Eingang habe ich mit einem drähtchen verbunden


jedoch funkt. das ganze leider nicht ...
nachdem der in die In1_isr gesprungen ist blinkt nichtmehr die rote kontroll led
also der hängt sich irgendwie in der Int1_isr auf ....

wer hat schonmal das ganze mit dem RC5 und interrupts gelöst ?


Gruß Tobias