#include <reg52.h>
#include <intrins.h>
sbit P32=P3^2;
unsigned char n=0;               //n為節拍常數變量,全局變量
unsigned char code music[] ={
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 time0_int()  interrupt 1    //采用定時中斷0 控制節拍
{
 TH0=0xdc;
 TL0=0x00;
 n--; 
}
void delay (unsigned char m)  //控制頻率的延時程序
{
 unsigned int a=3*m;
 while(--a);
}
void delayms(unsigned int i)      //延時程序,i是形式參數
{
unsigned int j;
for(;i>0;i--)             //變量i由實際參數傳入一個值,因此i不能賦初值
for(j=0;j<125;j++)
{;}
}
void main()
{
unsigned char p,m;         //m為頻率常數變量
unsigned char i=0;
TMOD=0x01;
TH0=0xdc;
TL0=0x00;
EA=1;
ET0=1;
play:while(1)
   {
a: p=music[i];
   if(p==0x00) 
{ i=0, delayms(1000);goto play;}  //如果碰到結束符,延時約1秒,回到開始再來一遍
    else if(p==0xff)
 { i=i+1;delayms(10),TR0=0; goto a;}  //若碰到休止符,延時100ms,繼續取下一音符
    else 
{m=music[i++]; n=music[i++];}     //取頻率常數和節拍常數
    TR0=1;                         //開定時器1
    while(n!=0)
{P32=~P32;delay(m);}            //等待節拍完成, 通過P1口輸出音頻
    TR0=0;                         //關定時器1
    } 
}