8086汇编语言求n!.docVIP

CODES SEGMENT ASSUME CS:CODES,DS:CODES main proc START: push cs pop ds ;------------------------------------ mov dx,offset string mov ah,9 int 21h call Shuru ; cmp bp,10000 jbe cs_ok mov dx,offset Error mov ah,9 int 21h jmp START cs_ok: call show mov n,bp mov ax,0e0dh int 10h mov al,0ah int 10h call fractor ; mov cx,di routput: ;循环输出 push cx ; mov di,cx ; call output pop cx dec cx cmp cx,0 jge routput ; mov dx,offset YN mov ah,9 int 21h mov ah,0 int 16h ; cmp ah,31h ;key: N(n) jnz START exit: mov ax,4c00h ; INT 21H ; ; main endp ; ; ;1、键盘输入数据，以回车 结束输入。(0~65535) ;2、数值结果放入BP ;3、可以直接调用，然后在BP 里面娶出要的结果。 ;!!! 超出65535的，如99999,取 超出65536部分34463到BP!!! Shuru proc push dx push cx push bx push ax xor bp,bp mov bx,10 mov cx,5 input: mov ah,0 ;键盘输入数据 int 16h cmp al,0dh ;以回车结束输入 jz ok cmp al,0 ;只允许输入0~9 jb input cmp al,9 ja input mov ah,0eh ;显示有效输入 int 10h and ax,000fH xchg ax,bp mul bx ;扩大10倍 add bp,ax ;加一位 loop input ok:nop ;数值结果放入BP ;恢复用到的寄存器 pop ax pop bx pop cx pop dx ret Shuru endp ; shuchu: push dx push cx mov ax,cx xor cx,cx mov bx,10 nx1: xor dx,dx div bx or dx,0e30h push dx inc cx cmp ax,0 jnz nx1 nx2: pop ax int 10h loop nx2 pop cx pop dx ret ; show: mov ax,0e21h ;! int 10h mov al,= int 10h mov cx,bp jcxz sss rss: call shuchu cmp cx,1 jz sss mov ax,0e2ah ;* int 10h loop rss sss: mov ax,0e3dh ;= int 10h ret ; fractor proc near ; mov cx,n ;n,要求阶乘的数 mov i, 1 mov m, 0 ;m,步长 ; mov di,0 MOV SI,DI SHL SI,1 ; mov word ptr [si+200h],1 ctrli: mov c, 0 ;c,进位 mov di,0 ctrldi: cmp di,m ;;m,步长 ja cmpc ; done: MOV SI,DI SHL SI,1 ; mov ax,[si+200h] ; mov bx,i ; mul bx ; add ax,c ; ;c,进位 ; adc dx,0 ; ; mov bx,10000 ; div bx ; mov c,ax ;c,进位 MOV SI,DI SHL SI,1 mov [si+200h],dx ; inc di ; jmp ctrldi ; cmpc: cmp c,0 ;c,进位 jbe next ; inc m ;;m,步长 mov ax,c ; mov [si+2+200h],ax ; next: inc i cmp cx,0 jng if0 ; loop ctrli if0: mov di,m ;;m,步长 ret ; ; fractor endp ; ;------------------------------------------ output proc near ; C2: MOV SI,DI SHL SI,1 mov bx,[si+200h] ; bid proc ; mov cx,1000