dosseg
.model small
.data
.stack 100h
.code

main proc

mov ax, @data
mov ds, ax
mov bx, 48

l1:
mov ah, 1
int 21h

cmp al, 13
je skip

push al
inc bx

loop l1

skip:

mov cx, bx
mov ah, 2

l2:
pop dx
int 21h

loop l2

skip2:

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

mov ah, 4ch
int 21h

main endp
end main