.MODEL SMALLCode Segment Assume CS:Code,DS:codeCR equ 000DHLF equ 000AHKBBack equ 0008H; -------------------------------------; 功能:显示指定地址(Str_Addr)的字符串; 入口:; Str_Addr=字符串地址(要求在数据段); 用法: Output Str_Addr; 用法举例:Output PromptStrOutput MACRO Str_Addr lea dx,Str_Addr mov ah,9 int 21h EndM; -------------------------------------; 功能:输出一个字符 ; 入口:dl=要显示的字符 Output_Chr proc Near push ax mov ah,02h int 21h pop ax ret Output_Chr endp ; -------------------------------------; 功能:输出回车换行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 retOutput_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 RETCursor_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 RETSetCursor EndP; -------------------------------------; 功能:键盘输入一个指定位数的十进制数字,将其转换成二进制数并保存在指定的内存单元。; 由于限定最大数据类型为字,所以,数字位数最多:5,最大无符号数:65536; 约定:直接回车,视为数字0; 入口:@@Digits=数字位数;di=保存输入的数字首地址; @@Type_Data=保存的数据类型,B=字节类型,W=字类型。; 出口:转换后的二进制数保存在di所指的单元Input_Digit Proc Near push dx push cx push bx push di lea di,@@Save_Tmp push di cld mov cl,@@Digits xor ch,ch 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 cmp @@Type_Data,"B" ;字节类型? jz $+5 stosw jmp $+3 stosb pop bx pop cx pop dx ret@@Digits db ? ;十进制数字位数@@Type_Data db "B" ;保存的数据类型。B=字节类型,W=字类型@@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(?)Dec_ASCII EndP; -------------------------------------; 加法运算Addition Proc Near mov ax,Number1 call Dec_ASCII ;把AX中的二进制无符号数转换成显式的十进制ASCII码,并送显示屏显示 mov dl,"+" call Output_Chr ;显示一个加号 mov ax,Number2 call Dec_ASCII ;显示第二个数 mov dl,"=" call Output_Chr ;显示一个等号 mov ax,Number1 add ax,Number2 ;Number1+Number2→AX call Dec_ASCII ;显示和 retAddition EndP; -------------------------------------; 减法运算Subtration Proc Near mov ax,Number1 call Dec_ASCII mov dl,"-" call Output_Chr ;显示一个减号 mov ax,Number2 call Dec_ASCII ;显示第二个数 mov dl,"=" call Output_Chr ;显示一个等号 mov ax,Number1 sub ax,Number2 ;Number1-Number2→AX call Dec_ASCII ;显示差 retSubtration EndP; -------------------------------------; 乘法运算(请事先算好了,否则,容易导致乘积超过16位寄存器能够表示的范围)Multiple Proc Near mov ax,Number1 call Dec_ASCII mov dl,"*" call Output_Chr ;显示一个乘号 mov ax,Number2 call Dec_ASCII ;显示第二个数 mov dl,"=" call Output_Chr ;显示一个等号 mov ax,Number1 mul Number2 ;Number1*Number2→AX call Dec_ASCII ;显示乘积(假定乘积不超过16位寄存器能够表示的范围) retMultiple EndP; -------------------------------------; 除法运算Division Proc Near mov ax,Number1 call Dec_ASCII mov dl,"/" call Output_Chr ;显示一个除号 mov ax,Number2 call Dec_ASCII ;显示第二个数 mov dl,"=" call Output_Chr ;显示一个等号 xor dx,dx mov ax,Number1 div Number2 ;Number1/Number2→AX(商),DX(余数) call Dec_ASCII ;显示商数的整数部分 test dx,0ffffh ;判断余数是否为0 jnz $+3 ;不能整除,计算余数 ret push dx mov cx,6 mov dl,"."Disp_Dot: call Output_Chr ;显示一个等号 loop Disp_Dot pop ax ;余数 call Dec_ASCII ;显示余数部分 retDivision EndP; -------------------------------------Number1 dw ?Number2 dw ?prompt_One db "Please the first number: $"prompt_Two db "Please the second number: $"Press_Key db 13,10,13,10,"The complated. Press any key to exit...$" Start: push cs pop ds push cs pop es ;使数据段、附加段与代码段同段; -------------------------------------; 输入两个十进制数 Output prompt_One ;提示输入第一个数 mov @@Digits,4 ;十进制数字位数 mov @@Type_Data,"W" ;保存的数据类型。B=字节类型,W=字类型 lea di,Number1 ;变量Number1的地址 call Input_Digit ;从键盘接受一个N位数字 call Output_CTLF ;输出一个回车、换行 Output prompt_Two ;提示输入第一个数 lea di,Number2 ;变量Number1的地址 call Input_Digit ;从键盘接受一个N位数字 call Output_CTLF ;输出一个回车、换行 call Output_CTLF ;输出一个回车、换行; ------------------------------------- call Addition ;加法运算 call Output_CTLF ;显示一个回车、换行 call Subtration ;减法运算 call Output_CTLF ;显示一个回车、换行 call Multiple ;乘法运算 call Output_CTLF ;显示一个回车、换行 call Division ;除法运算; -------------------------------------Exit_Proc: Output Press_Key ;提示操作完成,按任意键结束程序 mov ah,1 int 21h mov ah,4ch ;结束程序 int 21hCode Ends END Start ;编译到此结束