Код за откриване на импулс потока чрез PIC16F84A

[adigwe]

Привет,

Може ли някой ми предостави код за откриване на импулс поток като че от таймер 555 в Astable режим.Това е нещо, което аз измислих.А веригата към RA0 и Ra1 разпознава движение.Ако няма движение е поток от импулси в RA0 и Ra1.Ако има движение, спирките импулс поток.Тя измерва времето, необходимо за целта да се премине от RA0 да Ra1.

Има ли по-прост начин.Ще оценявам помощта.; ** Тест на сигнали започва тук!
TESTBIT ФБК PORTA, 0
ФБК порта, 1
TESTBIT1 BTFSS PORTA, 0
GOTO TESTBIT1
PAUSE1 MOVLW 2; забавяне комплект (1/200th на секунда) - таймер съотношение 1:8 - 400Hz.
MOVWF CLKCNT
CLRF INTCON
PAUSE2 BTFSS INTCON, 2; има таймер времето за изчакване е открита?
GOTO PAUSE2, без
ФБК INTCON, 2; да
DECFSZ CLKCNT, F; декември линия, то е нула?
GOTO PAUSE2, без
BTFSC PORTA, 0
GOTO PAUSE1, без
ФБК INTCON, 2; да
TIMECLK BTFSS INTCON, 2
GOTO TIMECLK
INCREMNT ФБК INTCON, 2; улавяне интервал от време BTW PORTA 0 и PORTA 1
MOVLW 1; нарастване COUNT0 броячи, COUNT1
ADDWF COUNT0, F
MOVF СТАТУС, W
ANDLW 1
ADDWF COUNT1, F; добави Кери да COUNT1
GOTO TESTBIT2; Проверете PORTA малко 1 на всеки INTCON 2 пулс.TESTBIT2 BTFSS порта, 1
GOTO TESTBIT2
PAUSE3 MOVLW 2; забавяне комплект (1/200th на секунда) - таймер съотношение 1:8 - 400Hz.
MOVWF CLKCNT
CLRF INTCON
PAUSE4 BTFSS INTCON, 2; има таймер времето за изчакване е открита?
GOTO PAUSE4, без
ФБК INTCON, 2; да
DECFSZ CLKCNT, F; декември линия, то е нула?
GOTO PAUSE4, без
BTFSC порта, 1
GOTO TIMECLK, без откриване 5ms (пулсиращ период) порта, 1 се е завърнал високо
ПОКАНА KMPHR
ВРЪЩАНЕ