汇编求n的阶乘

DATAS SEGMENT string db Please input a number(0-10000): ,0dh,0ah wrongstring db A number please! ,0ah,0dh,$ inputbuffer db 6,?,6 dup(?) c10 dw 10 ;输入时进制转换的数 n dw ? ;要求阶乘的数 m dw ? ;步长 c dw ? ;进位 i dw ? ; outputbuffer dw 30000 dup(?) ; DATAS ENDS;*STACKS SEGMENT ;此处输入堆栈段代码STACKS ENDS;*CODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKS START: MOV AX,DATAS ; MOV DS,AX ;- main proccall input ;call fractor ;mov cx,diroutput: ;循环输出push cx ;mov di,cx ;call output ;pop cxdec cxcmp cx,0jge routputdisplaylength:mov dl,0dhmov ah,2int 21hmov dl,0ahmov ah,2int 21hexit: ;mov ah,07h ;int 21h ;mov ax,4c00h ;INT 21H ; ;main endp ;- ;-input proc near lea bx,string mov cx, 33 disstring: mov dl,bx mov ah,2 int 21h inc bx loop disstring jmp inputinit wronginput: lea dx,wrongstring mov ah,9 int 21hinputinit: lea dx,inputbuffer ;装载输入缓冲区首地址 mov ah,0ah ;输入功能代码 int 21h ;从键盘输入一个数，以回车键结束 mov ax,0 ;累加器清0 mov cl,inputbuffer+1 ;循环次数 mov ch,0 lea bx,inputbuffer+2 ;装载字符存放区首地址inputone: ; mul c10 ; mov dl,bx cmp dl,0 jb wronginput cmp dl,9 ja wronginput ; and dl,0fh ; add al,dl ; adc ah,0 ; inc bx ; loop inputone ; mov n,ax mov dl,0dh mov ah,2 int 21h mov dl,0ah mov ah,2 int 21h ; ret ;input endp ;-fractor proc near ;mov cx,n ;mov i,1d ;mov m,0d ;push dxmov di,0d ;mov ax,di ;mov bx,2d ;mul bx ;mov si,axpop dx ;mov outputbuffersi,1d ;ctrli: ;mov c,0mov di,0d ;ctrldi: ;cmp di,m ;jbe done ;jmp cmpc ;done:push dx ;mov ax,di ;mov bx,2d ;mul bx ;mov si,axpop dx ;mov ax,outputbuffersi ;mov bx,i ;mul bx ;add ax,c; ;adc dx,0; ;mov bx,10000 ;div bx ;mov c,axpush dx ;mov ax,di ;mov bx,2d ;mul bx ;mov si,axpop dx ;mov outputbuffersi,dx ;inc di ;jmp ctrldi ;cmpc: ;cmp c,0 ;ja three1 ;jmp next ;three1: ;inc m ;mov ax,c ;mov outputbuffersi+2,ax ; ;next:inc icmp cx,0jng if0 ;loop ctrliif0:mov di,m ;ret ; ; ; ;fractor endp ;-output proc near ;C2:push dx ;mov ax,di ;mov bx,2d ;mul bx ;mov si,axpop dx ;mov bx,outputbuffersi ;bid proc ;mov cx,10000 ;mov ax,bx ;mov dx,0 ;div cx ;mov bx,dx ;mov cx,1000 ;call ddiv ;mov cx,100 ;call ddiv ;mov cx,10 ;call ddiv ;mov cx,1call ddiv ;ret ;bid endp ;-ddiv proc ;mov ax,bx ;mov dx,0 ;div cx ;mov b