$regfile = "attiny2313.dat" $crystal = 1024000 Config Lcdpin = Pin , Db7 = Portb.0 , Db6 = Portb.1 Config Lcdpin = Pin , Db5 = Portb.2 , Db4 = Portb.4 Config Lcdpin = Pin , E = Portb.5 , Rs = Portb.6 Config Lcd = 16 * 2 Cls : Cursor Off Config Timer1 = Timer , Prescale = 64 , Compare A = Toggle , Clear Timer = 1 Config Debounce = 1 Config Portb = Output Config Portd = Input Portd = 127 Declare Sub Encode Dim C1 As Long Dim C2 As Long Dim T1 As Long Dim T2 As String * 10 Dim N As Integer A Alias Pind.2 B Alias Pind.3 Compare1a = 0 Lcd "C=0" Lowerline Lcd "T=0.125mS" Do Debounce A , 0 , Encode , Sub Loop End Sub Encode If B = 1 Then Incr N If B = 0 Then Decr N If N > 16 Then N = 0 If N < 0 Then N = 16 C1 = 2 ^ N C2 = C1 - 1 T1 = C1 * 125 T2 = Str(t1) T2 = Format(t2 , "0.000") Compare1a = C2 Cls : Lcd "C=" ; C2 Lowerline Lcd "T=" ; T2 ; "mS" End Sub