PIC单片机实现音乐播放

1、PIC单片机实现音乐播放源程序：以下程序要用二个定时器资源，凡是有二个定时器的PIC单片机均可实现,该范例需要的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 ;关所有中断MOVWF INTCON;*CAL

7、L SYS_SET;*call PlayPsWelcom ;上电提示音MAINLOOP:bsf INTCON,GIE ;开所有中断CLRWDT ; Clear WDTcall BeepForB MAINLOOP;*INTZ:PUSH ; Push ;中断服务程序BTFSC PIR1,TMR2IF ;测试TMR2中断标志位b INT_TMR2 ;BTFSC INTCON,TOIF ;测试TMR0中断标志位GOTO INT_TMR0IntRet:POP ; PopRETFIE;* INT_TMR2:BCF PIR1,TMR2IF ;清TMR2中断标志位movf TmrBak,wmovwf TMR2

8、CPL BeepOutBeeperEnd:b IntRet;*INT_TMR0: ;定时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