Mikrobasic'te derleme sorunu

[nikney]

arkadaşlar, mikrobasicte iki tane ds18s20 sıcaklık sensörüyle onewire sıcaklık ölçümü yapan bir devrenin programını yazıp, derlediğimde "1:1 E-0 Linker error: Reentrancy not allowed: function [Lcd_Out] called in both main and interrupt threads" şeklinde bi hata veriyor. programı veriyorum bilgisi olan arkadaşlar yardım ederlerse çok sevinirim şimdiden teşekkürler.

program sicaklik
Include "Ow_Delays"
Include "Ow_romCmd_lib"

dim ds_serial as byte[16]
dim sc_array as byte[16]
dim text as char[16]
dim ds_sayi, ds_sonmu as byte
sub procedure interrupt
lcd_out(1,1,"aaaa")
delay_ms(10000)
intcon.1=0
end sub

main:
ADCON1 = $07
PORTA = $FF
PORTB = 0
TRISA = $FF
TRISB = 1
intcon=%10010000

LCD_Init(PORTB)
LCD_Cmd(LCD_CURSOR_OFF)
LCD_Cmd(LCD_CLEAR)
Ow_Config(PORTA,0)

do
if (OW_Search(ds_serial, ds_sonmu, _SEARCHROM)) then
Inc(ds_sayi)
else
LCD_Out(1,1,"0 Sensor bulundu")
goto cikis
end if
Loop until (ds_sonmu = 0)

LCD_Out(1, 1, "Bul. Sensor :")
LCD_Chr(1, 14, ds_sayi + 48)
delay_ms(2000)

while true
ds_sonmu=0
ds_sayi=0

do
Ow_Search(ds_serial, ds_sonmu, _SEARCHROM)
Inc(ds_sayi)
if (not OW_ChkCRC(ds_serial,7)) then
LCD_Out(1,1,"Rom Okuma Hatasi")
goto sonraki
end if

OW_ConvTemp(ds_serial)
delay_ms(1000)
OW_Match_ROM(ds_serial)
OW_ReadSPad(sc_array)

if (not Ow_ChkCRC(sc_array,8)) then
LCD_Out(1,1,"Ram Okuma Hatasi")
goto sonraki
end if

if (sc_array[1] = $FF) then
sc_array[4] = 45
sc_array[0] = not(sc_array[0]) + $01
else
sc_array[4] = 43
end if

sc_array[1] = sc_array[0].0*5
sc_array[0] = sc_array[0] >>1

LCD_Out(ds_sayi, 1, " ")
LCD_Out(ds_sayi, 1, "TEMP:")
LCD_Chr(ds_sayi, 5, ds_sayi+48)
LCD_Chr(ds_sayi, 6, sc_array[4])
BytetoStr(sc_array[0], text)
LCD_Chr(ds_sayi, 7, text[0])
LCD_Chr(ds_sayi, 8, text[1])
LCD_Chr(ds_sayi, 9, text[2])
LCD_Chr(ds_sayi, 10, ".")
BytetoStr(sc_array[1],text)
LCD_Chr(ds_sayi, 11,text[2])
LCD_Chr(ds_sayi, 12,223)
LCD_Chr(ds_sayi, 13,"C")
sonraki:
Loop until (ds_sonmu = 0)
wend
cikis:
end.

 

[ahmetalpat]

Lcd_Out fonksiyonunu hem mainde hem de interruptta çağırmışsın.

 

[nikney]

teşekkürler işe yaradı