;proba program 16f887-es proc. E-portjának tesztelésére
;2009.jul.2

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

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
	trisE=%11111111
	ansel=%00011111

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

KEZD:
lcdout "matyko"
portE=255
pause 300
portE=0
pause 300
goto kezd