$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 Config Timer1 = Timer , Prescale = 1 Dim Over As Byte Cls : Cursor Off On Timer1 Timer1_int Enable Interrupts Enable Timer1 Stop Timer1 Timer1 = 1 Do Start Timer1 Waitus 996 Stop Timer1 Cls Lcd "TIMER1 " ; Timer1 Lowerline Lcd "OVERFL " ; Over Wait 1 Incr Timer1 Loop End Timer1_int: Incr Over Return