MESSEM MACRO MESS ;宏定義  
 MOV AH,09  
 LEA DX,MESS  
 INT 21H  
 ENDM  
 
 DATA SEGMENT  
 SWAPPER DW 0 ;用來做標尺  
 MESSAGE DB 'Please Input The Number','$'  
 MESSERR DB 'Please Input The Number Between 0~9','$'  
 CRLF DB 13,10,'$'  
 DECDEC DW 10D  
 DATA ENDS 
  
 STACK_SEG SEGMENT  
 DW 128 DUP(0)  
 TOS LABEL WORD  
 STACK_SEG ENDS  
 
 CODE SEGMENT  
 MAIN PROC FAR  
 ASSUME CS:CODE,DS:DATA,SS:STACK_SEG  
 START:  
 MOV AX,STACK_SEG  
 MOV SS,AX  
 MOV SP,OFFSET TOS  
 PUSH DS  
 SUB AX,AX  
 PUSH AX  
 MOV AX,DATA  
 MOV DS,AX  
 MOV ES,AX  
 MOV BX,0  
 MESSEM MESSAGE ;調用宏定義  
 MESSEM CRLF ;調用宏定義 
 
 INPUT: MOV AH,01  
 INT 21H  
 CMP AL,13  
 JZ RESULT1  
 CMP AL,'0'  
 JB ERROR  
 CMP AL,'9'  
 JA ERROR  
 
 RESULT:  
 MOV AH,0  
 SUB AL,30H  
 XCHG AX,BX  
 MUL [DECDEC]  
 ADD BX,AX  
 JMP INPUT  
 ERROR:  
 MESSEM MESSERR ;調用宏定義  
 MESSEM CRLF ;調用宏定義  
 MOV BX,0  
 JMP INPUT  
 
 RESULT1:  
 MESSEM CRLF ;調用宏定義  
 MOV AX,BX  
 PUSH BX  
 CALL FACT  
 POP BX  
 MOV DI,AX ;ax用來保存結果  
 CALL DISDEC  
 RET ;返回dos  
 MAIN ENDP  
 
 FACT PROC NEAR ;遞歸子程序  
 PUSH AX  
 PUSH BP  
 MOV BP,SP  
 MOV AX,[BP+6]  
 CMP AX,2  
 JE DONE  
 CMP AX,1  
 JE EXIT  
 FACT1:  
 DEC AX  
 PUSH AX  
 CALL FACT ;此遞歸程序注意必須有兩次遞歸遞用  
 POP AX  
 MOV AX,[BP-6] ;將前兩項相加  
 ADD AX,[BP-14]  
 MOV [BP+2],AX  
 JMP EXIT  
DONE:  
 MOV AX,1  
 MOV [BP+2],AX  
 PUSH AX  
 CALL FACT ;此遞歸程序注意必須有兩次遞歸遞用  
 POP AX  
 EXIT:  
 POP BP  
 POP AX  
 RET  
 FACT ENDP  
 
 DISDEC PROC NEAR ;將16進制轉化為10進制的子程序  
 MOV AX,DI  
 MOV CX,10000D  
 CALL DIVDEC  
 MOV CX,1000D  
 CALL DIVDEC  
 MOV CX,100D  
 CALL DIVDEC  
 MOV CX,10D  
 CALL DIVDEC  
 MOV CX,1D  
 CALL DIVDEC  
 MOV BX,0  
 MOV SWAPPER,BX  
 RET  
 DISDEC ENDP  
 
 DIVDEC PROC NEAR  
 MOV DX,0  
 DIV CX  
 PUSH DX  
 CMP AL,0  
 JZ CMPSWP  
 JMP DISOK  
 CMPSWP:  
 MOV BX,[SWAPPER]  
 CMP BX,0  
 JZ EXIT1  
 DISOK:  
 ADD AL,30H  
 MOV DL,AL  
 MOV AH,02  
 INT 21H  
 MOV BX,1  
 MOV [SWAPPER],BX  
 EXIT1:  
 POP DX  
 MOV AX,DX  
 RET  
 DIVDEC ENDP  
 CODE ENDS  
 END START