【文章內(nèi)容簡介】 *******鍵盤掃描和按鍵識別子程序*************************kbscan bsf status,5 。設(shè)置文件寄存器的體1 bcf status,6 。 bcf option_reg,rbpu movlw 0fh 。rb的低四位列信號為輸入 movwf trisb movlw 0fh 。rd的高四位行信號為輸出 movwf trisd bcf status,rp0 movlw 00h 。4條行線全部輸出0 movwf portd nop movf portb,0 andlw 0fh movwf value 。得到的列碼暫存到VALUE寄存器中 xorlw 0fh btfsc status,z 。列碼不是全部為1則有鍵按下 goto nokey bsf status,rp0 movlw 0f0h movwf trisb 。改變低四位為輸出 movlw 0f0h movwf trisd 。改變高四位為輸入 bcf status,rp0 movlw 00h movwf portb nop movf portd,0 andlw 0f0h iorwf value,1 。將行碼和列碼首尾相連送入value return nokey movlw 0ffh movwf value return。******************************鍵值翻譯子程序********************************trans movlw 40h movwf fsr loopt1 movf 0,0 xorwf value,0 。與位置碼比較 btfsc status,z 。不相等則跳一步 goto loopt2 incf fsr,1 。地址指針FSR遞增 btfss fsr,4 。夠16次則跳一步 goto loopt1 goto check return loopt2 bcf fsr,6 。等效于fsr40h movf fsr,0 。將fsr存進(jìn)w寄存器 xorlw 00h 。比較fsr與預(yù)存鍵值，是否相等 btfsc status,2 。 goto key1 。是，進(jìn)入按鍵1子程序 movf fsr,0 。否，恢復(fù)w到fsr值，繼續(xù)向下查詢 xorlw 01h btfsc status,2 goto key2 movf fsr,0 xorlw 02h btfsc status,2 goto key3 movf fsr,0 xorlw 03h btfsc status,2 goto key4 movf fsr,0 xorlw 04h btfsc status,2 goto key5 movf fsr,0 xorlw 05h btfsc status,2 goto key6 movf fsr,0 xorlw 06h btfsc status,2 goto key7 movf fsr,0 xorlw 07h btfsc status,2 goto key8 movf fsr,0 xorlw 08h btfsc status,2 goto key9 movf fsr,0 xorlw 09h btfsc status,2 goto key0 movf fsr,0 xorlw 00ah btfsc status,2 goto keya movf fsr,0 xorlw 00bh btfsc status,2 goto keyb movf fsr,0 xorlw 00ch btfsc status,2 goto keyc movf fsr,0 xorlw 00dh btfsc status,2 goto keyd movf fsr,0 xorlw 00eh btfsc status,2 goto keye movf fsr,0 xorlw 00fh btfsc status,2 goto keyf key1 movlw 01h movwf portc_p movlw d39。10039。 goto tone key2 movlw 02h movwf portc_p movlw d39。11739。 goto tone key3 movlw 04h movwf portc_p movlw d39。13239。 goto tone key4 movlw 08h movwf portc_p movlw d39。13939。 goto tone key5 movlw 10h movwf portc_p movlw d39。15239。 goto tone key6 movlw 20h movwf portc_p movlw d39。16339。 goto tone key7 movlw 40h movwf portc_p movlw d39。17339。 goto tone key8 movlw 80h movwf portc_p movlw d39。17839。 goto tone key9 movlw 03h movwf portc_p movlw d39。4839。 goto tone key0 movlw 06h movwf portc_p movlw d39。7039。 goto tone keya movlw 0ch movwf portc_p movlw d39。9139。 goto tone keyb movlw 18h movwf portc_p call song_b goto music1keyc movlw 30h movwf portc_p call song_c goto music2 keyd movlw 60h movwf portc_p bsf flag2,0 movlw 70h movwf fsr call replaykeye movlw 90h movwf portc_p bcf flag1,0 goto check keyf call save movlw 7fh movwf portc_p movlw 0 movwf count2 bsf flag1,0 call keep goto check。***************************單鍵發(fā)音子程序*****************************tone movwf w_temp 。備份當(dāng)前w值 bsf status,5 bcf status,6 。設(shè)置文件寄存器的體1 movlw 0 。將端口c的方向控制碼00h先送w movwf trisc 。將rc設(shè)為輸出 movlw 0 。將端口e的方向控制碼00h先送w movwf trise 。在轉(zhuǎn)到方向寄存器，re設(shè)為輸出 movlw 02h 。設(shè)置選項寄存器 movwf option_reg 。分頻器給TMR0。分頻值0設(shè)為1:8 bcf status,5 。恢復(fù)到文件寄存器的體0 clrf porte 。re端口清零tlop bcf intcon,2 。清除tmr0溢出中斷標(biāo)志位 movf w_temp,0 。給tmr0裝入初始值，并啟動定時器 movwf tmr0 。there btfss intcon,2 。定時器溢出否 goto there 。否！循環(huán)檢測 movlw b39。0000010039。 。只將bit2置位 xorwf porte,0 。只將re2腳電平反轉(zhuǎn)，其余不變 movwf porte 。 movf portc_p,0 。燈值送顯 movwf portc 。 call kbscan 。檢測按鍵是否按起 f value,0 。將value取反存入w btfss status,2 。測試按鍵全部釋放否？是，跳過下條指令 goto tlop 。否！循環(huán)檢測 clrf portc btfss flag1,0 goto check 。掃描鍵盤 return。***************************液晶初始化********************************* lcdinit bcf status,rp1 。選定文件寄存體1 bsf status,rp0 clrf trisd clrf trise movlw 07h 。設(shè)置選項寄存器地址，將分頻比 movwf option_reg 。設(shè)為1：256 movlw 06h 。設(shè)置為數(shù)字控制 movwf adcon1 bcf status,rp0 ?；謴?fù)到文件寄存體0 clrf portd clrf porte movlw 30h 。等待 call lcdsend movlw 30h 。等待 call lcdsend movlw 30h 。等待 call lcdsend movlw 38h 。功能設(shè)置： call lcdsend movlw 08h call lcdsend 。關(guān)顯示 movlw 01h call lcdsend 。清屏 movlw 06h call lcdsend 。設(shè)定輸入方式為增量方式顯示，不移位 movlw 0fh 。液晶顯示 call lcdsend 。**********************顯示調(diào)用子程序***********lcdsend movwf portd bsf porte,1 bcf porte,1 call delay return。*************************曲目b********************song_b call lcdinit movlw 53h 。s bsf porte,0 call lcdsend movlw 4fh 。o call lcdsend movlw 4eh 。n