kolPULS var word 'переменная для хранения количества импульсов - word позволяет щитать до 65535
impin VAR PORTB.0 'теперь PORTB.0 называется impin
impou VAR PORTB.1 'теперь PORTB.1 называется impou init:
clear 'очистка всей памяти озу
PORTB = %00000000 'очистить все данные в регистре порта
TRISB.0 = 1 'PORTB.0 сконфигурировать как вход
TRISB.1 = 0 'PORTB.1 сконфигурировать как выход
pulsIN:
IF impin = 1 THEN pulsWRITEwar 'если на выводе impin(PORTB.0) появится сигнал 1 то перейти к метке pulsWRITEwar
IF kolPULS = 200 THEN pulsEXIT 'если количество импульсов будет равно 200 то перейти к метке pulsEXIT
pauseus 100 'если ни одна из команд IF ... THEN ... не перешла по меткам, выполнить pauseus 100
goto pulsIN 'вернутся к метке pulsIN и начать проверять порты и переменные заного
pulsWRITEwar:
kolPULS = kolPULS + 1 'прибавить к числу в переменной kolPULS 1 импульс
slygMETKA:
pauseus 100 'ждать 100 микросекунд, на всякий случай лёгкая защита от помех
IF impin = 0 THEN pulsIN 'если на выводе impin(PORTB.0) сигнал пропадёт(логическая 0) перейти к метке pulsIN
goto slygMETKA
pulsEXIT:
impou = 1 'подать сигнал 1 на impin(PORTB.1) сообщяющий о том что количество импульсов = 200
pause 50 'оставить порт impin(PORTB.1) включенным на 50 милисекунд
impou = 0 'подать сигнал 0 на impin(PORTB.1) - это выключение сигнала
kolPULS = 0 'сбросить число в переменной kolPULS на 0
goto pulsIN 'перейти в начало программы
пока не проверял, но думаю правильно ))))