String reverse using Assembly Language

.model small
.stack 150h
.data
s1 db 0dh, 0ah, "Enter a string: $"
 s2 db 0dh, 0ah,"$"

.code
main proc
 
mov  cx,0
    mov ax, @data
    mov ds, ax
   
    mov ah, 9
    lea dx, s1
    int 21h
   
   l0:
 
     mov ah, 1
     int 21h
     push ax
     inc cx
   
    cmp al, 0dh
    jne l0
   
     mov bx,cx
    mov ah, 9
    lea dx, s2
    int 21h
   
 
 
 l2:
   dec bx
   pop dx
   mov ah,2
   int 21h
   cmp bx,0
jne l2

    main endp
end main