This may not help but wouldn't it be more readable to use something like:

For i = 7 To 0 Step -1 ' 8 bits (1..8)
PulsIn PORTB.0, 1, ip ' receive pulses from sensor
If ip > 70 Then
hum[i] = 1 ' SetBit hum, i
Else
hum[i] = 0 ' ClearBit hum, i
Next

Norm