CPU = 16F876

MHZ = 10

CONFIG 16254



;***********************************************

; http://www.basicmicro.com                    

; Title : rctime.bas                             

; Author : Dale Kubin                          

; Date : 04/29/02                              

; RCTime command. Measure the amount of time

; a cap takes to charge. Uses the schematic

; from the manual                             

;***********************************************



Temp var Word		;Temp will hold the result



	Main

		High B0			;Discharging the cap

		Pause 1		;1 ms pause

		RCTIME B0, 1, Temp 	;Measuring RC charge time

		DEBUG [DEC Temp,13] 	;Display value

	Goto Main