C51 COMPILER V7.50   MAIN                                                                  12/07/2007 16:35:40 PAGE 1   


C51 COMPILER V7.50, COMPILATION OF MODULE MAIN
OBJECT MODULE PLACED IN .\main.obj
COMPILER INVOKED BY: f:\Keil\C51\BIN\C51.EXE main.c BROWSE DEBUG OBJECTEXTEND PRINT(.\main.lst) OBJECT(.\main.obj)

line level    source

   1          /************************************************************************
   2          [文件名]  C51音樂程序(八月桂花)
   3          [功能]    通過單片機演奏音樂
   4          
   5          /**********************************************************************/
   6          #include <reg52.h>
   7          #include <intrins.h>
   8          //本例采用89C52, 晶振為11.0592MHZ
   9          //關于如何編制音樂代碼, 其實十分簡單,各位可以看以下代碼.
  10          //頻率常數(shù)即音樂術(shù)語中的音調(diào),而節(jié)拍常數(shù)即音樂術(shù)語中的多少拍;
  11          //所以拿出譜子, 試探編吧!
  12          
  13          
  14          unsigned char n=0;  //n為節(jié)拍常數(shù)變量
  15          unsigned char code music_tab[] ={
  16          0x18, 0x30, 0x1C , 0x10, //格式為: 頻率常數(shù), 節(jié)拍常數(shù), 頻率常數(shù), 節(jié)拍常數(shù),
  17          0x20, 0x40, 0x1C , 0x10,
  18          0x18, 0x10, 0x20 , 0x10,
  19          0x1C, 0x10, 0x18 , 0x40,
  20          0x1C, 0x20, 0x20 , 0x20,
  21          0x1C, 0x20, 0x18 , 0x20,
  22          0x20, 0x80, 0xFF , 0x20,
  23          0x30, 0x1C, 0x10 , 0x18,
  24          0x20, 0x15, 0x20 , 0x1C,
  25          0x20, 0x20, 0x20 , 0x26,
  26          0x40, 0x20, 0x20 , 0x2B,
  27          0x20, 0x26, 0x20 , 0x20,
  28          0x20, 0x30, 0x80 , 0xFF,
  29          0x20, 0x20, 0x1C , 0x10,
  30          0x18, 0x10, 0x20 , 0x20,
  31          0x26, 0x20, 0x2B , 0x20,
  32          0x30, 0x20, 0x2B , 0x40,
  33          0x20, 0x20, 0x1C , 0x10,
  34          0x18, 0x10, 0x20 , 0x20,
  35          0x26, 0x20, 0x2B , 0x20,
  36          0x30, 0x20, 0x2B , 0x40,
  37          0x20, 0x30, 0x1C , 0x10,
  38          0x18, 0x20, 0x15 , 0x20,
  39          0x1C, 0x20, 0x20 , 0x20,
  40          0x26, 0x40, 0x20 , 0x20,
  41          0x2B, 0x20, 0x26 , 0x20,
  42          0x20, 0x20, 0x30 , 0x80,
  43          0x20, 0x30, 0x1C , 0x10,
  44          0x20, 0x10, 0x1C , 0x10,
  45          0x20, 0x20, 0x26 , 0x20,
  46          0x2B, 0x20, 0x30 , 0x20,
  47          0x2B, 0x40, 0x20 , 0x15,
  48          0x1F, 0x05, 0x20 , 0x10,
  49          0x1C, 0x10, 0x20 , 0x20,
  50          0x26, 0x20, 0x2B , 0x20,
  51          0x30, 0x20, 0x2B , 0x40,
  52          0x20, 0x30, 0x1C , 0x10,
  53          0x18, 0x20, 0x15 , 0x20,
  54          0x1C, 0x20, 0x20 , 0x20,
  55          0x26, 0x40, 0x20 , 0x20,
C51 COMPILER V7.50   MAIN                                                                  12/07/2007 16:35:40 PAGE 2   

  56          0x2B, 0x20, 0x26 , 0x20,
  57          0x20, 0x20, 0x30 , 0x30,
  58          0x20, 0x30, 0x1C , 0x10,
  59          0x18, 0x40, 0x1C , 0x20,
  60          0x20, 0x20, 0x26 , 0x40,
  61          0x13, 0x60, 0x18 , 0x20,
  62          0x15, 0x40, 0x13 , 0x40,
  63          0x18, 0x80, 0x00
  64          };
  65          
  66          void int0()  interrupt 1   //采用中斷0 控制節(jié)拍
  67          {  TH0=0xd8;
  68   1         TL0=0xef;
  69   1         n--;
  70   1      }
  71          
  72          void delay (unsigned char m)   //控制頻率延時
  73          {
  74   1       unsigned i=3*m;
  75   1       while(--i);
  76   1      }
  77          
  78          void delayms(unsigned char a)  //豪秒延時子程序
  79          {
  80   1        while(--a);                  //采用while(--a) 不要采用while(a--); 各位可編譯一下看看匯編結(jié)果就知道了!
  81   1      }
  82          sbit    BELL= P2^6;
  83          void main()
  84          { unsigned char p,m;   //m為頻率常數(shù)變量
  85   1        unsigned char i=0;
  86   1        TMOD&=0x0f;
  87   1        TMOD|=0x01;
  88   1        TH0=0xd8;TL0=0xef;
  89   1        IE=0x82;
  90   1      play:
  91   1         while(1)
  92   1          {
  93   2          a: p=music_tab[i];
  94   2             if(p==0x00)       { i=0, delayms(1000); goto play;}     //如果碰到結(jié)束符,延時1秒,回到開始再來一遍
  95   2             else if(p==0xff)  { i=i+1;delayms(100),TR0=0; goto a;}  //若碰到休止符,延時100ms,繼續(xù)取下一音符
  96   2                  else         {m=music_tab[i++], n=music_tab[i++];}  //取頻率常數(shù) 和 節(jié)拍常數(shù)
  97   2                   TR0=1;                                             //開定時器1
  98   2                 while(n!=0) BELL=~BELL,delay(m);                         //等待節(jié)拍完成, 通過P1口輸出音頻(可多