利用汇编子程序结构，编程计算：S=1！+2！+3！……+7！

data segment
A dw ?
data ends
code segment
assume cs:code,ds:data
start: mov ax,data
mov ds,ax
mov ax,0
mov cx,7 ;可以改为1到6
q1:
call zzz
add ax,word ptr[A]
loop q1
call Dec_ASCII
mov ah,4ch
int 21h
;*****************
zzz proc
push ax
push bx
push cx
push dx
mov ax,cx
next1:
dec cx
jz next2
mul cx
jmp next1
next2:
mov word ptr[A],ax
pop dx
pop cx
pop bx
pop ax
ret
zzz endp
;******************
;**************************************************************************
; 功能：把AX中的二进制无符号数转换成显式的十进制ASCII码，并送显示屏显示
; 入口：AX=二进制数
; 出口：在当前光标位置显示转换后的ASCII码数字
Dec_ASCII Proc Near
push ds
push cs
pop ds