correct this code it goes to infinite loop .          .model small  

.data

input db ?
st db "*$"
spa db 0dh,0ah,"$"  
v1 db ?

.code

mov ax,@data
mov ds,ax

mov ah,01
int 21h
sub al,18 

call pat
jmp xyz
pat proc

mov cl,al
mov bl,cl 
mov v1,1

l1:     

mov cl,v1   

  l2:   
   
    lea dx,st
    mov ah,09
    int 21h     
         
  loop l2  
  
inc v1 
  
lea dx,spa
mov ah,09
int 21h

mov cl,bl
dec bl

loop l1  

ret

jmp xyz

pat endp  

xyz:

