汇编计算阶乘并显示

;如果把 N! 限定在 65535 之内，N 就不能大于 8。

;其实，让计算机来算更大的数，也是可以的，只不过是时间问题。

;程序如下：

;--------------------------------------------

DATA  SEGMENT

    INPUT_TIPS   DB  10, 13, "INPUT THE  N (0~8): $"

    OUTPUT_TIPS  DB  10, 13, "THE  N! IS : $"

DATA  ENDS

;--------------------------------------------

STACK  SEGMENT

    ;INPUT  STACK  SEGMENT  CODE  HERE

    DB  256 DUP(?)

STACK  ENDS

;--------------------------------------------

CODE  SEGMENT

    ASSUME  CS:CODE,DS:DATA,SS:STACK

START:

    MOV  AX, DATA

    MOV  DS, AX

;----------------------------------

    MOV  DX, OFFSET INPUT_TIPS

    MOV  AH, 9        ;显示字符串.

    INT  21H

    MOV  AH, 1        ;输入到 AL

    INT  21H

    CMP  AL, '0'

    JB   EXIT

    CMP  AL, '8'

    JA   EXIT

    SUB  AL, '0'

    MOV  AH, 0

    CMP  AX, 0        ;是 0 吗？

    JNZ  CMP_1

    MOV  AX, 1        ;是 0 就去显示 1

    JMP  DISP

CMP_1:

    CMP  AX, 1        ;是 1 吗？

    JZ   DISP         ;是 1 就去显示 1

    MOV  CX, AX       ;非 0 非 1，就是其它数字，那么

    CALL FACTOR       ;就用递归的方法去计算阶乘

;----------------------------------

DISP:

    PUSH AX

    MOV  DX, OFFSET OUTPUT_TIPS

    MOV  AH, 9        ;显示字符串.

    INT  21H

    POP  AX

    MOV  BX, 10

    MOV  CX, 0

L1:

    MOV  DX, 0

    DIV  BX

    PUSH DX

    INC  CX

    AND  AX, AX

    JNZ  L1

L2:

    POP  DX

    ADD  DL, 48

    MOV  AH, 2

    INT  21H

    LOOP L2

;----------------------------------

EXIT:

    MOV  AH, 4CH

    INT  21H    

;==================================

FACTOR PROC  NEAR   ;阶乘.

    DEC  CX         ;CX=2~8

    CMP  CX, 1      ;=1 ?

    JE   FACTOR_E   ;为1就退出

    PUSH CX         ;非1压栈保存

    CALL FACTOR     ;递归调用，把CX一次次的减一

    POP  CX         ;弹出一个个递减的数值

    MUL  CX         ;乘到AX

FACTOR_E:

    RET             ;AX=(2~8)!

FACTOR  ENDP        ;简洁明了，无与伦比

;==================================

CODE  ENDS

    END  START

;--------------------------------------------