Ok! I resolved the problem by u re suggests.Here re the working codes.
I am always wrting the codes coz if somebody has or will the same problem they can find the way how to resolve by working codes

DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 0
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 3
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 50
sayac var word
sayac=0
sayac_goster var word
sayac_goster = 0
b1 var byte
lcd_goster:
read 5,sayac_goster.highbyte
read 6,sayac_goster.lowbyte
lcdout $Fe,1
Lcdout "sayac"
LCDOut $Fe,$C0
lcdout "total=",#sayac_goster
loop:
button porta.4 ,0,0,0,b1,1,ok
goto loop:
ok:
data @5,0
data @6,0
read 5,sayac_goster.highbyte
read 6,sayac_goster.lowbyte
sayac_goster = sayac_goster + 1
sayac=sayac_goster
write 5,sayac.highbyte
write 6,sayac.lowbyte
goto lcd_goster
end