Помогите пожалуйста исправить задачу в Ассемблере
Написать программу размещения в памяти, начиная с адреса b0c0h, 555 членов арифметической прогрессии a1, a1+d, a2+d...(переносы игнорировать), a1=b0h d=c2h - байты. задать адрес сегмента кода abbah.
; Data Segment
first_address equ 0B0C0h
array_size equ 555
d_zero equ 0B0h
increment equ 0C2h
defseg d_seg, start = first_address
seg d_seg
ds array_size
defseg c_seg, start = 0ABBAh
seg c_seg
LXI H, first_address ; HL<-800h
LXI D, array_size ; DE <-587
MVI M,d_zero ; M(HL)<-d0
DCX D ; DE<-DE-1
L1: MOV A,M
ADI increment ; A <-A + d
INX H
MOV M,A
DCX D
MOV A,D
ORA E
JNZ L1
end
Написать программу размещения в памяти, начиная с адреса b0c0h, 555 членов арифметической прогрессии a1, a1+d, a2+d...(переносы игнорировать), a1=b0h d=c2h - байты. задать адрес сегмента кода abbah.
; Data Segment
first_address equ 0B0C0h
array_size equ 555
d_zero equ 0B0h
increment equ 0C2h
defseg d_seg, start = first_address
seg d_seg
ds array_size
defseg c_seg, start = 0ABBAh
seg c_seg
LXI H, first_address ; HL<-800h
LXI D, array_size ; DE <-587
MVI M,d_zero ; M(HL)<-d0
DCX D ; DE<-DE-1
L1: MOV A,M
ADI increment ; A <-A + d
INX H
MOV M,A
DCX D
MOV A,D
ORA E
JNZ L1
end