Код:
;==== ИЗОБРАЖЕНИЕ С ОЦИФРОВЩИКА ====
KADR1: XRA A
OUT PORTC
MVI A,008H
OUT PORTC ; Старт
MVI A,007H
OUT 000H ; Включить
RET
;----
KADR2:
LOOPWAIT:
IN PORTC
RLC
JC LOOPWAIT
MVI A,006H
OUT 000H ; Выключить
RET
;----
KADR3:
MVI C,4
LOOPKADR:
MVI A,00AH
OUT PORTC ; Старший адрес
MOV A,H
OUT PORTB ; Зафиксирован
MVI A,009H
OUT PORTC ; Ждем младший адрес
;
REPT 080H
MOV A,L
OUT PORTB
IN PORTA
MOV M,A
INR L
ENDM
;
MVI L,080H
MVI A,020H
ADD H
MOV H,A
;
MVI A,00AH
OUT PORTC ; Старший адрес
MOV A,H
OUT PORTB ; Зафиксирован
MVI A,009H
OUT PORTC ; Ждем младший адрес
;
REPT 080H
MOV A,L
OUT PORTB
IN PORTA
MOV M,A
INR L
ENDM
;
MVI L,080H
MVI A,0E1H
ADD H
MOV H,A
DCR C
JNZ LOOPKADR
RET
;
END