Нахождение самого короткого слова

stek segment stack 'stack'
     db 200h dup (?)
stek ends
 
data segment
     string db 100,?,100+1 dup ('$')
     min dw 32767 ;Максимальное положительное число
data ends
 
code segment
assume cs:code,ds:data
start:
    mov ax, data
    mov ds, ax
    
    mov ah,0ah
    lea dx,string
    int 21h 
    
         xor dx,dx ; Флаг "окучиваем слово" = ложь, еще не окучиваем
         mov bx,offset string+2 ; заносим адрес первого элемента строки
         mov di,bx ;
 
cikl:    mov al,[bx] ;очередная буква строки
         cmp al,13 ;сравниваем с возвратом каретки
         je m1 ;если да, окучим длину последнего слова, потом выйдем
         cmp al,20h ;сравниваем с пробелом
         je m1 ;если да, старое слово кончилось, окучим его длину
    test dx, dx ;Мы уже окучиваем слово ?
    jnz  l1 ;Если да, то увеличим его длину
        xor cx,cx ;Первый символ слова, его длину начинаем считать с нуля
    inc dx ; Флаг = правда, окучивать слово начали  
    mov si,bx ; 
l1:     inc cx ;инкрементируем длину слова
    jmp b1
        
m1:      test dx,dx ;Мы уже окучиваем слово ?
         jz n1 ;Переход, если нет
         xor dx, dx ; Флаг = ложь, старое слово кончилось, новое не началось
         cmp cx,min ;сравниваем длину старого слова с минимальным значением
         jg  n1 ;Более короткого не нашли
         mov min,cx ;если слово короче минимального значения то заносим его в мин
         mov di,si ;
n1:      cmp al,13 ;сравниваем с энтером(концом строки)
         je konec ;если слово было последнее, то заканчиваем
 
b1:      inc bx ; переходим к следующему элементу строки
         jmp cikl
 
konec:
    
    mov string,0dh
    mov string+1,0ah
    
    mov dx,di
    mov ah,9
    int 21h
    
    
    mov ah, 10h
    int 16h
 
    mov ax, 4c00h
    int 21h
code ends
end start