program $2-$

$.$model small

$\mathrm{.}386$

$.$stack $100$h

$.$data msg$1$ db $13,10,$ "Enter any key $-->","$$$"$

by$\_10$ dd $10$

sp$\_$counter db $0$

disp$\_$number dd $0$

disp$\_$number$2$ dd $0$

disp$\_$number$3$ dd $0$

op$\_$type db $0$

last$\_$key dd $0$

remainder db $0$

$.$code

main proc

mov ax$,$@data

mov ds$,$ax

mov dx$,$offset msg$1$

call display$\_$message

call m$\_$keyin

mov EAX, DISP$\_$NUMBER

zzz:

dec DISP$\_$NUMBER

mul DISP$\_$NUMBER

cmp DISP$\_$NUMBER, $1$

jnz zzz

mov DISP$\_$NUMBER, eax

call m$\_$display

mov ax$,4$c$00$h

int $21$h

m$\_$display proc

mov eax, disp$\_$number

mov sp$\_$counter, $0$

Base$\_$lp:

LP$1$:

mov edx, $0$

div By$\_10$

push dx

inc sp$\_$counter

cmp eax, $0$

jnz lp$1$

LP$2$:

pop dx

call display

dec sp$\_$counter

jnz lp$2$

mov edx, $-8$

call display

mov edx, by$\_10$

call display

mov edx, $-7$

call display

dec By$\_10$

mov eax, disp$\_$number

cmp By$\_10,1$

jnz Base$\_$lp

ret

m$\_$display endp

iii:

mov ax$,4$c$00$h

int $21$h

op$\_$mult proc

mov eax, disp$\_$number$2$

mul disp$\_$number$3$

mov disp$\_$number, eax

ret

op$\_$mult endp

display proc

add dl$,30$h

cmp dl$,3$ah

js short skip$\_$hex

add dl$,7$

Skip$\_$hex:

mov ah$,6$

int $21$h

ret

display endp

display$\_$message proc

mov ah$,9$

int $21$h

mov edx, $0$

ret

display$\_$message endp

m$\_$keyin proc

MOV disp$\_$number, $0$

mov last$\_$key, $0$

LP$\_$key:

mov eax, disp$\_$number

mul by$\_10$

add eax, last$\_$key

mov DISP$\_$NUMBER, eax

mov ah$,1$

int $21$h

AND eax, $000000$ffh

cmp al$,13$

jz short finkey

cmp al$,30$h

js iii

cmp al$,3$Ah

jns iii

sub al$,30$h

MOV LAST$\_$KEY, EAX

jmp lp$\_$key

finkey:

MOV eax, DISP$\_$NUMBER

cmp DISP$\_$NUMBER$2,0$

jnz short skip

MOV DISP$\_$NUMBER$2,$ EAX

skip:

MOV DISP$\_$NUMBER$3,$ EAX

cmp DISP$\_$NUMBER, $13$

jns iii

cmp DISP$\_$NUMBER, $1$

jz iii

ret

m$\_$keyin endp

main endp

end main