data 　　　　　segment 　　　　　　　　　; 定义数据段
　　　　　　　　ary 　　　　　dw 　　100 dup(?)
　　　　　　　　count 　　　　dw 　　100
　　　　　　　　sum 　　　　　dw ?
　　　data 　　 ends

　　　code 　　 segment 　　　　　　　 　　　　; 定义代码段
　　　main 　　 proc far 　　　　　　　　　　　; 程序的主要部分
　　　 　　　　 assume 　 　　cs:code, ds:data
　　　start:
　　　　　　　　……
　　　　　　　　call 　　　　 near ptr proadd　; 调用子程序proadd
　　　　　　　　……
　　　　　　　　ret
　　　main 　　 endp

　　　; 子程序proadd
　　　proadd 　 proc 　　　　near
　　　　　　　　push 　　　　ax 　　　　　　　 ; 保存寄存器
　　　　　　　　push 　　　　cx
　　　　　　　　push 　　　　si
　　　　　　　　lea 　　　　 si,ary 　　　　　 ; 数组ary的首地址送si
　　　　　　　　mov 　　　　 cx,count
　　　　　　　　xor 　　　　 ax,ax
　　 next: 　　 add 　　　　 ax,[si]
　　　　　　　　add 　　　　 si,2
　　 loop 　　　next
　　　　　　　　mov 　　　　 sum,ax 　　　　　 ; 累加和送sum单元
　　　　　　　　pop 　　　　 si 　　　　　　　 ; 恢复寄存器
　　　　　　　　pop 　　　　 cx
　　　　　　　　pop 　　　　 ax
　　　　　　　　ret
　　proadd 　　 endp
　　code 　　　 ends
　　end 　start