Assembler TASM Зацикливается программа

[fen_x]

Должны вводиться строка и слово. Программа проверяет состоит ли это слово из символов строки, а также есть ли введенное слово в словаре, однако она почему-то зацикливается

.model small
.stack 100h
.data

    string_request db "Please, enter string:", 0Dh, 0Ah, '$'
    string_word_request db 0dh,0ah,"Please, enter the word:", 0Dh, 0Ah, '$'
    warning_string db 0dh,0ah,"Invalid Input!", 0Dh, 0Ah, '$'
    string db 254,256 dup (?)       
    string_word db 254,256 dup (?)  
    library db 'table', 0

.code        
begin:

    mov ax, @data
    mov ds, ax
    
    mov dx, offset string_request
    mov ah, 9
    int 21h 
    
    mov ah, 0Ah
    mov dx, offset string
    int 21h 
    
    jmp q
    
string_word_warning:

    mov dx, offset warning_string
    mov ah, 9
    int 21h
    
q: 
    mov dx, offset string_word_request
    mov ah, 9
    int 21h     

    mov ah, 0Ah
    mov dx, offset string_word
    int 21h    

    mov di, 2              ; string
    mov si, 2              ; string_word 
    mov bp, 2
 
x:  
    cmp string_word[si], 0dh
    je begin
    mov bl, string_word[si]         
    cmp string[di], bl
    jnz bad_symbol
     
good_symbol:
    mov di, 2
    inc si
    cmp string_word[si],0dh 
    je start
    jmp x

bad_symbol:
    inc di
    cmp string[di], 0dh
    je string_word_warning
    jmp x
    
start:
    mov si, 2   
    cmp library[bp],' '
    jne y
    inc bp
    jmp start
        
y:   
    mov bh, library[bp]         
    cmp string_word[si], bh
    jnz bad
     
good:    
    inc bp
    inc si
    cmp string_word[si],0dh
    je final
    jmp y

bad:
    inc si
    cmp string_word[si], 0dh
    je string_word_warning
    mov si, 2
b:
    inc bp
    cmp library[bp], 0dh
    je string_word_warning
    cmp library[bp],' '
    je start
    jmp b
    
final:
         
    cmp library[bp],' '
    je win
    cmp library[bp], 0dh
    je win
    jmp string_word_warning

win:  
mov ax,4c00h   
int 21h   
end begin

[Black Fregat]

В комплекте tasm есть отладчик td. Пройдите по шагам - и всё станет ясно