Kod:

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:                 ' ham değerden santigrat derece hesabı
    sign  = "+"
    ıf sıgn_bıtı = negat_ısı then
       sign   = "-" 
       ısı=(((($ffff-ham+1)>>1)*100)-25)+ (((sayac - kalan) * 100) / sayac)
       goto gec   
    endif
    ısı = (((ham >> 1) * 100) - 25) + (((sayac - kalan) * 100) / sayac)

gec:
    ısı2 = (ısı //100)/10
    ısı1=ısı/100
    return