eeproma veri yazıp lcd den okuma

[mustafa26]

DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 0


DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 4
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 5
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
B1 VAR BYTE
W2 VAR WORD
ADCON1 = 7
pause 100

Ana_prog:
if portA.0=1 then yaz
if portA.1=1 then oku
if portA.2=1 then sil
goto Ana_prog
yaz:
For B1 = 0 to 12 step 2
W2 = B1 + 1000
Write b1, W2.HIGHBYTE
WRITE B1+1, W2.LOWBYTE
next b1
goto Ana_prog
oku:
For b1 = 0 to 12 step 2
bekle:
if portA.3 = 0 then bekle
pause 100
read b1, w2.highbyte
read b1+1, w2.lowbyte
lcdout $FE, 1, $C0, #w2
next b1
goto Ana_prog
sil:
for b1 = 0 to 12 step 2

w2=0
write b1, w2.HIGHBYTE
WRITE B1+1, W2.LOWBYTE
NEXT B1
GOTO Ana_prog
End
ete hocam böyle yazdık biz ama lcdye yazıp okuma için ne gerekli teşekkür ederim şimdiden