TRISB=0
DEFINE LCD_DREG PORTB 'LCD data bacaklarını B portuna bağlı
DEFINE LCD_DBIT 4 'DB4 ->RB4 e bağladım ve devam ettim
DEFINE LCD_EREG PORTB 'LCD Enable Bacagı B portuna bağlı
DEFINE LCD_EBIT 1 'LCD Enable Bacagı RB1 de bağlı
define LCD RWREG PORTB 'LCD R/W Bacagı B portuna bağlı
define LCD_RWBIT 2 'LCD R/W Bacagı RB2 de bağlı
DEFINE LCD_RSREG PORTB 'LCD RS Bacagı B portuna bağlı
DEFINE LCD_RSBIT 3 'LCD RS bacagı RB3 e bağlı
DEFINE LCD_BITS 4 'LCDyi B portunun 4 bacağına bağladım
DEFINE LCD_LINES 2 'LCD 2 satır yazıyor
LOW PORTB.2 'RW BACAGI EKRANA YAZMAYA IMKAN VERMEK ICIN LOW YAPILDI
pause 500
DONGU:
LCDOUT $FE,1,"55"
LCDOUT $FE,$C2,"DENEME"
GOTO DONGU
end