Составители:
128
С помощью каждой из клавиш можно изменить состояние одного
разряда клавишного регистра, изображенного на экране дисплея (рис.
5.4,а). Если какая-то клавиша находилась в "положении 0" (в
соответствующем разряде клавишного регистра высвечивается символ
"0"), то после ее однократного нажатия клавиша будет переведена в
"положение 1" (символ "0" заменится на символ "1"). Следующее нажатие
той же клавиши переведет ее в "положение 0", т. е. вновь инвертирует
соответствующий разряд клавишного регистра. Фрагменты
моделирующей программы, используемые для осуществления описанных
операций, имеют следующий вид:
10 DIM R¤1,K¤2,K¤ (16)1,...
15 REM ОПИСАНИЕ РАБОЧЕЙ ПЕРЕМЕННОЙ R¤, A ТАКЖЕ ДВОИЧНОЙ
ПЕРЕМЕННОЙ К¤ И СИМВОЛЬНОГО МАССИВА К¤(), ИСПОЛЬЗУЕМОГО
ДЛЯ СОХРАНЕНИЯ ТЕКУЩЕГО СОДЕРЖИМОГО КЛАВИШНОГО
РЕГИСТРА ("АДРЕС/ДАННЫЕ")
200 KEYIN R¤,240,210:GOTO 300
205 REM ПРОВЕРКА СОСТОЯНИЯ КЛАВИАТУРЫ
210 IF" R¤>HEX(0F)THEN 228:G0SUB’ 50:GOTO 300
215 REM, ОБРАЩЕНИЕ К ПОДПРОГРАММЕ "КЛАВИШНЫЙ РЕГИСТР",
ЕСЛИ НАЖАТА ОДНА ИЗ 16 СПЕЦКЛАВИШ С КОДАМИ 00 – FF
…
1000 DEFFN’ 50
1005 РЕМ ПОДПРОГРАММА "КЛАВИШНЫЙ РЕГИСТР"
1810 I=VAL(R¤)+l
1015 РЕМ ОПРЕДЕЛЕНИЕ НОМЕРА НАЖАТОЙ КЛАВИШИ
1020 IF K¤ (I)="0"THEN1030:K¤ (I)="0":GOTO 1040
1030 K¤ (I)="l"
1835 REM ИНВЕРТИРОВАНИЕ 1-ГО ЭЛЕМЕНТА МАССИВА К¤()
1040 FOR J=1T02:R=0:F0R I=1T08:IF K¤ (I)="0"THEN 1050:R=R+2ˆ(0-1)
1050 NEXT I:BIN(STR(K¤,J,l))=R:NEXT J
1055 REM ОПРЕДЕЛЕНИЕ НОВОГО ЗНАЧЕНИЯ ДВОИЧНОЙ
ПЕРЕМЕННОЙ К¤
1060 PRINT AT (22,0):FOR J=1T04:F0R I=1T04:PRINT K¤ ((J-l)*4+l);
NEXT I:PRINT " ";:NEXT J
1065 REM ПОТЕТРАДНАЯ ПЕЧАТЬ СОДЕРЖИМОГО КЛАВИШНОГО
РЕГИСТРА
1070 RETURN
Индикация. Эффективность изучения работы цифровой
вычислительно-управляющей) системы в значительной мере зависит от
формы представления информации о состоянии ее устройств в
Страницы
- « первая
- ‹ предыдущая
- …
- 129
- 130
- 131
- 132
- 133
- …
- следующая ›
- последняя »
