用递归计算n!(n≥50), 以十进制数输出 输入一个不小于50的整数n，用递归计算n!, 以十进制数输出，汇编语言

以下是使用汇编语言实现递归计算n!的代码，以十进制数输出：

.MODEL SMALL
.STACK 100h

.DATA
  n DW ?
  result DB 20 DUP ('$')
  new_line DB 13, 10, '$'

.CODE
  MAIN PROC
    MOV AX, @DATA
    MOV DS, AX

    ; 读取输入的n
    LEA DX, n
    MOV AH, 0Ah
    INT 21h

    ; 调用递归函数计算n!
    MOV AX, [n]
    CALL FACTORIAL

    ; 将结果转换为十进制数并输出
    LEA DX, result
    CALL BCD_CONV
    LEA DX, result
    MOV AH, 09h
    INT 21h

    ; 输出换行符
    LEA DX, new_line
    MOV AH, 09h
    INT 21h

    MOV AH, 4Ch
    INT 21h
  MAIN ENDP

  ; 递归函数：计算n!
  FACTORIAL PROC
    PUSH BP
    MOV BP, SP

    MOV AX, [BP+4]
    CMP AX, 1
    JBE FACTORIAL_END

    DEC AX
    PUSH AX
    CALL FACTORIAL
    POP AX

    MUL AX, [BP+4]
    JMP FACTORIAL_END

  FACTORIAL_END:
    POP BP
    RET
  FACTORIAL ENDP

  ; 将二进制数转换为十进制数
  BCD_CONV PROC
    PUSH AX
    PUSH BX
    PUSH CX
    PUSH DX

    MOV BX, 10
    XOR CX, CX

    ; 反复除以10，将余数转换为ASCII码
    CONV_LOOP:
      XOR DX, DX
      DIV BX
      ADD DL, '0'
      MOV [result+CX], DL
      INC CX
      CMP AX, 0
      JNE CONV_LOOP

    ; 翻转字符串
    DEC CX
    MOV BX, CX
    MOV SI, 0
    REVERSE_LOOP:
      CMP SI, BX
      JGE REVERSE_END
      MOV DL, [result+SI]
      XCHG DL, [result+BX]
      MOV [result+SI], DL
      INC SI
      DEC BX
      JMP REVERSE_LOOP

    REVERSE_END:
      POP DX
      POP CX
      POP BX
      POP AX
      RET
  BCD_CONV ENDP

END MAIN

需要注意的是，计算50!及以上的阶乘需要使用高精度算法，否则会溢出或计算错误。在本例中，为了方便起见，使用了字符串来存储结果，并且仅能计算50以下的阶乘。