PIC16F690. Чтение датчика температуры и влажности DHT-11

sub function OW_Read_Bit_DHT () as byte
 dim i, j, DHT_dat as byte
 DHT_dat = 0
 result = 0
 for j = 7 to 0 step - 1
 i = 0
 while (DHT_bit = 0)
 Delay_us(1)
 if i > 70 then ER_MK.4 = 1 break end if
 INC(i)
 wend
 Delay_us(40)
 If DHT_bit = 1 Then
 result.j = DHT_bit
 end if
 i = 0 '
 while (DHT_bit = 1)
 Delay_us(1)
 if i > 70 then ER_MK.4 = 1 break end if
 INC(i)
 wend
 next j
 end sub

 sub function Read_DHT11() as byte
 dim i as byte
 DHT_byte as byte[4]
 result = 1
 DHT_bit_Direction = 0
 DHT_bit = 0
 Delay_ms(1
 DHT_bit_Direction = 1
 Delay_us(40)
 if DHT_bit = 1 then result = 1 exit end if 'датчик не ответил
 Delay_us(80)
 if DHT_bit = 0 then result = 1 exit end if 'датчик не ответил
 i = 0
 while (DHT_bit = 1)
 Delay_us(1)
 if i > 80 then result = 1 exit end if
 INC(i)
 wend
 DHT_byte[0] = OW_Read_Bit_DHT ()
 DHT_byte[1] = OW_Read_Bit_DHT ()
 DHT_byte[2] = OW_Read_Bit_DHT ()
 DHT_byte[3] = OW_Read_Bit_DHT ()
 Sum_Byte = OW_Read_Bit_DHT ()
 DHT_bit_Direction = 0
 DHT_bit = 1
 i = DHT_byte[0] + DHT_byte[2]
 if i = Sum_Byte then
 iSHT_Humi = DHT_byte[0]
 iSHT_Temp = DHT_byte[2] * 16
 result = 0 'если все ок возврат "0" , нет - "1"
 end if

 end sub

 sub procedure Pausa_us(dim us as byte)
 TMR2 = 0
 PR2 = us
 T2IF_bit = 0
 T2CON = %00000100
 while( T2IF_bit = 0 )
 wend
 TMR2ON_bit = 0
 end sub