$regfile = "attiny2313.dat" $crystal = 12800000 Config Lcdpin = Pin , Db7 = Portb.0 , Db6 = Portb.1 Config Lcdpin = Pin , Db5 = Portb.2 , Db4 = Portb.3 Config Lcdpin = Pin , E = Portb.4 , Rs = Portb.5 Config Lcd = 16 * 2 Config Timer0 = Timer , Prescale = 1 Config Timer1 = Counter , Edge = Rising Dim Flag As Bit Dim Over As Byte Dim Tint As Word Dim Freq As Long Dim Freq2 As String * 8 Stop Timer0 Stop Timer1 On Timer0 Timer0_int On Timer1 Timer1_int Enable Interrupts Enable Timer0 Enable Timer1 Cls : Cursor Off Start Timer0 Start Timer1 Do If Flag = 1 Then Freq = Over * 65536 Freq = Freq + Timer1 Freq2 = Str(freq) Freq2 = Format(freq2 , "0.000") Cls Lcd "FREQ " ; Freq2 ; "kHz" Flag = 0 Over = 0 Tint = 0 Timer1 = 0 Start Timer0 Start Timer1 End If Loop End Timer0_int: Incr Tint If Tint = 50000 Then Stop Timer0 Stop Timer1 Flag = 1 End If Return Timer1_int: Incr Over Return