proton glcd uygulaması

[yunus417]

iyi çalışmalar arkadaşlar. fastlcd ve pixelv programı ile .inc ve .bas dosyamı oluşturdum. programı da yazdım fakat anlayamadığım bi hata yüzünden proton ide derleyicisi derlemede hata diyor ve hiç hata kodu yok. inc ve bas dosyalarım program dosyası içerisinde . yardımcı olur musunuz.

Include  "dene.inc"
Device = 16F877
Config XT_OSC,WDT_OFF,PWRTE_ON,BODEN_ON,LVP_OFF,DEBUG_OFF,CP_ALL  
Xtal = 4
All_Digital= TRUE                  'ADC PORTLARININ TAMAMI DİJİTAL GİRİŞ VEYA ÇIKIŞ
Declare LCD_DTPort = PORTD                'GLCD DATA PORTLARI PORTB'YE BAĞLI
Declare LCD_RSPin = PORTC.5                'GLCD RS PİNİ PORTC.5 BAĞLI
Declare LCD_ENPin = PORTC.1                'GLCD ENABLE PİNİ PORTC.1 BAĞLI
Declare LCD_RWPin = PORTC.4                'GLCD RW PİNİ PORTC.4 BAĞLI
Declare LCD_CS1Pin = PORTC.2               'GLCD CS1 PİNİ PORTC.2 BAĞLI
Declare LCD_CS2Pin = PORTC.3               'GLCD CS2 PİNİ PORTC.3 BAĞLI
Declare LCD_Type =  GRAPHIC                'GLCD TİPİ GRAFİK KS0108 128*64B WİNSTAR
Declare Internal_Font = On                 
Declare Font_Addr = 0
Cls
DelayMS 500	         
Dim  Xpos    As Byte
Dim  Ypos    As Byte
Dim  Char    As Byte
Dim memoria As Word
BASLA:
 For Ypos = 0 To Ypos=7
         For Xpos = 0 To Xpos=127
 
             memoria= (Ypos*128)+Xpos
             Char = CRead dene+ memoria
             LCDWrite Ypos,Xpos,[Char]
         Next Xpos
     Next Ypos
 DelayMS 1000
   GoTo BASLA
   End