dseg segment
ent DB 10,13,'$'
x DB ?
star db 'x'
msg db 'Enter a number 1-9 $'



dseg ends

sseg segment stack
        dw 100h dup(?)
sseg ends

cseg segment
assume  ds:dseg,cs:cseg,ss:sseg,ES:DSEG
start:  mov ax,dseg
        mov ds,ax



        ;q5
        mov dx,0
        lea dx,msg
        mov ah,9
        int 21h



        mov ah,7
        int 21h
        SUB al,30H
        mov x,al
        mov star,al



        ll:
        mov bl,ent
        mov ah,2
        int 21h
        mov dx,0

        ll2:
        mov cl,x
        lea dx,star
        mov ah,2
        int 21h
        loop ll2
        jnz ll










        mov ah,4ch
        int 21h
cseg ends
end start