Proton pic basic yardımı

[colatesi1]

Merhaba arkadaşlar
bitirme projem için elimde biraz modifiye edilmesi gereken hazır bir kod var
sorunum şu ki bu hazır kodu compile edince dublicate decleratıon error diye bir hata veriyor.program baya uzun. onun için sadece compilerin hata verdiği kısmını veriyorum.Bu işlere yenı başlayan biri olarak ustalarımdan yardım istiyorum.
teşekkür ve saygılarımla...........
Include "PROTON_4.INC" 'Lcd DECLERASYONU BUNUN IÇINDE
Include "modedefs.bas"
Device 16F877
Dim SERDATA[69] As Byte
Dim LCD_Data[42] As Byte
Dim adress As Word
Dim refresh_time As Byte
Dim i As Byte
Dim satir As Byte
Dim not_sayac As Byte
Dim nokta As Byte
nokta=14
Config HS_OSC,WDT_OFF,PWRTE_OFF,BODEN_OFF,LVP_OFF,CP_OFF,DEBUG_OFF
DEFINE XTAL 4
ALL_DIGITAL=TRUE
PORTB_PULLUPS=OFF
OPTION_REG=%11000000
Declare FSR_CONTEXT_SAVE = On
ON_INTERRUPT data_al
ADCON1=7
Input PORTC.7 'RX
Input PORTD 'LED
Output PORTD.1
Output PORTD.2
Output PORTD.3
Input PORTB.0 'Hardware Interrupt için

Symbol GIE=INTCON.7 'Global Interrupt Enable bit
Symbol peie=INTCON.6 'Peripheral Interrupt Enable bit
Symbol t0ie=INTCON.5 'TMR0 Overflow Interrupt Enable bit
Symbol inte=INTCON.4 'RB0/INT External Interrupt Enable bit
Symbol rbie=INTCON.3 'RB Port Change Interrupt Enable bit
Symbol t0if=INTCON.2 'TMR0 Overflow Interrupt Flag bit
Symbol intf=INTCON.1 'RB0/INT External Interrupt Flag bit
Symbol rbif=INTCON.0 'RB Port Change Interrupt Flag bit


HSERIAL_BAUD = 2400 'BAUD RATE 1200
HSERIAL_RCSTA = %10010000 'SERIALPORT AÇIK VE CONTINUOUS RECEIVER
HSERIAL_TXSTA = %00100000 '
HSERIAL_CLEAR = On 'RECEIVER DAN ÖNCE BUFFER TEMIZLER

Declare SDA_PIN PORTC.4 'I2C DATA PIN
Declare SCL_PIN PORTC.3 'I2C CLOCK PIN
Declare SLOW_BUS OFF 'I2C AT 400KHz

Dim sayac As Byte
Dim a As Byte
Dim b As Byte
Dim d As Byte
Dim busout_adress As Word
busout_adress=0
adress=0

 

[muratmert4]

S.A.
Sn. Arkadaşım bu ana program değil. bu programa başlamadan önceki atamalar. Ana program bundan sonra yazılıyor.Bunu derlediğin zaman hata vermesi normal.