;******************************************************************
;
; get 64-bit serial number and device family code
;
GetSN
owReset ; reset one-wire devices |B0
btfss owByte,0 ; ow device found? |B0
return ; no, return, else |B0
owSend (h'33') ; DS1820 'read rom' command |B0
owRead(owBuff,8) ; read 8 bytes -> owBuf |B0
bcf DS18B20 ; clr DS18B20 family flag |B0
movf owBuf+0,W ; get family ID byte |B0
xorlw h'28' ; is it DS18B20? |B0
skpnz ; no, skip, else |B0
bsf DS18B20 ; set DS18B20 family flag |B0
return ; |B0
;******************************************************************