汇编模块化处理

;**********************************************************************

 TITLE 整数求和

 ;**********************************************************************


 ;**********************************************************************

 ;*程序运行平台要求

 .386

 .model flat,stdcall

 option casemap:none

 ;**********************************************************************


 ;**********************************************************************

 ;文件包含

 INCLUDE Irvine32.inc

 ;**********************************************************************


 ;**********************************************************************

 ;宏定义部分

 INTEGER_COUNT=5;

 ;**********************************************************************


 ;**********************************************************************

 ;数据段定义

 .data

 str1 byte "please Enter a integer",0dh,0ah,0

 str2 byte "the sum of the input is",0

 arrayByte byte INTEGER_COUNT DUP(0)

 ;**********************************************************************


 ;**********************************************************************

 ;代码段定义

 .code

 ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 ;函数定义：显示提示信息，请用户输入

 ;函数参数：使用edx作为局部变量

 WarnDis proc USES edx

   mov edx,offset str1;

   call WriteString;

   ret

 WarnDis endp

 ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


 ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 ;函数定义：给全局变量数组从用户输入处，进行赋值

 ;函数参数：esi ecx ebx

 InputArray PROC USES  esi ecx ebx

   mov esi,offset arrayByte;

   mov ebx,0

   mov ecx,length arrayByte;

   LInput:     

      call ReadInt

      mov [esi+ebx],eax

      inc ebx

   loop LInput

   ret

 InputArray endp

 ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


 ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 ;函数定义：对数组进行求和过程

 ;函数参数：esi ecx ebx

 Sum proc uses esi ecx ebx  

   mov esi,offset arrayByte;

   mov ecx,length arrayByte

   xor eax,eax

   mov ebx,0  

   LSum:

     mov dl,[esi+ebx]

     add al,dl

     ;检测是否有进位发生

     JC cfProc

     JMP final

     cfProc:

     inc ah;

     final:

     inc ebx

   loop LSum;

   ret

 Sum endp 

 ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 main proc

   call WarnDis

   call InputArray

   call Sum  

   call WriteInt

   exit

 main endp

 end main

 ;**********************************************************************