汇编语言系列之汇编实现简单数学运算

DATA SEGMENT
     pkey   DB  0dh,0ah,"pleas input N end by ';' :$"
     over   DB  0AH,0DH,"overflow!",0dh,0ah,'$'
     result  DB  0dh,0ah,'result is:','$'
     DAT1  DB  8 DUP(0)
DATA ENDS

STACK SEGMENT
    SSTACK DB 100 DUP(0)
STACK ENDS 

CODE SEGMENT
     ASSUME CS:CODE,DS:DATA,SS:STACK 
     
STATE:  
    MOV AX,DATA
    MOV DS,AX
    LEA SI,DAT1     ;开辟缓冲区
    LEA DX,pkey
    MOV AH,9
    INT 21H         ;DOS功能调用，输出字符串
    
LLP:MOV AH,1
    INT 21H         ;DOS功能调用，输入N值
    SUB AL,2FH      
    INC DX          ;DX计数
    MOV [SI],AL     ;将输入的数据存在SI缓冲区
    INC SI
    CMP AL,0CH      ;输入为封号结束输入
    JNZ LLP
    SUB SI,2
    CMP DX,02H      ;DX不为2表示输入为两位数
    JNZ LLLP 

LLP1:MOV CX,1
     MOV BL,2       ;赋初始值    
     JMP LP
LLLP:
     MOV DI,SI
     SUB DI,1          
     SUB [DI],1
     MOV AL,10
     MUL [DI]
     ADD [SI],AX     ;输入是两位数时十位乘10加个位
     SUB AH,AH
     JMP LLP1
     
LP: MOV BH,[SI]      ;把循环次数给BH
    MOV AL,BL
    INC BL
    MUL BL           ;BL(加1)和AL(原值)相乘给AX
    ADD CX,AX        ;AX和CX相加给CX，通过循环实现累加
    JO  OOF         ;如果溢出重新输入
    CMP BH,BL        ;判断是否达到N值
    JNZ LP 
    MOV AX,CX
    MOV CX,0AH
    MOV BX,0                 
              
    
LOP:MOV DX,0
    DIV CX         ;AX表示的32位数除以10，商放在AX,余数放在DX
    INC BX
    ADD DX,30H
    PUSH DX           ;将余数依次压入栈
    CMP AX,0
    JNZ LOP           ;商不为0继续除10
    LEA DX,result
    MOV AH,9
    INT 21H           ;DOS功能调用，输出字符串  
    
OUTPUT:
     POP DX
     MOV AH,2
     INT 21H          ;DX中数据依次出栈并显示
     DEC BX
     JNZ OUTPUT       ;出栈完成后停止
     JMP STATE            
     
OOF:LEA DX,over
    MOV AH,09H
    INT 21H           ;DOS功能调用，溢出显示
    JMP STATE 
          
CODE ENDS

END STATE

DATA SEGMENT 
    pkey   DB  0AH,0DH,"Please Input N(1-8):",'$'  
    result DB  0AH,0DH,"the results is:",'$' 
    over   DB  0AH,0DH,"overflow!",0AH,0DH,'$'
DATA ENDS           

STACK SEGMENT
    SSTACK DB 100 DUP(0)
STACK ENDS          

CODE SEGMENT
    ASSUME CS:CODE,DS:DATA,SS:STACK
    
STATE: 
       MOV AX,DATA
       MOV DS,AX   ;数据段初始化

       LEA DX,pkey
       MOV AH,09H
       INT 21H       ;DOS功能调用，显示字符串  
       
       MOV AH,1      
       INT 21H       ;DOS功能调用，输入N 
       SUB AL,30H
       CMP AL,08H
       JA  OOF       ;输入大于8溢出 
       
       XOR AH,AH   
       MOV BP,AX     ;赋循环计数值N给BP  
       
LP:    MOV BX,BP
       DEC BX
       JZ  LLP       ;阶乘次数为BX,BX为0必须马上跳转
       MUL BX        ;AX中存放阶乘结果(十六进制转十进制用)
       DEC BP
       JNZ LP 

LLP:   MOV CX,0
       MOV BX,10
       
LLLP:  MOV DX,0     
       DIV BX        ;AX表示的32位数除以10，商放在AX,余数放在DX 
       ADD DX,30H    
       PUSH DX       ;将余数转换为ASCII码值并压入栈
       INC CX
       CMP AX,0      ;商不为0就继续除10
       JNZ LLLP 

       MOV AH,09H
       LEA DX,result 
       INT 21H       ;DOS功能调用，输出字符串
       
LOP:   POP DX           
       MOV AH,2                                     
       INT 21H       ;DX各位出栈并显示
       LOOP LOP     
       JMP STATE   

OOF:   LEA DX,over
       MOV AH,09H
       INT 21H      ;DOS功能调用，溢出显示
       JMP STATE 
   
CODE ENDS
     END STATE