Сортировка символов в строке по алфавиту

masm
model small
.data
         string db 0ah,73 dup ('$')
         kol db 0
.code
 
prog:
include lab5.txt    
    mov ax, @data
    mov ds, ax
    mov es,ax
          
    vvodstr
    
    mov ah, 10h
    int 16h
          
          sortirovka
         
    mov ah, 10h
    int 16h
    
    vivodstr string
    
    mov ah, 10h
    int 16h
    
    mov ax, 4c00h
    int 21h
end prog

vivodstr macro z
    mov dx, offset z
    mov ah, 09h
    int 21h
endm
 
vvodstr macro
local n1,ex
    xor dx,dx
    mov cl,70
    lea bx,string+1
n1:
    mov ah,10h
    int 16h
    cmp al,10
    je ex
    cmp al,13
    je ex
    cmp al,61h
    jl n1
    cmp al,7ah
    jg n1        
    push dx
    mov dl,al
    mov ah,02h
    int 21h
    pop dx
    mov [bx],al
    inc bx
    inc dl                
    cmp dl,cl
    je ex
    loop n1
ex:                   
        mov kol,dl
    mov dl, 10          ;перевод курсора на новую строку
    mov ah, 02h
    int 21h
        mov dl, 13    
    mov ah, 02h
    int 21h
endm
 
sortirovka macro
local m0,m1,m2,m3,m4
    xor dx,dx
    xor bx,bx
    xor ax,ax
    xor cx,cx
m0: cmp cl,kol
    je m4
    inc cl
    lea di,string+1
m1: mov dx,[di]
    cmp dx,[di+1]
    jge m2
    jl m3
m2: mov dx,[di+1]
    mov ax,[di]
    mov [di+1],ax
    mov [di],dx 
m3: inc si
    cmp dx,24h
    jne m1
    je m0
m4:
endm

masm
 
model small
.stack 100h
.data
         string db 73 dup ('$')
         kol db 0
.code
 
prog:
include lab5.txt        
        mov ax, @data
        mov ds, ax
        mov es,ax
          
        vvodstr
          
        sortirovka
       
        vivodstr string
        
        mov ah, 10h
        int 16h
        
        mov ax, 4c00h
        int 21h
end prog

vvodstr macro
local n1,ex
        xor dx,dx
        mov cl,70
        lea bx,string
n1:
        mov ah,10h
        int 16h
        cmp al,10
        je ex
        cmp al,13
        je ex
        cmp al,61h
        jl n1
        cmp al,7ah
        jg n1        
        push dx
        mov dl,al
        mov ah,02h
        int 21h
        pop dx
        mov [bx],al
        inc bx
        inc dl                
        cmp dl,cl
        je ex
        loop n1
ex:                   
        mov kol,dl
        mov dl, 10              ;перевод курсора на новую строку
        mov ah, 02h
        int 21h
        mov dl, 13    
        mov ah, 02h
        int 21h
endm
 
sortirovka macro
local nxt,cntn,rpt
rpt:    lea di,string
    xor bx,bx
    mov cl,kol
    dec cl
cntn:   mov dl,byte ptr[di]
    cmp dl,byte ptr[di+1]
    jbe nxt
    xchg dl,byte ptr[di+1]
    mov byte ptr[di],dl
    inc bx
nxt:    inc di
    loop cntn
    or bx,0
    jnz rpt
endm

.686
.model flat,stdcall        
option casemap:none
include    \masm32\include\windows.inc
include    \masm32\include\kernel32.inc
include    \masm32\include\user32.inc
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
 
.data
mas1 db "72abcd ","23efgh ","14ijkl ","40mnop ","34qrst ","27uvwx "
mas2 dd 42 dup(1)
n dd 5
_c dd 0
min db 0
.code
_start:
xor eax,eax
xor ebx,ebx
xor edx,edx
lea esi,mas1
lea edi,mas2
mov min,bl
xor edx,edx
 
mov ecx,7
cld
rep movsb
mov ecx,n
    
_cycle1:
    mov _c,ecx
    mov al,[esi]
    mov bl,[edi]
    mov ecx,7
    _cycle2:
        .IF (bl > al)
            mov ecx,7
            cld
            rep movsb
            mov ecx,n
        .ENDIF
        add esi,7
    loop _cycle2
    sub esi,42
    mov ecx,_c
loop _cycle1
 
invoke MessageBox, 0, addr mas1, 0, 0
invoke MessageBox, 0, addr mas2, 0, 0
 
ret
end _start