【正文】 MOV R4，90H MOV R6，87H MOV R7，00H MOV A，3CH XCH A，3AH XCH A，3CHDDV3：MOV R1，3AH MOV R0，18H INC R1 INC R1SD： CLR C MOV A，R7 RLC A MOV R7，A MOV A，R6 RLC A MOV R6，A MOV A，R5 RLC A MOV R5，A MOV A，R4 RLC A MOV R4，A XCH A，R3 RLC A XCH A，R3 XCH A，R2 RLC A XCH A，R2 MOV ，C CLR C SUBB A，@R1 DEC R1 MOV A，R3 SUBB A，@R1 DEC R1 MOV B，A MOV A，R2 SUBB A，@R1 INC R1 INC R1 JB ，SA JC SBSA： CLR C MOV R2，A MOV A，R4 SUBB A，@R1 MOV R4，A MOV R3，B INC R7SB： DJNZ R0，SD DEC R1 DEC R1 RET 轉(zhuǎn)速n放在R5，R6，R7中附錄三：按鍵程序鍵盤定義K1： REG 按鍵1引腳定義K2： REG 按鍵2引腳定義K3： REG 按鍵3引腳定義K4： REG 按鍵4引腳定義K5： REG 按鍵5引腳定義ORG 00H 程序代碼從0開始執(zhí)行LOOP：JB KEY1，L1 未按下KEY1鍵則繼續(xù)掃描 JNB KEY1， DELEY 若按下則等待放開 KEY1 KEYED 確定按下KEY1鍵 CALL DEL 處理KEY1鍵程序 JIMP LOOP 繼續(xù)掃描循環(huán)L1： JB KEY2，L2 未按下KEY2鍵則繼續(xù)掃描 JNB KEY2， DELEY 若按下則等待放開 KEY2 KEYED 確定按下KEY2鍵 CALL DEL 處理KEY2鍵程序 JIMP LOOP 繼續(xù)掃描循環(huán)L2： JB KEY3，L3 未按下KEY3鍵則繼續(xù)掃描 JNB KEY1， DELEY 若按下則等待放開 KEY3 KEYED 確定按下KEY3鍵 CALL DEL 處理KEY3鍵程序 JIMP LOOP 繼續(xù)掃描循環(huán)L3： JB KEY4，L4 未按下KEY4鍵則繼續(xù)掃描 JNB KEY4， DELEY 若按下則等待放開 KEY4 KEYED 確定按下KEY4鍵 CALL DEL 處理KEY4鍵程序 JIMP LOOP 繼續(xù)掃描循環(huán)L4： JB KEY5，L5 未按下KEY5鍵則繼續(xù)掃描 JNB KEY5， DELEY 若按下則等待放開 KEY5 KEYED 確定按下KEY5鍵 CALL DEL 處理KEY1鍵程序 JIMP LOOP 繼續(xù)掃描循環(huán)鍵盤處理程序DEL： MOV R7，14H 為去抖動，延時10msDEL0： MOV R6，0FFHDEL1： DJNZ R6，DEL1 DJNZ R7，DEL0 RET 延時結(jié)束CL1： LCALL WRITEX KEY1為寫數(shù)據(jù) LJMP K1CL2： ACALL ADD1 KEY2為加1 LJMP K2CL3： ACALL RL1 KEY3為循環(huán)左移 LJMP K3CL4： NOPADD1：INC 50H 加1子程序 MOV 38H，50H LCALL SHNOW JNB ，KY2 RET 加1子程序結(jié)束RL1： RL A 左移一位 MOV 38H，A LJMP SHNOW JNB ，KY3 RET KY2： ACALL DEL2 判斷是否繼續(xù)加1 JNB ，ADD1 RETKY3： ACALL DEL5 判斷是否左移一位 JNB ，SUB1 RETDEL2：MOV R7，68H 延時50msDEL3：MOV R6，0FFHDEL4：DJNZ R6，DEL3 DJNZ R7，DEL2 RETDEL5： MOV R7，68H 延時50msDEL6： MOV R6，0FFHDEL7： DJNZ R6，DEL6 DJNZ R7，DEL5 RET附錄四：顯示程序MOV SCDN， 00H 設(shè)置串行口工作方式0 MOV R0， 30H MOV R7， 03H CLR EN 復(fù)位，允許MC14499接收數(shù)據(jù)LOOP1： MOV R6， 08H 將字節(jié)數(shù)據(jù)賦給累加器ALOOP2： MOV A， @R0 RRC A MOVE @R0，AMOV R4 ,A MOV A，R1 RLC A MOV R4 ,A DJNZ R6，LOOP2 MOVE SBUF，R4LOOP3 JNB TI，LOOP3 發(fā)送等待 CLR TI ；復(fù)位，數(shù)據(jù)送入MC14499的移位寄存器 INC R0 ； 繼續(xù)發(fā)送后續(xù)數(shù)據(jù) DJNZ R3，LOOP SETB EN =1 RET BCD碼轉(zhuǎn)換程序SHNOW： MOV A，00H MOV R4，A MOV R5，A MOV R6，A MOV R7，10HBCD1： CLR C MOV A，38H RLC A MOV 38H，A MOV A，39H RLC A MOV 39H，A MOV A，R4 ADDC A，R4 DA A MOV R4，A MOV A，R5 ADDC A，R5 DA A MOV R5，A MOV A，R6 ADDC A，R6 DA A MOV R6，A DJNZ R7，BCD1 MOV 4FH，R6 MOV 4EH，R5 MOV 4DH，R4 MOV R0，4FH附錄五：報警子程序WARM： MOV R7， 10； 響的次數(shù)WAR2： MOV R6， 200； 響的音調(diào)WAR0： ACALL DL10 CPL DJNZ R6， WAR0 MOV R6 100 WAR1：ACALL DL10 DJNZ R6， WAR1 DJNZ R7， WAR2 RET10ms延時子程序為： DL10： MOV R5，120 DL12： MOV R4，250 DL11： DJNZ R4，DL11 DJNZ R5， DL12 RET