kuapl

.model small
.stack
.data
p1 		db 'Enter Char: $'
p2 		db 'Enter number: $'
.code
m 		proc
		mov ax,@data
		mov ds,ax
		mov ah,9
		mov dx,offset p1
		int 21h	  ; al='*'
		mov ah,1
		int 21h
		push ax
		call nl
		mov ah,9
		mov dx,offset p2
		int 21h
		mov ah,1
		int 21h	  ; al='5'
		sub al,30h
		mov ah,0
		mov cx,ax
		pop ax
		call nl
		mov ah,2
		mov dl,al
ulit:	int 21h
		loop ulit
		mov ah,4ch
		int 21h


m 		endp

nl		proc
		push ax
		pop  dx
		mov ah,2
		mov dl,0ah
		int 21h
		mov dl,0dh
		int 21h
		pop dx
		pop ax
		ret


nl		endp
end		m