'read external when bit goes hi, for parasitic just wait
 pause 700
 If power = 0 Then
   Pause Tconv
 Else
   t = Timer

dim presence(2048)
dim integer n
setpin 7, din
pin(42) = 1
setpin 42, dout, oc
pulse 42, 0.481 ' change this value for testing
setpin 42, din
timer = 0
for n = 1 to 1000
presence(n) = pin(42)
next n
print timer
for n = 1 to 100
print presence(n);
if (n mod 20) = 0 then print
next n

11.445
1 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
>

setpin 7, ain
setpin 42, din, pullup
pause 10
v1 = pin(7)
pause 1000
setpin 42, din, pulldown
pause 10
v2 = pin(7)
print v1
print v2

print "estimated external pullup =";str$((v1/v2)*40-40,2,2);"k"

 ' DS18B20 connected to PIN 42 in external power mode and link from PIN 42 to PIN 7
 ' TassyJim July 2020
 DIM FLOAT presence(2048)
 '
 ADC OPEN 200000, 7,12,13,allDone
 ADC TRIGGER 1, -2 ' start reading when level drops below 2
 ADC START presence()
 PIN(42) = 1
 SETPIN 42, DOUT, OC
 PULSE 42, 0.481 ' change this value for testing
 SETPIN 42, DIN
 DO
 LOOP UNTIL INKEY$<>""
END
 
SUB alldone
 LOCAL INTEGER n, y1,y2
 ADC CLOSE
 CLS
 FOR n = 0 TO 3
   LINE 0,400-n*100,799,400-n*100,1, RGB(RED)
   TEXT 0,380-n*100,STR$(n,2,1)
 NEXT n
 FOR n = 0 TO 750 STEP 50
   LINE n,390,n,410,1, RGB(RED)
   TEXT n,410,STR$(n*5,3,0)
   TEXT 400,440,"Time in uS",c
 NEXT n
 y1 = 400 - presence(0)*100
 FOR n = 1 TO 800
   y2 = 400 - presence(n)*100
   LINE n-1, y1, n, y2,1,RGB(WHITE)
   y1 = y2
 NEXT n
 SAVE IMAGE "capture_"+MID$(DATE$,4,2)+MID$(DATE$,1,2)+MID$(TIME$,1,2)+MID$(TIME$,4,2)+".bmp"
 TEXT 100,500,"Press any key to continue"
END SUB

 ADC OPEN 200000, 7,12,13,allDone
 ADC TRIGGER 1, -2 ' start reading when level drops below 2
 ADC START presence()
'  PIN(42) = 1
'  SETPIN 42, DOUT, OC
'  PULSE 42, 0.481 ' change this value for testing
'  SETPIN 42, DIN
x = tempr(42)
 DO
 LOOP UNTIL INKEY$<>""