' $regfile = "2313def.dat" 'AT90S2313 ' $crystal = 10000000 '10Mhz Quarz Config Timer1 = Timer , Prescale = 1 Dim Millisekunden As Single 'Wenn Interrupt auftritt dann gehe zu Subroutine Enable Interrupts Enable Timer1 'Aktiviert den Interrupt des Timer1 Start Timer1 On Timer1 Timer1int Load Timer1 , 10220 Millisekunden = 0 Do Start Timer1 Print Millisekunden Loop '************************************** '* Interrupt-Routine (MilliSekunden messen)* '************************************** Timer1int: Load Timer1 , 10220 '1000 stel Sekunde Incr Millisekunden Return