init:
    cld
    lea di, str1
    mov ax, 20h
    mov ch, 0
    mov cl, lenS
    mov bx, cx
    mov dx, cx
    dec di
stl:
    dec cx
itl:
    inc di
    cmp [di], al
    je nxt
    cmp cx, 0
    jnz stl
nxt:
    push ax
    mov ax, dx
    sub bx, cx
    jz nxc
    call @sort
nxc:
    mov bx, cx
    mov dx, ax
    pop ax
    cmp cx, 0
    jnz itl
    mov minLen, dx