erro ao compilar asm

ola! saudaçoes a todos!
ro enfrentando um problema e, gostaria do auxilio dos amigos. tenho esse arquivos extensao .bas quando tento
compilar no proton ide ele dar erro de
error[(line 47) :I2C WRITE´is a protected keyword used by the compiler,preprocessor,or assembler,and cannot be used at this.
vbnet code
ro enfrentando um problema e, gostaria do auxilio dos amigos. tenho esse arquivos extensao .bas quando tento
compilar no proton ide ele dar erro de
error[(line 47) :I2C WRITE´is a protected keyword used by the compiler,preprocessor,or assembler,and cannot be used at this.
vbnet code
Device = 16F628a 'PIC'i tanýtýyoruz.
XTAL = 4 'Kristal Hýzýný Belirtiyoruz 4Mhz
Config XT_OSC , WDT_OFF , PWRTE_OFF ,MCLRE_ON , BOdEN_ON , LVP_OFF , CP_OFF 'PIC'in konfigürasyonlarý.
Declare I2C_SCLOUT On
'---------------------------LCD--------------------------------
DECLARE LCD_LINES 2 ' LCD Satýr
DECLARE LCD_DTPIN PORTB.0 ' LCD Data Pin
DECLARE LCD_INTERFACE 4 ' LCD Data Pin Sayýsý 4
DECLARE LCD_RSPIN PORTB.4 ' LCD RS Pin
DECLARE LCD_ENPIN PORTA.3 ' LCD EN Pin
'R/W pin GND
'---------------------------Adresler----------------------------
Dim FREKANS_step As Word 'Frekans Onda sayý
Dim FREKANS_Tam As Word 'Frekans Tam sayý
Dim FREKANS_Onda As Word 'Frekans stepi
Dim FREKANS As Word 'Frekans bilgisi deðiþkeni
Dim F_KONTROL As Word 'KONTROL deðikenini tanýmladýk
Dim ADRES As Byte 'TSA5511 için adres deðiþkeni
Dim LO As FREKANS.LowByte 'Frekans deðiþkeninin düþük byte'ý
Dim HI As FREKANS.HighByte 'Frekans deðiþkeninin yüksek byte'ý
'--------------------------Portlar------------------------------
Symbol SDA = PORTA.1 'I2C'nin SDA'sý PORTA.1'ya baðlý
Symbol SCL = PORTA.0 'I2C'nin Scl'si PORTA.0'ya baðlý
Symbol LED = PORTA.2 'LED PORTA.2'e baðlý
PORTA=0 : PORTB=0 'PORTA ve PORTB sýfýrlandý
'------------------------Eepromdan OKu--------------------------
bas:
High LED
Print at 1,1, " FM TRANSMITTER "
Print at 2,1, " Rdvv ViProje "
DELAYMS 1000 '1 sn bekle
ADRES = $C2 'TSA5511 in adresi tanýmlandý
FREKANS_step = ERead 02 'Frekans Deyerini EData dan okuyor
If FREKANS_step > 0 Then TsaYaz 'Frekans Bilgisi 0 Dan Büyük ise Tsa yaza gidiyor
'----------------------Frekans Deðiþtir-------------------------
Frekans_set:
DELAYMS 100
FREKANS_Onda = (FREKANS_step*10/2)//100
FREKANS_Tam = (FREKANS_step*10/2)/100
Print at 1,1, " FRE SET ", dec FREKANS_Tam, ",", dec FREKANS_Onda," " 'LCD Yaz
Print at 2,1, " RDVV 8Watt PLL " 'LCD Yaz
If PORTB.5=1 Then Artir_frekans
If PORTB.7=1 Then Azalt_frekans
If PORTB.6=1 Then Kaydet_frekans
'----------------------- Tsa5511 e yaz--------------------------
FREKANS = FREKANS_step
I2CWRITE SDA,SCL,ADRES, [HI,LO,$8E,$10]
GoTo Frekans_set
Artir_frekans:
DELAYMS 50
FREKANS_step=FREKANS_step + 1 'içeriði 5 artir
If FREKANS_step > 2160 Then FREKANS_step=1750 'içerik 10800 dan büyük ise 8750 yap
GoTo Frekans_set
Azalt_frekans:
DELAYMS 50
FREKANS_step=FREKANS_step-1 'içeriði 5 azalt
If FREKANS_step < 1750 Then FREKANS_step=2160 'içerik 8750 den küçük ise 10800 yap
GoTo Frekans_set
'--------------------------Edataya yaz---------------------------
Kaydet_frekans:
EWrite 02 ,[FREKANS_step] 'Frekans Bilgisini Edataya yazýyor
DELAYMS 200
'----------------------- Tsa5511 e yaz--------------------------
TsaYaz:
FREKANS = FREKANS_step
I2CWRITE SDA,SCL,ADRES, [HI,LO,$8E,$00]
DELAYMS 200
'----------------------Tsa5511i Kontrol et----------------------
I2CREAD SDA,SCL,ADRES,[F_KONTROL]
If F_KONTROL.6=1 Then Kitli
FREKANS_Onda = (FREKANS_step*10/2)//100
FREKANS_Tam = (FREKANS_step*10/2)/100
Print at 1,1, " UnLock ", dec FREKANS_Tam, ",", dec FREKANS_Onda, " " 'lcd yaz
Print at 2,1, " RDVV 8Watt PLL " 'LCD Yaz
If PORTB.6=1 Then Frekans_set
GoTo TsaYaz
Kitli:
I2CWRITE SDA,SCL,ADRES, [HI,LO,$8E,$24]
FREKANS_Onda = (FREKANS_step*10/2)//100
FREKANS_Tam = (FREKANS_step*10/2)/100
Print at 1,1, " Lock ", dec FREKANS_Tam, ",", dec FREKANS_Onda, " " 'lcd Yaz
Print at 2,1, " RDVV 8Watt PLL " 'LCD Yaz
K_buton:
DELAYMS 150
If PORTB.5=1 Then LCD_Led_Off
If PORTB.7=1 Then LCD_Led_On
If PORTB.6=1 Then Frekans_set
GoTo K_buton
LCD_Led_On:
High LED
GoTo K_buton
LCD_Led_Off:
Low LED
GoTo K_Buton
End