gistfile1.asm

start: 1000

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

lxi h,1100
lxi d,1200

mov b,m

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


#; функция копирует значение в новый массив
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
03
04
05
06
07
08
09
0a
0b
0c
0d
0e
0f
10
11
12
13
14
15
16
17
18
19
1a
1b
1c
1d
ff