微機課程設計--計算器(存儲版)

　　

【正文】 KEY6: CMP BH,00H ；按鍵6處理子程序 JZ KEY6_1 CALL CLEARKEY6_1: CALL LP1 MOV AL,06H MOV [DI+4],AL PUSH BX LEA BX,TABL XLAT TABL MOV [SI+4],AL CALL DISP POP BX RET；KEY7: CMP BH,00H ；按鍵7處理子程序 JZ KEY7_1 CALL CLEARKEY7_1: CALL LP1 MOV AL,07H MOV [DI+4],AL PUSH BX LEA BX,TABL XLAT TABL MOV [SI+4],AL CALL DISP POP BX RET；.........................................................................KEYJIAN: CMP BH,00H ；按鍵處理子程序 JNZ KEYJIAN_1 CALL LP3KEYJIAN_1: CMP BX,0101H RET；KEYCHU: CMP BH,00H ；按鍵/處理子程序 JNZ KEYCHU_1 CALL LP3KEYCHU_1: CMP BX,0102H RET；KEYDEN: CMP BL,00H ；按鍵=處理子程序 JNZ KEYDEN_1 CALL CLEAR CALL DISPKEYDEN_1: MOV BH,01H CMP BL,01H ；是號？ JZ K1 ；進行減法運算 CMP BL,02H ；是/號？ JZ K2 ；進行除法運算STTE: RETK1: CALL JIAN JMP STTEK2: CALL CHU JMP STTE ；JIAN: MOV SI,OFFSET VAR3 ；三位8進制減法子程序 MOV DI,OFFSET VAR4 CLC MOV CX,0004H JIAN_1: MOV AL,[DI] SBB AL,[SI] CMP AL,08H JB B1 AND AL,07H STC JMP B2B1: CLCB2: MOV [DI],AL INC SI INC DI LOOP JIAN_1 CALL CHANGE CALL DISP MOV BL,00H ；運算完畢符號位清零 RET；CHU: MOV SI,OFFSET VAR3 ；兩位10進制除法子程序 MOV DI,OFFSET VAR4 CLC MOV DL,[DI] ；調(diào)整VAR4，10進制轉換成16進制，保存在DX MOV DH,00H MOV BX,10 MOV AL,[DI+1] AND AX,000FH PUSH DX MUL BX POP DX ADD DX,AX MOV BX,100 MOV AL,[DI+2] AND AX,000FH PUSH DX MUL BX POP DX ADD DX,AX MOV BX,1000 MOV AL,[DI+3] AND AX,000FH PUSH DX MUL BX POP DX ADD DX,AX PUSH DX MOV CL,[SI] ；調(diào)整VAR3，10進制轉換成16進制，保存在CX MOV CH,00H MOV AL,[SI+1] AND AX,000FH MOV BX,10 MUL BX ADD CX,AX MOV AL,[SI+2] AND AX,000FH MOV BX,100 MUL BX ADD CX,AX MOV AL,[SI+3] AND AX,000FH MOV BX,1000 MUL BX ADD CX,AX POP AX ；以16進制進行除法運算 MOV DX,0000H MOV CH,00H DIV CX ；調(diào)整結果為10進制 MOV CX,10 MOV DX,0000H DIV CX MOV [DI],DL