【文章內(nèi)容簡介】 fsf1 dw 0 。小數(shù) 2個數(shù)標志符 fsf dw 0 numb0f db 0 。NUMB0清空標志 numb1f db 0 。NUMB1清空標志 numb0 db 10 dup(0) 。第一個運算數(shù) numb1 db 10 dup(0) 。第二個運算數(shù) numb2 db 10 dup(0) 。第三個運算數(shù) numb3 db 10dup(0) 。小數(shù) fkey db error重新輸入 ...$ data ends stack segment stack db 100 dup(0) stack ends code segment assume ds:data,ss:stack,cs:code start:mov ax, data mov ds, ax 。 。各變量初始清 0 mov si,0 。清空兩個運 算數(shù) 課程 課程設計（綜合實驗）報告 12 mov cx,10 mov numb0,0 mov numb1,0 ini:mov numb0[si],0 mov numb1[si],0 mov numb2[si],0 inc si loop ini mov shuf,0 。當前數(shù)置 0，表示指向第一個數(shù) mov yunf,0 。運算符置 0，表示沒有運算符 mov finf,0 。完成符置 0，表示沒有完成 mov fssf,0 。置小數(shù)點符 0，表示沒有小數(shù)點 mov fsf0,0 。置小數(shù)個數(shù) 符 0，表示沒有小數(shù)部分 mov fsf1,0 mov fsf,0 mov numb0f,1 。第一個數(shù)清空標志置 1，表示第一個數(shù)被清空 mov numb1f,1 。第二個數(shù)清空標志置 1，表示第二個數(shù)被清空 。 。 ru: mov ah,1 int 21h push ax cmp al,39。.39。 。跳轉小數(shù)部分 jz fskey cmp al,39。+39。 jz addkey 。跳轉至加法鍵部分 cmp al,39。39。 課程 課程設計（綜合實驗）報告 13 jz subkey 。跳轉至減法鍵部分 cmp al,39。*39。 jz mulkey 。跳轉至乘法鍵部分 cmp al,39。/39。 jz divkey 。跳轉至除法鍵部分 cmp al,39。c39。 jz clrkey 。跳轉至清除鍵部分 cmp al,39。939。 jbe numkey 。跳轉至數(shù)字鍵部分 jmp equkey 。 。數(shù)字鍵部分 numkey: sub al,30h save_numb1:cmp yunf,0 jz save_numb0 。若沒有運算符號則將輸入數(shù)存入 NUMB0 mov shuf,1 。當前符值 1，指向第二個數(shù) mov si,9 cmp numb1[si],0 。若最高位為空，則標志當先數(shù)沒有存滿六位，繼續(xù)存入 jnz ru 。否則直接返回輸入 cmp numb1f,1 。若數(shù)當前被清空過，則直接將輸入數(shù)存入最低位 jz place1 。參與運算的小數(shù)的總數(shù) mov cx,10 。逐位前移 課程 課程設計（綜合實驗）報告 14 mov si,0 cmp fssf,1 jz xsd1 adjust1: xchg al,numb1[si] inc si loop adjust1 mov numb1f,0 。將 NUMB1F置 0，表示第二個數(shù)沒有清零 jmp ru place1:mov numb1[0],al mov numb1f,0 jmp ru save_numb0:mov shuf,0 cmp finf,0 。若完成符為 1，表示完成過一次運算，則清空 NUMBO jz save_next mov si,1 。清空 NUMB0 mov cx,9 mov numb0,0 save_ini:mov numb0[si],0 inc si loop save_ini mov numb0f,1 mov finf,0 save_next:mov si,9 。 cmp numb0[si],0 jnz ru cmp numb0f,1 jz place0 mov cx,10 課程 課程設計（綜合實驗）報告 15 mov si,0 cmp fssf,1 jz xsd0 adjust0: xchg al,numb0[si] inc si loop adjust0 mov numb0f,0 jmp ru place0:mov numb0f,0 mov numb0[0],al jmp ru xsd1: add fsf1,1 jmp adjust1 xsd0: add fsf0,1 jmp adjust0 。小數(shù)點部分 fskey: mov fssf,1 jmp ru 。等號鍵部分 equkey: call calp mov finf,1 。按下等號則調(diào)用 CALP運算子程序， mov yunf,0 。運算后清空運算符 。置完成符 課程 課程設計（綜合實驗）報告 16 jmp ru 。 。運算符號鍵部分 addkey: pop ax mov fssf,0 cmp yunf,0 。若之前沒有過運算符，則置運算符 jz placef call calp 。若之前有過運算符，則調(diào)用 CALP進行運算 jmp placef 。運算結束后置當前運算符 subkey:pop ax mov fssf,0 cmp yunf,0 jz placef call calp jmp placef mulkey: pop ax mov fssf,0 cmp yunf,0 jz placef call calp jmp placef divkey: pop ax mov fssf,0 cmp yunf,0 jz placef call calp 課程 課程設計（綜合實驗）報告 17 jmp placef placef: cmp al,39。+39。 jz addf cmp al,39。39。 jz subf cmp al,39。*39。 jz mulf cmp al,39。/39。 jz divf cmp al,39。c39。 jz clrkey addf:mov yunf,1 jmp ru 。置運算符完畢后返回輸入 subf:mov yunf,2 jmp ru mulf:mov yunf,3 jmp ru divf:mov yunf ,4 jmp ru clrkey:clear mov bh,0 mov dh,0 mov dl,0 mov ah,2 int 10h 課程 課程設計（綜合實驗）報告 18 jmp start 。按下 clear鍵后跳轉至開頭，全部清零 。 。運算子程序 CALP calp proc cmp yunf,0 。若運算符為 0，則直接轉輸入 jz yunf_over 。否則跳轉至結束處 ret cmp yunf,1 。根據(jù)運算符調(diào)用運算子程序 jz addcal cmp yunf,2 jz subcal cmp yunf,3 jz mulcal cmp yunf,4 jz divcal addcal:call addp jmp yunf_over 。調(diào)用相應計算子程序 subcal:call subp jmp yunf_over mulcal:call mulp jmp yunf_over divcal:call divp yunf_over:ret calp endp 。 。加法子程序 (帶小數(shù) ) addp proc push ax push dx clc 課程 課程設計（綜合實驗）報告 19 mov dx ,fsf0 mov bx,fsf1 。清除進位標志 cmp dx,bx