include "p16f627.inc"
MAIN bsf STATUS,RP0; Переключаемся на 1-й банк памяти, в котором расположены
movlw b’11110000’; регистры TRISB и OPTION_REG
movwf TRISB; RB[7:4] — входы, RB[3:0] — выходы
bcf OPTION_REG,NOT_RBPU; Включаем внутреннюю подтяжку
bсf STATUS,RP0; Возвращаемся в 0-й банк
Рис. 11.10.
Код, приведенный в Программе 11.2, соответствует следующему алгоритму:
1. Установить KEY_COUNT = 1.
2. Для
• Выбрать строку
• Для
— Проверить столбец
— Если ноль, то перейти к шагу 4.
— Иначе инкрементировать KEY_COUNT.
3. Установить KEY_COUNT равным -1 (нажатых клавиш не обнаружено).
4. Вернуть KEY_COUNT.
; *****************************
; * ФУНКЦИЯ: Сканирует клавиатуру 4 х 3 и возвращает номер клавиши *
; * ВХОД: Нет
; * ВЫХОД: Номер клавиши в W ([MEM]=10, [0]=11, [SET]=12) *
; * ВЫХОД: Возвращает -1 (h’FF’) если не нажато ни одной клавиши *
; * ОКРУЖЕНИЕ: Переменные KEY, PATTERN *
; *****************************
cblock;Две глобальные переменные
KEY_COUNT:1, PATTERN:1
endc
SCAN_IT clrf KEY_COUNT; Первая клавиша — "1"
incf KEY_COUNT,f
movlw b’111111101’; Начальное значение шаблона
movwf PATTERN
SLOOP movf PATTERN,w; Считываем шаблон из памяти
movwf PORTB; Выдаем на строку НИЗКИЙ уровень
; Теперь проверяем каждый столбец на наличие нуля —
btfss PORTB,5; Проверяем 1-й столбец
goto GOT_IT; ЕСЛИ ноль, ТО клавиша обнаружена!
incf KEY_COUNT,f; ИНАЧЕ инкрементируем счетчик
btfss PORTB,6; Проверяем 2-й столбец
goto GOT_IT; ЕСЛИ ноль, TO клавиша обнаружена!
incf KEY_COUNT,f; ИНАЧЕ инкрементируем счетчик
btfss PORTB,7; Проверяем 3-й столбец
goto GOT_IT; ЕСЛИ ноль, TO клавиша обнаружена!
incf KEY_COUNT,f; ИНАЧЕ инкрементируем счетчик
; Сюда попадаем, если нет нажатых клавиш —
rlf PATTERN,f; Сдвигаем шаблон
btfsc PATTERN,4; Появился ли 0 в 4-м бите?
goto SLOOP; ЕСЛИ нет, TO переходим к следующей строке
; ИНАЧЕ на клавиатуре нет нажатых клавиш —
movlw -1; Возвращаем -1
goto S_EXIT
GOT_IT movf KEY_COUNT,w; Копируем значение счетчика в W
S_EXIT return; и выходим
Отсчет начинается с кнопки № 1, при этом на 0-ю строку выставляется напряжение НИЗКОГО уровня. По мере проверки каждого столбца на ноль содержимое рабочего регистра, выполняющего роль счетчика, инкрементируется. При отсутствии замыкания (нулевого значения) осуществляется переход к следующей строке, для чего значение шаблона PATTERN сдвигается на одну позицию влево.
При этом справа вдвигается бит переноса, но поскольку предыдущие строки мы уже проверили, то его значение безразлично.
Выход из цикла сканирования происходит в двух случаях:
Если в процессе сканирования будет обнаружено нулевое значение. В переменной key_COUNT при этом будет находиться номер нажатой клавиши, который перегружается в рабочий регистр перед возвратом из подпрограммы.
• Если в результате сдвига активный бит (0) шаблона окажется в 4-м бите регистра. В этом случае в рабочий регистр заносится число h’FF’, означающее, что нажатых клавиш не обнаружено.