rrf i
cal Dlay4
call Dlay4 decfsz j goto GetDSLoop
; Добавить бит к содержимому счетчика
; Теперь ввести задержку в 8 циклов ; перед следующим запросом
return SendDS:
j = 8 SendDS_Loop:
; Послать команду DS1820
; Цикл посылки каждого бита
bcf PORTA, DSBit ; Переслать бит
btfsc i, 0 ; Переслать 1?
bsf PORTA, DSBit ; Да ..
rrf i
call Dlay4