Notes

section .data
welmsgdb 10,'Multiplication using successive addition',10
welmsg_lenequ $-welmsg
nummsgdb 10,'Enter two digits of Number::'
nummsg_lenequ $-nummsg
resmsgdb 10,'Multiplication of elements::'
resmsg_lenequ $-resmsg
blankmsgdb 10,'',10
blank_lenequ $-blankmsg
section .bss
numasciiresb 03
multi1resb 01
reslresb 01
reshresb 01
dispbuffresb 04

%macro dispmsg 2
mov eax,04
mov ebx,01
mov ecx,%1
mov edx,%2
int 80h
%endmacro

%macro accept 2
mov eax,03
mov ebx,0
mov ecx,%1
mov edx,%2
int 80h
%endmacro

section .text
global _start
_start:
dispmsgwelmsg,welmsg_len

dispmsgnummsg,nummsg_len
accept numascii,3

callpacknum
mov [multi1],bl

dispmsgnummsg,nummsg_len
accept numascii,3
callpacknum
mov ecx,00h
moveax,[multi1]

addup:

addecx,eax
decbl
jnzaddup

mov [resl],ecx
dispmsgresmsg,resmsg_len
movebx,[resl]

call disp16_proc

dispmsgblankmsg,blank_len
mov eax,01 ;Exit
mov ebx,00
int 80h

packnum:
mov bl,0
mov ecx,02
movesi,numascii
up1:
rol bl,04
mov al,[esi]
cmp al,39h
jbe skip1
sub al,07h
skip1: sub al,30h
addbl,al
incesi
loop up1
ret

disp16_proc:
mov ecx,4
movedi,dispbuff
dup1:
rol bx,4
moval,bl
and al,0fh
cmp al,09
jbedskip
add al,07h
dskip: add al,30h
mov [edi],al
incedi
loop dup1

dispmsg dispbuff,4
ret