COUNT never counts properly! (16F870)

[CuriousOne]

Above code is launched, when signal on input pin arrives, I just missed that line here.

I discarded the COUNT statement, and wrote software substitute, which accurately counts amount of pulses:

 UIDEDA:  
 if pulsi=1 then  
 FOR N=0 TO 300 'this is length of capture period, 300 for 16F870 @ 4mhz means approx 15ms.  
 IF PULSI=1 THEN  
 A=A+c  
 c=0  
 d=1  
 ELSE  
 B=B+d  
 d=0  
 c=1  
 ENDIF  
 NEXT  
 IF A<>0 AND B<>0 THEN  
 lcdout $FE,2, "A=",#A, "    " 
 lcdout $FE,$C0,"B=",#B, "    " 
 ENDIF  
 A=0  
 B=0  
 endif 
 GOTO UIDEDA

I'm interested, why count never works as it should.

[Dave]

Sounds like noise to me.... Try a schmidt trigger between what you are counting and the pic.

[CuriousOne]

If it was noise issue, why my code works perfectly?

[Art]

The manual says with a 4MHz oscillator as you have, the pin is sampled every 20us which is way too slow for the fractional pulse durations you stated.
The different results can easily be explained since any low or high period could be entirely missed.

Your code is still pretty slow.
The fastest I can think of right now in PBP is this:

newbitstate var bit
oldbitstate var bit
counter var word
count var word
duration var word

newbitstate = 0
oldbitstate = 0
duration = 9000 ‘ set duration to sample the input


count = 0 ‘ reset count

for counter = 0 to duration
newbitstate = portb.0
if newbitstate != oldbitstate then
count = count + 1
endif
oldbitstate = newbitstate
next duration

Then Count will be the number of pin changes.
To get the pulse count, rather than check in the routine and slow it down,
just divide Count by 2 at the end, to get the number of rising edges,
and if the remainder is 1, the duration ended while the port pin was high.

[CuriousOne]

0.8ms=800us, so it fits very well

[Art]

lol I was reading ms as microseconds.
If your code works better than Count then use it I’d sure like to see a disassembly of Count in your loop though, which I don’t have the tools to do handy at the moment.