單片機實驗報告 實驗一

　數據傳送 (RA Ｍ – 〉ＸＲＡ M)

　一、實驗目得

　熟悉星研集成環境軟件或熟悉 Keiｌ Ｃ5１集成環境軟件得使用方法。

　熟悉 MＣS51 匯編指令,能自己編寫簡單得程序，掌握數據傳輸得方法。

　二、實驗內容

　1、熟悉星研集成環境軟件或熟悉Ｋｅｉl Ｃ51 集成環境軟件得安裝與使用方法。

　２、編寫程序，實現內外部數據段得傳送、校驗。

　三、程序框圖

　開始 堆棧指針初始化計數器、地址初始化內部RAM數據傳送外部RAM一次地址指針+1

　 計數器-1=0？計數器、地址指針復位取內部RAM和對應的外部RAM比較是否相等地址指針+1

　計數器-1=0？傳送正確傳送錯誤結束NNYYYN數據傳送程序框圖 四、實驗步驟

　MAR 據數部外測檢，序程試調式方點斷、步單用使;據數入輸中ＨF３～ H03 MＡR 部內在?得 10０0H ~1０0FH 中得內容。熟悉查瞧特殊功能寄存器、內部數據 RＡM、外部數據空間得各種方法. 五、程序清單

　；將內部ＲAＭ Address1 開始得 1６個字節送到外部ＲAＭ從 Aｄdress２開始得單元里,再作比較。

　Adｄress1 ＤAＴＡ 30H

　Address2 XDATＡ １000H

　 ORＧ 00０0H

　 LJＭP STAＲ

　 OＲG 0100H

　STＡR: MOV SP,#6０H

　 ＭＯV Ｒ0，＃Ａddrｅss1

　 MOV DPTR，＃Addrｅss2

　 MＯV R7,#１0H

　STAＲ1: MOV A,R0 ;傳送

　 ＭOVX DＰTＲ，A

　 IＮC R0

　 IＮC DPTR

　 DJNZ R7,STAR1

　 MOＶ R０,#Adｄreｓs１

　 MＯＶ DPTＲ,#Addｒeｓｓ２

　 ＭOV R7，＃１０H

　STAＲ2: MOV B，Ｒ0 ；比較

　MOＶX A，DPＴR

　 ＣJＮE A，Ｂ，STAR３

　 ＩNC Ｒ0

　 INC ＤPＴＲ

　 DＪNZ R7，STAR2

　 SJMP ＄ ;傳送正確 ＳTAR3: SJＭP $ ;傳送錯誤

　ENＤ

　 實驗二

　雙字節 D BCD 碼( ( 十進制數) ) 加法

　一、實驗目得

　熟悉５1 匯編指令,學會使用星研集成環境軟件,能自己編寫簡單得程序,熟悉ＢCD 碼,了解如何調用系統提供得子程序. 二、實驗內容

　從鍵盤上輸入４位被加數、加數,實現雙字節 BCD 碼（四位數）得加法,結果顯示在數碼管上；熟悉使用斷點、單步進入、單步、運行到光標處、修改 PC 指針、全速運行等各種調試手段；熟悉查瞧特殊功能寄存器、內部數據ＲAM、外部數據空間得各種方法。

　三、實驗框圖

　開始初始化堆棧設定"先清LED,再接收鍵輸入"標志通過鍵盤獲得4位被加數(壓縮BCD碼）置位"接收到第一個鍵后才清除LED"標志通過鍵盤獲得4位加數(壓縮BCD碼）被加數與加數的低位字節不帶進位加法被加數與加數的高位字節帶進位加法十進制調整十進制調整壓縮BCD碼(結果)轉換為非壓縮BCD碼高位0消隱顯示結果雙字節BCD加法程序框圖

　四、實驗步驟

　、１ ：明說線連?D3 區 :ＣLＫ －- B２區:２M D3 區 ：CS -- A3 區:CS5 Ｄ３區 :Ａ0 -— A３區:Ａ０ ２、在 F4 區得鍵盤上輸入 4 位被加數、加數 3、結果顯示在 F4 區得數碼管上 五、程序清單

　EXＴＲN CＯDＥ（Diｓpｌay８， GｅtBCDKｅy)

　 Buffeｒ ＤAＴA 30H ;8 字節顯示緩沖區 F１ BＩT 0Ｄ１H ;PSW、１

　ORG 00０0Ｈ

　 ＬＪMＰ STAＲT

　 ＯRG 0１00H

　START: MOＶ SP，＃6０Ｈ

　 CLR F1 ;先清除顯示,再接收鍵輸入 ＳTART1: ＭOＶ R0，＃buffeｒ

　 MOV Ａ，#4 ;按鍵次數

　LCALL GetＢＣDＫeｙ ;得到雙字節十進制數（被加數)

　SEＴＢ F1 ;接收到第一個鍵，才清除顯示

　MOV R0,#buffer＋4

　 ＭOV A，#４ ；按鍵次數

　LCAＬL GｅtＢＣDKｅｙ ;得到雙字節十進制數（加數)

　 MOV Ａ，bｕfｆer+1

　 AＤＤ A,bｕffｅr+5

　 DA A

　 MＯV ｂuffer+5,A

　 MOV Ａ，buffer

　 AＤＤC A，buｆfer+4

　 ＤA Ａ

　 MＯV ｂｕffeｒ+4，A

　 CＬＲ A

　 ＲLＣ A

　Dｉsplay: PUSH ACC ；顯示結果

　ＭOＶ R0，#buffeｒ

　 MOＶ A，bｕｆｆｅｒ＋5 ;低位

　ACALL B１toＢ2 ；壓縮 BＣD 碼轉換成非壓縮 BCD 碼

　MＯＶ A,ｂｕｆfer＋4 ；高位

　ACALL B1ｔoB２

　 POP ＡＣC ；進位

　ACAＬL B1toＢ２

　 MOV R０,#1０H ;最高二位消隱

　INC R0

　 MOV R0,#10H

　 MＯV R0,#bｕfｆeｒ+5

　 MOＶ R7,#5

　 ACALＬ BlaｃkDiｓｐlay ;將高位 0 消隱

　MOV R0,#ｂuｆfer

　 LＣALL Displaｙ8

　 ＳＪMP ＳTART1

　;將一個字節壓縮 BＣD 碼轉換成二個字節非壓縮 BCD 碼 B１ｔｏB2: PUSH ＡCC

　 ANＬ A，＃0FＨ

　 ＭOＶ Ｒ0,A

　 INC R０

　 ＰOP ＡCＣ

　 ANL A,＃0F0H

　 SWAP A

　 MＯV R0,A

　 IＮC Ｒ0

　 REＴ

　 Bla ｃkDisplay: MOV A，R0 ;將高位０消隱

　JNZ Exit

　 ＭOＶ A,#１0H

　 ＭOＶ R0,A

　 ＤEC Ｒ0

　 DJＮＺ R7,BｌacｋDｉｓpｌａy

　Exit: RＥT

　ＥNＤ

　 實驗三

　雙字節 D BCD 碼（十進制數）減法

　一、實驗目得

　熟悉５1 匯編指令,學會使用星研集成環境軟件，掌握匯編語言得設計與調試方法.能瞧懂程序流程框圖,能自己設計程序，熟悉 BCD 碼、補碼，了解如何調用系統提供得子程序。

　二、實驗內容

　從鍵盤上輸入４位被減數、減數,實現雙字節 BCD 碼（四位數)得減法,結果顯示在數碼管上；進一步熟悉使用斷點、單步進入、單步、運行到光標處、修改 PＣ指針、全速運行等各種調試手段;熟悉查瞧特殊功能寄存器、內部數據 RＡM、外部數據空間得各種方法。

　三、程序框圖

　設定"先清LED,再接收鍵輸入"標志堆棧初始化開始通過鍵盤獲得雙字節十進制被減數(壓縮BCD碼)置位"接收到第一個鍵后才清除LED"標志通過鍵盤獲得雙字節十進制減數(壓縮BCD碼)減數進行十進制取補雙字節十進制加法操作C=1?C=0,有進位(結果為負),再執行一次求補運算,調整為正數高位0消隱,若結果為負,前面加上"-"顯示結果YN雙字節十進制減法程序框圖

　四、實驗步驟

　、１ :明說線連?D3 區 :CＬK —— Ｂ２區:２M

　Ｄ3 區 :CS —— A3 區:CS5 D3 區 :Ａ0 —— A3 區：A0 2、在 F4 區得鍵盤上輸入 4 位被減數、減數 ３、結果顯示在 F４區得數碼管上 五、程序清單

　EXTＲN CODＥ(Ｄｉsplａy8， ＧetBＣDKey)

　 Buｆfer DATA 30H ；8 字節顯示緩沖區 F1 BIＴ 0D1H ；PSW、1

　ORG 0000Ｈ

　 LJＭP STARＴ

　 ORG 0100H

　START：

　MOV SP,＃6０H

　 CＬR F１ ;先清除顯示,再接收鍵輸入 SＴＡＲＴ1: ＭＯV R0，#buffer

　 MOV A,#4 ;按鍵次數

　LCALL ＧｅtＢCＤKｅy ;得到雙字節十進制數(被減數)

　ＳETB Ｆ1 ；接收到第一個鍵,才清除顯示

　MＯＶ R0，#buffｅｒ+4

　 MOV A，#4 ；按鍵次數

　LCALL GetBCDＫey ；得到雙字節十進制數(減數)

　MOV A，＃9AＨ

　 CLR C

　 ＳUBB A,buffeｒ+5

　 MOV buｆｆeｒ+5，Ａ

　 MＯV A,#９９H

　 ＣLR C

　 SUＢB Ａ,buffｅr+4

　 ＭOV bｕffer＋4，A ；減數取補

　MOV Ａ，bufｆer+1

　 ADＤ A,buffer+5

　 DA Ａ

　 ＭOV bｕｆfｅr+5,A

　 MＯＶ A,buffeｒ

　 ADＤC A,buｆfer＋4

　 DＡ Ａ

　 MＯV buffer＋４，A

　 MOＶ Ｆ０,C ；借位標志

　JC Disｐlay

　 ＭOV A,＃９ＡＨ

　 SUＢB A,ｂuffer＋５

　 ＭOV ｂuｆfer+5,A

　 MOＶ A,＃99H

　 ＳUBB A,buffeｒ＋４

　 XＣH Ａ,buffｅr+５

　 ADD Ａ,＃０0H

　 DA A

　 XＣH A,bufｆer+5

　 ＡDDC A,#00H

　 ＤＡ A

　 ＭＯV buffeｒ＋4,A

　Ｄispｌay：

　ＭOV R0,＃bufｆｅr ；顯示結果

　ＭOV A,ｂｕffeｒ＋5 ;低位

　ACALL B1toB2 ;壓縮ＢCD 碼轉換成非壓縮 BCD 碼

　MOＶ A,bｕｆfer+4 ;高位

　ＡCALL B１toB2

　 MOV Ｒ０,#１0H ；最高四位消隱

　IＮC R0

　 MOV R0,＃10H

　 INＣ R0

　 MOV R0，#１0H

　 INC Ｒ０

　 ＭＯＶ R０,#10H

　 MＯV Ｒ0，＃buffｅr+３

　 ＭＯＶ R7,＃3

　 ACＡＬL ＢlaｃkDｉsplａy ;將高位 0 消隱

　MOV R０,#bｕｆfer

　 LＣAＬＬ Diｓpｌay８

　 SJMP SＴAＲT1

　BlackDi ｓplay：

　ＭＯＶ A,R0 ;將高位 0 消隱

　JNZ Eｘit

　 ＭOV A,＃10Ｈ

　 MOV R０,Ａ

　 ＤEＣ R0

　 DJNZ R7, Ｂ l ａ c ｋDisplａy

　Exiｔ: JB F0，Exit1

　 INC R0

　 ＭOV R0,＃11Ｈ ;負數標志 Ｅxit1: RET

　 B1toB2: PUSH ACC

　ＡNL A,#0FH

　 ＭOV R０,Ａ

　 ＩNC R0

　 ＰOP ACC

　 ＡNＬ A,＃0F0Ｈ

　 SＷAP A

　 MOV Ｒ０,A

　 INC R0

　 RET

　 BlackDispl ａy：

　MOＶ A,R0

　 JＮZ Ｅｘit

　 MOV A，#１0Ｈ

　 MOV R0，A

　 DEC R0

　 ＤＪNZ R7,ＢｌacｋＤisｐｌａy

　Exit：

　RET

　 EＮD

　四 實驗四 數制進十轉數制進六十節字四? 四字節十六進制數轉十進制數

　一、實驗目得

　進一步熟悉５1 匯編指令，了解十六進制數轉十進制數得方法. 二、實驗內容

　從鍵盤上輸入 8 位十六進制數,實現四字節十六進制數轉８位十進制數，并在數碼管上顯示。注意輸入數據必須在０0000000H～0５F０0000H 范圍,否則，結果超出８位十進制數，無法正確顯示。

　三、程序框圖

　初始化堆棧開始設定"先清LED,再接收鍵輸入"標志通過鍵盤獲得4字節十六進制數置位"接收到第一個鍵后,才清除LED"標志十六進制轉十進制子程序顯示開始0→R4,R5,R6,R7(用于存放壓縮BCD碼)32→B(循環次數）CLR

　 C四字節十六進制數帶進位左移一位(R4R5R6R7)×2+進位位C→(R4R5R6R7)，同時進行十進制調整主程序 十六進制轉十進制子程序NY返回B-1=0？ 四、實驗步驟

　、1

　:明說線連?D３區 :CＬK -- B2 區:2M D3 區 ：CS -— A３區:CS5 D３區 :A0 —- A３區:A0 2、在 F４區得鍵盤上輸入 8 位十六進制數 3、結果顯示在 F4 區得數碼管上 五、程序清單

　 ?EXTRＮ COＤE(Ｄｉｓplay８, GeｔKey) Ｂｕffｅr ＤATＡ 30H ；8 字節顯示緩沖區 Ｆ１ BIＴ 0D1H ；PSＷ、1

　ORG 0０0０H

　 LJMP SＴARＴ

　 OＲG ０100H

　STARＴ: MＯＶ ＳP，#60Ｈ

　 ＣＬR F１ ；先清除顯示,再接收鍵輸入 STARＴ1: MＯＶ Ｒ0,#buffeｒ

　 MOV A,#8 ;按鍵次數

　LCALL GｅtKey ；得到４字節十六進制數

　SETＢ Ｆ1 ;接收到第一個鍵后，才清除顯示

　MOＶ R0,bｕｆfer

　 ＭＯV R1,buffｅr+１

　 ＭOV R２，buffer＋2

　 ＭOV R3，ｂuffer＋3

　 ACALＬ B4tｏD4 ；轉換成十進制數 Disｐlａy: MOV R0,＃buｆｆｅr ;顯示結果

　ＭＯV A，Ｒ７ ;低位

　 ACＡLL Ｂ１ｔｏB２ ;壓縮ＢCD 碼轉換成非壓縮ＢCD 碼

　ＭOV A,R6

　 ＡCAＬＬ B１tｏB2

　 MOV A, R5

　 ＡCALL Ｂ１toB２

　 ＭＯＶ A，R4 ;高位

　Ａ Ｃ Ａ ＬＬ B1tｏＢ2

　 ＭOV R0，#ｂuffｅr＋7

　 MOV R7，＃7

　 ＡＣAＬL ＢｌackＤisplay ；將高位０消隱

　MＯＶ R0,#buffer

　 LCAＬL Diｓｐlａy8

　 SJMP START1

　；四字節十六進制數轉十進制數:Ｒ0Ｒ1R2Ｒ３為十六進制,R４R５Ｒ6R７為壓縮 BCＤ碼 B4ｔoD4:

　ＣLＲ A

　 MＯV R4，A

　 MOV R５，Ａ

　 MOV Ｒ6,A

　 MOＶ Ｒ7，A

　 ＭOＶ B，#32

　ＬOＯP：

　CLＲ C

　 ＭOV A，R3

　 RLＣ Ａ

　 ＭＯＶ R3,Ａ

　 MOＶ A,Ｒ2

　 ＲLＣ A

　 MOV R２，A

　 MOV A，R１

　 RＬC Ａ

　 MOV R1，Ａ

　 MOV Ａ,R0

　 RLC A

　 ＭOV R0,A

　 MＯV A,R7

　 AＤDC Ａ，R７

　 ＤＡ A

　 MOV R7,A

　 MOV A,R6

　 ＡDＤＣ A,Ｒ６

　 ＤＡ A

　 MＯＶ R６,Ａ

　 MOV A,R5

　 ＡDDC A，R５

　 DA A

　 MOV R5,Ａ

　 MＯＶ Ａ,R4

　 AＤDＣ A,R4

　 ＤA A

　 ＭOＶ R4,A

　 DＪNZ Ｂ，LＯOＰ

　 RET

　 B1toＢ2: PUSH ＡCC

　 AＮL A,#0FＨ

　 ＭOV R0，A

　 INC R0

　 POP ACC

　 ANL A，#0Ｆ0H

　 SWAP A

　 MＯV Ｒ0，Ａ

　 IＮC R０

　 RＥT

　 ＢlaｃkDispｌay: ＭOV A,Ｒ０ ；將高位 0 消隱

　JNＺ Exit

　 ＭＯV A,#10H

　 MＯＶ R0，A

　 DEC Ｒ0

　 DJNZ R7, Ｂ lac ｋDisplay

　Exit: RＥT

　 END

　五 實驗五 節字雙? 雙字節 D BCD 碼( ( 十 進制數) ) 乘法

　一、實驗目得

　進一步熟悉５1 匯編指令,掌握匯編語言得設計與調試方法.根據程序流程圖,自己設計程序,了解如何調用系統提供得子程序。

　二、實驗內容

　從鍵盤上輸入 4 位被乘數、乘數，實現四位十進制數得乘法,結果顯示在數碼管上。

　三、程序框圖

　開始初始化堆棧設定"先清LED再接收鍵輸入"標志通過鍵盤獲得4位十進制被乘數轉換成二進制數并壓棧暫存置位"接收到第一個鍵后,才清除LED"標志通過鍵盤獲得4位十進制乘數轉換成二進制數(R2R3)被乘數出棧(R0R1)雙字節十六進制乘法子程序十六進制結果轉十進制壓縮BCD碼轉非壓縮BCD碼將高位0消隱顯示雙字節BCD乘法程序框圖

　(R0)(R1) × (R2)(R3)(R3R1H)(R3R1L)(R3R0H)(R3R0L)(R2R1H)(R2R1L)(R2R0H)(R2R0L)R0

　 R1

　 R2

　 R3+雙字節十六進制乘法示意圖

　四、實驗步驟

　、１

　:明說線連?Ｄ3 區 :CLK -— Ｂ２區：2M Ｄ3 區 :ＣS -— A３區:CS5 Ｄ３區 :A0 —— A3 區:A０ 2、在Ｆ4 區得鍵盤上輸入 4 位被乘數、乘數 3、結果顯示在 F4 區得數碼管上 五、程序清單

　 EＸTRN CODE(Dｉsplay8， GｅtBCDＫeｙ）

　Ｂufｆｅr DATA ３０H ；８字節顯示緩沖區 F1 BＩT 0Ｄ1H ;PSW、1

　ＯRＧ ０000H

　 LJMP START

　 ORG 010０H

　STAＲＴ: MOV SP,#60Ｈ

　 CLR F1 ;先清除顯示，再接收鍵輸入 STＡRＴ1: MOV R0，#buｆｆer

　 ＭOＶ A，#4 ;按鍵次數

　LＣALL ＧetＢＣＤＫey ;得到雙字節十進制數(被乘數)

　ＭOＶ R0，#ｂuffer

　 AＣAＬＬ D4tｏＢ2 ;轉換成二進制數

　PＵSＨ ０2H

　 PUＳH 03H

　 SEＴB F１ ；接收到第一個鍵,才清除顯示

　ＭOV R0，#buffeｒ

　 MＯV A,＃４ ;按鍵次數

　ＬCALL GｅｔBCDKｅｙ ；得到雙字節十進制數(乘數)

　MOV R0，#buffeｒ

　 ＡCＡＬL D4tｏB２ ;轉換成二進制數

　POP 01H

　 POP 00H

　 ACＡLL WｏrdMｕl ;(Ｒ0R1）＊（R２R3)=R０R１R2R3

　AＣAＬＬ Ｂ4toD4 ;轉換成十進制數 Disｐlaｙ: MOV R０，#buffer ；顯示結果

　ＭOＶ A，Ｒ7 ；低位

　ACＡLＬ Ｂ1ｔoB２ ;壓縮 BＣD 碼轉換成非壓縮 BＣD 碼

　MOV Ａ,Ｒ6

　 ACALL B1toB２

　 MOV A, Ｒ5

　 ACALL B1toB2

　 MOＶ A，R４ ；高位

　ACAＬL Ｂ1toB2

　 ＭOV R0，#buｆfeｒ＋7

　 ＭOV R7,#７

　 ACALL BlacｋDispｌａy ；將高位 0 消隱

　MOＶ R0，#buffer

　 ＬＣＡLL Display８

　 SJＭP STAＲＴ1

　;雙字節十六進制數乘以雙字節十六進制數子程序 WordMul：

　MＯV A,Ｒ3 ; （

　)1R()0R? MOV B，R１ ;

　×

　 （R2）(R3)

　MUL AＢ ;—- － ---—-———-—— －——————－--———

　ＸＣＨ A,R3 ；

　 (Ｒ3R１H)(Ｒ3Ｒ1L)

　MＯV Ｒ7,Ｂ ;

　 （R3Ｒ0H)(R3R0L)

　MOV B,R0 ;

　 (Ｒ2R1H）(Ｒ２R1L）

　MUL AB ;（Ｒ2R0H)（R2R0L)

　ADD A，R7 ； — － － --——-— －————-—-—----－－————-－——

　MＯV Ｒ7,A ；

　R0

　 R１

　 R2

　 R3

　CLＲ A

　 ADDC A,B

　 XＣH Ａ,R1

　 MOV B，Ｒ２

　 ＭＵＬ AB

　 ＡDD A，R７

　 XCH A,Ｒ2

　 ＰＵSH AＣC

　 MOＶ A,B

　 ADDＣ A,R1

　 MOV Ｒ１，A

　 ＣLR A

　 RLC A

　 XＣH Ａ,R0

　 ＰOP B

　 MUL ＡB

　 AＤD A,Ｒ1

　 ＭOV R1,A

　 MOＶ Ａ,R０

　 ＡＤＤC A,Ｂ

　 MOＶ R０，Ａ

　 REＴ

　 ;雙字節十進制數轉二進制數 ,R０-—指向雙字節十進制數，結果在 R2Ｒ3 中 Ｄ4toＢ２: MOV A,R0

　 ANL A,＃0FH

　 XＣＨ Ａ，R0

　 ANL Ａ,＃0F0H

　 ＳWＡＰ A

　 MOＶ B,＃１0

　 MUL AＢ

　 ADD A，Ｒ０

　 ＩＮC R0

　 MOV B,#10

　 MUL AB

　 ＭＯV R2，B

　 MOＶ R3,A

　 MOV A，R０

　 ＡNL A，#０FH

　 ＸＣＨ A,R0

　 ＡＮL A，#0F０Ｈ

　 SWＡP A

　 ADD A，R3

　 ＸCH Ａ,R2

　 ADDC A，#0

　 MOV B，＃10

　 MUL AB

　 XCH A,Ｒ２

　 MOV B,＃1０

　 MUL ＡＢ

　 ADD A,R０

　 MＯV R３,A

　 ＭOV A，R２

　 ADDC Ａ,B

　 MＯV R2，A

　 ＲET

　 B１toＢ2：

　PUＳＨ ＡCC

　 AＮL Ａ，#0FＨ

　 MOV R0,Ａ

　 IＮC Ｒ0

　 ＰOP ACC

　 ANL Ａ，＃0F０H

　 SＷAP A

　 ＭOV R0，A

　 INC R0

　 RET

　 BlackDisplay: MOＶ A,R０ ;將高位 0 消隱

　JNZ Exｉt

　 MOV A,＃10Ｈ

　 MOV R０，A

　 DＥC R０

　 DJNZ Ｒ７,BlaｃkDｉｓpｌay

　B4ｔoD４：

　? CLR A

　 MOV R4,A

　 ＭOV R５，A

　 MOV R６,A

　 MOV R7,A

　 MOV B,＃３2

　Eｘｉt: REＴ EＮD 實驗六

　雙字節ＢC C Ｄ碼除于單字節 D BCD 碼

　一、實驗目得

　進一步熟悉 51 匯編指令,掌握匯編語言得設計與調試方法.自己設計程序，了解如何調用系統提供得子程序。

　二、實驗內容

　從鍵盤上輸入 4 位被除數、二位除數，實現雙字節 BCＤ碼除于單字節ＢＣD 碼,結果顯示在數碼管上。

　三、程序框圖

　開始初始化堆棧設定"先清LED,再接收鍵輸入"標志通過鍵盤獲得4位被除數,轉換為十六進制數并暫存通過鍵盤獲得單字節除數，轉換為16進制數顯示子程序置位"接收到第一個鍵后,才清除LED"標志單字節除法:被除數的高字節除以除數,結果為最終商的高8位雙字節除以單字節（商為16位）雙字節除以單字節(商只有8位)子程序最終獲得結果（16位的商，8位余數）雙字節除以單字節(商為16位)子程序循環次數8→R716位被除數(R2,R3)帶進位左移一位(最低位補0， C →F0)R2-除數(B)F0=1？C=1？差→R2，R3自加1R7-1=0?雙字節除以單字節(商為8位)子程序開始 開始返回返回主程序YYYNNN雙字節BCD除法程序框圖 四、實驗步驟

　 1、連線說明：

　D3 區 :CLＫ —— B2 區：2Ｍ D3 區 ：ＣS -- A３區:ＣＳ5 Ｄ3 區 ：A0 —— A3 區:Ａ0 2、在 F4 區得鍵盤上輸入 4 位被乘數、乘數 3、使用各種手段調試程序 4、結果顯示在 F4 區得數碼管上 單 五、程序清單 ??

　 ?EXＴRＮ ? CODE(Diｓplay８, GetBCDKｅy) Buffｅr DＡTA ３0Ｈ ;8 字節顯示緩沖區 F1 BIT 0D１Ｈ ;PSW、1

　ＯRＧ 0000H

　 LJＭP STARＴ

　 OＲG 0１0０Ｈ

　SＴＡRT: MOＶ ? SP,＃60H

　 CLR F1 ;先清除顯示,再接收鍵輸入 ＳTAＲT1: MOV R0,＃bｕffer

　 ＭOV A,#4 ;按鍵次數

　LCALL ＧｅtBＣDＫey ;得到雙字節十進制數(被除數)

　SETB F1 ；接收到第一個鍵,才清除顯示

　MＯＶ R0,＃buffer

　 ACＡＬL Ｄ4tｏB２ ;轉換成二進制數

　ＭOＶ R0，#ｂuffer

　 MOＶ A,#2

　 LCALL GｅtBCDKey ；得到 1 字節十進制數（除數)

　MＯＶ R0,#bｕfｆｅr

　 ACＡLL D２toB２ ;轉換成二進制數

　JNＺ SＴＡRＴ２

　 ACALL DｉsplayＥrrｏr ;除數為０,出錯

　SJＭP ＳTARＴ

　ＳＴARＴ２：

　ACALL B2_DIＶ_B1 ;被除數 / 除數

　ACAＬL Dispｌaｙ ；顯示商與被除數

　SJＭP STＡRT1

　； 雙字節除于單字節,R2R３為 1６位二進制數,B 為除數,商在 R2R３中, 余數在 A 中 B2_DIV_B1：

　PUSＨ B

　 MＯV A,R2

　 ＤＩＶ AB

　 MＯV R2，B

　 ＰOP Ｂ

　 PUＳＨ ＡCC

　 CＡLL ＤIV_B２_Ｂ１

　 ＰOP AＣＣ

　 ＸCH Ａ,R2

　 ＲET

　 ;雙字節除于單字節,R2R3 為被除數,Ｂ為除數,結果:商 R3 中，余數在 R２中 DIV_B2＿B1: MＯV Ｒ7，#８ ;雙字節除于單字節 DＩV2: CLＲ Ｃ ;R2R3 為被除數,B 為除數,

　MOＶ A，R３ ;結果：商Ｒ3 中，余數在 R2 中

　ＲLC ? A

　 MＯＶ R3,A

　 ＭOＶ A,Ｒ2

　 RLC A

　 MＯV R2,A

　 MＯV F0,Ｃ

　 CLR Ｃ

　 ＳＵBB A,B

　 ＪB F０，ＤIV3

　 JC DＩＶ4

　DIV３: ＭOV R2,A

　 ＩＮＣ ? R3

　DIV4: DＪNZ R７，DＩＶ2

　 RET

　 ;4 字節二進制數轉十進制數,R2R3 為 1６位二進制數,R4R５R６為壓縮ＢＣD 碼 B２toD5：

　CLＲ

　Ａ

　 MOV R４,A ;

　MOV Ｒ5,A

　 ＭOＶ Ｒ6，A

　 ＭOＶ R7，＃16

　LOOP：

　ＣLR ? C

　 MOV A,R３

　 RLC ? A

　 MOV R3,A

　 MＯＶ A，R2

　 RＬＣ ? A

　 MＯV Ｒ２，Ａ

　 MＯＶ A,R6

　 ADDC A,R6

　 DA ? Ａ

　 ＭOV R6，A

　 MOV A,R5

　 ADＤＣ A，Ｒ5

　 DA ? Ａ

　 ＭOV R５,A

　 MOV Ａ，R4

　 ＡDDC

　Ａ,R4

　 DＡ ? A

　 MＯV R4，A

　 DＪNＺ Ｒ７,ＬOＯP

　 ＲET

　 Ｄ2toB2: MOV A,Ｒ0 ；1 字節十進制數轉二進制數

　ANＬ A,#０FH ；Ｒ０——指向 1 字節十進制數,結果在Ｂ中

　XCH A，R０

　 ANL A，＃0F0Ｈ

　 ＳＷAP Ａ

　 MＯV B,#1０

　 MUL AB

　 ＡDD A，R０ ；轉換成二進制數

　MＯＶ B,A

　 RＥT

　 Ｄｉsplaｙ：

　ＰUSH ACＣ ;商在低四位,余數在高三位

　AＣＡLL B2toD５ ;二進制數轉十進制數

　MＯV R0,＃buffer

　 MOV Ａ，R６

　 ACALＬ B1toB2 ;壓縮ＢCＤ碼轉換成非壓縮 BCD 碼

　ＭＯV A，R5

　 ＡCALL B１toＢ2

　 ＤＥC R０

　 MOV R７,＃3

　 ACALＬ BlaｃkＤｉsplａy ;將高位０消隱

　MOV bｕffｅr＋4,#10H ；消隱

　 MOV R0，＃buffｅｒ＋7

　 POＰ ? ＡCC

　 MOＶ

　B,＃１00

　 ＤIV ? AＢ

　 MOＶ R0，Ａ

　 DＥC R0

　 MＯV Ａ,B

　 MOＶ Ｂ，#1０

　 DIV ? AB

　 ＭOＶ R0，A

　 DEC R0

　 MOＶ Ｒ０，B

　 MOＶ R0，#ｂuｆfer+7

　 MOV R7，＃2

　 ACＡLL BｌａckDispｌay ；將高位 0 消隱

　ＭＯV R0,#bｕｆfeｒ

　 LＣALL Ｄisplay８

　 ＲET

　 Displa ｙ E ｒror：

　MOV

　R0,#buffｅr

　 MOV Ｒ7，＃8

　 MＯＶ A,#0ＦH

　DisｐlayEｒrｏr1：

　MＯV ? R０，A

　 INC ? R0

　 DJＮZ R７，ＤｉｓｐlayＥrrｏr1

　 MOV Ｒ0，＃buffｅr

　 ＬCALL Dispｌａy8

　 RＥT

　 D4ｔoB2：

　MOＶ A，R0

　 ANL A,＃０ＦH

　 ＸＣH A，R０

　 ANＬ A，＃０F0H

　 SWAP A

　 MOV B，#10

　 ＭＵL AＢ

　 ADD A,R0

　 ＩNC Ｒ０

　 MＯV Ｂ,#1０

　 MUＬ AB

　 MOV R2,B

　 MOV R3,A

　 MＯV A,R0

　 ＡNL A,#0FH

　 XCH Ａ,R０

　 ＡNL A,#0F０H

　 SＷAP Ａ

　 ADD A,R３

　 ＸCH A,R2

　 ＡDＤC Ａ，#０

　 MOV Ｂ，＃10

　 MUL AB

　 XＣH A,R2

　 MOＶ Ｂ,#10

　 MUＬ AB

　 ADD A,R0

　 MOV R3，A

　 MOV A,R2

　 AＤDC A,B

　 ＭOV R２,Ａ

　 RET

　 B1toＢ２：

　PUSＨ ＡCC

　 AＮＬ Ａ,＃0ＦH

　 MOV Ｒ0,A

　 IＮＣ Ｒ0

　 PＯP ACＣ

　 ANL A,#０Ｆ0H

　 SWAＰ A

　 MOV R0,A

　 IＮＣ R0

　 REＴ

　 Blac ｋ Ｄ i ｓplay：

　MOＶ A，R0 ；將高位０消隱

　JNZ Exit

　 MOＶ A，#10H

　 MＯＶ R０,Ａ

　 DEC R0

　 DＪＮＺ Ｒ 7 ， Bl ａ ckD ｉsplaｙ

　END

　實驗八

　冒泡排序

　一、實驗目得

　熟悉使用 MCS51 指令,掌握匯編語言得設計與調試方法,了解如何使用高效方法對數據排序． 二、實驗內容

　。列排新重大到小從據數組一將法泡冒用使求要,序程序排個一試調并寫編?

　三、程 序框圖

　開始初始化堆棧將待排序數組轉移到內部30H開始的RAM中數據數-1→R7，數據交換標志bSort=0

　PUSH

　07H被比較數地址R0=30H比較數地址R1=R0+1DEC

　 R7@R0>@R1?@R0與@R1互換1→bSortINC R0INC R1POP R7R7=R7-1 R7=0?bSort=0?結束NNNYYY冒泡排序程序框圖 四、實驗步驟

　 。列排序順得大到小從按否是就據數中 HF3~H03 ＭAＲ部內查檢,序程試調式方點斷用使?單 五、程序清單 ? ?bSｏrｔ BIＴ F0

　 OＲＧ 0000Ｈ

　 LＪMＰ ＳTAR

　 ＯRG 010０H

　STＡR: MOV SP,＃60H ；堆棧

　MOV R0,#30H ；存放待排序數據得首地址

　MＯV R7，＃16 ；數據個數

　MOV DPTR，#TAＢ＿１

　ＳTAR1：

　ＣLR A

　 ＭOVＣ A，A＋DＰＴR

　 ＭOＶ Ｒ０，Ａ ;將數據移入內部 RAＭ中

　INC R0

　 IＮC DPTR

　 DＪNＺ R7,SＴAR1

　 MＯＶ R７，＃１６-1 ;存放比較次數 STAR2: PUSH ０７Ｈ

　 ＭOＶ R0,＃３0H ；存放啟始地址

　CLR bSort

　 MOV R1，00H

　 INＣ R１

　 MＯV A，R0

　STＡR3：

　ＭOＶ Ｂ，A

　 MOV A,R1

　 CJNE A，B，$+3

　 JNＣ

　SＴＡR5

　 XＣH A，R0

　 ＭＯＶ R1，Ａ

　 SEＴB ｂＳorｔ

　ＳＴＡR５: INC R０

　 INＣ R1

　 DJNZ R7,STAＲ3

　 POP 07Ｈ

　 ＪNB bSorｔ,Ｅｘiｔ

　 ＤEＣ R7

　 ＳJMP SＴAR２

　Exit:

　SJMP $

　TAB＿1：

　DB 0Ｈ，5Ｈ，6Ｈ,3H,8H，９2H，0４H，57Ｈ,４6H，０1H,０FＦH,0A0H,45H，99H,55H，66H

　END

推薦訪問： 單片機 實驗 報告