求masm下两个四位无符号十进制数乘法程序要求：乘数从键盘输入；二进制乘；用十进制数形式显示乘积.分析：由于题目要求从外设输入输出数据,而在内存中用二进制数形式实现乘法,所以涉

求masm下两个四位无符号十进制数乘法程序要求：乘数从键盘输入；二进制乘；用十进制数形式显示乘积.分析：由于题目要求从外设输入输出数据,而在内存中用二进制数形式实现乘法,所以涉
求masm下两个四位无符号十进制数乘法程序
要求：乘数从键盘输入；二进制乘；用十进制数形式显示乘积.
分析：由于题目要求从外设输入输出数据,而在内存中用二进制数形式实现乘法,所以涉及到代码转换问题.从键盘输入两个十进制乘数（ASCII码）→分别转换成二进制形式→二进制数乘→把二进制乘积转换成十进制数的ASCII码形式→输出到屏幕.
相当着急,过了周三就没用了、、

求masm下两个四位无符号十进制数乘法程序要求：乘数从键盘输入；二进制乘；用十进制数形式显示乘积.分析：由于题目要求从外设输入输出数据,而在内存中用二进制数形式实现乘法,所以涉
; 本程序通过编译,运行正确
Code Segment
Assume CS:Code,DS:Code
CR equ 000DH
LF equ 000AH
KBBack equ 0008H
; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
; 功能：显示指定地址（Str_Addr）的字符串
; 入口：
; Str_Addr＝字符串地址（要求在数据段）
; 用法: Output Str_Addr
; 用法举例：Output PromptStr
Output MACRO Str_Addr
lea dx,Str_Addr
mov ah,9
int 21h
EndM
; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
; 功能：输出回车换行
Output_CTLF proc Near
push ax
push dx
mov ah,02h
mov dl,0dh
int 21h
mov dl,0ah
int 21h
pop dx
pop ax
ret
Output_CTLF endp
; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
; 功能：取光标位置
; 入口：无
; 出口：DH=行号,DL=列号
GetCursor Proc Near
PUSH AX
PUSH BX
PUSH CX
XOR BX,BX
MOV AH,3
INT 10H
MOV Cursor_Row,DH
MOV Cursor_Col,DL
POP CX
POP BX
POP AX
RET
Cursor_Row DB ?
Cursor_Col DB ?
GetCursor EndP
; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
; 功能：置光标位置
; 入口：Cursor_Row=行坐标; Cursor_Col: 列坐标)
SetCursor Proc Near
PUSH CX
PUSH BX
PUSH AX
MOV DH,Cursor_Row
MOV DL,Cursor_Col
XOR BX,BX
MOV AH,2
INT 10H
POP AX
POP BX
POP CX
RET
SetCursor EndP
; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
; 功能：键盘输入一个N位的十进制数字,将其转换成二进制数并保存在指定的内存单元.
; 入口：N=数字位数；di=保存输入的数字首地址
; 出口：转换后的二进制数保存在di所指的单元
Input_Digit Proc Near
push dx
push cx
push bx
push di
lea di,@@Save_Tmp
push di
cld
mov cx,N
push cx
@@Input: call GetCursor ;取光标位置
mov ah,1 ;从键盘接受一个字符
int 21h
cmp al,CR ;若键入的是回车,已经键入的数字不足N位
jz @@ASC_Dec ;转去处理已经键入的数字
cmp al,KBBack
jz @@KB_Back ;若是回空键,重新输入
cmp al,'0'
jb @@KBBack ;若低于数字'0',重新输入
cmp al,'9'
ja @@KBBack ;若低于数字'9',重新输入
jmp @@Save_Dig
@@KB_Back: dec Cursor_Col
inc cx
dec di
@@KBBack: call SetCursor ;置光标位置
jmp @@Input
@@Save_Dig: and al,0fh ;转换成二进制数
stosb ;保存
loop @@Input ;接受下一个数字
@@ASC_Dec: mov ax,cx
pop cx
pop si
sub cx,ax ;实际输入的数字位数
xor bp,bp
xor dx,dx
xor ax,ax
jcxz @@Save_Ret ;若直接回车,没有输入任何数字,按输入'0'处理
dec cx ;实际输入的数字位数减1,准备把输入的这一串数字转换成二进制数
jcxz @@One_Digit ;若输入的数字只有一位,转去直接保存这个二进制数
mov bx,10
@@Mul_Ten: lodsb
cbw
add ax,bp
mul bx
mov bp,ax
loop @@Mul_Ten
@@One_Digit:lodsb
cbw
add ax,bp
@@Save_Ret: pop di
stosw
pop bx
pop cx
pop dx
ret
@@Save_Tmp db 16 dup(?)
Input_Digit EndP
; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
; 功能：28位二进制数转换成十进制数并显示
; 入口：DX=高12位,AX=低16位
@@Temp_Save db 11 dup(?)
DWord_ASCII Proc Near
cld
mov bx,10000 ;除数
lea di,@@Temp_Save[10]
mov byte ptr [di],'$' ;字符串末尾加上一个$,以备用dos功能调用9号功能显示这个数字串
dec di ;地址前移一位
div bx ;除以1000,AX=商数(十进制数高5位),DX=余数(十进制数低4位)
xchg ax,dx ;交换,先转换余数
push dx ;入栈保存商数
mov bx,10 ;除数,把16位二进制数转换成十进制数
mov cx,4
@@Divide_DX:xor dx,dx
div bx
or dl,30h
mov [di],dl
dec di
loop @@Divide_DX
pop ax
@@Divide_AX:xor dx,dx
div bx
or dl,30h
mov [di],dl
dec di
test ax,0ffffh
jnz @@Divide_AX
inc di
push di
pop dx
mov ah,9
int 21h
ret
DWord_ASCII EndP
; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
N equ 4 ;输入的十进制整数位数
Number1 dw ?
Number2 dw ?
prompt_One db 'Please the first number: $'
prompt_Two db 13,10,'Please the second number: $'
Start: push cs
pop ds
push cs
pop es ;使数据段、附加段与代码段同段
Output prompt_One ;提示输入第一个数
lea di,Number1 ;变量Number1的地址
call Input_Digit ;从键盘接受一个N位数字
Output prompt_Two ;提示输入第一个数
lea di,Number2 ;变量Number1的地址
call Input_Digit ;从键盘接受一个N位数字
call Output_CTLF ;输出一个回车、换行
call Output_CTLF ;输出一个回车、换行
mov ax,Number1 ;被乘数
mul Number2
call DWord_ASCII ;将乘积转换成十进制数并显示
Exit_Proc: mov ah,4ch ;结束程序
int 21h
Code ENDS
END Start ;编译到此结束