Qn:- wap ta generate a multiplication table from the number entered by user
title multiplication table
dosseg
.model small
.stack 64h
.data
ques db 'enter a number',0ah,0dh,'$'
array db 10 dup(?)
temp db 50 dup(?)
divide db 0ah
.code
main proc
mov ax,@data
mov ds,ax
mov ah,09h
mov dx,offset ques
int 21h
mov ah,01h ;data taken from user
mov cx,0ah
int 21h
mov bh,01
and al,0fh
mov bl,al
mov ah,0
mov si,0
again: mov al,bl ;multiply
mul bh
mov array[si],al
inc si
inc bh
loop again
mov ah,0
mov di,0
mov cx,0ah
up: dec si
mov al,array[si] ;modify and convert into ascii
above: cmp al,0
je below
div divide
add ah,30h
mov temp[di],ah
mov ah,0
inc di
jmp above
below: mov temp[di],' '
inc di
loop up
mov ah,02h
display:mov dl,temp[di]
int 21h
dec di
cmp di,0
jge display
mov ax,4c00h
int 21h
main endp
end main
title multiplication table
dosseg
.model small
.stack 64h
.data
ques db 'enter a number',0ah,0dh,'$'
array db 10 dup(?)
temp db 50 dup(?)
divide db 0ah
.code
main proc
mov ax,@data
mov ds,ax
mov ah,09h
mov dx,offset ques
int 21h
mov ah,01h ;data taken from user
mov cx,0ah
int 21h
mov bh,01
and al,0fh
mov bl,al
mov ah,0
mov si,0
again: mov al,bl ;multiply
mul bh
mov array[si],al
inc si
inc bh
loop again
mov ah,0
mov di,0
mov cx,0ah
up: dec si
mov al,array[si] ;modify and convert into ascii
above: cmp al,0
je below
div divide
add ah,30h
mov temp[di],ah
mov ah,0
inc di
jmp above
below: mov temp[di],' '
inc di
loop up
mov ah,02h
display:mov dl,temp[di]
int 21h
dec di
cmp di,0
jge display
mov ax,4c00h
int 21h
main endp
end main