Отсортировать слова в строке во возрастанию количества символов - Assembler

.model small
.stack 100h
.data       
CR = 0Dh
LF = 0Ah
FileName db "sentence.txt","$"        
FDescr dw ?              
NewFile db "newfile.txt","$"                                         
FDescrNew dw ?                             
 
maxCount dw 0
char db 'a'
 
Buffer dw ?
String dw 40 dup(0)
index dw 0  
 
MessageError1 db CR, LF,  "File was`t opened!", "$"        
MessageError2 db CR, LF, "Error reading the file!", "$"
MessageError3 db CR, LF, "File was`t found!", "$"
MessageError4 db CR, LF, "File was`t created!", "$"
MessageError5 db CR, LF, "Error writing the file!", "$"
MessageEnd  db CR, LF, "Program was successfully finished!", "$"
 
dop dw ?
count dw '0'
crlf db 13,10,'$'
.code
start:
 
print_string macro
mov ah, 09h
int 21h
endm

mArrangeWordsInAscending macro source,target
local exit,first,second,third,start
push ax
push bx
push cx
push dx
start:
xor bx,bx
xor ax,ax
xor cx,cx
lea di,byte ptr source+2
inc count
mov cl,byte ptr source+1
first:  
mov bx,di
cld
mov al,' ' 
repne scasb
jne start
push di
push cx
sub di,bx
dec di
xor ax,ax
mov ax,di
cmp count,ax
je second
pop cx
pop di
jmp first
second:
mov cx,di
inc cx
xor ax,ax
mov al, byte ptr target+1
mov si,ax
lea di, target+si
mov si,bx
add target+1,cl
cld
rep movsb
pop cx
pop di
xor ax,ax
mov al, byte ptr target+1
cmp byte ptr source+1,al
jbe exit
jmp first
exit:
pop dx
pop cx
pop bx
pop ax
endm    
 
write macro srt
push ax
push dx
lea dx, str 
mov ah,09h
int 21h
pop dx
pop ax
endm
 
putdigit macro
local lput1
local lput2
local exx
 
push ax
push cx
push -1
mov cx,10
 
lput1:
xor dx,dx
mov ah,0
div cl
mov dl,ah
push dx
cmp al,0
jne lput1
mov ah,2h
 
lput2:
pop dx
cmp dx,-1
je exx
add dl,'0'
int 21h
jmp lput2
 
exx:
mov dl,' '
int 21h
pop cx
pop ax
endm
 
mov ax,@data
mov ds,ax
mov ah,3Dh
xor al,al
mov dx,offset FileName
xor cx,cx
int 21h
mov FDescr,ax
jnc M1
jmp Er1
 
CloseFile macro FileDescr
    mov ah, 3eh     ;закрытие файла                      
 mov bx, FileDescr 
 int 21h 
endm

M1:                                 
    mov ah,3ch
    xor cx,cx
    mov dx,offset NewFile
    int 21h    
    mov FDescrNew, ax                 ;дискриптор файла
    jnc M2                            ;eсли ошибок нет, продолжить   
    jmp Er3                           ;ошибка,файл не был создан
 
M2:                                
    mov ah,3fh
    mov bx,FDescr
    mov cx,1
    mov dx,offset Buffer
    int 21h                                
    jnc M3                                ;если ошибок нет,продолжить
    jmp Er2                               ;файл не был прочтён
    
M3:
    cmp ax,0
    je M4
    mov ax,Buffer
    mov bx,index
    mov String[bx],ax
    jmp M2
    
M4:     
mArrangeWordsInAscending String
    jnc M6
    jmp Er4  

Er1:    ;файл не был найден
    cmp ax, 02h
    jne M5
    lea dx, MessageError3
    print_string
    jmp Exit
    
M5:     ;файл не был открыт
    lea dx, MessageError1
    print_string
    jmp Exit
    
Er2:    ;файл не был прочтен
    lea dx, MessageError2
    print_string
    jmp Exit 
    
Er3:   ;файл не был создан
    lea dx, MessageError4
    print_string
    jmp Exit
    
Er4:   ;ошибка при записи в файл
    lea dx, MessageError5
    print_string
    jmp Exit  
    
M6:
    CloseFile FDescr     ;функция закрытия файла
    CloseFile FDescrNew 
    
    lea dx, MessageEnd
    print_string
    jmp Exit  

Exit:
    mov ah, 07h  
    int 21h   
    mov ax, 4c00h
    int 21h
end start