a b=c如何用完整的汇编语言表示,用汇编语言编写A+B=C,并且要求有输入输出？

匿名用户

1级

2009-06-20 回答

; 本程序限定A、B最多4位十进制数

; 本程序通过编译，运行正确

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

; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

; 功能：取光标位置

; 入口：无

; 出口：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

; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

; 功能：输出回车换行

enter_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

enter_CTLF endp

; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

; 功能：输出一个字符

; 入口：dl=要显示的字符

enter_Chr proc Near

push ax

mov ah,02h

int 21h

pop ax

ret

enter_Chr 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

; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

; 功能：把AX中的二进制无符号数转换成显式的十进制ASCII码，并送显示屏显示

; 入口：AX=二进制数

; 出口：在当前光标位置显示转换后的ASCII码数字

Dec_ASCII Proc Near

push dx

push bx

push di

mov bx,10

lea di,@@Temp_Save[6]

mov byte ptr [di],'$'

dec di

cld

@@Divide: xor dx,dx

div bx

or dl,30h

mov [di],dl

dec di

test ax,0ffffh

jnz @@Divide

inc di

push di

pop dx

mov ah,9

int 21h

pop di

pop bx

pop dx

ret

@@Temp_Save db 7 dup(?)

@@Carry_Yes db '+'

Dec_ASCII EndP

; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

N equ 4 ;输入的十进制整数位数

Number1 dw ?

Number2 dw ?

prompt_One db 'Please the first number: $'

prompt_Two db 'Please the second number: $'

Start: push cs

pop ds

push cs

pop es ;使数据段、附加段与代码段同段

; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

; 输入两个十进制数

Output prompt_One ;提示输入第一个数

lea di,Number1 ;变量Number1的地址

call Input_Digit ;从键盘接受一个N位数字

call enter_CTLF ;输出一个回车、换行

Output prompt_Two ;提示输入第一个数

lea di,Number2 ;变量Number1的地址

call Input_Digit ;从键盘接受一个N位数字

call enter_CTLF ;输出一个回车、换行

call enter_CTLF ;输出一个回车、换行

; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

; 加法运算

mov ax,Number1

call Dec_ASCII ;把AX中的二进制有、无符号数转换成显式的十进制ASCII码，并送显示屏显示

mov dl,'+'

call enter_Chr ;显示一个加号

mov ax,Number2

call Dec_ASCII ;显示第二个数

mov dl,'='

call enter_Chr ;显示一个等号

mov ax,Number1

add ax,Number2 ;Number1+Number2→AX

call Dec_ASCII ;显示和

call enter_CTLF ;输出一个回车、换行

Exit_Proc: mov ah,4ch ;结束程序

int 21h

Code ENDS

END Start ;编译到此结束