$ADR 0000h
LXI B, 400h; тут номер ячейки откуда
LXI D, 800h; куда
BEGIN:
LDAX B; читаем значение из ячейки в А
SHL A;
JC ZERO ;
;число нечетное
MVI A, 1;
JMP STORE_NEW
ZERO: ; число четное
MVI A, 0;
STORE_NEW:
STAX D;
; проверяем, стоит ли в ВС адрес 2043
MOV A, B;
SUI 111b;
JNZ NEXT_ITER
MOV A, C;
SUI 11111011b;
JNZ NEXT_ITER
JMP OUT; в ВС вдрес 2043, т.е. прошли по всем знач-ям
;если не по всем, то переходим к след. итерации
NEXT_ITER:
INX B;
INX D;
JMP BEGIN
; пустой выход из программы
OUT: