Skip to content

Instantly share code, notes, and snippets.

@libbkmz
Created May 24, 2012 09:22
Show Gist options
  • Save libbkmz/2780429 to your computer and use it in GitHub Desktop.
Save libbkmz/2780429 to your computer and use it in GitHub Desktop.
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment