parm_seg 　　segment
　　　　　　ary 　　　　dw 　　　　　100 dup(?)
　　　　　　count 　　　dw 　　　　　100
　　　　　　sum 　　　　dw ?
　　　parm_seg 　　ends

　　; 定义堆栈段
　　　stack_seg 　 segment
　　　　　　　　　　　　dw 　　　　　100 dup(?)
　　　　　　tos 　　　　label 　　　 word
　　　stack_seg 　 ends

　　; 定义代码段code1
　　　　code1 　　　segment
　　　　　　main 　　　 proc 　　　　far
　　　　　　assume 　　 cs:code1,ds:parm_seg,ss:stack_seg
　　　start:
　　; 设置ss和sp寄存器
　　　　　　mov 　　　　ax,stack_seg
　　　　　　mov 　　　　ss,ax
　　　　　　mov 　　　　sp,offset 　 tos

　　　　　　push 　　　 ds
　　　　　　sub 　　　　ax,ax
　　　　　　push 　　　 ax
　　　　　　mov 　　　　ax,parm_seg
　　　　　　mov 　　　　ds,ax

　　　　　　mov 　　　　bx,offset 　 ary
　　　　　　push 　　　 bx 　　　　　　　　　　　; 数组ary首地址压入堆栈
　　　　　　mov 　　　　bx,offset　　count
　　　　　　push 　　　 bx 　　　　　　　　　　　; count单元地址压入堆栈
　　　　　　mov 　　　　bx,offset 　 sum
　　　　　　push 　　　 bx 　　　　　　　　　　　; sum单元地址压入堆栈

　　　　　　call 　　　 far 　　　　 ptr proadd　; 远调用子程序proadd
　　　　　　……
　　　　　　ret
　　　　　　main 　　　endp
　　code1 　ends

　　; 定义代码段code2
　　　　code2 　　segment
　　　　　　assume 　　　cs:code2
　　; 子程序proadd
　　　　　　proadd 　　　proc 　　　 far
　　　　　　push 　　　　bp 　　　　　　　　　　　; 保存bp
　　　　　　mov 　　　　 bp,sp 　　　　　　　　　 ; 使用bp存取参数
　　　　　　push 　　　　ax 　　　　　　　　　　　; 保存其它寄存器
　　　　　　push 　　　　cx
　　　　　　push 　　　　si
　　　　　　push　　　　 di
　　　　　　mov 　　　　 si,[bp+0ah] 　　　　　　 ; 数组ary首地址送si
　　　　　　mov 　　　　 di,[bp+8] 　　　　　　　 ; count单元地址送di
　　　　　　mov 　　　　 cx,[di] 　　　　　　　　 ; count单元内容送cx
　　　　　　mov　　　　　di,[bp+6]　　　　　　　　; 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
　　　　　　pop　　　　　bp
　　　　　　ret　　　　　6　　　　　　　　　　　　; 带立即数返回
　　　　　　proadd 　　　endp
　　　code2 ends
　　　end 　start