/********************************************************************
//模 塊 名 ：  PWM音樂演示程序
//創 建 者 ：  楊 勇	 
      日期 :   2007年4月29日 23:10				
//修 改 者 : 									
      日期 :
//功能描述 ：  
//其他說明 ：  22.1184MHz晶振 
//芯片型號 :   AT89S52
//配    置 : 
//版    本 ：  V1.0
********************************************************************/



#include <reg52.h>   
#include <intrins.h>

#define uint unsigned int
#define uchar unsigned char

//本例采用89C52, 晶振為 22.1184MHzMHZ
//關于如何編制音樂代碼, 其實十分簡單,各位可以看以下代碼.
//頻率常數即音樂術語中的音調,而節拍常數即音樂術語中的多少拍;

unsigned char n=0;       //n為節拍常數變量
unsigned char code music_tab[] ={
0x18, 0x30, 0x1C , 0x10, //格式為: 頻率常數, 節拍常數, 頻率常數, 節拍常數,
0x20, 0x40, 0x1C , 0x10,
0x18, 0x10, 0x20 , 0x10,
0x1C, 0x10, 0x18 , 0x40,
0x1C, 0x20, 0x20 , 0x20,
0x1C, 0x20, 0x18 , 0x20,
0x20, 0x80, 0xFF , 0x20,
0x30, 0x1C, 0x10 , 0x18,
0x20, 0x15, 0x20 , 0x1C,
0x20, 0x20, 0x20 , 0x26,
0x40, 0x20, 0x20 , 0x2B,
0x20, 0x26, 0x20 , 0x20,
0x20, 0x30, 0x80 , 0xFF,
0x20, 0x20, 0x1C , 0x10,
0x18, 0x10, 0x20 , 0x20,
0x26, 0x20, 0x2B , 0x20,
0x30, 0x20, 0x2B , 0x40,
0x20, 0x20, 0x1C , 0x10,
0x18, 0x10, 0x20 , 0x20,
0x26, 0x20, 0x2B , 0x20,
0x30, 0x20, 0x2B , 0x40,
0x20, 0x30, 0x1C , 0x10,
0x18, 0x20, 0x15 , 0x20,
0x1C, 0x20, 0x20 , 0x20,
0x26, 0x40, 0x20 , 0x20,
0x2B, 0x20, 0x26 , 0x20,
0x20, 0x20, 0x30 , 0x80,
0x20, 0x30, 0x1C , 0x10,
0x20, 0x10, 0x1C , 0x10,
0x20, 0x20, 0x26 , 0x20,
0x2B, 0x20, 0x30 , 0x20,
0x2B, 0x40, 0x20 , 0x15,
0x1F, 0x05, 0x20 , 0x10,
0x1C, 0x10, 0x20 , 0x20,
0x26, 0x20, 0x2B , 0x20,
0x30, 0x20, 0x2B , 0x40,
0x20, 0x30, 0x1C , 0x10,
0x18, 0x20, 0x15 , 0x20,
0x1C, 0x20, 0x20 , 0x20,
0x26, 0x40, 0x20 , 0x20,
0x2B, 0x20, 0x26 , 0x20,
0x20, 0x20, 0x30 , 0x30,
0x20, 0x30, 0x1C , 0x10,
0x18, 0x40, 0x1C , 0x20,
0x20, 0x20, 0x26 , 0x40,
0x13, 0x60, 0x18 , 0x20,
0x15, 0x40, 0x13 , 0x40,
0x18, 0x80, 0x00
};


void Music_Play(void);
void delay (unsigned char m);
void delayms(unsigned char a);


/*=============================================================================
//函 數 名:  void Music_Play(void)
//參    數:  無
//返 回 值:  無
//函數功能:  音樂播放函數
//編 寫 者:  楊 勇
//編寫日期:  2007年4月29日 23:12
===============================================================================*/
void Music_Play(void)
{ 
  uchar p,m;   //m為頻率常數變量
  uchar i=0;
  TMOD&=0x0f;
  TMOD =0x01;
  TH0=0xc6;
  TL0=0xb6;
  IE=0x82;

play:
   while(1)
    {
    a: p=music_tab[i];
       if(p==0x00)      
	   { 
	     i=0; 
		 delayms(2000);
		 goto play;
	   }     //如果碰到結束符,延時1秒,回到開始再來一遍
       else
	    if(p==0xff) 
	    { 
		  i=i+1;
		  delayms(200);
		  TR0=0; 
		  goto a;
		}  //若碰到休止符,延時100ms,繼續取下一音符          
		else        
	    {
		  m=music_tab[i++];
		  n=music_tab[i++];
		}  //取頻率常數 和 節拍常數
        TR0=1;                                             //開定時器1
        while(n!=0)
		{
		  P3 |=0x40;	   
	      delay(m);                        //等待節拍完成, 通過P1口輸出音頻(可多聲道哦!)
		  P3 &=0xbf;	   
	      delay(m); 
		}
	  TR0=0;                                             //關定時器1
    } 
}


/*=============================================================================
//函 數 名:  void int0()  interrupt 1 
//參    數:  無
//返 回 值:  無
//函數功能:  定時器0中斷服務函數
//編 寫 者:  楊 勇
//編寫日期:  2007年4月29日 23:16
===============================================================================*/
void int0()  interrupt 1   //采用中斷0 控制節拍
{  
  TH0=0xc6;
  TL0=0xb6;
  n--;
}

/*=============================================================================
//函 數 名:  void delay (unsigned char m)
//參    數:  無
//返 回 值:  無
//函數功能:  延時函數
//編 寫 者:  楊 勇
//編寫日期:  2007年4月29日 23:17
===============================================================================*/
void delay (unsigned char m)   //控制頻率延時
{ 
 unsigned i=3*m;
 while(--i);
}

/*=============================================================================
//函 數 名:  void delay (unsigned char m)
//參    數:  無
//返 回 值:  無
//函數功能:  延時函數
//編 寫 者:  楊 勇
//編寫日期:  2007年4月29日 23:17
===============================================================================*/
void delayms(unsigned char a)  //毫秒延時子程序
{
  while(--a);                  //采用while(--a) 不要采用while(a--); 各位可編譯一下看看匯編結果就知道了!
}