music.lst

这是一本在网上很难找到的教程了

C51 COMPILER V7.07   MUSIC                                                                 07/07/2006 03:55:51 PAGE 1   


C51 COMPILER V7.07, COMPILATION OF MODULE MUSIC
OBJECT MODULE PLACED IN music.OBJ
COMPILER INVOKED BY: c:\Keil\C51\BIN\C51.EXE music.c BROWSE DEBUG OBJECTEXTEND

stmt level    source

   1          #define uchar unsigned char //定义一下方便使用
   2          #define uint  unsigned int
   3          #define ulong unsigned long
   4          #include <reg52.h>     //包括一个52标准内核的头文件
   5          
   6          sbit    BEEP=P1^7; //喇叭输出脚
   7          sbit K1= P3^2;     
   8          sbit K2= P3^5;  
   9          sbit K3= P2^4;     
  10          sbit K4= P2^5;
  11          
  12          uchar th0_f; //在中断中装载的T0的值高8位
  13          uchar tl0_f; //在中断中装载的T0的值低8位
  14          
  15          //T0的值,及输出频率对照表
  16          uchar code freq[36*2]={
  17                  0xA9,0xEF,//00220HZ ,1   //0
  18                  0x93,0xF0,//00233HZ ,1#
  19                  0x73,0xF1,//00247HZ ,2
  20                  0x49,0xF2,//00262HZ ,2#
  21                  0x07,0xF3,//00277HZ ,3
  22                  0xC8,0xF3,//00294HZ ,4
  23                  0x73,0xF4,//00311HZ ,4#
  24                  0x1E,0xF5,//00330HZ ,5 
  25                  0xB6,0xF5,//00349HZ ,5#
  26                  0x4C,0xF6,//00370HZ ,6
  27                  0xD7,0xF6,//00392HZ ,6#
  28                  0x5A,0xF7,//00415HZ ,7    
  29                  0xD8,0xF7,//00440HZ 1     //12
  30                  0x4D,0xF8,//00466HZ 1#    //13
  31                  0xBD,0xF8,//00494HZ 2     //14
  32                  0x24,0xF9,//00523HZ 2#    //15
  33                  0x87,0xF9,//00554HZ 3     //16
  34                  0xE4,0xF9,//00587HZ 4     //17
  35                  0x3D,0xFA,//00622HZ 4#    //18
  36                  0x90,0xFA,//00659HZ 5     //19
  37                  0xDE,0xFA,//00698HZ 5#    //20
  38                  0x29,0xFB,//00740HZ 6     //21
  39                  0x6F,0xFB,//00784HZ 6#    //22
  40                  0xB1,0xFB,//00831HZ 7     //23
  41                  0xEF,0xFB,//00880HZ `1
  42                  0x2A,0xFC,//00932HZ `1#
  43                  0x62,0xFC,//00988HZ `2
  44                  0x95,0xFC,//01046HZ `2#
  45                  0xC7,0xFC,//01109HZ `3
  46                  0xF6,0xFC,//01175HZ `4
  47                  0x22,0xFD,//01244HZ  `4#
  48                  0x4B,0xFD,//01318HZ `5
  49                  0x73,0xFD,//01397HZ `5#
  50                  0x98,0xFD,//01480HZ `6
  51                  0xBB,0xFD,//01568HZ `6#
  52                  0xDC,0xFD,//01661HZ `7     //35
  53          };
  54          
  55          //定时中断0,用于产生唱歌频率
C51 COMPILER V7.07   MUSIC                                                                 07/07/2006 03:55:51 PAGE 2   

  56          timer0() interrupt 1 
  57          {
  58   1          TL0=tl0_f;TH0=th0_f;  //调入预定时值
  59   1          BEEP=~BEEP;           //取反音乐输出IO
  60   1      }
  61          
  62          //******************************
  63          //音乐符号串解释函数
  64          //入口:要解释的音乐符号串,输出的音调串,输出的时长串
  65          changedata(uchar *song,uchar *diao,uchar *jie)
  66          {
  67   1          uchar i,i1,j;
  68   1          char gaodi; //高低+/-12音阶
  69   1          uchar banyin;//有没有半个升音阶
  70   1          uchar yinchang;//音长
  71   1          uchar code jie7[8]={0,12,14,16,17,19,21,23}; //C调的7个值
  72   1      
  73   1          *diao=*song;
  74   1          for(i=0,i1=0;;)
  75   1          {
  76   2              gaodi=0; //高低=0
  77   2              banyin=0;//半音=0
  78   2              yinchang=4;//音长1拍
  79   2              if((*(song+i)=='|') || (*(song+i)==' ')) i++; 
  80   2                      //拍子间隔和一个空格过滤
  81   2      
  82   2              switch(*(song+i)) 
  83   2              {    
  84   3                  case ',': gaodi=-12;i++;//低音
  85   3                  break;
  86   3          
  87   3                  case '`': gaodi=12;i++; //高音
  88   3                  break;
  89   3              }
  90   2      
  91   2              if(*(song+i)==0)  //遇到0结束
  92   2              {
  93   3                  *(diao+i1)=0; //加入结束标志0
  94   3                  *(jie+i1)=0;
  95   3                  return;
  96   3              }
  97   2      
  98   2              j=*(song+i)-0x30; i++; //取出基准音
  99   2              j=jie7[j]+gaodi; //加上高低音
 100   2                                                      
 101   2      
 102   2      yinc:   switch(*(song+i)) 
 103   2              {    
 104   3                  case '#': //有半音j加一个音阶 
 105   3                      i++;j++;
 106   3                                      goto yinc; 
 107   3                  
 108   3      
 109   3                  case '-': //有一个音节加长
 110   3                      yinchang+=4;
 111   3                      i++; 
 112   3                      goto yinc;
 113   3      
 114   3                  case '_': //有一个音节缩短
 115   3                      yinchang/=2;
 116   3                      i++; 
 117   3                                      goto yinc;
C51 COMPILER V7.07   MUSIC                                                                 07/07/2006 03:55:51 PAGE 3   

 118   3                  
 119   3                  
 120   3                  case '.': //有一个加半拍
 121   3                      yinchang=yinchang+yinchang/2;
 122   3                                      i++;
 123   3                                      goto yinc;
 124   3                  
 125   3              }
 126   2      
 127   2              *(diao+i1)=j; //记录音符
 128   2              *(jie+i1)=yinchang; //记录音长
 129   2              i1++;    
 130   2      
 131   2          }
 132   1      }
 133          //******************************************
 134          //奏乐函数
 135          //入口:要演奏的音乐符号串
 136          void play(uchar *songdata)
 137          {
 138   1          uchar i,c,j=0;
 139   1          uint  n;
 140   1          uchar xdata diaodata[112]; //音调缓冲
 141   1          uchar xdata jiedata[112];  //音长缓冲
 142   1      
 143   1          changedata(songdata,diaodata,jiedata); //解释音乐符号串
 144   1          TR0=1;
 145   1          for(i=0;diaodata[i]!=0;i++)  //逐个符号演奏
 146   1          {
 147   2              tl0_f=freq[diaodata[i]*2]; //取出对应的定时值送给T0
 148   2              th0_f=freq[diaodata[i]*2+1];
 149   2              for(c=0;c<jiedata[i];c++) //按照音长延时
 150   2                      {
 151   3                  for(n=0;n<32000;n++);
 152   3                              if((!K1)||(!K2)||(!K3)||(!K4))//发现按键,立即退出播放
 153   3                              {       
 154   4                                      TR0=0;
 155   4                                      return; 
 156   4                              }
 157   3                      }
 158   2              TR0=0;
 159   2              for(n=0;n<500;n++);    //音符间延时
 160   2                      
 161   2              TR0=1;
 162   2          }
 163   1          TR0=0;
 164   1      }


MODULE INFORMATION:   STATIC OVERLAYABLE
   CODE SIZE        =    418    ----
   CONSTANT SIZE    =     80    ----
   XDATA SIZE       =   ----     224
   PDATA SIZE       =   ----    ----
   DATA SIZE        =      2      15
   IDATA SIZE       =   ----    ----
   BIT SIZE         =   ----    ----
END OF MODULE INFORMATION.


C51 COMPILATION COMPLETE.  0 WARNING(S),  0 ERROR(S)