找回密碼
 立即注冊

QQ登錄

只需一步，快速開始

搜索
查看: 4599|回復(fù): 4
打印 上一主題 下一主題
收起左側(cè)

基于8086的計算器匯編程序與Proteus仿真圖

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
仿真原理圖如下（proteus仿真工程文件可到本帖附件中下載）




8086匯編語言源程序如下:
  1.         DATA  SEGMENT
  2.            X  DB        ?,?,?,?     ;存放數(shù)據(jù)的每一位
  3.           X1  DW        ?           ;存放第一個數(shù)據(jù)值
  4.           X2  DW        ?           ;存放第二個數(shù)據(jù)值
  5.            Y  DW        ?           ;存放運(yùn)算結(jié)果
  6.            S  DB        ?           ;存放運(yùn)算符號值
  7.            E  DB        ?           ;按下等號鍵標(biāo)記
  8.           CC  DB        ?           ;存放運(yùn)算數(shù)據(jù)位數(shù)
  9.            H  DB        0           ;存放按鍵行號
  10.            L  DB        0           ;存放按鍵列號
  11.      DISCODE  DB        3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH,77H,7CH,39H,5EH,79H,71H         ;段碼表
  12.         DATA  ENDS

  14.         CODE  SEGMENT
  15.               ASSUME    CS:CODE,DS:DATA

  17.       START:  MOV       AX,DATA
  18.               MOV       DS,AX

  20.               MOV       AL,90H      ;設(shè)置為A口輸入，B口輸出,C口輸出
  21.               OUT       46H,AL
  22.               MOV       DI,OFFSET X+3           ;DI指向X的高位
  23.         KKK:  CALL      KEY         ;掃描按鍵
  24.               JMP       KKK

  26. ;以下為按鍵掃描子程序，程序返回后，在變量H和L中存放當(dāng)前按鍵的行列號
  27.          KEY  PROC
  28.       CHECK:  CALL      DISP        ;等待按鍵按下的同時進(jìn)行顯示
  29.               MOV       AL,0F0H     ;所有行輸出低電平
  30.               OUT       44H,AL
  31.               IN        AL,40H
  32.               CMP       AL,0FFH     ;讀列值
  33.               JZ        CHECK       ;若都為高電平則無鍵按下，等待
  34.               MOV       CX,50
  35.               LOOP      $           ;延時消抖
  36.               IN        AL,DX       ;重讀列值
  37.               CMP       AL,0FFH
  38.               JZ        CHECK       ;無鍵按下一直等待

  40.               MOV       H,0         ;有鍵按下，先把行列號變量清0
  41.               MOV       L,0
  42.               MOV       BL,01H
  43.               MOV       BH,0FEH     ;掃描法讀鍵值：從第一行開始測試，即PC0輸出低電平
  44.        NEXT:  MOV       AL,BH
  45.               OUT       44H,AL
  46.       NEXTH:  IN        AL,40H      ;讀列值，判斷是第幾列有鍵按下
  47.               TEST      AL,BL       ;從第一列開始判斷
  48.               JZ        WAIT0
  49.               ROL       BL,1
  50.               CMP       BL,10H      ;當(dāng)前行狀態(tài)下沒有任何列有鍵按下，則轉(zhuǎn)為對下一行的測試
  51.               JZ        NEXTL
  52.               INC       H           ;每判斷一列，列號加1
  53.               JMP       NEXTH       ;再對下一列進(jìn)行判斷
  54.       NEXTL:  MOV       H,0
  55.               MOV       BL,01H
  56.               ROL       BH,1        ;對下一行測試，讓下一個PC口輸出低電平
  57.               CMP       BH,0EFH
  58.               JZ        EXIT
  59.               INC       L
  60.               JMP       NEXT

  62.       WAIT0:  IN        AL,40H      ;若有鍵按下，則等該按鍵松開后再計算鍵值
  63.               CMP       AL,0FFH
  64.               JNZ       WAIT0
  65.               MOV       CX,50
  66.               LOOP      $           ;延時消抖
  67.               IN        AL,40H
  68.               CMP       AL,0FFH
  69.               JNZ       WAIT0
  70.               CALL      KEYVALUE    ;調(diào)計算鍵值子程序
  71.        EXIT:  RET
  72.          KEY  ENDP


  75.    ;以下為計算鍵值子程序,通過行列號計算鍵值（鍵值=列號*4+行號）
  76.    ;鍵值存放在DL寄存器中
  77.     KEYVALUE  PROC
  78.               MOV       DL,L
  79.               MOV       DH,H
  80.               SHL       DL,1
  81.               SHL       DL,1        ;列號乘4
  82.               ADD       DL,DH
  83.               CMP       DL,9        ;按下的是數(shù)字鍵
  84.               JNG       NUM_CALL
  85.               CMP       DL,14
  86.               JL        CONT_CALL   ;按下的是運(yùn)算鍵
  87.               CMP       DL,14
  88.               JZ        OUTP_CALL   ;按下的是等于鍵
  89.               CMP       DL,15
  90.               JZ        CLR_CALL    ;按下的是清除鍵

  92.    NUM_CALL:  CALL      NUMBER      ;調(diào)數(shù)字鍵處理子程序
  93.               JMP       EXIT1
  94.   CONT_CALL:  MOV       S,DL        ;存放運(yùn)算鍵的鍵值
  95.               MOV       E,0
  96.               CALL      COUNT       ;調(diào)運(yùn)算鍵處理子程序，計算第一個加數(shù)
  97.               JMP       EXIT1
  98.   OUTP_CALL:  CALL      OUTP        ;調(diào)等號鍵處理子程序
  99.               JMP       EXIT1
  100.    CLR_CALL:  CALL      CLEAR       ;調(diào)清除鍵處理子程序
  101.       EXIT1:  RET
  102.     KEYVALUE  ENDP


  105. ;以下為清除鍵處理子程序，按下清除鍵后，X變量全部清0
  106.        CLEAR  PROC
  107.               MOV       X[3],0
  108.               MOV       X[2],0
  109.               MOV       X[1],0
  110.               MOV       X[0],0
  111.               CALL      BITP
  112.               RET
  113.        CLEAR  ENDP


  116. ;以下為等號鍵處理子程序，該子程序負(fù)責(zé)將第二個運(yùn)算數(shù)據(jù)的數(shù)值計算出來存入X2變量
  117. ;并根據(jù)運(yùn)算符號，調(diào)用相應(yīng)的運(yùn)算子程序
  118.         OUTP  PROC
  119.               PUSH      AX
  120.               PUSH      DX
  121.               PUSH      BX
  122.               INC       E
  123.               CALL      COUNT       ;調(diào)運(yùn)算鍵處理子程序，計算第二個運(yùn)算數(shù)據(jù)
  124.               CMP       S,10
  125.               JZ        ADD_CALL    ;運(yùn)算符為加號，則調(diào)用加法子程序
  126.               CMP       S,11
  127.               JZ        SUB_CALL    ;運(yùn)算符為減號，則調(diào)用減法子程序
  128.               CMP       S,12
  129.               JZ        MUL_CALL    ;運(yùn)算符為乘號，則調(diào)用乘法子程序
  130.               CMP       S,13
  131.               CALL      DIVP        ;運(yùn)算符為除號，則調(diào)用除法子程序
  132.               JMP       STORE1
  133.    ADD_CALL:  CALL      ADDP
  134.               JMP       STORE1
  135.    SUB_CALL:  CALL      SUBP
  136.               JMP       STORE1
  137.    MUL_CALL:  CALL      MULP

  139.      STORE1:  MOV       AX,Y        ;以下程序?qū)⒏鬟\(yùn)算子程序返回的運(yùn)算結(jié)果，按位分解，送入X變量
  140.               MOV       DX,0
  141.               MOV       BX,1000
  142.               DIV       BX
  143.               MOV       X[0], AL
  144.               MOV       AX,DX
  145.               MOV       BL,100
  146.               DIV       BL
  147.               MOV       X[1],AL
  148.               MOV       AL,AH
  149.               MOV       AH,0
  150.               MOV       BL,10
  151.               DIV       BL
  152.               MOV       X[2],AL
  153.               MOV       X[3],AH
  154.               POP       BX
  155.               POP       DX
  156.               POP       AX
  157.               RET
  158.         OUTP  ENDP

  160. ;以下為運(yùn)算鍵處理子程序，該程序?qū)⒌谝粋�運(yùn)算數(shù)據(jù)的數(shù)值計算出來并存入X1變量
  161. ;或者將第二個運(yùn)算數(shù)據(jù)的數(shù)值計算出來并存入X2變量
  162. ;將運(yùn)算符的值存入S變量
  163.        COUNT  PROC
  164.               PUSH      AX
  165.               PUSH      BX
  166.               PUSH      DX
  167.               MOV       DX,0
  168.               CALL      BITP        ;測試X中的數(shù)據(jù)是多少位
  169.               CMP       CC,4        ;輸入的數(shù)據(jù)是4位數(shù) ？
  170.               JZ        C4
  171.               CMP       CC,3        ;輸入的數(shù)據(jù)是3位數(shù) ？
  172.               JZ        C3
  173.               CMP       CC,2        ;輸入的數(shù)據(jù)是2位數(shù) ？
  174.               JZ        C2
  175.               JMP       C1          ;輸入的數(shù)據(jù)是1位數(shù) ？

  177.          C4:  MOV       AX,0
  178.               MOV       AL,X[0]
  179.               MOV       BX,1000
  180.               MUL       BX
  181.               MOV       DX,AX

  183.          C3:  MOV       AL,X[1]
  184.               MOV       BL,100
  185.               MUL       BL
  186.               ADD       DX,AX

  188.          C2:  MOV       AL,X[2]
  189.               MOV       BL,10
  190.               MUL       BL
  191.               ADD       DX,AX

  193.          C1:  MOV       AL,X[3]
  194.               MOV       AH,0
  195.               ADD       DX,AX
  196.               CMP       E,1
  197.               JNZ       X1_S
  198.               MOV       X2,DX       ;按下的是等號，則將第二個運(yùn)算數(shù)據(jù)的值存入X2變量
  199.               JMP       EXIT3
  200.        X1_S:  MOV       X1,DX       ;按下的是運(yùn)算符號，則將第一個運(yùn)算數(shù)據(jù)的值存X1變量
  201.               MOV       X[3],0      ;清空X變量
  202.               MOV       X[2],0
  203.               MOV       X[1],0
  204.               MOV       X[0],0
  205.       EXIT3:  POP       DX
  206.               POP       BX
  207.               POP       AX
  208.               RET
  209.        COUNT  ENDP


  212. ;以下為數(shù)字鍵處理子程序
  213. ;該程序，將輸入的數(shù)據(jù)按位存放在X變量中，并由CC記錄數(shù)據(jù)的位數(shù)
  214.       NUMBER  PROC
  215.               CMP       E,1
  216.               JNZ       CONTINUE
  217.               MOV       E,0
  218.               CALL      CLEAR
  219.    CONTINUE:  CMP       CC,0        ;目前數(shù)據(jù)為0位，即沒有數(shù)據(jù)，則轉(zhuǎn)到SSS
  220.               JZ        SSS
  221. ;若已有數(shù)據(jù)，以下程序?qū)左移8位。
  222. ;例如：先輸入“1”，當(dāng)再輸入2時，
  223. ;先要將“1”從個位移到十位，然后再將“2”存放到個位
  224.               PUSH      AX
  225.               PUSH      DX
  226.               MOV       AL,X[3]
  227.               MOV       AH,X[2]
  228.               MOV       DL,X[1]
  229.               MOV       DH,X[0]
  230.               MOV       CX,8
  231.          LL:  SHL       AX, 1
  232.               RCL       DX,1
  233.               LOOP      LL
  234.               MOV       X[3],AL
  235.               MOV       X[2],AH
  236.               MOV       X[1],DL
  237.               MOV       X[0],DH
  238.               POP       DX
  239.               POP       AX
  240.         SSS:  MOV       [DI],DL     ;將當(dāng)前鍵入的數(shù)據(jù)存放到X的最低位
  241.               INC       CC          ;數(shù)據(jù)位數(shù)加1
  242.               CMP       CC,4        ;判斷數(shù)據(jù)位數(shù)
  243.               JNG       EXIT2
  244.               MOV       CC,0        ;如果數(shù)據(jù)超過4位，重新從最低位開始存放
  245.               MOV       X[2],0
  246.               MOV       X[1],0
  247.               MOV       X[0],0
  248.       EXIT2:  CALL      DISP        ;調(diào)顯示子程序，顯示輸入的數(shù)據(jù)
  249.               RET
  250.       NUMBER  ENDP

  252. ;加法子程序
  253.         ADDP  PROC
  254.               PUSH      AX
  255.               MOV       AX,X1
  256.               ADD       AX,X2
  257.               MOV       Y,AX
  258.               POP       AX
  259.               RET
  260.         ADDP  ENDP
  261. ;減法子程序
  262.         SUBP  PROC
  263.               PUSH      AX
  264.               MOV       AX,X1
  265.               SUB       AX,X2
  266.               MOV       Y,AX
  267.               POP       AX
  268.               RET
  269.         SUBP  ENDP
  270. ;乘法子程序
  271.         MULP  PROC
  272.               PUSH      AX
  273.               PUSH      DX
  274.               MOV       AX,X1
  275.               MOV       DX,X2
  276.               MUL       DX
  277.               MOV       Y,AX
  278.               POP       DX
  279.               POP       AX
  280.               RET
  281.         MULP  ENDP
  282. ;除法子程序
  283.         DIVP  PROC
  284.               PUSH      AX
  285.               PUSH      BX
  286.               PUSH      DX
  287.               MOV       DX,0
  288.               MOV       AX,X1
  289.               MOV       BX,X2
  290.               DIV       BX
  291.               MOV       Y,AX
  292.               POP       DX
  293.               POP       BX
  294.               POP       AX
  295.               RET
  296.         DIVP  ENDP

  298. ;顯示子程序 ，將X中的數(shù)值按位顯示出來
  299.         DISP  PROC
  300.               PUSH      BX
  301.               PUSH      AX
  302.               MOV       BH,0
  303.               LEA       SI,DISCODE
  304.               CALL      BITP        ;測試X位數(shù)
  305.               CMP       CC,4
  306.               JZ        QIAN
  307.               CMP       CC,3
  308.               JZ        BAI
  309.               CMP       CC,2
  310.               JZ        SHI
  311.               CMP       CC,1
  312.               JMP       G
  313.               JMP       NONE

  315.        QIAN:  MOV       AH,11100000B            ;從第4位開始顯示
  316.               MOV       AL,AH
  317.               OUT       44H,AL
  318.               MOV       BL,X[0]
  319.               MOV       AL,[SI+BX]
  320.               OUT       42H,AL
  321.               CALL      DELY
  322.               MOV       AL,0
  323.               OUT       42H,AL

  325.         BAI:  MOV       AH,11010000B            ;從第3位開始顯示
  326.               MOV       AL,AH
  327.               OUT       44H,AL
  328.               MOV       BL,X[1]
  329.               MOV       AL,[SI+BX]
  330.               OUT       42H,AL
  331.               CALL      DELY
  332.               MOV       AL,0
  333.               OUT       42H,AL

  335.         SHI:  MOV       AH,10110000B            ;從第2位開始顯示
  336.               MOV       AL,AH
  337.               OUT       44H,AL
  338.               MOV       BL,X[2]
  339.               MOV       AL,[SI+BX]
  340.               OUT       42H,AL
  341.               CALL      DELY
  342.               MOV       AL,0
  343.               OUT       42H,AL

  345.           G:  MOV       AH,01110000B            ;從第1位開始顯示
  346.               MOV       AL,AH
  347.               OUT       44H,AL
  348.               MOV       BL,X[3]
  349.               MOV       AL,[SI+BX]
  350.               OUT       42H,AL
  351.               CALL      DELY
  352.               JMP       EXIT4
  353. ……………………

  355. …………限于本文篇幅 余下代碼請從51黑下載附件…………
復(fù)制代碼
代碼與Proteus仿真下載:
計算器8086.7z (45.45 KB, 下載次數(shù): 109)


評分

參與人數(shù) 1黑幣 +50 收起 理由
admin + 50 共享資料的黑幣獎勵！

查看全部評分

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏3 分享淘帖 頂頂2 踩踩
回復(fù)

使用道具 舉報

沙發(fā)
ID:1054685 發(fā)表于 2022-12-20 16:08 來自手機(jī) | 只看該作者
沒代碼
回復(fù)

使用道具 舉報

板凳
ID:1054685 發(fā)表于 2022-12-20 16:49 來自手機(jī) | 只看該作者
誤會了，我傻了
回復(fù)

使用道具 舉報

地板
ID:1073250 發(fā)表于 2023-5-27 18:03 | 只看該作者
這個計算器還是不錯的，我下載下來學(xué)習(xí)了
回復(fù)

使用道具 舉報

5#
ID:1101994 發(fā)表于 2023-12-1 11:06 | 只看該作者
鬼鬼YYDS 發(fā)表于 2023-5-27 18:03
這個計算器還是不錯的，我下載下來學(xué)習(xí)了

可以分享下嘛
回復(fù)

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

手機(jī)版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表