Поиск слова на экране

org 100h
 
mov ax, 0b800h
mov es, ax 
mov bp, 0
petla:
 
    inc byte [es:bp]
 
    add bp, 2
    cmp bp, 80*24*2
jl petla
 
mov ax, 4c00h
int 21h

mov ebx, offset bufstring ; указатель начала строки
mov stringposition, ebx ; сохраняем позицию в начале
label0:
mov eax, offset searchword ; указатель начала слова
mov ebx, stringposition
mov dh, wordcharsnum 
mov dl, 1           ; dl текущее количество считанных символов слова
mov stringposition2, ebx ; сохраняем позицию в строке перед чтением слова
label1:
mov ch, [eax]
mov cl, [ebx] 
cmp ch, cl ; считываем по 1 байт слова и 1 байт строки и сравниваем их
jne notfoundword ; переход, если слово не найдено в текущей позиции
cmp dl, dh ; проверяем не достигли ли мы конца слова
je foundword ; переход, если конец достигнут (слово найдено!)
inc dl
inc eax
inc ebx    ; переход на следующий символ слова
jmp label1 ; повторяем операцию по кругу
foundword: ; если слово найдено
mov stringposition, ebx ; сохраняем позицию строки на конце слова
mov ebx, stringposition2 ; считываем позицию строки на начале слова
mov al, '*'
mov dh, wordcharsnum 
mov dl, 1
label2:
mov [ebx], al ; заменяем слово в строке символами '*'
inc ebx
inc dl
cmp dl, dh
jne label2 ; пока не достигнем конца слова
; в случае, если слово найдено, идем дальше на метку notfoundword
notfoundword: ; если слово не найдено
mov eax, stringposition
mov ebx, stringcharsnum
cmp eax, ebx ; проверяем не достигли ли мы конца строки
jae endsearch ; тогда поиск закончен
inc eax ; иначе переходим на следующий символ строки
mov stringposition, eax
jmp label0 ; и начинаем поиск слова заново
endsearch: ; конец поиска

    Org 100h
 
xor ax, ax
    mov ds, ax
    mov bx, [ds:44Eh] ;смещение в видеосегменте тек.видеостраницы
    mov cx, [ds:44Ah] ;ширина экрана в текстовых колонках
    mov ah, 0B0h    ;B000 - видеосегмент монохромного режима
    cmp byte [ds:449h], 7 ;текущий видеорежим не 7 ли ?
    je  Mono
    mov ah, 0B8h    ;B800 - видеосегмент цветного режима
 
Mono:   mov ds, ax      ;видеосегмент в нашем случае
    mov al, 25      ;считаем, что высота экрана всегда 25 строк
    mul cl      ;получаем в ax число символов на экране
    sub ax, Mat_-Mat-1  ;хвост строки за границой страницы не ищем
    mov cx, ax      ;сколько начал строки будем проверять
        cld
 
  @:  mov si, bx      ;ds:si - начало пров.строки в видеопамяти
    mov     di, Mat  ;es:di - начало образца для сравнения
 
@@: cmp byte [es:di], 0 ;до нуля дошли - мат нашли
    je  Cenzura
    lodsb
    inc si
    cmp al, 'a'
    jb  _
    cmp al, 'z'
    ja  _
    and al, 0DFh    ;приведем к верхнему регистру
_:  scasb           ;буква совпала ?
    je  @@      ;если да - проверим еще одну
 
@@@:    inc bx
    inc bx
    loop    @
    retn            ;завершение программы
 
Cenzura:mov di, bx      ;ds:bx->начало_строки ds:si->сразу_за_ней
@@@@:   mov byte [ds:di], '*'
    inc di
    inc di
    cmp si, di
    jne @@@@
    jmp @@@
 
Mat     db      'O-O-P-S'       ;заглавными буквами
Mat_    db  0       ;ноль - признак конца строки