Ассемблер. Найти слово минимальной длины и укоротить остальные слова до длины минимального.

[xqr]

Помогите, горит зачет! Вот задание:
Дано предложение, состоящее из нескольких слов, разделенных пробелом. Реализуйте подпрограмму, которая находит слово наименьшей длины и укорачивает все остальные, отбрасывая лишние символы.

Вот мой неработающий код:
;TASM, COM-файл
.model tiny
.code
.386
org 100h
start:
mov ah,0Ah
lea dx,strin
int 21h
mov si,dx

mov ah,2
mov dl,0Ah
int 21h

inc si
xor ax,ax
xor cx,cx
mov cl,[si]
mov dh,cl
add si,cx
inc si
mov byte ptr [si],0Dh
mov word ptr [si+1],240Ah
m1:
dec si
dec cl
cmp byte ptr [si],' '
jnz short m1
inc ah

mov di,si
m2:
dec si
cmp byte ptr [si],' '
jnz short m3
inc ah
dec cl
jmp short m2
m3:
mov al,[si]

mov [di],al
dec di
loop m2

mov cl,ah
mov al,' '
std
rep stosb
inc di
push ax
mov ah,9
mov dx,di
int 21h
pop ax

lea si,lenL ;
mov al,ah
xor ah,ah
mov cx,10
m4:
cmp ax,10
jb short m5
xor dx,dx
div cx
or dl,30h
mov [si],dl
dec si
jmp short m4
m5:
or al,30h
mov [si],al
mov ah,9
mov dx,si
int 21h

mov ah,0
int 16h

ret

lenH db 0
lenL db 0,'$'
strin db 100,?


end start

[Serge_Bliznykov]

кросспост

тема тут