PROGRAM NAME CREATED VIA NEW PROJECT!!
COPY AND PASTE FROM NEXT LINE DOWN
'***********************************
Dim data1 as Integer
'***********************************
Sub Procedure GetValA1
TrisA = %00000000 ' Set Pins on PortA to Output
data1 = 1 ' Set the data variable to 1
PortA = %00000010 ' Pulse pin 1 on PortA for 5ms
Delay_ms(5)
TrisA = %00000010 ' Get ready to suck in data
Counts:
If Testbit(PortA,1) = 1 Then 'See how long it takes to
'discharge the capacitor
data1 = data1 + 1
Goto Counts
End If
PortB = data1
End Sub
'***********************************
Main:
TrisB = %0000000
TrisA = %0000000
CMCON = %00000111
Mainloop:
GetValA1
Goto Mainloop
End.
