Создать массив из 16 элементов, четные элементы отсортировать по возрастанию, а нечетные по убыванию

LXI H, 8070h
SHLD 8100h
LXI H, 8080h
SHLD 8200h
LXI  D, 8040h
MVI C,10h
 
M1:  LDAX D
ANI  01h
JNZ M2
LDA 8101h
LXI H, 8000h
MOV L, A
LDAX D
MOV M, A
INR L
MOV A,L
LXI H, 8101h
MOV M, A
INX D
DCR C
JNZ M1
JMP M3
M2:
LDA 8201h
LXI H, 8000h
MOV L, A
LDAX D
MOV M, A
INX L
MOV A, L 
LXI H, 8201h
MOV M,A
INX D
DCR C
JNZ M1
M3:
HLD

    mvi c,5     ; c = 5
next:   lxi h,arr   ; помещаем адрес на массив в пару HL
    mov d,c ; d = c
move:   mov a,m     ; помещаем первый элемент массива в аккумулятор a = arr[d]
 
    inx h       ; переходим к следующему элементу массива,   arr[d+1]
 
    sub m   ; a = a - m, arr[d] - arr[d+1]
    jnc endif   ; если получилось положительное число значит a > m , arr[d] > arr[d+1], заканчиваем итерацию
 
 
            ; иначе меняем местами
    add m       ; a = a + m
    mov b,m ; b = m , b = arr[d+1]
    mov m,a ; m = a , arr[d+1] = arr[d]
    dcx h       ; переходим к предыдущему элементу, arr[d]
    mov m,b ; m = b, arr[d] = b
    inx h       ; возвращаемся на текущий элемент, arr[d+1] на следующей итерации просто arr[d]
endif:dcr d     ; d--
    jnz move    ; если d <> 0 , то продолжаем цикл перемещения  move
    dcr c       ; c--
    jnz next    ; если c <> 0 то продолжаем цикл next
 
 
    hlt     ; выходим из программы

;начало сортировки
 LXI D,3000h
 MVI C,90h
;цикл сортировки
LOOP_A: DCR C
;закончили сортировку
 JZ STOP_A
;запоминаем состояние цикла сортировки
 PUSH B
 PUSH D;mov h,d
 POP H;mov l,e
;загружаем проверяемое число
 LDAX D
;поиск наименьшего
LOOP_B: INX H
 DCR C
;достигли конца массива
 JZ STOP_B
;сравниваем числа
 CMP M
;если A>M переход
 JP LOOP_C
 JMP LOOP_B
;обмен A и M
LOOP_C: MOV B,M
 MOV M,A
 MOV A,B
 JMP LOOP_B
;записываем минимальное значение
STOP_B: STAX D
;переходим к следующему элементу
 INX D
;востанавливаем состояние цикла сортировки
 POP B
 JMP LOOP_A
;сортировка законченна
STOP_A: