Напечатать заданную строку символов

data segment
p1    db    'Input string:',0dh,0ah,'$'
p2    db     0dh,0ah,'$'
inp label byte
max   db     255
num   db      ?
s   db     255 dup ('$')
data ends
code segment
ASSUME CS:code,DS:data
start:
      mov AX,data
      mov DS,AX
      mov AH,09h
      lea DX,p1
      int 21h
      mov AH,0ah
      lea DX,inp
      int 21h
      mov AH,09h
      lea DX,p2
      int 21h
      lea SI,s
      mov Cl,num
      mov CH,0
      mov BL,09h      ;Записуємо в регістр ВХ код символу табуляція
      mov BH,0        ;Записуємо в регістр ВН 0. 
    
mm:   cmp BH,5        ;Порівнюємо цей регістр з 5, щоб 5 раз замінити пробіл на табуляцію
      je m2           ;Якщо БН=5, то друкуємо решта символів
m0:   mov AL,20h    
      cmp [SI],AL     ;Порівнюємо пробіл з першим символом рядка 
      je pp           ;Якщо це пробіл, то замінюємо його на табуляцію 
      jmp m2          ;Якщо це не пробіл, друкуємо цей символ не замінюючи його
 
pp:   mov AL,BL
      mov AH,02h
      mov DL,AL
      int 21h
      inc SI
      inc BH           ;збільшуємо регістр ВН щоб знати котрий раз ми дійшли до пробілу
      jmp m4
 
m2:   mov AH,02h
      mov DL,[SI]
      int 21h
      inc SI
m4:   loop mm          ;цей цикл буде працювати стільки разів, скільки символів є в рядку
 
      mov AH,01h
      int 21h
      mov AX,4c00h
      int 21h
    code ends
    end start

;DOS, TASM, COM-файл
;tasm.exe /m filename.asm
;tlink.exe /t /x filename.obj
;
.model tiny
.code
;.386
ORG 100h
START:
    mov ah,10     ;ввод строки
    lea dx,strBig
    int 21h
 
    mov ah,2      ;перевод строки
    mov dl,10
    int 21h
 
    xor cx,cx     ;очистка регистра
    mov cl,[len]  ;длина строки
    lea si,str    ;строка
 
;цикл чтения посимвольно введенной строки и вывод символов на экран
m1:
    lodsb         ;читать символ
    cmp al,' '    ;это пробел?
    jz m2         ;да, переход
m4:
    int 29h       ;вовод символа на экран
    loop m1       ;повторить цикл с уменьшением CX на 1
    jcxz exit     ;СХ=0, выход
m2:
    int 29h       ;вывод первого пробела
    dec cx        ;уменьшить CX на 1
m3:
    jcxz exit     ;СХ=0, выход
    lodsb         ;читать символ после пробела
    cmp al,' '    ;это пробел?
    jnz m4        ;нет, перейти в тело цикла
    dec cx        ;уменьшить CX на 1 и
    jmp short m3  ;проверить следующий символ
 
exit:
    xor ax,ax     ;ждать нажатия клавиши
    int 16h
 
    ret           ;выход из программы
 
;=====Строка========
strBig db 255 ;лимит символов в строке
len db ?      ;фактически, введенных символов
str:          ;введенная строка
    end start