【文章內(nèi)容簡介】 |39。,0DH DB 39。 | data2:39。 DB 39。______________ |39。,0DH,0AH 。,0dh,0ah,0dh,0ah,0dh DB 39。 | |39。,0DH,0AH DB 39。 | |39。,0DH,0AH DB 39。 | |39。,0DH DB 39。 | result:39。DB 39。__________ |39。,0DH,0AH,0DH 。,0ah,0dh,0ah,0dh,0ah DB 39。 | |39。,0DH,0AH DB 39。 | |39。,0DH,0AH DB 39。 | |39。,0DH,0AH DB 39。 | |39。,0DH,0AH DB 39。 | |39。,0DH,0AH DB 39。 |_____________________________________|39。,39。$39。 MSG1 DB 39。choose +,,*,/39。,39。$39。 MSG2 DB 39。you choose wrong39。,39。$39。,0AH,0DH MSG3 DB 39。Press ESC to Exit!39。,0DH,0AH,39。$39。 MSG4 DB 39。Press any key to continue!39。,0DH,0AH,39。$39。 MSG5 DB 39。39。,39。$39。 MSG6 DB 39。.39。,39。$39。 第 7 頁 共 21 頁 MSG7 DB 39。error input!39。,39。$39。 MSG8 DB 39。data2 is wrong!39。,39。$39。 F_AL DB ? DATA1 DW ? DATA2 DW ? .CODE 。代碼段從這里開始 。 DEC_DIV PROC NEAR CWD 。將字轉(zhuǎn)換為雙字， AX 內(nèi)容符號擴展到 DX DIV CX PUSH DX MOV DL,AL ADD DL,30H 。將不是數(shù)字的字符轉(zhuǎn)換為數(shù)字 MOV AH,2 。顯示輸出 INT 21H 。DOS 調(diào)用 POP DX MOV AX,DX RET DEC_DIV ENDP 。 CHANGE PROC NEAR 。該子程序的功能：將 AX 中存儲的十六進制數(shù)轉(zhuǎn)換為十進制數(shù) CMP AX,1000 JAE C1 。AX≥ 1000 則轉(zhuǎn)移 CMP AX,100 JAE C2 。AX≥ 100 則轉(zhuǎn)移 CMP AX,10 JAE C3 。AX≥ 10 則轉(zhuǎn)移 JMP C4 。AX＜ 10 C1: MOV CX,1000D CALL DEC_DIV C2: MOV CX,100D CALL DEC_DIV C3: MOV CX,10D CALL DEC_DIV C4: MOV CX,1D CALL DEC_DIV RET CHANGE ENDP 。 BEGIN PROC NEAR 第 8 頁 共 21 頁 BACK: CLEAR 1EH CURS 2,20 。設(shè)置光標為（ ） DISPMSG MSG0 。顯示用戶界面 CURS 8,41 。設(shè)置光標為（ 8， 41） ，第一行 MOV BX,0 MOV CX,2 NEWCHAR1: MOV AH,1 。鍵盤輸入并回顯 INT 21H 。DOS 調(diào)用 CMP AL,30H 。檢查輸入的字符是不是數(shù)字 JAE J1 。如果不是，則轉(zhuǎn)移至 J1 JMP D2 。是，轉(zhuǎn)移到 D2 執(zhí)行 J1: CMP AL,39H 。 與 9的 ASCII 侶氡 JBE J2 。如果輸入的字符是 09，則轉(zhuǎn)移至 J2 JMP D2 。如果不是數(shù)字，則轉(zhuǎn)移至 D2 J2: SUB AL,30H CBW 。AL 的內(nèi)容符號擴展到 AH XCHG AX,BX MOV DI,10 MUL DI XCHG AX,BX ADD BX,AX LOOP NEWCHAR