dosseg
.model small
.data

string1 db ''

.stack 100h
.code

main proc

mov ax, @data
mov ds, ax
mov bx, 48
lea si, string1

l1:
mov ah, 1
int 21h

cmp al, 13
je skip

mov [si], al
inc si
inc bx

loop l1

skip:

mov [si], '$'

lea dx, string1
mov ah, 9
int 21h

mov ah, 2
mov dx, 10
int 21h
mov dx, 13
int 21h

mov dx, bx
int 21h

mov ah, 4ch
int 21h

main endp
end main