xj.lst

仙剑的主题曲。用来播放音乐

C51 COMPILER V7.01  XJ                                                                     04/18/2007 14:55:36 PAGE 1   


C51 COMPILER V7.01, COMPILATION OF MODULE XJ
OBJECT MODULE PLACED IN XJ.OBJ
COMPILER INVOKED BY: D:\Tool\Keil\C51\BIN\C51.EXE XJ.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          uchar th0_f; //在中断中装载的T0的值高8位
  12          uchar tl0_f; //在中断中装载的T0的值低8位
  13          //T0的值,及输出频率对照表
  14          uchar code freq[36*2]={
  15          0xA9,0xEF,//00220HZ ,1 //0
  16          0x93,0xF0,//00233HZ ,1#
  17          0x73,0xF1,//00247HZ ,2
  18          0x49,0xF2,//00262HZ ,2#
  19          0x07,0xF3,//00277HZ ,3
  20          0xC8,0xF3,//00294HZ ,4
  21          0x73,0xF4,//00311HZ ,4#
  22          0x1E,0xF5,//00330HZ ,5
  23          0xB6,0xF5,//00349HZ ,5#
  24          0x4C,0xF6,//00370HZ ,6
  25          0xD7,0xF6,//00392HZ ,6#
  26          0x5A,0xF7,//00415HZ ,7
  27          0xD8,0xF7,//00440HZ 1 //12
  28          0x4D,0xF8,//00466HZ 1# //13
  29          0xBD,0xF8,//00494HZ 2 //14
  30          0x24,0xF9,//00523HZ 2# //15
  31          0x87,0xF9,//00554HZ 3 //16
  32          0xE4,0xF9,//00587HZ 4 //17
  33          0x3D,0xFA,//00622HZ 4# //18
  34          0x90,0xFA,//00659HZ 5 //19
  35          0xDE,0xFA,//00698HZ 5# //20
  36          0x29,0xFB,//00740HZ 6 //21
  37          0x6F,0xFB,//00784HZ 6# //22
  38          0xB1,0xFB,//00831HZ 7 //23
  39          0xEF,0xFB,//00880HZ `1
  40          0x2A,0xFC,//00932HZ `1#
  41          0x62,0xFC,//00988HZ `2
  42          0x95,0xFC,//01046HZ `2#
  43          0xC7,0xFC,//01109HZ `3
  44          0xF6,0xFC,//01175HZ `4
  45          0x22,0xFD,//01244HZ `4#
  46          0x4B,0xFD,//01318HZ `5
  47          0x73,0xFD,//01397HZ `5#
  48          0x98,0xFD,//01480HZ `6
  49          0xBB,0xFD,//01568HZ `6#
  50          0xDC,0xFD,//01661HZ `7 //35
  51          };
  52          //定时中断0,用于产生唱歌频率
  53          timer0() interrupt 1
  54          {
  55   1      TL0=tl0_f;TH0=th0_f; //调入预定时值
C51 COMPILER V7.01  XJ                                                                     04/18/2007 14:55:36 PAGE 2   

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

 118          {
 119   1      uchar i,c,j=0;
 120   1      uint n;
 121   1      uchar xdata diaodata[112]; //音调缓冲
 122   1      uchar xdata jiedata[112]; //音长缓冲
 123   1      changedata(songdata,diaodata,jiedata); //解释音乐符号串
 124   1      TR0=1;
 125   1      for(i=0;diaodata[i]!=0;i++) //逐个符号演奏
 126   1      {
 127   2      tl0_f=freq[diaodata[i]*2]; //取出对应的定时值送给T0
 128   2      th0_f=freq[diaodata[i]*2+1];
 129   2      for(c=0;c<jiedata[i];c++) //按照音长延时
 130   2      for(n=0;n<32000;n++);
 131   2      TR0=0;
 132   2      for(n=0;n<500;n++); //音符间延时
 133   2      TR0=1;
 134   2      }
 135   1      TR0=0;
 136   1      }
 137          //仙剑
 138          uchar code xianjian[]={
 139          "|3_3_3_2_3-|2_3_2_2_,6,6_,7_|12_1_,7,6_,5_|,6---|"
 140          "3_3_3_2_3.6_|5_6_5_5_22_3_|45_4_32_1_|3.--3_|"
 141          "67_6_55_3_|5--3_5_|26_5_32_3_|3---|"
 142          "26_6_6-|16_6_66_7_|`17_6_76_7_|3.--3_|"
 143          "67_6_55_3_|5--3_5_|67_6_76_7_|3---|"
 144          "26_6_6-|16_6_66_7_|`17_6_7.5_|6---|"
 145          };
 146          //乐谱方式输入的音乐播放,仙剑奇侠传
 147          void main(void) // 主程序
 148          {
 149   1      TMOD = 0x01; //使用定时器0的16位工作模式
 150   1      TR0 = 0;
 151   1      ET0 = 1;
 152   1      EA = 1;
 153   1      while(1)
 154   1      {
 155   2      play(xianjian);
 156   2      }
 157   1      }
 158          


MODULE INFORMATION:   STATIC OVERLAYABLE
   CODE SIZE        =    422    ----
   CONSTANT SIZE    =    318    ----
   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)