gistfile1.asm

start: 1000

#; задание: из массива А скопировать в массив В элементы которые удовлетворяют условию:
#; нечетное и делится на 5

lxi h,1100
lxi d,1200

mov b,m #; 1006

call 1090 ; заканчиваем или нет
mov a,b
ani 1 ; проверка на четность
cz 1050
inx h
jmp 1006

lxi h,1100
lxi d,1300

mov b,m #; 101a

call 1090 ; заканчиваем или нет
mov a,b
cpi 70
cnc 1050
inx h
jmp 101a



#; функция копирует значение в новый массив
addr: 1050
    mov a,b
    stax d
    inx d
    ret

#; функция проверки окончания массива
addr: 1090
    inr b; если ff, то z=1 следовательно заканчиваем
    jz 10f0
    dcr b
    ret

addr: 10f0
    hlt

addr: 1100
01
02
70
71
72
ff