Составить новую строку из слов исходной строки заданной длины

NewString proc
        push ebp
        mov ebp, esp
        push esi
        push edi
        
        mov esi, [ebp + 8]  ; доступ к аргументу 4 (строка, из которой будут копироваться слова)
        mov edi, [ebp + 16] ; доступ к аргументу 2 (строка, в которую будут копироваться слова) 
        mov al, [ebp + 12] ; доступ к аргументу 3 (пока не используется)
 
        xor edx, edx    ; обнуление регистра
 
        dec esi
 
        ; переход к следующему слову
    L1: inc esi
        mov cl, [esi]   ; Заносим в регистр cl очередной символ
        test cl, cl
        jz END    ; Тут переход к выводу
        cmp cl, ' '
        jz PR ; Если пробел, то переходим к проверке числа букв

NewString proc
        push ebp
        mov ebp, esp
        push esi
        push edi
        
        mov esi, [ebp + 8]  ; доступ к аргументу 4 (строка, из которой будут копироваться слова)
        mov edi, [ebp + 16] ; доступ к аргументу 2 (строка, в которую будут копироваться слова) 
        mov al, [ebp + 12] ; доступ к аргументу 3 (пока не используется)
 
        xor edx, edx    ; обнуление регистра
 
        dec esi
 
        ; переход к следующему слову
    L1: inc esi
        mov cl, [esi]   ; Заносим в регистр cl очередной символ
        test cl, cl
        jz END    ; Тут переход к выводу
        cmp cl, 'a'
        jb L1
        cmp cl, 'z'
        ja L1
        cmp cl, ' '
        jz PR ; Если пробел, то переходим к проверке числа букв

.686
.model flat, stdcall
option casemap :none
 
        include \masm32\include\windows.inc
 
        include \masm32\include\user32.inc
        include \masm32\include\kernel32.inc
        include \masm32\include\masm32.inc
 
        includelib \masm32\lib\user32.lib
        includelib \masm32\lib\kernel32.lib
        includelib \masm32\lib\masm32.lib
.data
        aszMsgInstant   db      0Dh, 0Ah, 'Instant:', 0Dh, 0Ah, 0
        aszMsgResult    db      0Dh, 0Ah, 'Result:', 0Dh, 0Ah, 0
        aszPressEnter   db      0Dh, 0Ah, 0Dh, 0Ah, "Press ENTER to exit", 0
        Delimiter       db      ' '
        uiLength        dd      3
        aszString       db      '    99   ghj tyt tyyt t    ui    uou hj', 0
.data?
        hConsoleOutput  HANDLE  ?
        hConsoleInput   HANDLE  ?
        Result          dd      ?
        Buffer          db      1024 dup(?)
        BufLen          dd      ?
 
.code
 
Process proc    lpSrcStr:DWORD, lpDestStr:DWORD, nLength:DWORD
 
        xor     ebx,    ebx             ;количество скопированных слов
        mov     esi,    [lpSrcStr]
        mov     edi,    [lpDestStr]
 
        ;пропуск разделителей
        @@SkipDelimiters:
                lodsb
                cmp     al,     [Delimiter]
        je      @@SkipDelimiters
        or      al,     al
        jz      @@Exit
        ;выделение слова из строки
        mov     edx,    esi             ;(edx-1) - на начало слова
        @@ExtractWord:
                or      al,     al      ;строка завершилась?
                je      @@Break
                cmp     al,     [Delimiter]
                je      @@Break
 
                lodsb
        jmp     @@ExtractWord
@@Break:
        mov     ecx,    esi             ;(esi-1) - на последнюю букву слова
        sub     ecx,    edx             ;ecx - длина слова
        cmp     ecx,    [nLength]
        jne     @@Continue
        ;длина слова равна требуемой - копируем слово в новую строку
        inc     ecx                     ;копируем не только слово, но и разделитель за ним
        sub     esi,    ecx
        rep     movsb
        inc     ebx                     ;количество скопированных слов
@@Continue:
        or      al,     al
        jnz     @@SkipDelimiters
@@Exit:
        cmp     ebx,    1               ;если слова копировались, то записать ноль по адресу [edi-1]
        adc     edi,    -1              ;если искомых слов не нашлось, то записать ноль по адресу [edi]
        mov     [edi],  al
        mov     eax,    ebx
        ret
Process endp
 
main    proc
 
        ; получение описателей ввода и вывода консоли
        invoke  GetStdHandle,   STD_INPUT_HANDLE
        mov     hConsoleInput,  eax
 
        invoke  GetStdHandle,   STD_OUTPUT_HANDLE
        mov     hConsoleOutput, eax
 
        invoke  ClearScreen
 
        ;вывод исходных данных
        invoke  WriteConsole, hConsoleOutput, ADDR aszMsgInstant,\
                LENGTHOF aszMsgInstant - 1, ADDR BufLen, NULL
        invoke  WriteConsole, hConsoleOutput, ADDR aszString,\
                LENGTHOF aszString - 1, ADDR BufLen, NULL
        ;обработка
        invoke  Process,        ADDR aszString, ADDR Buffer, [uiLength]
        mov     [Result],       eax
        ;вывод результата
        invoke  WriteConsole, hConsoleOutput, ADDR aszMsgResult,\
                LENGTHOF aszMsgResult - 1, ADDR BufLen, NULL
        invoke  StrLen, ADDR Buffer
        mov     [BufLen],       eax
        invoke  WriteConsole, hConsoleOutput, ADDR Buffer,\
                BufLen, ADDR BufLen, NULL
        ;ожидание нажатия ENTER
        invoke  WriteConsole, hConsoleOutput, ADDR aszPressEnter,\
                LENGTHOF aszPressEnter - 1, ADDR BufLen, NULL
        invoke  ReadConsole, hConsoleInput, ADDR Buffer,\
                LENGTHOF Buffer, ADDR BufLen, NULL
 
        invoke  ExitProcess, 0
main    endp
 
end     main