Завданя 2
ORG 0 ;виведення на динамічний індикатор часу 15:34
mov DPTR,#0A004h ;гасіння розрядів
mov A,#00Fh ;статичного індикатора.
movx @DPTR,A
Continue:
;підготовка першого ліворуч (№0) розряду HL2.
;адресація лівого розряду HL2.
mov A,#0000b ;запис в А адреси 00 розряду №0 динамічного індикатора HL2.
mov DPTR,#8002h ;запис у вказівник даних DPTR адреси 8002 (порту С).
movx @DPTR, A ;вміст А (адреса розряду №0) записати за адресою
;що знаходиться в DPTR, тобто в порт С.
;завантаження даних в розряд.
mov A,#00000110b ;запис семисегментного коду горіння цифри 1 (00000110) в А.
mov DPTR,#8001h ;запис у вказівник даних DPTR адреси 8001 порту В (дані виводяться на HL2).
movx @DPTR,A ;записати вміст А за адресою, що міститься в DPTR, тобто
;світимо сегменти В,С
call DEL ;виклик підпрограми затримки
;підготовка другого ліворуч (№1) розряду HL2.
;адресація розряду №1 HL2.
mov DPTR,#8002h ;запис у вказівник даних DPTR адреси 8002 (порту С).
mov A,#0001b ;запис в А адреси 01 розряду №1 динамічного індикатора HL2.
movx @DPTR, A ;вміст А (адреса розряду №1) записати за адресою
;що знаходиться в DPTR, тобто в порт С.
;завантаження даних в розряд.
mov A,#111111111b ;запис семисегментного коду горіння цифри 8 (1111111) в А.
mov DPTR,#8001h ;запис у вказівник даних DPTR адреси 8001 порту В
movx @DPTR,A ;записати вміст А за адресою, що міститься в DPTR, тобто
;засвітити всі сегменти А, В, C, D, Е, F, G та Н(двокрапка)
call DEL ; виклик підпрограми затримки
;підготовка третього ліворуч (№2) розряду індикатора HL2.
;адресація розряду №2 HL2.
mov DPTR,#8002h ;запис у вказівник даних DPTR адреси 8002 (порту С).
mov A,#0010b ;запис в А адреси 10 розряду №2 динамічного індикатора HL2.
movx @DPTR, A ;вміст А (адреса розряду №2) записати за адресою
;що знаходиться в DPTR, тобто в порт С.
;завантаження даних в розряд.
mov A,#01101101b ;запис семисегментного коду горіння цифри 5 (1101101) в А.
mov DPTR,#8001h ;запис у вказівник даних DPTR адреси 8001 порту В,
:звідки дані виводяться на HL2.
movx @DPTR,A ;записати вміст А за адресою, що міститься в DPTR,
;засвітити сегменти A,C,D, F, G
call DEL ;виклик підпрограми затримки
;підготовка четвертого ліворуч (№3) розряду індикатора HL2.
;адресація розряду №3 HL2.
mov DPTR,#8002h ;запис у вказівник даних DPTR адреси 8002 (порту С).
mov A,#0011b ;запис в А адреси 11 розряду №3 динамічного індикатора HL2.
movx @DPTR, A ;вміст А (адреса розряду №3) записати за адресою
;що знаходиться в DPTR, тобто в порт С.
;завантаження даних в розряд.
mov A,#01100110b ;запис семисегментного коду горіння цифри 4 (01100110) в А.
mov DPTR,#8001h ;запис у вказівник даних DPTR адреси 8001 порту В,
:звідки дані виводяться на HL2.
movx @DPTR,A ;записати вміст А за адресою, що міститься в DPTR, тобто
;засвітити сегменти В,C, F ,G що формує цифру 4.
call DEL ;виклик підпрограми затримки.
Jmp Continue ;перехід на початок програми
DEL: ;підпрограма затримки
mov R1, #0FFh
C2: mov R2, #002h
C4: djnz R2, C4
djnz R1, C2
ret
END