Kod:

'değişkenlerin tanımlandığı bölüme

sayac  var  byte
kalan  var  byte

'ifadelerini ilave ediniz.


sensoroku:

           owout   comm_pin, 1, [$cc, $44]                 ' ısı değerini oku
bekle:
           owın    comm_pin, 4, [busy]                         ' busy değerini oku
           ıf      busy = 0 then bekle                             ' hala meşgulmü? , evet ise goto bekle..!
           owout   comm_pin, 1, [$cc, $be]                 ' scratchpad memory oku
           owın    comm_pin, 0, [ham.lowbyte, ham.hıghbyte, skip 4, kalan, sayac]
           gosub   hesapla
           return
   
hesapla:                 
    sign  = "+"
    ıf sıgn_bıtı = negat_ısı then
       sign   = "-" 
       ısı=((($ffff-ham+1)*50)-25)+ (((sayac - kalan) * 100) / sayac)
       goto gec   
    endif
    ısı = (((ham) * 50) - 25) + (((sayac - kalan) * 100) / sayac)
'    ısı=ısı-25  'bana göre bu düzeltme yapılmalı ama verilen formül öyle demiyor
gec:
    ısı2 = (ısı //100)/10
    ısı1=ısı/100
    return