assem / задачи на экзамен / 24

24. задан байтовый массив из N элементов в упакованном BCD формате. Написать процедуру сортировки по убыванию исходного массива.
model small
data_sg segment
a db 45h,22h,53h,63h,31h
n=$-a
data_sg ends
.stack 100h
code_sg segment
assume cs:code_sg, ds:data_sg
sergey proc
xor si,si
xor bl,bl
mov di,n
dec di
m4:
mov al,a[si]
cmp al,a[si+1]
jge m1
xchg al,a[si+1]
mov a[si],al
mov bl,1
m1:
inc si
cmp si,di
jne m2
cmp bl,0
jne m2
jmp exit
m2:
cmp si,di
jne m3
cmp bl,1
jne m3
xor si,si
xor bl,bl
m3:
jmp m4
exit:
ret
sergey endp
start:
mov ax,data_sg
mov ds,ax
call sergey
mov ax,4c00h
int 21h
ret
code_sg ends
end start