任意两个10位以内十进制数求和 显示结果

任意两个10位以内十进制数求和 显示结果

 

 

汇编语言编程 悬赏分：20 - 离问题结束还有 11 天 1 小时

从键盘上键入2个10位数以内（位数可变）十进制值数，对其求和并显示结果，
程序运行时提示请输入加数和被加数，求完和显示结果后，显示继续和退出。
提问者： mowenyi108 - 一级

code segmentassume cs:code,ds:code
    org 100h;标准COM格式
start:
     mov ax,3;文本模式
     int 10h
     push cs
     pop ds
     push ds
     pop es
Again:
     lea dx,mes1;提示
     mov ah,9
     int 21h
mov di,30fh
     call input;接收 数A
     lea dx,mes2;提示
     mov ah,9
     int 21h
mov di,31fh
     call input;接收 数B
     call count;求和
     lea dx,mes3
     mov ah,9
     int 21h
;*** 输出十进制的结果 ***
     call crt
     lea dx,mes4
     mov ah,9
     int 21h
     mov ah,0;暂停
     int 16h
     cmp ah,15h ;"Y(y)"继续
     jz Again;计算下一题
     mov ah,4ch;结束
     int 21h
input:
   mov cx,10
T1:mov ah,0;接收数字
   int 16h
   cmp al,0dh
   jz ok
   cmp al,'0';数据校验
   jb T1
   cmp al,'9'
   ja t1
yes:
   mov ah,0eh ;显示有效数据
   int 10h
w2:push ax ;压入堆栈
   loop T1
ok:mov bp,cx
   inc bp
   mov cx,11
   sub cx,bp
   std
   jcxz u3
u1:pop ax
   stosb
   loop u1
u3:mov al,'0'
   mov cx,bp
u2:stosb
   loop u2
   ret

count:mov si,30fh
      mov di,31fh
      xor dx,dx;清进位
      mov cx,11;改变此值,可实现超大数相加
T3:   call subs_c;逐位累加
      dec si
      dec di
      loop T3
      ret

subs_c: ;[原创]多位加法核心子程序
     mov al,[si];最低位对齐
     mov ah,[di]
     and ax,0f0fh
     add al,ah;自加
     add al,dl;加后面进位
     aam;二化十
     mov dl,ah;存进位位
     or al,30h
     mov [SI],al;保存1位和值
     ret

crt:cld
xor bp,bp
mov si,305h
mov cx,10
cr3:
mov al,[si]
cmp al,'0'
jnz cr0
inc bp
inc si
loop cr3
cr0:
mov cx,11
sub cx,bp
mov si,305h
add si,bp
cr1:lodsb
mov ah,0eh
int 10h
loop cr1
ret

mes1 db 0dh,0ah,09,'Input A(0-9,999,999,999): $'
mes2 db 0dh,0ah,09,'Input B(0-9,999,999,999): $'
mes3 db 0dh,0ah,09,'Sum A+B= $'
mes4 db 0dh,0ah,09,'Continue Y(y)? $'

code ends
end start