для обнаружения импульса потока с помощью PIC16F84A

[adigwe]

Здравствуйте,

Может ли одно предоставить мне с кодом для обнаружения потока импульса например, из 555 таймер в нестабильном режиме.Вот, что я придумал.Схема прилагается к RA0 и RA1 обнаруживает движение.Если нет движения представляет собой поток импульсов на RA0 и RA1.Если есть движение, остановки потока импульса.Он измеряет время, затраченное на объект, чтобы перейти от RA0 к RA1.

Есть ли более простой путь.Я ценю помощь.**; Испытания сигналов начинается здесь!
TESTBIT BCF PORTA, 0
BCF PORTA, 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 и Порта 1
MOVLW 1; прирост счетчиками COUNT0, count1
ADDWF COUNT0, F
MOVF STATUS, W
ANDLW 1
ADDWF count1, F; добавить Перенос count1
GOTO TESTBIT2; Проверить PORTA бит 1 INTCON каждые 2 импульса.TESTBIT2 BTFSS PORTA, 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 PORTA, 1
GOTO TIMECLK, нет обнаружения 5 мс (импульсов периода) порта, 1 вернулась высокой
CALL KMPHR
ВОЗВРАЩЕНИЕ