Here is short example for DS1820 using OWIN and OWOUT

'----------------------------------------------
DQ var PortD.2
temp var word

loop:
owout DQ,1,[$cc]
owout DQ,0,[$44]
Pause 2000
owout DQ,1,[$cc]
owout DQ,0,[$be]
owin DQ,0,[temp.byte0,temp.byte1]
lcdout $FE,1
temp=temp*5
lcdout " Temp = ",DEC2 temp/10,".", dec1 temp," ",$DF,"C"
goto loop
'----------------------------------------------

regards