Определение последовательности символов в строке [FASM]

format PE Console 5.0
entry Start
 
include 'win32a.inc'
 
section '.data' data readable writeable
i db 58
j db 26
k db ?
ArrayZ db 'abc set on the pipe, a drop, b lost, who stay on the pipe.',0
ArrayABC db 'a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z',0
ArrayRezult db ?
 
section '.text' code readable executable
Start:
        movsx ecx, [i]
        lea esi, [ArrayZ]  ;адрес первого массива
        lea ebx, [ArrayRezult] ;адрес массива результата
point:
      lea edi, [ArrayABC]  ;адрес второго массива
      push ecx    ; заносим i(sizeof ArrayZ) в стек
      movsx ecx, [j] ; записываем j (sizeof ArrayABC) в регистр счетчика
k1:    
      xor eax, eax
      mov al, [esi]
      cmp al, [edi] ; сравниваем содержимое ячеек массивов
      je t1 ; если равны, выходим из цикла
      inc edi  ; если не равны, инкрементируем массив алфавита
      loop k1
t1:
      mov [ebx], al
      inc ebx ; инкремент ячейки массива результата 
      inc esi ; инкремент ячейки первого массива (строки)
      pop ecx ; достаем содержимое из стека
      loop point
Exit:
  invoke  ExitProcess, 0
 
 
section '.idata' import data readable
 
  library kernel, 'KERNEL32.DLL'
 
  import kernel,\
    ExitProcess, 'ExitProcess'

; Процедура получения размера строки.
 
;input: term_number - максимальный размер, буфера (ecx=-1, если точно известно, что строка имеет уичтож. число).
;   string_addr - адрес строки в буфере, размер которой, надо получить.
;   buf_length  - уничтожающее число.
 
;output: [удача] CF (cf=0), EAX = размер строки, в байтах.
;                            edi- адрес конца строки (с учётом уничтожающего числа).
;    [неудача] CF (cf=1)
 
proc str.get_length  term_number:BYTE, string_addr:DWORD, buf_length:DWORD
    cld
    mov ecx, [buf_length]   ;максимальный размер, буфера (ecx=-1, если точно известно, что строка имеет уичтож. число).
    mov edi, [string_addr]  ;адрес строки в буфере, размер которой, надо получить.
    mov al, [term_number]   ;al = уничтожающее число.
    repne   scasb
    jne .error   ;ошибка, уничтожающее число не найдено.
 
    ;вычисляем размер строки (eax = размер строки в байтах).
    mov eax, [buf_length]
    sub eax, ecx
    dec eax
    jmp .exit
.error:
    stc
.exit
    ret
endp

; Пример использования.
 
ascii_space = 0x20
 
    mov esi, ArrayZ
 
    stdcall  str.get_length  ascii_space, esi, -1
    jc .exit

lodsb; получили очередной символ
inc al;увеличили значение в AL на 1
cmp al,[si]; в SI адрес следующего символа
je next;если совпали
mov al,' ';ищем символ пробела
repne scasb

cmp al, ' '
je begin

Start:
lea esi, [ArrayZ]
lea edi, [ArrayRezult]
movsx ecx, [i]
xor eax, eax
 
begin:
mov al, [esi]  ;записываем первый эл. строки в al
inc esi        ; переходим на 2-й лемент строки
cmp al, ' '
je begin
cmp al, 0
je Exit
cmp al, [esi]  ; сравниваем элемент со следующим
jna o1         ; если <= то записываем в массив результата
loop begin     
 
o1:
mov [edi], al
inc edi
jmp begin        
Exit:

cmp al, [esi]  ; сравниваем элемент со следующим

cmp al, [esi+1]  ; сравниваем элемент со следующим