多位十进制乘法汇编.doc

* 两个任意位数的十进制数相乘 * .model small ;定义存储单元.stack 10h ;定义堆栈段.data ;定义数据段p1 db Please input the first number:$ p2 db Please input the second number:$p3 db here is the result:$x db 20 dup(?) ;定义乘数y db 20 dup(?) ;定义被乘数z db ? result db 40 dup(?) ;定义结果count dw ? i db ? j db ? -input macro opr ;输入乘数、被乘数的宏定义local a1local a2local overmov ax,datamov ds,axlea si,opra1: ;判断输入是否为0-9的整数，把输入的十进制数转换成二进制数mov ah,1int 21hcmp al,0dh je overcmp al,0 ;判断al中的ascci码，如果小于0,则输入不在正确的范围内，退出jl overcmp al,9 ;同上，判断al中的Ascci码，如果大于9,退出jg oversub al,30h ;ASCII码转换成二进制数mov di,siadd di,18d a2: ;先输入的数向后移mov bx,ds:dimov ds:di+1,bxdec dicmp di,si jge a2mov ds:si,al ;保存进opr中的最低位jmp a1 ;跳转到a1over: call crlf ;调用回车换行子程序endm -multiple macro opr1,opr2,opr3 lea si,opr3mov count,si ;取opr3的地址lea si,opr1 ;取opr1的地址lea di,opr2 ;去opr2的地址mov i,0mov j,0a5: ;有进位的数位上的计算push sipush dimov bh,0mov bl,iadd si,bxmov bl,jadd di,bx mov al,ds:si ;取乘数的一个数位上的数mov bl,ds:dimov ah,0mul blaammov z,ah ;把进位保存到z中mov si,countmov bh,0mov bl,iadd si,bxmov bl,jadd si,bxmov bl,ds:si ;取result对应数位上的原有值mov ah,0add al,blaaaadd z,ah ;进位相加mov ds:si,al ;保存结果a4:mov ax,0inc simov bl,ds:simov al,zadd al,blaaamov ds:si,al ;结果保存到result中cmp ah,0je n2 ;如果无进位，则跳到n2mov z,ahjmp a4n2:pop dipop siinc jcmp j,20jge n3 jmp short a5 ;j循环n3:mov j,0inc icmp i,20jge over2jmp short a5 ;i循环 over2: endm-.code ;定义代码段main proc far mov x,0mov y,0 mov result,0mov ax,datamov ds,axlea dx,p1mov ah,9int 21hcall crlfinput x ;输入乘数call crlf ;按回车lea dx,p2mov ah,9int 21hcall crlfinput y ;输入被乘数call crlf ;按回车multiple x,y,result ;两数相乘call crlf ;按回车lea dx,p3mov ah,9int 21hcall output ;输出结果call crlfretmain endp-output proc near lea di,result ;取result的首地址赋给dimov si,di ;取result的首地址赋给siadd si,40da3:dec si ;si地址减1cmp di,si je n1 ;如果si和首地址相等则退出a3,转到n1cmp ds:si,byte ptr 0 je a3n1:mov dl,ds:siadd dl,30hmov ah,2int 21hdec si ;si地址减1cmp si,dijl exit ;比较si和result的首地址，如果si小于result的首地址,则跳出jmp n1 exit: ;退出mov ah,4chint