рціі
anl A, # 0Fh
call get_num
; у код ССІ помощью підпрограмі
movx @ DPTR, A
; відображення ст. Частини 16-го числа
ret
; Кінець підпрограмі
o:
jb counter, sec
; лічильник дорівнює 1?
mov R1, A
; ні, а значити Зберегти введені значення
setb counter
; лічильник - Друга тетрада
jmp fist
; Завершення циклу Уведення Першої зошити
sec:
mov DPH, A
; дорівнює, а значити Збереження уведеної інф. /Td>
mov DPTR, # 0FFF9h
; візуалізація Зі старшого розряду
call visual
; виклик процедури візуалізації
mov A, R1
; мовляв. тетрада уведена
mov DPL, A
; запис в DPTR
mov DPTR, # 0FFF7h
; візуалізація з мовляв. розряду
call visual
; візуалізація з мовляв. розряду
l:
jmp l
; зацикленість - Кінець програми
fist:
call 0230h
; затримка 50 мс
ret
; вихід з підпрограмі візуалізації
get_num:
inc A
; підпрограма перекладу 16-ССІ
movc A, @ A + PC
ret
db 00111111b
; 0
db 00000110b
; 1
db 01011011b
; 2
db 01001111b
; 3
db 01100110b
; 4
db 01101101b
; 5
db 01111101b
; 6
db 00000111b
; 7
db 01111111b
; 8
db 01101111b
; 9
db 01110111b
; A
db 01111100b
; B
db 00111001b
; C
db 01011110b
; D
db 01111001b
; E
db 01110001b
; F
Малюнок 6.2 - Алгоритм програми 1 лютого
3. Програма Виконує завантаження керуючого слова в Ре...
