gui hua.lst

单片机C语言音乐程序的源程序（KeilC代码）

C51 COMPILER V7.06   GUI_HUA                                                               05/09/2005 13:05:29 PAGE 1   


C51 COMPILER V7.06, COMPILATION OF MODULE GUI_HUA
OBJECT MODULE PLACED IN gui hua.OBJ
COMPILER INVOKED BY: C:\Keil\C51\BIN\C51.EXE gui hua.c BROWSE DEBUG OBJECTEXTEND

stmt level    source

   1          /************************************************************************
   2          [文件名]  C51音乐程序(八月桂花)
   3          [功能]    通过单片机演奏音乐 
   4          [版本]    1.0
   5          [作者]    欧阳向东 (深圳龙华)
   6          [最后修改时间]   2005年5月9号
   7          E-mail:  [e-mail]
   8          /**********************************************************************/
   9          #include <reg52.h>
  10          #include <intrins.h>
  11          //本例采用89C52, 晶振为11.0592MHZ
  12          //关于如何编制音乐代码, 其实十分简单,各位可以看以下代码.
  13          //频率常数即音乐术语中的音调,而节拍常数即音乐术语中的多少拍;
  14          //所以拿出谱子, 试探编吧!
  15          
  16          
  17          unsigned char n=0;  //n为节拍常数变量
  18          unsigned char code music_tab[] ={
  19          0x18, 0x30, 0x1C , 0x10, //格式为: 频率常数, 节拍常数, 频率常数, 节拍常数,
  20          0x20, 0x40, 0x1C , 0x10,
  21          0x18, 0x10, 0x20 , 0x10,
  22          0x1C, 0x10, 0x18 , 0x40,
  23          0x1C, 0x20, 0x20 , 0x20,
  24          0x1C, 0x20, 0x18 , 0x20,
  25          0x20, 0x80, 0xFF , 0x20,
  26          0x30, 0x1C, 0x10 , 0x18,
  27          0x20, 0x15, 0x20 , 0x1C,
  28          0x20, 0x20, 0x20 , 0x26,
  29          0x40, 0x20, 0x20 , 0x2B,
  30          0x20, 0x26, 0x20 , 0x20,
  31          0x20, 0x30, 0x80 , 0xFF,
  32          0x20, 0x20, 0x1C , 0x10,
  33          0x18, 0x10, 0x20 , 0x20,
  34          0x26, 0x20, 0x2B , 0x20,
  35          0x30, 0x20, 0x2B , 0x40,
  36          0x20, 0x20, 0x1C , 0x10,
  37          0x18, 0x10, 0x20 , 0x20,
  38          0x26, 0x20, 0x2B , 0x20,
  39          0x30, 0x20, 0x2B , 0x40,
  40          0x20, 0x30, 0x1C , 0x10,
  41          0x18, 0x20, 0x15 , 0x20,
  42          0x1C, 0x20, 0x20 , 0x20,
  43          0x26, 0x40, 0x20 , 0x20,
  44          0x2B, 0x20, 0x26 , 0x20,
  45          0x20, 0x20, 0x30 , 0x80,
  46          0x20, 0x30, 0x1C , 0x10,
  47          0x20, 0x10, 0x1C , 0x10,
  48          0x20, 0x20, 0x26 , 0x20,
  49          0x2B, 0x20, 0x30 , 0x20,
  50          0x2B, 0x40, 0x20 , 0x15,
  51          0x1F, 0x05, 0x20 , 0x10,
  52          0x1C, 0x10, 0x20 , 0x20,
  53          0x26, 0x20, 0x2B , 0x20,
  54          0x30, 0x20, 0x2B , 0x40,
  55          0x20, 0x30, 0x1C , 0x10,
C51 COMPILER V7.06   GUI_HUA                                                               05/09/2005 13:05:29 PAGE 2   

  56          0x18, 0x20, 0x15 , 0x20,
  57          0x1C, 0x20, 0x20 , 0x20,
  58          0x26, 0x40, 0x20 , 0x20,
  59          0x2B, 0x20, 0x26 , 0x20,
  60          0x20, 0x20, 0x30 , 0x30,
  61          0x20, 0x30, 0x1C , 0x10,
  62          0x18, 0x40, 0x1C , 0x20,
  63          0x20, 0x20, 0x26 , 0x40,
  64          0x13, 0x60, 0x18 , 0x20,
  65          0x15, 0x40, 0x13 , 0x40,
  66          0x18, 0x80, 0x00
  67          };
  68          
  69          void int0()  interrupt 1   //采用中断0 控制节拍
  70          {  TH0=0xd8;
  71   1         TL0=0xef;
  72   1         n--;
  73   1      }
  74          
  75          void delay (unsigned char m)   //控制频率延时
  76          { 
  77   1       unsigned i=3*m;
  78   1       while(--i);
  79   1      }
  80          
  81          void delayms(unsigned char a)  //豪秒延时子程序
  82          {
  83   1        while(--a);                  //采用while(--a) 不要采用while(a--); 各位可编译一下看看汇编结果就知道了!
  84   1      }
  85          
  86          void main()
  87          { unsigned char p,m;   //m为频率常数变量
  88   1        unsigned char i=0;
  89   1        TMOD&=0x0f;
  90   1        TMOD|=0x01;
  91   1        TH0=0xd8;TL0=0xef;
  92   1        IE=0x82;
  93   1      play:
  94   1         while(1)
  95   1          {
  96   2          a: p=music_tab[i];
  97   2             if(p==0x00)       { i=0, delayms(1000); goto play;}     //如果碰到结束符,延时1秒,回到开始再来一遍
  98   2             else if(p==0xff)  { i=i+1;delayms(100),TR0=0; goto a;}  //若碰到休止符,延时100ms,继续取下一音符
  99   2                  else         {m=music_tab[i++], n=music_tab[i++];}  //取频率常数 和 节拍常数
 100   2                   TR0=1;                                             //开定时器1
 101   2                 while(n!=0) P1=~P1,delay(m);                         //等待节拍完成, 通过P1口输出音频(可多声道