Отправлено edrebol 10 апреля 2002 г. 06:51 В ответ на: Пример отправлено edrebol 10 апреля 2002 г. 06:45

movlw d'0'
subwf WAIT,W
btfsc STATUS,Z
btfsc In1
goto Pres_1

bsf Flag_1 ; Признак нажатия кнопки. После обработки нажатия необходимо сбросить
movlw d'100' ; Задержка, в зависимости от частоты опроса
movwf WAIT
Pres_1

btfss In1
goto Pres_2 ; Если кнопка отпущена
movlw d'0' ; то уменьшаем WAIT
subwf WAIT,W ; вплоть до 0
btfss STATUS,Z ;
decf WAIT,F ;Как только WAIT=0
Pres_2 ;снова можем регистрировать нажатия (см.выше)