jep mach ich :
hab hier mal den code nochmal und ohne anderes zeug
Code:
$regfile = "M32def.dat"
$crystal = 8000000
Dim A As Integer
Dim B As Integer
Dim Intanzeige0 As Integer
Dim Intanzeige1 As Integer
Config Timer0 = Timer , Prescale = 256
Enable Interrupts
Enable Int0
Enable Int1
A = 0
B = 0
On Timer0 Anzeige
On Int0 Interrupt0
On Int1 Interrupt1
'----------------------------
Do
nop
Loop
End
'----------------------------
Interrupt0:
A = A + 1
Return
Interrupt1:
B = B + 1
Return
Anzeige:
Intanzeige0 = A
Intanzeige1 = B
A = 0
B = 0
Return
Lesezeichen