$regfile = "attiny2313.dat" $crystal = 1000000 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 Cls : Cursor Off Config Portd = Input Portd = 127 Config Debounce = 1 Declare Sub Encode Dim N As Integer A Alias Pind.2 B Alias Pind.3 Lcd "COUNT 0" Do Debounce A , 0 , Encode , Sub Loop End Sub Encode If B = 1 Then Incr N Else Decr N End If Cls Lcd "COUNT " ; N End Sub