' Name        : PULSIN.pbp
' Compiler    : PICBASIC PRO Compiler 2.6
' Assembler   : PM or MPASM
' Target PIC  : 12F, 16F, 18F
' Hardware    : PC serial connection for result output
' Oscillator  : 4MHz internal or external
' Keywords    : PULSIN, SEROUT
' Description : PICBASIC PRO program to demonstrate use of PULSIN command
' with Serial Pulse Width Meter.
'

Include "modedefs.bas" ' Include serial modes

SO Con 0               ' Define serial out pin
FI Con 4               ' Define frequency input pin
W0 Var word

mainloop:
   Pulsin FI,0,W0      ' Measure pulse (in 10 uSec)
   If W0 = 0 Then disp ' If non-zero, display
   Serout SO,N2400,[#W0]

disp:
   Serout SO,N2400,["0 uSec",13,10] ' Display trailer
   Goto mainloop        ' Forever

   End