Посчитать количество слов - Assembler

.model small
.stack 100h
.data
    buf_n db 255
    len db ?
    buf 255 dup ('$')
    
    inp_lbl db 'Input String: $'
    res_lbl db 'Result: $'
    
    endl db 13,10,'$'
 
.code 
begin:
    mov ax, @data
    mov ds, ax
    mov es, ax
    
    mov ah, 9
    lea dx, inp_lbl
    int 21h
  
    mov ah, 0Ah
    lea dx, buf_n
    int 21h   
    xor ax, ax
    mov al, len
    mov bx, ax       
    mov buf[bx], '$'      
    lea si, buf
    xor cx, cx  
    mov cl, len
    xor bx, bx  
    
c1: lodsb
    cmp al,' '
    jne s
    inc bx  
s:loop c1  
 
    inc bx      
    lea dx, endl
    mov ah, 9 
    int 21h
    lea dx, buf
    int 21h    
    lea dx, endl
    int 21h
    lea dx, res_lbl
    int 21h
    mov dx, bx
    add dx, '0'
    mov ah, 2
    int 21h
    mov ah, 4ch
    int 21h    
ends
 
end begin