CPU = 16F876

MHZ = 10

CONFIG 16254



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

; http://www.basicmicro.com                    

; Title : pulsin.bas                             

; Author : Dale Kubin                          

; Date : 04/29/02                              

; Pulsin command. Measure the amount of time

; between button presses.                             

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



temp var word



Main:     				     'this program will loop forever

	PULSIN B0,0,main,10,temp 'Measure negative pulse will time out at 655,350us.

	IF temp = 0 then Main    'If 0, try again.

	Debug [dec temp,13]      'display result.

goto Main                    'repeat

end