Working with DS18S20

Define 1WIRE_REG = PORTA
Define 1WIRE_BIT = 2

Dim temp As Byte
Dim sign As Byte
Dim temp2 As Bit


DS18S20Start
WaitMs 1000
DS18S20ReadT temp, sign
Lcdcmdout LcdClear
If sign > 0 Then
    Lcdout "-"
    temp = 255 - temp
    temp = temp + 1
Endif
temp2 = temp.0
temp = temp / 2
Lcdout #temp
If temp2 = 1 Then
    Lcdout ".5"
Else
    Lcdout ".0"
Endif