datasg segment 'data'
datasg ends

codesg segment 'code'
assume cs:codesg   

start:
	
mov dx,10h
s:
mov cx,16

p:
mov ah,02h
int 21h
inc dx
dec cx
cmp dx,100h
je a1
jcxz a0

a2:
push dx
mov dx,0h
mov ah,02h
int 21h
pop dx
jmp p

a0:
push dx
mov dx,0dh
mov ah,02h
int 21h
mov dx,0ah
mov ah,02h
int 21h
pop dx
jmp s

a1:
mov ax,4c00h
int 21h

codesg ends
end start