PIC單片機(jī)實(shí)現(xiàn)音樂播放

1、PIC單片機(jī)實(shí)現(xiàn)音樂播放源程序：以下程序要用二個(gè)定時(shí)器資源，凡是有二個(gè)定時(shí)器的PIC單片機(jī)均可實(shí)現(xiàn),該范例需要的MCU是MICROCHIP PIC16C62INCLUDE D:PICP16XX.EQU ;該文件在MICROCHIP光盤中可找到;*#define BeepOut RC,4;*W_TEMP EQU 0X20 ;(0XA0)STATUS_TEMP EQU 0X21 BeepCnt equ 30hTmrBak equ 31hBeepMode equ 32hSflag equ 33h;*CSTIME100MS equ .8;*;SflagFg_100ms equ 0FgBeep equ

2、1 ;*ORG 000H;GOTO MAIN ; Skip over interrupt vecterORG 04H ; Interrupt VectorGOTO INTZ;*OkTab:movf BeepCnt,waddwf PCL,fretlw .255-.130;0xf6 ;1 ;retlw .255-.126;0xfa ;2 ;retlw .255-.119; 0xfd ;3 ;retlw 0;*WhisleTab:movf BeepCnt,waddwf PCL,fretlw .255-.239;523Hz ;0 ;retlw .255-.179;698Hz ;1 ;retlw .25

3、5-.159;784Hz ;2 ;retlw .255-.119;1046Hz ;3 ;retlw .0;*HangTab:movf BeepCnt,waddwf PCL,fretlw .255-.159; 784Hz ;0 ;retlw .255-.119; 1046Hz ;1 ;retlw .255-.150; 830Hz ;2 ;retlw .255-.112 ;1109Hz ;3 ;retlw .255-.142 ;880Hz ;4 ;retlw .255-.106;1174Hz ;5 ;retlw .255-.134;932Hz ;6 ;retlw .255-.100;1244Hz

4、;7retlw .255-.126;988Hz ;8;retlw .255-.94;1318Hz ;9;retlw .255-.119;1046Hz ;10 ;retlw .255-.89;1397Hz ;11 ;retlw .0;*WelcomTab:movf BeepCnt,waddwf PCL,fretlw .255-.89;1397Hz ;11 ;retlw .255-.119;1046Hz ;10 ;retlw .255-.94;1318Hz ;9;retlw .255-.126;988Hz ;8;retlw .255-.100;1244Hz ;7retlw .255-.134;93

5、2Hz ;6 ;retlw .255-.106;1174Hz ;5 ;retlw .255-.142 ;880Hz ;4 ;retlw .255-.112 ;1109Hz ;3 ;retlw .255-.150; 830Hz ;2 ;retlw .255-.119; 1046Hz ;1 ;retlw .255-.159; 784Hz ;0 ;retlw .0;*BeepModeJmp:addwf PCL,fb psWhisle ;0b psOk ;1b psHang ;2b psWelcom ;3;*IO_SET:BANK1_MOVLW BMOVWF TRISAMOVLW Bmovwf TRI

6、SB MOVLW Bmovwf TRISC ; Set Port_C to all outputsBANK0_RETURN;*SYS_SET:BANK1_ MOVLW B ; 1:256 TMR0分頻MOVWF OPTION_R BSF PIE1,TMR2IE ;TMR2中斷允許BANK0_ MOVLW B ;開TMR1MOVWF T1CONbsf INTCON,TOIE ;TMR0中斷允許BSF INTCON,PEIE ;允許所有未被屏蔽之外圍接口中斷RETURN;*MAIN: ; Main rotationCALL IO_SETMOVLW B ;關(guān)所有中斷MOVWF INTCON;*CAL

7、L SYS_SET;*call PlayPsWelcom ;上電提示音MAINLOOP:bsf INTCON,GIE ;開所有中斷CLRWDT ; Clear WDTcall BeepForB MAINLOOP;*INTZ:PUSH ; Push ;中斷服務(wù)程序BTFSC PIR1,TMR2IF ;測試TMR2中斷標(biāo)志位b INT_TMR2 ;BTFSC INTCON,TOIF ;測試TMR0中斷標(biāo)志位GOTO INT_TMR0IntRet:POP ; PopRETFIE;* INT_TMR2:BCF PIR1,TMR2IF ;清TMR2中斷標(biāo)志位movf TmrBak,wmovwf TMR2

8、CPL BeepOutBeeperEnd:b IntRet;*INT_TMR0: ;定時(shí)0中斷BCF INTCON,TOIF ; clear INTFMOVLW .255-.38 ;10msMOVWF TMR0 ;=decfsz T100ms,fb int_tmr0_retmovlw CSTIME100MSmovwf T100msbsf Sflag,Fg_100ms;=int_tmr0_ret:b IntRet;*PlayPsWhisle:bsf Fg,FgBeepclrf BeepCntmovlw .0movwf BeepModemovlw CSTIME100MSmovwf T100msre

9、tlw 0;*PlayPsOk:bsf Fg,FgBeepclrf BeepCntmovlw .1movwf BeepModemovlw CSTIME100MSmovwf T100msretlw 0;*PlayPsHang:bsf Fg,FgBeepclrf BeepCntmovlw .2movwf BeepModemovlw CSTIME100MSmovwf T100msretlw 0;*PlayPsWelcom:bsf Fg,FgBeepclrf BeepCntmovlw .3movwf BeepModemovlw CSTIME100MSmovwf T100msretlw 0;*;音樂播放

10、程序;BeepMode=0 : psWhisle;BeepMode=1 : psOk;BeepMode=2 : psHang;BeepMode=3 : psWelcom;*BeepFor:btfss Sflag,Fg_100msb BeepForEndbcf Sflag,Fg_100msbtfss Sflag,FgBeepb BeepForEndMOVLW B ;開TMR2 1:4分頻MOVWF T2CONmovf BeepMode,wb BeepModeJmppsWhisle:call WhisleTabb BeepPlaypsOk:call OkTabb BeepPlaypsHang:call HangTabb BeepPlaypsWelcom:call WelcomTabb BeepPlayBeepPlay:incf BeepCnt,fmovwf TmrBakmovf TmrBak,fbtfsc status,zb BeepOffmovlw .1xorwf TmrBak,wbtfsc stat