單片機(jī)雙字節(jié)BCD碼乘法

單片機(jī)雙字節(jié)BCD碼乘法單片機(jī)雙字節(jié)BCD碼乘法單片機(jī)雙字節(jié)BCD碼乘法V:1.0精細(xì)整理，僅供參考單片機(jī)雙字節(jié)BCD碼乘法日期：20xx年X月集美大學(xué)計(jì)算機(jī)工程學(xué)院實(shí)驗(yàn)報(bào)告課程名稱單片機(jī)應(yīng)用技術(shù)實(shí)驗(yàn)名稱雙字節(jié)BCD碼乘法以及數(shù)據(jù)排序?qū)嶒?yàn)實(shí)驗(yàn)類型設(shè)計(jì)型姓名學(xué)號(hào)日期地點(diǎn)成績(jī)教師評(píng)語(yǔ)：

1.實(shí)驗(yàn)?zāi)康呐c要求進(jìn)一步熟悉51匯編指令，掌握匯編語(yǔ)言的設(shè)計(jì)和調(diào)試方法。設(shè)計(jì)十進(jìn)制乘法程序，了解如何調(diào)用系統(tǒng)提供的內(nèi)置數(shù)碼顯示，鍵盤輸入子程序。熟悉如何高效方法對(duì)數(shù)據(jù)排序2.實(shí)驗(yàn)設(shè)備STAR系列實(shí)驗(yàn)儀、PC機(jī)、星研集成軟件環(huán)境3.實(shí)驗(yàn)內(nèi)容1.從鍵盤上輸入4位被乘數(shù)，乘數(shù)，實(shí)現(xiàn)4位十進(jìn)制數(shù)的乘法，結(jié)果顯示在數(shù)碼管上。2.調(diào)試狀態(tài)下借助星研集成軟件直接修改RAM30H-3FH的單元，數(shù)值任意，然后對(duì)其排序，檢查排序結(jié)果。4.實(shí)驗(yàn)硬件電路及接線E5區(qū)：A0——A3區(qū)：A0E5區(qū)：A、B、C、D——G5區(qū)：A、B、C、D5，程序流程圖6，程序源代碼EXTRNCODE(DISPLAY8,GETBCDKEY)BUFFER1 DATA30H ;鍵盤輸入緩沖區(qū)BUFFER2 DATA40H ;8字節(jié)顯示緩沖區(qū)BUFFER3DATA50H ;結(jié)果地址BUFFER4DATA60H ;棧緩沖區(qū)ORG0000H LJMPMAINORG0100HMAIN: CLRMOVR0,#BUFFER1MOVA,#04H LCALLGetBCDKeyMOVR0,#BUFFER4+3MOVA,BUFFER1 LCALLDECOMPDECR0MOVA,BUFFER1+1 LCALLDECOMP MOVR0,#BUFFER4+3 LCALLBCD2B MOVR6,BUFFER3;BUFFER3為低4位MOVR7,BUFFER3+1;BUFFER3+1為高4位 CLRMOVR0,#BUFFER1MOVA,#04H LCALLGetBCDKeyMOVR0,#BUFFER4+3MOVA,BUFFER1 LCALLDECOMPDECR0MOVA,BUFFER1+1 LCALLDECOMPMOVR0,#BUFFER4+3 LCALLBCD2B MOVR5,BUFFER3+1MOVR4,BUFFER3 MOVR0,#BUFFER3 LCALLMLTY MOVR3,BUFFER3MOVR2,BUFFER3+1MOVR1,BUFFER3+2MOVR0,BUFFER3+3 LCALLB2BCD MOVR0,#BUFFER2+7MOVA,R4 LCALLDECOMPDECR0MOVA,R5 LCALLDECOMPDECR0MOVA,R6 LCALLDECOMPDECR0MOVA,R7 LCALLDECOMPMOVR0,#BUFFER2+7 CLRCMOVA,@R0 SUBBA,#00JNZSHOWMOVBUFFER2+7,#10HSHOW:MOVR0,#BUFFER2 LCALLDISPLAY8 SJMP$ DECOMP:;A中壓縮BCD碼轉(zhuǎn)化成非壓縮BCD碼，結(jié)果存放在R0結(jié)束的兩個(gè)字節(jié)，高位放H位BCD低位放L位BCDPUSHACC SWAPA ANLA,#0FHMOV@R0,APOPACC ANLA,#0FHDECR0MOV@R0,ARET BCD2B:;R0結(jié)束的4位BCD碼轉(zhuǎn)化成二進(jìn)制存在BUFFER3開始的兩個(gè)字節(jié)MOVBUFFER3,#00HMOVBUFFER3+1,#00HMOVR3,#4;四個(gè)字節(jié)LOOP: CLRCMOVA,BUFFER3 RLCAMOVBUFFER3,AMOVBUFFER3+2,AMOVA,BUFFER3+1 RLCAMOVBUFFER3+1,A;結(jié)果左移一位MOVBUFFER3+3,A MOVR2,#2LOOP1: CLRCMOVA,BUFFER3 RLCAMOVBUFFER3,AMOVA,BUFFER3+1 RLCAMOVBUFFER3+1,A;結(jié)果左移一位 DJNZR2,LOOP1 ;整體左移2位 CLRCMOVA,BUFFER3+2;取移一位的值A(chǔ)DDA,BUFFER3MOVBUFFER3,AMOVA,BUFFER3+3 ADDCA,BUFFER3+1MOVBUFFER3+1,A;結(jié)果*10 MOVA,@R0;先取12的1后取2DECR0 CLRCADDA,BUFFER3MOVBUFFER3,AMOVA,#00H ADDCA,BUFFER3+1MOVBUFFER3+1,A;結(jié)果*10+1 DJNZR3,LOOP RETMLTY:MOVA,R6MOVB,R4MULABMOV@R0,AMOVR3,BMOVA,R7MOVB,R4MULABADDA,R3MOVR3,AMOVA,B ADDCA,#00HMOVR2,AMOVA,R6MOVB,R5MULABADDA,R3INCR0MOV@R0,AMOVA,R2 ADDCA,BMOVR2,AMOVR1,#00HJNCNEXTINCR1NEXT:MOVA,R7MOVB,R5MULABADDA,R2INCR0MOV@R0,AMOVA,B ADDCA,R1INCR0MOV@R0,ARET ;字節(jié)二進(jìn)制數(shù)轉(zhuǎn)十進(jìn)制數(shù);R0R1R2R3為二進(jìn)制數(shù)，R4R5R6R7為壓縮BCD碼B2BCD: CLRAMOVR4,AMOVR5,AMOVR6,AMOVR7,AMOVB,#32LOOPB2:CLRCMOVA,R3 RLCAMOVR3,AMOVA,R2 RLCAMOVR2,AMOVA,R1 RLCAMOVR1,AMOVA,R0 RLCAMOVR0,AMOVA,R7 ADDCA,R7 DAAMOVR7,AMOVA,R6 ADDCA,R6 DAAMOVR6,AMOVA,R5 ADDCA,R5 DAAMOVR5,AMOVA,R4 ADDCA,R4 DAAMOVR4,A DJNZB,LOOPB2RETEND 2.冒泡排序 ORG1000HBUBBLE:MOVR0,#30HMOVR2,#64CLR7FHDECR2BULOOP:MOV20H,@R0MOVA,@R0INCR0MOV21H,@R0