Code:$regfile = "m8def.dat" $crystal = 3686400 Baud 9600 Config Portb = Output Config Pinc.0 = Input Config Pinc.1 = Input Config Pinc.2 = Input Portc = &B11111111 Dim Taste As Bit Dim Taste1 As Bit Dim Taste2 As Bit Taste = 0 Taste1 = 0 Taste2 = 0 Config Timer1 = Timer , Prescale = 64 Enable Timer1 On Timer1 Isr_von_timer1 Enable Interrupts Timer1 = 36736 Do If Pinc.0 = 0 Then Taste = 1 End If If Pinc.1 = 0 Then Taste1 = 1 Else Taste1 = 0 End If If Pinc.2 = 0 Then Taste2 = 1 Else Taste2 = 0 End If Loop Isr_von_timer1: Timer1 = 36736 If Taste = 1 Then Toggle Portb.0 End If If Taste1 = 1 Then Portb.0 = 0 Toggle Portb.1 End If If Taste2 = 1 Then Portb.1 = 0 Toggle Portb.0 End If Return
jetzt is eben dass problem je nachdem ich pin0 oder pinb1 auf 1 setze dass portb1 oder portb0 1 bleibt also sich nicht auf 0 setzt wie ich es in der isr angegeben habe.
Lesezeichen