prog_seg
segment
org 100h
assume cs:prog_seg,ds:prog_seg,ss:prog_seg
main proc near
mov ax,prog_seg
mov ds,ax
´´
; 秀羨仇峽燕
mov table,offset ary
mov table+2,offset count
mov table+4,offset sum
mov bx,offset table ; 仇峽燕遍仇峽僕bx
call proadd ; 距喘徨殻會proadd
´´
mov ax,4c00h
int 21h
main endp
; 徨殻會proadd
proadd proc near
push ax ; 隠贋篠贋匂
push cx
push si
push di
mov si,[bx] ; 方怏ary遍仇峽僕si
mov di,[bx+2] ; count汽圷仇峽僕di
mov cx,[di] ; count汽圷坪否僕cx
mov di,[bx+4] ; sum汽圷仇峽僕di
xor ax,ax
next: add ax,[si]
add si,2
loop next
mov [di],ax ; 拙紗才僕sum汽圷
pop di ; 志鹸篠贋匂
pop si
pop cx
pop ax
ret
proadd endp
; 方象協吶
ary dw 100 dup(?)
count dw 100
sum dw ?
table dw 3 dup(?) ; 仇峽燕
prog_seg ends
end main