' DHT11 Test
' Picomite 5.07.07b10
Dim float temp,humidity,last_temp,last_humidity
Dim integer i = 0,ec = 0
SetPin gp14,dout
Do
 Bitbang humid gp13,temp,humidity,1
 If temp  = 1000 Then
   Pin(gp14) = 1
 EndIf
 Pin(gp14) = 0
 Inc i
 Pause 2000
 CLS
 Box 5,20,150,120,,RGB(blue)
 Box 165,20,150,120,,RGB(Blue)
 Text 6,0,"TEMPERATURE",,2
 Text 175,0,"HUMIDITY",,2
 Text 10,55,Str$(temp)+Chr$(96),,5,2
 Text 170,55,Str$(humidity)+"%",,5,2
 If (temp < 5) Or (temp > 40) Or (Humidity < 5) Or (Humidity > 90) Then
   Inc ec
   Print
   Print "Error at " + Time$ + "  The temperature is " + Str$(temp) + Chr$(96)
   Print "Last temperature was " Str$(last_temp)
   Print "Error at " + Time$ + "  The humidity is " + Str$(humidity) + "%"
   Print "Last humidity was " Str$(last_humidity)
   Print "Error count is " ec " at run count " i
 EndIf
 If (i Mod 100) = 0 Then
   Print
   Print "Run count: " i
 Else
   Print ".";
 EndIf
 last_temp = temp
 last_humidity = humidity
Loop
>

   
   if(argc==7){
    dht22=getint(argv[6],0,1);
   }
   // pulse the pin low for 1mS
// *** *** 1mS for DHT22 or 19mS for DHT11
   uSec(1000+dht22*18000);
   writeusclock(0);
   timeout = 400;
   PinSetBit(pin, CNPUSET); //#1
   PinSetBit(pin, TRISSET);
// ***at this point CRO indicates pin is low and stays low the whole 19mS if DHT11
   uSec(5);
   // wait for the DHT22 to pull the pin low and return it high then take it low again
//*** at this point, we have already waited 19.005mS and pin is already low for DHT11
   while(PinRead(pin)) if(readusclock() > timeout) goto error_exit; // pin lo so fall thru ??

//*** at low cpu clock I think we might miss the start of the timing pulse
// so the pin will now be high and thus fall thru the next line


   while(!PinRead(pin)) if(readusclock() > timeout) goto error_exit;

// *** again at lo cpu clock, I think we have missed the timing pulse so
// this next line will think it found the first data bit instead of the end
// of the timing bit ???
   while(PinRead(pin)) if(readusclock() > timeout) goto error_exit;
//    PInt(readusclock());PRet();

   // now we wait for the pin to go high and measure how long it stays high (> 50uS is a one bit, < 50uS is a zero bit)
   for(r = i = 0; i < 40; i++) {
    timeout=400;
       while(!PinRead(pin)) if(readusclock() > timeout) goto error_exit;
       timeout=400;writeusclock(0);
       while(PinRead(pin)) if(readusclock() > timeout) goto error_exit;
       r <<= 1;
       r |= (readusclock() > 50);