Zitat:
$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
Wo ist hier von Timer0 die Rede? Niergendwo. Brauch ja auchnicht. Das erledigt GETRC5() ja von alleine.