1、DISP MACRO V ARMOV AH,2MOV DL,V ARINT 21HENDMDATAS SEGMENTDATA0 DB'PLEASE INPUT A NUMBER(0-999:','$'DATA1 DB' over flow input again:','$'DATA2 DB'PLEASE INPUT ANOTHER NUMBER(EXP:123','$' DATA3 DB'PLEASE INPUT AN OPREATOR:','$'DATA4 DB&#

2、39;THE OPERATOR IS WRONG,INPUT AGAIN:','$' OPER DB?FLAG DB 0FLAG1 DB 0DATA DW 3 DUP(?DATAS ENDSSTACKS SEGMENTDW 256 DUP(?STACKS ENDSCODES SEGMENTASSUME CS:CODES,DS:DATAS,SS:STACKSSTART:MOV AX,DATASMOV DS,AXMOV DI,OFFSET DATA0 ;提示信息CALL DISPLMOV SI,0 ;SI作為數組下標CALL INPUTCALL NEWLINEMOV DI,

3、OFFSET DATA3 ;提示信息CALL DISPLAGAIN:MOV AH,1 ;1號功能輸入四則運算符INT 21HCMP AL,'+'判斷輸入的是不是+,-,*,/ JE NEXT0CMP AL,'-'JE NEXT0CMP AL,'*'JE NEXT0CMP AL,'/'JE NEXT0CALL NEWLINE ;輸入的運算符不合法,重新輸入MOV DI, OFFSET DATA4CALL DISPLJMP AGAINNEXT0:MOV OPER,AL ;保存運算符CALL NEWLINEMOV DI,OFFSET D

4、ATA2 ;輸入第二個操作數CALL DISPLMOV SI,2CALL INPUTMOV AX,DATA0MOV BX,DATA2CMP OPER,'+'判斷是那種操作,進行運算JE NEXT1CMP OPER,'-'JE NEXT2CMP OPER,'*'JE NEXT3CMP OPER,'/'JE NEXT4NEXT1: ;加法運算CLCADC AX,BXJNC N1MOV FLAG,1 ;判斷是否進位N1: MOV DATA4,AX ;運算結果放入內存JMP OUTPUTNEXT2: ;減法運算CLCSBB AX,BXJN

5、C N2MOV FLAG,1 ;判斷是否借位NEG AXN2: MOV DATA4,AX ;運算結果放入內存JMP OUTPUTNEXT3: ;乘法運算CLCMOV DX,0MUL BXMOV DATA4,AX ;運算結果放入內存JMP OUTPUTNEXT4: ;除法運算CLCMOV DX,0CMP BX,0JNZ N4 ;判斷除數是否為0CALL NEWLINECALL ERRORCALL NEWLINEMOV DI,OFFSET DATA2CALL DISPLMOV SI,2CALL INPUTJMP NEXT4N4: DIV BXMOV DATA4,AX ;運算結果放入內存OUTPUT

6、:CALL NEWLINEMOV DI,0 ;輸出第一個操作數CALL PRINTDISP OPER ;輸出運算符MOV DI,2CALL PRINT ;輸出第二個操作數DISP '='CMP FLAG,1JNZ N EXT5DISP '-'NEXT5:MOV DI,4CALL PRINT ;輸出結果MOV AH,4CHINT 21H;-輸入函數-INPUT PROC NEARPUSH AXPUSH BXPUSH CXPUSH DXMOV BX,0 ;BX存放十進制數CLCMOV DX,0L0:;-輸入數字-MOV AH,1 ;判斷數字是否合法INT 21HCM

7、P AL,0DHJE L2SUB AL,30HJL L1CMP AL,9JG L1;-轉換成十進制數-MOV AH,0 ;轉換成10進制數放入內存XCHG AX,BXMOV CX,10MUL CXADD AX,BXJC L1XCHG AX,BXJMP L0L1:MOV DX,0MOV BX,0CALL NEWLINECALL ERRORJMP L0L2:CMP DX,0JNZ L1MOV DATASI,BXMOV DX,0POP DXPOP CXPOP BXPOP AXRETINPUT ENDP;-提示信息-DISPL PROC NEARMOV AH,9MOV DX,DIINT 21HRETD

8、ISPL ENDP;-回車換行-NEWLINE PROC NEARPUSH AXPUSH DXMOV DL,0AHMOV AH,2INT 21HMOV DL,0DHMOV AH,2INT 21HPOP DXPOP AXRETNEWLINE ENDP;-錯誤提示- ERROR PROC NEARPUSH AXPUSH DXMOV DX,OFFSET DATA1MOV AH,9INT 21HPOP DXPOP AXRETERROR ENDP;-顯示函數-PRINT PROC NEARPUSH AXPUSH BXPUSH CXPUSH DXMOV CX,0MOV BX,10MOV AX,DATADILAST:MOV DX,0 ;除10壓棧DIV BXPUSH DX INC CX CMP AX,