【文章內(nèi)容簡(jiǎn)介】 C A,@A+DPTR 。查段碼 MOV P0,A 。從P0輸出 MOV A,R5 。讀入掃描字 JB ,PLAY1 。不試視為L(zhǎng)ED,不顯示小數(shù)點(diǎn) CLR 。試十位,顯示小數(shù)PLAY1: LCALL DL1MS 。點(diǎn)亮1ms INC R1 。指向下一顯示數(shù)據(jù) JNB ,ENDOUT 。是第4位LED，退出 RL A 。不是，左移一位 MOV R5,A 。放回R5 SETB 。關(guān)小數(shù)點(diǎn) AJMP PLAY 。轉(zhuǎn)PLAY循環(huán)ENDOUT: MOV P2,0FFH 。顯示結(jié)束，關(guān)顯示輸出口 MOV P0,0FFH 。 RET。 數(shù)控調(diào)頻發(fā)射器的頻率控制 51單片機(jī)與BH1415的通信A、數(shù)據(jù)信號(hào)發(fā)送方式：B、數(shù)據(jù)內(nèi)容說(shuō)明：與BH1415通信采用串行通信，、用于傳送發(fā)射頻率控制數(shù)據(jù)。采用12MHZ晶振，模擬串口通訊。程序設(shè)計(jì)流程圖如圖17所示:圖17 單片機(jī)與BH1415通信程序流程圖一、將BCD碼轉(zhuǎn)為十六進(jìn)制數(shù)程序。將BCD碼轉(zhuǎn)為十六進(jìn)制數(shù)程序BCDB: MOV CONBITL,00H ?？刂谱智? MOV CONBITH,00H ?？刂谱智? MOV CONBITL,26H 。小數(shù)位數(shù)放入控制子低8位 MOV A,27H 。個(gè)位數(shù)乘10操作 MOV B,10 LCALL MULLOOP 。調(diào)乘法子程序 MOV ,28H 。十位數(shù)乘100財(cái)足以 MOV B,100 LCALL MULLOOP 。調(diào)乘法子程序 MOV A,29H 。 JNZ ADD3E8 。百位數(shù)位1轉(zhuǎn)ADD3E8(加1000操作） RET 。百位數(shù)為0退出ADD3E8: CLR C 。清進(jìn)位檔標(biāo)志 MOV A,0E8H 。低8位加法 ADD A,CONBITL 。累加 MOV CONBITL,A 。放回CONBITL MOV A,03H 。高8位加法 ADDC A,CONBITH 。控制字高8位處理 RET。乘法累加處理程序(將四位顯示的十進(jìn)制BCD碼轉(zhuǎn)位1個(gè)二進(jìn)制數(shù)）MULLOOP: MUL AB 。乘法 CLR C 。清進(jìn)位標(biāo)志 ADD A,CONBITL 。積低8位與CONBITL相加 MOV CONBITL,A 。放回CONBITL MOV A,CONBITH 。 ADDC A,B 。 積高8位與CONBITH帶進(jìn)位累加 MOV CONBITH,A 。放回CONBITH RET。頻率控制數(shù)據(jù)與5位控制碼合成BH1415F控制字CONCOMMAND: ANL CONBITH,07H 。高4位為0 MOV A,20H 。控制字放入A ORL A,CONBITH 。合成控制字 MOV CONBITH,A 。放回CONBITH RET 二、發(fā)送控制字節(jié)子程序。。。。發(fā)送控制字節(jié)子程序 。。。。PUTBIT: MOV A,CONBITL 。低8位控制字入A SETB 。BH1415F使能 LCALL PUT 。發(fā)送8位 MOV A,CONBITH 。高8位控制字入A LCALL PUT 。發(fā)送8位 CLR 。BH1415F寫(xiě)禁止 CLR 。復(fù)位 CLR 。復(fù)位 RET。字節(jié)發(fā)送子程序PUT: MOV R3,8 。發(fā)送8位控制 CLR C 。清CPUT1: RRC A 。帶進(jìn)位位右移(先發(fā)低位) MOV ,C 。 NOP 。延時(shí)4us NOP 。 NOP 。 NOP 。 SETB 。鎖存數(shù)據(jù)（上升沿時(shí)鎖存數(shù)據(jù)） NOP 。延時(shí)4us NOP NOP NOP CLR 。 DJNZ R3,PUT1 。8位未發(fā)完轉(zhuǎn)PUT1再發(fā) RET 。8位發(fā)完結(jié)束。513us 延時(shí)子程序DL513: MOV R3,0FFHDL513LOOP: DJNZ R3,DL513LOOP RET。1ms延時(shí)子程序(LED點(diǎn)亮用)DL1MS: MOV R4,02HDL1MSLOOP: LCALL DL513 DJNZ R4,DL1MSLOOP RET。10ms延時(shí)子程序(消抖用)DL10MS: MOV R6,0AHDL10MSLOOP: LCALL DL1MS DJNZ R6,DL10MSLOOP RET。 數(shù)控調(diào)頻發(fā)射器程序。。。數(shù)控調(diào)頻發(fā)射器控制器。。。。26H~29H存放顯示小數(shù)位、個(gè)位、十位、百位BCD碼數(shù)，24H~25H存放頻率控制數(shù)據(jù)（16進(jìn)制)。 CONBITL EQU 21H 。頻率控制字節(jié)低8位 CONBITH EQU 22H 。頻率控制字節(jié)高8位 KEYWORD EQU 23H 。存放鍵掃描試P1口值。 ORG 0000H 。程序開(kāi)始地址 LJMP START 。轉(zhuǎn)STAR執(zhí)行 ORG 0003H 。 RETI 。不用中斷程序 ORG 000BH 。 RETI 。不用中斷程序 ORG 0013H 。 RETI 。不用中斷程序 ORG 001BH 。 RETI 。不用中斷程序 ORG 0023H 。 RETI 。不用中斷程序 ORG 002BH 。 RETI 。不用中斷程序。初始化程序CLEARMEN: MOV R0,20H 。20H~29H循環(huán)清0 MOV R1,0AH 。CLEARLOOP: MOV @R0,00H 。 INC R0 。 DJNZ R1,CLEARLOOP 。 MOV P0,0FFH 。4端口置1 MOV P1,0FFH 。 MOV P2,0FFH 。 MOV P3,0FFH 。 CLR 。BH1415禁止操作 CLR 。 CLR 。 LCALL KEYFUN15 。置立體聲發(fā)射方式CLEAR1: MOV PCON,00H ?？刂萍拇嫫髑? MOV 29H,00H 。置初始值位88MHZ（） MOV 28H,08H 。 MOV 27H,08H 。 MOV 26H,00H 。 LCALL DISPUTDAT 。寫(xiě)入BH1415芯片（修改發(fā)射頻率） RET 。子程序返回。主程序START: LCALL CLEARMEN 。上電初始化MAIN: LCALL KEYWORK 。調(diào)查鍵子程序 LCALL DISPLAY 。LED顯示一次 AJMP MAIN 。轉(zhuǎn)MAIN循環(huán) NOP 。PC出錯(cuò)處理 NOP 。 AJMP START 。重新初始化KEYWORK: MOV P1,0FFH 。置P1口為輸入狀態(tài) CLR 。掃描第1行(第一行為0) MOV A,P1 。讀入P1口值 ANL A,0F0H 。低3位為0 CJNE A,0F0H,KEYCON。高4位不全位1（有鍵按下）轉(zhuǎn)KEYCON SETB 。掃描第二行（第二行位0） CLR 。 MOV A,P1 。讀入P1口值 ANL A,0F0H 。低4位位0 CJNE A,0F0H,KEYCON。高4位不全位1（uou鍵按下）轉(zhuǎn)KEYCON SETB 。掃描第三行（第三行位0） CLR 。 MOV A,P1 。讀入P1口值 ANL A,0F0H 。低4位位0 CJNE A,0F0H,KEYCON 。高4位不全位1（有鍵按下）轉(zhuǎn)KEYCON SETB 。 掃描第三行（第三行位0） CLR 。 MOV A,P1 。讀入P1口值 ANL A,0F0H 。低4位為0 CJNE A,0F0H,KEYCON。4位不全位1（uou鍵按下）轉(zhuǎn)KEYCON SETB 。結(jié)束行掃描 RETKEYCON: LCALL DL10MS 。消抖處理 MOV A,P1 。再讀入P1口值 ANL A,0F0H 。低4位位0 CJNE A,0F0H,KEYCHE 。高四位不全位1,確有鍵按下,轉(zhuǎn)KEYCHEKEYOUT: RET 。干擾,子程序返回KEYCHE: MOV A,P1 。讀P1口值 MOV KEYWORD,A 。放入23H暫存CJLOOP: LCALL DISPLAY 。調(diào)顯示子程序 MOV A,P1 。讀P1口值 ANL A,0F0H 。低4位位0 CJNE A,0F0H,CJLOOP 。高4位全為1（鍵還按著），轉(zhuǎn)CJLOOP等待釋放 MOV R7,00H 。鍵釋放，置R7位00好（查表次數(shù)） MOV DPTR,KEYTAB 。取鍵表首地址CHEKEYLOOP: MOV A,R7 。查表次數(shù)入A MOVC A,@A+DPTR 。查表 XRL A,KEYWORD 。查表值與P1口讀入值比較 JZ KEYOK 。為0（相等）轉(zhuǎn)KEYOK INC R7 。不等,查表次數(shù)加1 CJNE R7,10H,CHEKEYLOOP 。查表次數(shù)不超過(guò)16次轉(zhuǎn)CHEKEYLOOP再查16次 RET 。退出。KEYOK: MOV A,R7 。查表次數(shù)入A（即鍵號(hào)值） MOV B,A 。放入B RL A 。左移 ADD A,B 。相加 MOV DPTR,KEYFUNTAB。取鍵功能散表首地址 JMP @A+DPTR 。 查表KEYFUNTAB: LJMP KEYFUN00 。鍵功能散轉(zhuǎn)表。跳至0好鍵功能 LJMP KEYFUN01 。跳至01號(hào)鍵功能程序 LJMP KEYFUN02 。跳至02號(hào)鍵功能程序 LJMP KEYFUN03 LJMP KEYFUN04 LJMP KEYFUN05 LJMP KEYFUN06 LJMP KEYFUN07 LJMP KEYFUN08 LJMP KEYFUN09 LJMP KEYFUN10 LJMP KEYFUN11 LJMP KEYFUN12 LJMP KEYFUN13 LJMP KEYFUN14 LJMP KEYFUN15 。跳至15