rinimeimei.asm

汇编语言编写程序

ADATA SEGMENT
      D1 DB 4
      D2 DW 2 DUP(?)
ADATA ENDS
ASTACK SEGMENT PARA STACK 'STACK'
       SA DW 100 DUP(?)
       TOP LABEL WORD
ASTACK ENDS
ACODE SEGMENT
      ASSUME CS:ACODE, DS:ADATA, SS:ASTACK
MAIN PROC FAR
START: MOV AX,ASTACK
       MOV SS,AX
       MOV SP,OFFSET TOP
       PUSH DS
       MOV AX,0
       PUSH AX
       MOV AX,ADATA
       MOV DS,AX
       MOV DX,0
       MOV AH,0
       MOV BX,OFFSET D1
       MOV AL,[BX]
       CALL FACT
       MOV [BX+1],DX
       RET
MAIN ENDP
FACT PROC
     CMP AL,0
     JNZ CHN
     MOV DL,1
     RET
CHN: PUSH AX
     DEC AL
     CALL FACT
     POP AX
     MUL DL
     MOV DX,AX
     RET
FACT ENDP
ACODE ENDS
      END START