;UNO 2009.juni.23
;LCD-s óra
;44.pin demo board-ra

DEFINE	LCD_DREG PORTB		;LCD adatbusz = portb
DEFINE	LCD_BITS 8		;8 BITES BUSZ -- kevesebb vezerlobit elegendo (kicsit lassabb a 8 bitesnel)
DEFINE	LCD_LINES 2 		;2 SOROS KIJELZO 
DEFINE	LCD_RSREG PORTd		;RS jel a B porton
DEFINE	LCD_RSBIT 6		' RS jel a D.6 biten  
DEFINE	LCD_EREG PORTd		' Enable jel  (LCD 6. lab) a D porton
DEFINE	LCD_EBIT 5		' Enable jel a D.5biten

;************************************************************************************
;Konstansok:
LCD1sor		con $80		'LCD kijelzo direkt sorcimzes: 1 sor
LCD2sor		con $C0		'LCD kijelzo direkt sorcimzes: 2 sor
LCD3sor		con $94		'LCD kijelzo direkt sorcimzes: 3 sor
LCD4sor		con $D4		'LCD kijelzo direkt sorcimzes: 4 sor
par		con $FE		'LCD kijelzo parancs kuldeshez
home		con 2		'LCD kijelzo "kurzor home" parancs
torles		con 1		'LCD kijelzo "kijelzo torles" parancs

;************************************************************************************	
	
	trisB=%11111111
	trisD=%11111111
SEC 	VAR BYTE
PERC	VAR BYTE
ORA 	VAR BYTE
X 	VAR BYTE

pause 1000

SEC=	00
PERC=	15
ORA=	17

;************************************************************************************

KEZD:
;LDC-re érték kiírása:

FOR x=0 to 90

lcdout par, lcd1sor
lcdout dec2 ora
lcdout ":"

pause 500

lcdout dec2 perc
lcdout ":"

pause 500

lcdout dec2 sec 

;************************************************************************************
;Idő számítás:

SEC=SEC+1
	IF SEC=60 THEN
		SEC=0
		PERC=PERC+1
	ENDIF
	IF PERC=60 THEN
		PERC=0
		ORA=ORA+1
	ENDIF
	IF ORA=24 THEN
		ORA=0
	ENDIF
pause 200
next x
gotokezd