data_seg 　　segment
　　　　n_v 　　　　　　 dw 　　　?
　　　　result 　　　　　dw 　　　?
　　　data_seg 　　ends

　　　stack_seg 　　segment
　　　　　dw 　　　　　128 　　　dup(0)
　　　　　tos 　　　　 label 　　word
　　　stack_seg 　　ends

　　; 定义代码段code1
　　　　code1 　　　segment
　　　　　main 　　　proc 　　　far
　　　　　assume 　　cs:code1,ds:data_seg,ss:stack_seg
　　start:
　　　　　mov 　　　 ax,stack_seg
　　　　　mov 　　　 ss,ax
　　　　　mov 　　　 sp,offset tos

　　　　　push 　　　ds
　　　　　sub 　　　 ax,ax
　　　　　push 　　　ax
　　　　　mov 　　　 ax,data_seg
　　　　　mov 　　　 ds,ax
　　; 程序的主要部分
　　　　　mov 　　　 bx,offset 　　result
　　　　　push 　　　bx 　　　　　　　　　　　; result单元的地址入栈
　　　　　mov 　　　 bx,n_v
　　　　　push 　　　bx ; n_v单元的内容入栈
　　　　　call 　　　far 　　　　　ptr fact 　; 远调用子程序fact
　　　　　ret
　　　　　main 　　　endp
　 code1　ends

　　; 定义代码段code
　　　　　code 　　　segment
　　; 定义frame帧结构数据
　　　　　frame 　　 struc
　　　　　save_bp　　dw 　　　　　?
　　　　　save_cs_ip dw 　　　　　2 dup(?)
　　　　　n　　　　　dw　　　　　 ?
　　　　　result_addr dw 　　　　 ?
　　　　　frame 　　 ends
　　　　　assume 　　cs:code
　　　　　fact 　　　proc 　　　　far 　　　　; 定义子程序fact
　　　　　push 　　　bp
　　　　　mov 　　　 bp,sp 　　　　　　　　　 ; bp用来指向帧结构
　　　　　push 　　　bx
　　　　　push 　　　ax
　　　　　mov 　　　 bx,[bp].result_addr 　　 ; 每帧中result_addr送bx
　　　　　mov 　　　 ax,[bp].n 　　　　　　　 ; 每帧中n送ax
　　　　　cmp 　　　 ax,0
　　　　　je 　　　　done
　　　　　push 　　　bx 　　　　　　　　　　　; 为下一次调用result_addr入栈
　　　　　dec 　　　 ax
　　　　　push 　　　ax 　　　　　　　　　　　; 为下一次调用n-1入栈
　　　　　call 　　　far ptr fact
　　　　　mov 　　　 bx,[bp].result_addr
　　　　　mov 　　　 ax,[bx]
　　　　　mul 　　　 [bp].n 　　　　　　　　　; (ax)= n*result
　　　　　jmp 　　　 short 　　　　return
　　done: mov 　　　 ax,1 　　　　　　　　　　; (ax)=1
　return: mov 　　　 [bx],ax 　　　　　　　　 ; result=(ax)
　　　　　pop 　　　 ax
　　　　　pop　　　　bx
　　　　　pop　　　　bp
　　　　　ret　　　　4
　　　　　fact 　　　endp
　　code　ends
　　end 　start