4.5 Подпрограмма определения кода засветки Второй цифры в номере клавиши
Эта подпрограмма определяет код засветки второй цифры в номере клавиши. Схема алгоритма программы приведена на рис.16.
Рисунок 16 - Алгоритм определения кода засветки второй цифры в номере клавиши
Программа IND 1, написанная в соответствии с алгоритмом, изображенным на рис. 16, имеет вид: (таблица 24).
Таблица 24
Адрес |
Код |
Метка |
Мнемокод |
Комментарий |
1 |
2 |
3 |
4 |
5 |
0870 |
4F |
IND 1 |
MOV C, A |
хранение полученного номера клавиши |
0871 |
1F |
|
RAR |
сдвиг содержимого А |
0872 |
DA 9E 08 |
|
JC MET14 |
1ый бит равен единице? да - переход к МЕТ14 |
0875 |
1F |
|
RAR |
сдвиг содержимого А |
0876 |
DA 94 08 |
|
JC MET14 |
2ый бит равен единице? да - переход к МЕТ12 |
0879 |
1F |
|
RAR |
сдвиг содержимого А |
087A |
DA 8B 08 |
|
JC MET14 |
3ый бит равен единице? да - переход к МЕТ11 |
087D |
1F |
|
RAR |
сдвиг содержимого А |
087E |
DA 86 08 |
|
JC MET14 |
4ый бит равен единице? да - переход к МЕТ10 |
0881 |
26 3F |
|
MVI H, 3FH |
загрузка в регистр H кода цифры « 0 » |
0883 |
C3 00 09 |
|
JMP IND 2 |
переход к подпрограмме определения кода первой цифры |
0886 |
26 7F |
МЕТ10: |
MVI H, 7FH |
загрузка в регистр H кода цифры « 8 » |
0888 |
C3 00 09 |
|
JMP IND 2 |
переход к подпрограмме определения кода первой цифры |
088B |
26 66 |
МЕТ11: |
MVI H, 66H |
загрузка в регистр H кода цифры « 4 » |
088D |
C3 00 09 |
|
JMP IND 2 |
переход к подпрограмме определения кода первой цифры |
0890 |
1F |
|
RAR |
сдвиг содержимого А |
0891 |
DA 99 08 |
|
JC MET13 |
3ый бит равен единице? да - переход к МЕТ13 |
0894 |
26 5B |
МЕТ12: |
MVI H, 5BH |
загрузка в регистр H кода цифры « 2 » |
|
|
|
|
Продолжение таблицы 24 |
1 |
2 |
3 |
4 |
5 |
0896 |
C3 00 09 |
|
JMP IND 2 |
переход к подпрограмме определения кода первой цифры |
0899 |
26 7D |
МЕТ13: |
MVI H, 7DH |
загрузка в регистр H кода цифры « 6 » |
089B |
C3 00 09 |
|
JMP IND 2 |
переход к подпрограмме определения кода первой цифры |
089E |
1F |
|
RAR |
сдвиг содержимого А |
089F |
DA B9 08 |
|
JC MET17 |
2ый бит равен единице? да - переход к МЕТ17 |
08A2 |
1F |
|
RAR |
сдвиг содержимого А |
08A3 |
DA B4 08 |
|
JC MET16 |
3ый бит равен единице? да - переход к МЕТ16 |
08A6 |
1F |
|
RAR |
сдвиг содержимого А |
08A7 |
DA AF 08 |
|
JC MET15 |
4ый бит равен единице? да - переход к МЕТ15 |
08AA |
26 06 |
|
MVI H, 06H |
загрузка в регистр H кода цифры « 1 » |
08AC |
C3 00 09 |
|
JMP IND 2 |
переход к подпрограмме определения кода первой цифры |
08AF |
26 6F |
МЕТ15: |
MVI H, 6FH |
загрузка в регистр H кода цифры « 9 » |
08B1 |
C3 00 09 |
|
JMP IND 2 |
переход к подпрограмме определения кода первой цифры |
08B4 |
26 6D |
МЕТ16: |
MVI H, 6DH |
загрузка в регистр H кода цифры « 5 » |
08B6 |
C3 00 09 |
|
JMP IND 2 |
переход к подпрограмме определения кода первой цифры |
08B9 |
1F |
МЕТ17: |
RAR |
сдвиг содержимого А |
08BA |
DA C2 08 |
|
JC MET18 |
3ый бит равен единице? да - переход к МЕТ18 |
08BD |
26 4F |
|
MVI H, 4FH |
загрузка в регистр H кода цифры « 3 » |
|
|
|
|
Продолжение таблицы 24 |
1 |
2 |
3 |
4 |
5 |
08BF |
C3 00 09 |
|
JMP IND 2 |
переход к подпрограмме определения кода первой цифры |
08C2 |
26 07 |
МЕТ18: |
MVI H, 6DH |
загрузка в регистр H кода цифры « 7 » |
08C4 |
C3 00 09 |
|
JMP IND 2 |
переход к подпрограмме определения кода первой цифры |
08C7 |
FF |
END: |
RST |
возврат в “монитор” |