kodekse aptikti impulsų srautą naudojant PIC16F84A

[adigwe]

Labas,

Gal kas nors man pateikti kodas aptikti impulso srovė, pavyzdžiui, nuo 555 laikmatis į Astable režimas.Štai ką aš atėjo kartu su.Circuit prie RA0 ir RA1 aptinka judėjimas.Jei nėra judėjimas yra impulsų ne RA0 ir RA1 srautą.Jeigu yra judėjimas, impulso srovė sustoja.Tai priemonės trukmę objektą pereiti nuo RA0 į RA1.

Ar yra paprastesnis būdas.Aš už pagalbą.; ** Test signalus prasideda čia!
TESTBIT BCF PORTA, 0
BCF PORTA, 1
TESTBIT1 BTFSS PORTA, 0
GOTO TESTBIT1
PAUSE1 MOVLW 2; delsimas nustatyti (1/200th iš sec) - Laikmatis santykis 1:8 - 400Hz.
MOVWF CLKCNT
CLRF INTCON
PAUSE2 BTFSS INTCON, 2; turi laikmatį laiko atlikti aptikta?
GOTO PAUSE2; nėra
BCF INTCON, 2; Taip
DECFSZ CLKCNT, F; gruodis linijos, tai nulis?
GOTO PAUSE2; nėra
BTFSC PORTA, 0
GOTO PAUSE1; nėra
BCF INTCON, 2; Taip
TIMECLK BTFSS INTCON, 2
GOTO TIMECLK
INCREMNT BCF INTCON, 2; surinkimo laiko intervalas btw PORTA 0 ir PORTA 1
MOVLW 1; prieaugio skaitikliai COUNT0, COUNT1
ADDWF COUNT0 F
MOVF Statusas W
ANDLW 1
ADDWF COUNT1, F; Pridėti perkėlimas į COUNT1
GOTO TESTBIT2; keista PORTA skaitytojų 1 kas INTCON 2 impulsas.TESTBIT2 BTFSS Porta, 1
GOTO TESTBIT2
PAUSE3 MOVLW 2; delsimas nustatyti (1/200th iš sec) - Laikmatis santykis 1:8 - 400Hz.
MOVWF CLKCNT
CLRF INTCON
PAUSE4 BTFSS INTCON, 2; turi laikmatį laiko atlikti aptikta?
GOTO PAUSE4; nėra
BCF INTCON, 2; Taip
DECFSZ CLKCNT, F; gruodis linijos, tai nulis?
GOTO PAUSE4; nėra
BTFSC Porta, 1
GOTO TIMECLK; ne aptikimo 5ms (pulsas laikotarpis) Porta, 1 grąžino aukštas
KVIETIMAS KMPHR
RETURN