Code:
Sensor:
OWOUT OWnet,1, [skiprom,WriteScratchpad,$00,$00],Senout
OWOUT OWnet,1, [skiprom,ConvertT] :pause 10
OWOUT OWnet,1, [skipROM,ConvertV] :pause 5
OWOUT OWnet,1, [skipROM,RecallMemory, $00] ; Skip ROM search, Recall Memory
OWOUT OWnet,1, [skipROM,ReadScratchpad, $00] ; Skip ROM search, Read
OWIN OWnet,2, [STR DSbuffer\9]' Read 9 bytes
Serout2 TX_485, 84,[" 1-Wire is present on main"]
GOSUB GetT_V
Senout:
RETURN
ALT_Sensor:
OWOUT OWalt,1, [skiprom,WriteScratchpad,$00,$00],Altout
OWOUT OWalt,1, [skiprom,ConvertT] :pause 10
OWOUT OWalt,1, [skipROM,ConvertV] :pause 5
OWOUT OWalt,1, [skipROM,RecallMemory, $00]
OWOUT OWalt,1, [skipROM,ReadScratchpad, $00] ' Skip ROM search, Read
OWIN OWalt,2, [STR DSbuffer\9]' Read 9 bytes
Serout2 TX_485, 84,[" 1-Wire is present on Alternet"]
GOSUB GetT_V
Altout:
RETURN
Bookmarks