台湾应广单片机编程第五季03nokiatune

台湾应广单片机编程第五季他来了

https://www.bilibili.com/video/BV12f4y117Xr/

/*******************PMS150G************************/
/******************N0kia_tune**********************/
/*****************QQ774145445**********************/
/******************20200627************************/
#include        "extern.h"
feng                bit                pa.5;
anjian                bit                pa.6
void        gao();                //高电平时间固定
void        di();                //低电平时间
void        chang();        //音阶长度
void        yue();                //音乐
word        x;                        //音阶长度
word        y,ya;                //低电平时间
/**************************************************/
void        FPPA0 (void)
{
.ADJUST_IC        SYSCLK=IHRC/2                //        SYSCLK=IHRC/4

$                feng                out,Low;        //Out_Low, Out_High
$                anjian                in,High;
paph.6=1;
yue();
while(1)
{
nop;
if(!anjian)
{
yue();
}

}
}

/**************************************************/

void        gao()                //高电平时间
{
feng                =1;
.delay                700;//400+300;
feng                =0;
}

/**************************************************/
void        di()                //低电平时间
{
ya        =y;
while(ya)
{
ya--;
nop; nop; nop;
}
}

/**************************************************/
void        chang()                //音节阶长度
{
while(x)
{
x--;
gao();                //高电平时间固定
di();                //低电平时间
}
}

/**************************************************/
void        yue()                //音乐
{
/**************************************************/ //5
x=167;                //音阶长度
y=590;                //低电平时间
chang();
/**************************************************/ //4
x=145;                //音阶长度
y=680;                //低电平时间
chang();
/**************************************************/ //6
x=183;                //音阶长度
y=1202;                //低电平时间
chang();
/**************************************************/ //7
x=207;                //音阶长度
y=1020;                //低电平时间
chang();
/**************************************************/ //3
x=137;                //音阶长度
y=726;                //低电平时间
chang();
/**************************************************/ //2
x=125;                //音阶长度
y=862;                //低电平时间
chang();
/**************************************************/ //4
x=146;                //音阶长度
y=1519;                //低电平时间
chang();
/**************************************************/ //5
x=164;                //音阶长度
y=1338;                //低电平时间
chang();
/**************************************************/ //2
x=122;                //音阶长度
y=839;                //低电平时间
chang();
/**************************************************/ //1
x=110;                //音阶长度
y=952;                //低电平时间
chang();
/**************************************************/ //3
x=139;                //音阶长度
y=1610;                //低电平时间
chang();
/**************************************************/ //5
x=164;                //音阶长度
y=1338;                //低电平时间
chang();
/**************************************************/ //1
x=661;                //音阶长度
y=970;                //低电平时间
chang();
/**************************************************/
}

/**************************************************/