TITLE integer summation Program
;
;
;
;
INCLUDE Irvine32.inc
INTERGER_COUNT = 3
.data
str1 byte "enter a signe integer:",0
str2 byte "the sum of the integers is:",0
array dword INTERGER_COUNT dup(?)
;************************************************************
;temp: esi:数组的首地址,长度为4个字节
; ecx:数组元素个数
;************************************************************
.code
main PROC
call clrscr
mov esi,offset array
mov ecx,INTERGER_COUNT
call promptforintegers
call arraysum
call displaysum
exit
main ENDP
;-----------------------------------------------
; 输入数字
;-----------------------------------------------
promptforintegers PROC USES ecx edx esi
mov edx,offset str1
L1:
call writestring
call readint
call crlf
mov [esi],eax
add esi,type dword
loop L1
ret
promptforintegers ENDP
;--------------------------------------------------------
; 求和
arraysum PROC USES esi ecx edx
mov edx,0
L1:
add edx,[esi]
add esi,type dword
loop L1
mov eax,edx
ret
arraysum ENDP
;---------------------------------------------------------
;----------------------------------------------------------
; 显示和
displaysum PROC USES edx
;----------------------------------------------------------
mov edx,offset str2
call writestring
call writeint
call crlf
ret
displaysum ENDP
;----------------------------------------------------------
end main
