INPORT equ 1
OUTPORT equ 2
K equ 9
DEL equ 2h
include init.asm
BEGIN:
M1 MVI C,00
M2 JMP PREOBR
M3 JMP DELAY
M4 IN INPORT
MOV B,A
ANI 01h
JZ M1
MOV A,B
ANI 02h
JZ M2
INR C
MOV A,C
SUI K
JZ M1
JMP M2
PREOBR:
LXI H,NAT
MOV E,C
MVI D,0
DAD D
MOV A,M
OUT OUTPORT
JMP M3
DELAY:
PUSH B
LXI B,DEL
M5 DCX B
MOV A,C
ORA B
|
|
|
Дата добавления: 2014-01-04; Просмотров: 291; Нарушение авторских прав?; Мы поможем в написании вашей работы!
Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет