多位十进制乘法汇编.docVIP

**************************************************************************** 两个任意位数的十进制数相乘 **************************************************************************** .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 a1 local a2 local over mov ax,@data mov ds,ax lea si,opr a1: ;判断输入是否为0-9的整数，把输入的十进制数转换成二进制数 mov ah,1 int 21h cmp al,0dh je over cmp al,0 ;判断al中的ascci码，如果小于0,则输入不在正确的范围内，退出 jl over cmp al,9 ;同上，判断al中的Ascci码，如果大于9,退出 jg over sub al,30h ;ASCII码转换成二进制数 mov di,si add di,18d a2: ;先输入的数向后移 mov bx,ds:[di] mov ds:[di+1],bx dec di cmp di,si jge a2 mov ds:[si],al ;保存进opr中的最低位 jmp a1 ;跳转到a1 over: call crlf ;调用回车换行子程序 endm --------------------------------------------------------------------------- multiple macro opr1,opr2,opr3 lea si,opr3 mov count,si ;取opr3的地址 lea si,opr1 ;取opr1的地址 lea di,opr2 ;去opr2的地址 mov i,0 mov j,0 a5: ;有进位的数位上的计算 push si push di mov bh,0 mov bl,i add si,bx mov bl,j add di,bx mov al,ds:[si] ;取乘数的一个数位上的数 mov bl,ds:[di] mov ah,0 mul bl aam mov z,ah ;把进位保存到z中 mov si,count mov bh,0 mov bl,i add si,bx mov bl,j add si,bx mov bl,ds:[si] ;取result对应数位上的原有值 mov ah,0 add al,bl aaa add z,ah ;进位相加 mov ds:[si],al ;保存结果 a4: mov ax,0 inc si mov bl,ds:[si] mov al,z add al,bl aaa mov ds:[si],al ;结果保存到result中 cmp ah,0 je n2 ;如果无进位，则跳到n2 mov z,ah jmp a4 n2: pop di pop si inc j cmp j,20 jge n3 jmp short a5 ;j循环 n3: mov j,0 inc i cmp i,20 jge over2 jmp short a5 ;i循环 over2: endm ---------------------------------------------------------------------------- .code ;定义代码段 main proc far