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