谁能将求的位数缩小到最大千位!

20060502156

{\rtf1\ansi\ansicpg936\deff0\deflang1033\deflangfe2052{\fonttbl{\f0\fmodern\fprq6\fcharset134 \'cb\'ce\'cc\'e5;}}
{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\lang2052\f0\fs20\'b7\'d6\'b1\'f0\'cc\'e1\'ca\'be\'ca\'e4\'c8\'eb\'c1\'bd\'b8\'f6\'d5\'fb\'ca\'fd\'a3\'ac\'bd\'f8\'d0\'d0\'cf\'e0\'bc\'d3\'a3\'ac\'d7\'ee\'ba\'f3\'ca\'e4\'b3\'f6\'bd\'e1\'b9\'fb   \par
    \par
  data segment   \par
  op1 dw ?   \par
  op2 dw ?   \par
  str1 db 'Please   Input   The   1st   Number',13,10,'$'   \par
  str2 db 'Please   Input   The   2st   Number',13,10,'$'   \par
  str3 db 'The   Answer   Is:','$'   \par
  data ends   \par
    \par
  code segment   \par
  assume cs:code,ds:data   \par
  start:   \par
  main proc far   \par
  push ds   \par
  sub ax,ax   \par
  push ax   \par
    \par
  mov ax,data   \par
  mov ds,ax   \par
    \par
  lea dx,str1   \par
  mov ah,9   \par
  int 21h   \par
  call dec2bin   \par
  mov op1,bx   \par
  lea dx,str2   \par
  mov ah,9   \par
  int 21h   \par
  call dec2bin   \par
  mov op2,bx   \par
  add bx,op1   \par
  lea dx,str3   \par
  mov ah,9   \par
  int 21h   \par
  call bin2dec   \par
    \par
  retf   \par
  main endp   \par
    \par
  dec2bin proc near   \par
  mov bx,0   \par
  newchar:   \par
  mov ah,1   \par
  int 21h   \par
  sub al,30h   \par
  jl exit   \par
  cmp al,9d   \par
  jg exit   \par
  cbw   \par
  xchg ax,bx   \par
  mov cx,10d   \par
  mul cx   \par
  xchg ax,bx   \par
  add bx,ax   \par
  jmp newchar   \par
  exit:   \par
  ret   \par
  dec2bin endp   \par
    \par
  bin2dec proc near   \par
  mov cx,10000d   \par
  call decdiv   \par
  mov cx,1000d   \par
  call decdiv   \par
  mov cx,100d   \par
  call decdiv   \par
  mov cx,10d   \par
  call decdiv   \par
  mov cx,1d   \par
  call decdiv   \par
  ret   \par
  bin2dec endp   \par
    \par
  decdiv proc near   \par
  mov ax,bx   \par
  mov dx,0   \par
  div cx   \par
  mov bx,dx   \par
  mov dl,al   \par
  add dl,30h   \par
  mov ah,2   \par
  int 21h   \par
  ret   \par
  decdiv endp   \par
  code ends   \par
  end start\par
}