INCLUDE "int-tim0.bas"

DEFINE	LCD_DREG	PORTD
DEFINE	LCD_DBIT	0
DEFINE	LCD_RSREG	PORTE
DEFINE	LCD_RSBIT	1
DEFINE	LCD_EREG	PORTE
DEFINE	LCD_EBIT	0
DEFINE	LCD_BITS	8
DEFINE	LCD_LINES	2

ADCON1 = $05							'PortE = digital

z_count	var	BYTE


lcdout $FE,1							'clears the display							

loop:
	if i_100ms_flag = 1 then				'increment counter each 100ms
		z_count = z_count + 1
		i_100ms_flag = 0
	endif

	lcdout $FE,$80,"This is a clock"
	if i_tic > 5 then					'needs to be in a fast loop to blink
		lcdout $FE,$c0,"Blinking line"
	else
		lcdout $FE,$c0,"              "
	endif
	lcdout $FE,$90,"Time ",dec2 i_hour,":",dec2 i_minu,":",dec2 i_sec
	lcdout $FE,$d0,"counter: ",dec3 z_count

	goto loop