#define uchar unsigned char //定義一下方便使用
#define uint  unsigned int
#define ulong unsigned long
#include <reg52.h>     //包括一個 52 標準內核的頭文件

char code dx516[3] _at_ 0x003b;//這是為了仿真設置的

sbit   BEEP=P3^0; //喇叭輸出腳
//sbit K1= P3^0;
//sbit K2= P3^1;
//sbit K3= P3^2;
//sbit K4= P3^3;    

uchar th0_f; //在中斷中裝載的 T0 的值高 8 位
uchar tl0_f; //在中斷中裝載的 T0 的值低 8 位 
//T0 的值,及輸出頻率對照表
uchar code freq[36*2]={
0xA9,0xEF,//00220HZ ,1
0x93,0xF0,//00233HZ ,1#
0x73,0xF1,//00247HZ ,2
0x49,0xF2,//00262HZ ,2#
0x07,0xF3,//00277HZ ,3
0xC8,0xF3,//00294HZ ,4
0x73,0xF4,//00311HZ ,4#
 
0x1E,0xF5,//00330HZ ,5
0xB6,0xF5,//00349HZ ,5#
0x4C,0xF6,//00370HZ ,6
0xD7,0xF6,//00392HZ ,6#
0x5A,0xF7,//00415HZ ,7    
0xD8,0xF7,//00440HZ 1     //12
0x4D,0xF8,//00466HZ 1#    //13
0xBD,0xF8,//00494HZ 2     //14
0x24,0xF9,//00523HZ 2#    //15
0x87,0xF9,//00554HZ 3     //16
0xE4,0xF9,//00587HZ 4     //17
0x3D,0xFA,//00622HZ 4#    //18
0x90,0xFA,//00659HZ 5     //19
0xDE,0xFA,//00698HZ 5#    //20
0x29,0xFB,//00740HZ 6     //21
0x6F,0xFB,//00784HZ 6#    //22
0xB1,0xFB,//00831HZ 7     //23
0xEF,0xFB,//00880HZ `1
0x2A,0xFC,//00932HZ `1#
0x62,0xFC,//00988HZ `2
0x95,0xFC,//01046HZ `2#
0xC7,0xFC,//01109HZ `3
0xF6,0xFC,//01175HZ `4
0x22,0xFD,//01244HZ  `4#
0x4B,0xFD,//01318HZ `5
0x73,0xFD,//01397HZ `5#
0x98,0xFD,//01480HZ `6
0xBB,0xFD,//01568HZ `6#
0xDC,0xFD,//01661HZ `7	   //35
 
};

//定時中斷 0,用于產生唱歌頻率
timer0() interrupt 1  
{
    TL0=tl0_f;TH0=th0_f;  //調入預定時值
 
 
        BEEP=~BEEP;                      //取反音樂輸出 IO
}

//******************************
//音樂符號串解釋函數
//入口:要解釋的音樂符號串,輸出的音調串,輸出的時長串
changedata(uchar *song,uchar *diao,uchar *jie)
{
    uchar i,i1,j;
    char gaodi; //高低+/-12 音階
    uchar banyin;//有沒有半個升音階
    uchar yinchang;//音長
    uchar code jie7[8]={0,12,14,16,17,19,21,23}; //C 調的 7 個值

    *diao=*song;
    for(i=0,i1=0;;)
        { 
                gaodi=0; //高低=0
                banyin=0;//半音=0
                yinchang=4;//音長 1 拍
        if((*(song+i)=='|') || (*(song+i)==' ')) i++;  
//拍子間隔和一個空格過濾

        switch(*(song+i))  
                {         
                        case ',': gaodi=-12;i++;//低音
                        break; 

                        case '`': gaodi=12;i++; //高音
                        break; 
                } 

        if(*(song+i)==0)  //遇到 0 結束
                { 
                        *(diao+i1)=0; //加入結束標志 0
                        *(jie+i1)=0; 
                        return; 
                } 

        j=*(song+i)-0x30; i++; //取出基準音
        j=jie7[j]+gaodi; //加上高低音
yinc:   switch(*(song+i))  
 
                {         
                        case '#': //有半音 j 加一個音階
                                i++;j++; 
								goto yinc;
                        case '-': //有一個音節加長
                                yinchang+=4; 
                                i++;   
                                goto yinc; 

                        case '_': //有一個音節縮短
                                yinchang/=2; 
                                i++;   
								goto yinc;



                        case '.': //有一個加半拍
               					 yinchang=yinchang+yinchang/2;
									i++; 
									goto yinc;

                } 

                *(diao+i1)=j; //記錄音符
                *(jie+i1)=yinchang; //記錄音長
                i1++;         
        } 
}
//******************************************
//奏樂函數
//入口:要演奏的音樂符號串
void play(uchar *songdata)
{
    uchar i,c,j=0;
   	uint    n; 
    uchar xdata diaodata[112]; //音調緩沖
    uchar xdata jiedata[112];  //音長緩沖

    changedata(songdata,diaodata,jiedata); //解釋音樂符號串
        TR0=1; 
    for(i=0;diaodata[i]!=0;i++)  //逐個符號演奏
        { 
        tl0_f=freq[diaodata[i]*2]; //取出對應的定時值送給 T0
        th0_f=freq[diaodata[i]*2+1];
        for(c=0;c<jiedata[i];c++) //按照音長延時
            for(n=0;n<32000;n++);
                TR0=0; 
        for(n=0;n<500;n++);    //音符間延時
                TR0=1; 
        } 
        TR0=0; 
}

//仙劍
uchar code xianjian[]={
"|3_3_3_2_3-|2_3_2_2_,6,6_,7_|12_1_,7,6_,5_|,6---|"
"3_3_3_2_3.6_|5_6_5_5_22_3_|45_4_32_1_|3.--3_|" 
"67_6_55_3_|5--3_5_|26_5_32_3_|3---|"
"26_6_6-|16_6_66_7_|`17_6_76_7_|3.--3_|" 
"67_6_55_3_|5--3_5_|67_6_76_7_|3---|"
"26_6_6-|16_6_66_7_|`17_6_7.5_|6---|"
};

//樂譜方式輸入的音樂播放,仙劍奇俠傳
void main(void)	//	主程序
{
TMOD = 0x01;   //使用定時器 0 的 16 位工作模式
TR0 = 0;
ET0 = 1;
EA = 1;

while(1)
{
play(xianjian);
}
}