String input print

.model small
.stack 100h
.data

v1 db 100 dup('$')

.code
main proc

    mov ax,@data
    mov ds,ax
    mov si,offset v1

 l1:


    mov ah,1
    int 21h

    cmp al,13
    je stop

    mov [si],al
    inc si

    jmp l1


 stop:
  mov dx,offset v1
  mov ah,9
  int 21h






    exit:
    mov ah,4ch
    int 21h
    main endp
end main