For a frequency of 1000Hz */- Count would be the easiest way:

F VAR WORD

Loop:
COUNT PORTB.1,1000,F
LCDOUT "Freq. = ", DEC5 F," Hz"
goto loop

See PBP Manual Section 5.10