Ассемблер. Помогите с выводом строки и символа

.model  tiny
 
        .data
sInput  db  'Vvedite stoky:  $'
sInput2 db      0dh, 0ah, 'Vvedite simvol:  $'
sResult db      0dh, 0ah, 'Poluchennaya stroka: $'
 
buf     label   byte            ; буфер для приема строки с клавиатуры (по ф-и 0ah)
max     db      128             ; максимальная длина строки
len     db      0               ; реальная длина введенной строки
string  db      128 dup (?)     ; сама строка
buf2    label   byte            ; буфер для приема строки с клавиатуры (по ф-и 0ah)
max2    db      2               ; максимальная длина строки
len2    db      0               ; реальная длина введенной строки
string2 db      2 dup (?)       ; сама строка
 
        .code
        .startup
 
        lea     dx, sInput
        mov     ah, 9
        int     21h             ; приглашение на экран
 
        lea     dx, buf
        mov     ah, 0ah
        int     21h             ; вводим строку
 
        lea     dx, sInput2
        mov     ah, 9
        int     21h             ; приглашение на экран2
 
        lea     dx, buf2
        mov     ah, 0ah
        int     21h             ; вводим символ
       
        lea     dx, sResult
        mov     ah, 9
        int     21h             ; Result string
 
        lea     si, string2     ; адрес строки
        mov     dh, 0           ; предыдущий символ
MLoop:
        lodsb                   ; очередной
        cmp     al, 0dh         ; введенная строка заканчивается кодом 0dh
        je      exit
        mov     dh, al          ; сохраним
        int     29h             ; и выведем
        jmp     MLoop
 
exit:
        mov     ax, 4c00h
        int     21h
 
        end