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







Zitieren

Lesezeichen