Добавить пробелы в строке - Assembler

org 100h
 
.MODEL tiny
 
start:
         
mov ah,09h
lea dx,Input_str
int 21h 
 
   call Enter 
 
input:      
    call ReadChar 
    mov [Str_in+si],al      
    cmp al,13
    je continue_input     
    inc si  
loop input
                         
continue_input:
    mov [Str_in+si],'$'
    call Enter 
     
    mov ah,09h
    lea dx,Res
    int 21h  
    
    call Enter
     
; основная программа  
  
    CLD
    LEA si,str_in 
    LEA di,str_out          
    LODSB

READ1:  
    STOSB 
    MOV bl, ' '
    LODSB 
         
    CMP al,last
    JE DONE1
   
    CMP al,space        
    JNE READ1
    MOV al,bl 
    STOSB
    MOV al,space
    JMP READ1
 
DONE1:
    MOV al,bl 
    STOSB 
    MOV al,space                      
    STOSB
 
PRINT:
    MOV AL, '$'
    STOSB
    MOV DX, OFFSET STR_OUT  
    MOV AH, 09H
    INT 21H
    MOV AH, 4CH 
    INT 21H                   
                           
;----------------------------------------------------- 
ReadInteger proc  
    push    cx    
    push    bx
    push    dx 
    mov     fl,0  
    xor     cx, cx  
    mov     bx, 10 
    call    ReadChar  
 
    cmp     al,'-' 
    je      minus
    jmp     nn
minus:
    mov     fl,1  
read: 
    call    ReadChar  
nn: cmp     al, 13    
    je      done      
    
    sub     al, '0'   
    xor     ah, ah  
    xor     dx, dx   
    xchg    cx, ax  
    mul     bx  
    add     ax, cx  
    xchg    ax, cx  
    jmp     read  
done:  
    xchg    ax, cx  
    cmp     fl,1
    je      eee
    jmp     ee
eee:
    neg     ax
ee: 
    pop     dx
    pop     bx  
    pop     cx 
    ret  
ReadInteger endp  
 
; ввод одного символа   
ReadChar proc      
    mov     ah,1 
    int     21h          
    ret  
ReadChar endp  
 
; перевод строки  
Enter proc
    mov ah,09h
    lea dx,crlf
    int 21h    
    ret
Enter endp    
 
Str_in db 128 dup (?) ; начальная строка 
STR_OUT DB 100 DUP(?)   ; строка-результат
fl dw ?   
LAST    DB '$'    ;конец строки 
SPACE   DB ' '  ;пробел     
Input_str db 'Введите строку: ','$' 
crlf db 0dh,0ah,'$'
Res db 'Результат: ','$' 
           
end start