BasicMicro - Forums

CPU = 16F876

MHZ = 10

CONFIG 16254



;***********************************************

; http://www.basicmicro.com                   

; Title : owin.bas                             

; Author : Dale Kubin                         

; Date : 04/29/02                             

; One Wire commands. Read a Dallas one wire

; DS1820 chip. Use the float command to handle the

; decimal point.                               

;***********************************************





temp   var word

temp1   var word

Convert   var long

counter var byte



main

   Owout B0,1,main,[$cc,$44]

   

Wait

owin B0,0,[temp]

   if temp = 0 then wait

      Owout B0,1,main,[$cc,$be]

      owin B0,0,[temp.byte0,temp.byte1]

      Convert = float temp fdiv 2.0

Debug ["Temperature = ",real convert," C",13]

goto main