Count vowels from a string

.model small
.stack 150h
.data

s1 db 0dh, 0ah, "Enter a string: $"
k db '0'

.code
main proc
   
 
mov ax, @data
    mov ds, ax
   
    mov ah, 9
    lea dx, s1
    int 21h
   
   
    lll:
    mov ah, 1
    int 21h
   
    cmp al, 'a'
    jne l1
    add k, 1
    jmp l5
   
    l1:
   
    cmp al, 'e'
    jne l2
    add k, 1
   
    jmp l5
   
    l2:
   
    cmp al, 'i'
    jne l3
    add k, 1
   
    jmp l5
   
    l3:
   
    cmp al, 'o'
    jne l4
    add k, 1
   
    jmp l5
   
    l4:
   
    cmp al, 'u'
    jne l5
    add k, 1
   
    jmp l5
   
    l5:
   
    cmp al, 0dh
    jne lll
   
    mov dl, 0dh
    mov ah, 2
    int 21h
    mov dl, 0ah
    int 21h
   
    sub al, 20h
    mov dl, k
    mov ah, 2
    int 21h



main endp

end main