Добавлено (16.04.2009, 2:38:49)
---------------------------------------------
Вобщем сейчас напишу с коментариями =)

Добавлено (16.04.2009, 3:06:28)
---------------------------------------------
примерно через 40 минут я сюда выложу пример, я подробно распишу каждую строку кода, и я просимулирую работу программы в программе PIC Simulator IDE чтоб точно знать что пример мой работает ))

TRISIO = %00000100 'GP2 - вход GP1, GP0 выход
INTCON = %10010000

counter var byte

on interrupt goto myint
counter = 0

goto main

myint: counter=counter+1
resume

main: if counter < 100 then goto main

high GPIO.1
pause 50
low GPIO.1
counter = counter - 100
goto main
end

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 'перейти в начало программы

пока не проверял, но думаю правильно ))))

Добавлено (16.04.2009, 4:22:59)
---------------------------------------------
ктомуже для pic12 порты PORTB итд недоступны наверно, я лично работаю тока с 16 серией и сейчас перехожу на 18

да все проблемы тока с названием меток, при исправлении компилится норм.
Пример можно усложнить добавлением подпрограммы для обработки длительности входного сигнала, чтоб добавить повышенную помехозащищённость и чтоб щитать сигналы только определённой длинны

proverk:
IF impin = 1 THEN proverk2
IF kolPULS = 50 THEN sygnou
goto proverk

proverk2:
for x = 0 to 9
pauseus 1000
IF impin = 0 THEN proverk
IF x = 10 THEN pulsWRITEwar
next
goto proverk2

pulsWRITEwar:
kolPULS = kolPULS + 1
slygMETKA:
pauseus 100
IF impin = 0 THEN proverk
goto slygMETKA

sygnou:
impou = 1
pause 50
impou = 0
kolPULS = 0
goto proverk

Вот пример компилирующийся без ошибок, проверил в pic симуляторе работает нормально, главный недостаток этого делителя это то что когда сигнал impou = 1, щитать ничего не получится, но если входящий сигнал больше по длительности чем сигнал impou то всё будет нормально...
Программа ниже метки proverk2 проверяет длинну импульса на входе, если сигнал меньше 10000 микросекунд то программа возвращается обратно к proverk при этом импульс не защитывается.
тока я проверял программу без proverk2 но в компиляторе всё норм, просто в pic симуляторе такая программа будет прощитыватся очень долго, конечно я могу выставить меньшие задержки но мне что-то не охота=)...
Надеюсь я помог

Добавлено (17.04.2009, 3:32:27)
---------------------------------------------
Хотя... вот в соседней ветке нашел..

Пойду проверять!

CMCON = %00000111

и все заработало!

Всем большое спасибо!
девайс уже поставлен на тестирование. завтра отдаю заказчику...
Попутно буду работать над вариантом с индикацией результата на LCD
и установкой коэф. через меню кнопками...
Такчто далеко не пропаду с форума