📄 八月桂花香唱歌程序。.htm
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0040)http://www.8951.com/test/test/8music.htm -->
<HTML><HEAD><TITLE>单片机音乐试验</TITLE><LINK href="八月桂花香唱歌程序。.files/gpszx.css"
type=text/css rel=stylesheet><LINK href="../index.files/gpszx.css" type=text/css
rel=stylesheet>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2900.2523" name=GENERATOR>
<META content=FrontPage.Editor.Document name=ProgId></HEAD>
<BODY>
<DIV align=center>
<CENTER>
<TABLE height=356 cellSpacing=0 cellPadding=0 width=769 bgColor=#66ccff
borderColorLight=#000000 border=0>
<TBODY>
<TR>
<TD align=middle width=752 bgColor=#ffffff colSpan=5 height=356><FONT
font><FONT color=#ff0000>单片机提高</FONT><FONT color=#ff0000><IMG height=11
src="八月桂花香唱歌程序。.files/gif091.gif" width=28 border=0></FONT><FONT
color=#454545>WWW.51C51.COM
自学单片机的网站：作中国单片机编程技术普及推广第一站！倚天一出宝刀屠龙</FONT></FONT><IMG height=100
src="八月桂花香唱歌程序。.files/titou2.jpg" width=760 border=0> <FONT color=#454545
font><A href="http://www.8951.com/index.htm">返回主页 给我留言</A> <A
href="http://www.8951.com/jiaoxue.htm">单片机教学</A> <A
href="http://www.8951.com/tigao.htm">单片机提高</A> <A
href="http://www.8951.com/pinzhi.htm">品质技术</A> 单片机网址 <A
href="http://www.8951.com/down/down.htm">软件下载</A> <A
href="http://www.8951.com/yejin/yejin.htm">学液晶显示</A> <A
href="http://www.8951.com/chanpin.htm">产品介绍</A> <A
href="http://www.8951.com/10/huikan.htm">如何购买</A></FONT>
<CENTER></CENTER>
<P
align=left>;八月桂花香唱歌程序。<BR>;***************************************************************************<BR>;*
(程序转载请著明出处 ，未声明可适应本站腾龙/isp开发套件/倚天版开发套件
*<BR>;* E-mail:sxj1974@163.com (51c51 test web)
51单片机学习网，自学单片机的网站
*<BR>;* Create by :石学军 <A
href="http://www.51c51.com/">http://www.51c51.com/</A>
www.8951.com
更多例程请登陆网站
*<BR>;***************************************************************************<BR>ORG
0000H<BR>LJMP START<BR>ORG 000BH ;中断入口<BR><BR>INC 20H
;中断服务程序,中断计数器加1<BR>MOV TH0,#0D8H<BR>MOV TL0,#0EFH
;12M晶振，形成10毫秒中断<BR>RETI <BR><BR>START: <BR>MOV SP,#50H<BR>MOV
TH0,#0D8H<BR>MOV TL0,#0EFH<BR>MOV TMOD,#01H<BR>MOV
IE,#82H<BR>MUSIC0:<BR>NOP<BR>MOV DPTR,#DAT ;表头地址送DPTR<BR>MOV 20H,#00H
;中断计数器清0<BR>MOV B,#00H ;表序号清0<BR>MUSIC1:<BR>NOP<BR>CLR A<BR>MOVC A,@A+DPTR
;查表取代码<BR>JZ END0 ;是00H,则结束<BR>CJNE A,#0FFH,MUSIC5<BR>LJMP
MUSIC3<BR>MUSIC5:<BR>NOP<BR>MOV R6,A<BR>INC DPTR<BR>MOV A,B<BR>MOVC
A,@A+DPTR ;取节拍代码送R7<BR>MOV R7,A<BR>SETB TR0
;启动计数<BR>MUSIC2: <BR>NOP<BR>CPL P3.3<BR>MOV A,R6<BR>MOV R3,A<BR>CPL
A<BR>MOV P1,A ;显示(修改者加入的显示)<BR>CPL A<BR>LCALL DEL<BR>MOV A,R7<BR>CJNE
A,20H,MUSIC2 ;中断计数器(20H)=R7否?<BR>;不等,则继续循环<BR>MOV 20H,#00H
;等于,则取下一代码<BR>INC DPTR<BR>LJMP MUSIC1<BR>MUSIC3:<BR>NOP<BR>CLR TR0
;休止100毫秒<BR>MOV R2,#0DH<BR>MUSIC4:<BR>NOP<BR>MOV R3,#0FFH<BR>LCALL
DEL<BR>DJNZ R2,MUSIC4<BR>INC DPTR<BR>LJMP MUSIC1<BR>END0:<BR>NOP<BR>MOV
R2,#64H ;歌曲结束,延时1秒后继续<BR>MUSIC6:<BR>MOV R3,#00H<BR>LCALL DEL<BR>DJNZ
R2,MUSIC6<BR>LJMP MUSIC0<BR>DEL:<BR>NOP<BR>DEL3: <BR>MOV
R4,#05H<BR>DEL4: <BR>NOP<BR>DJNZ R4,DEL4<BR>NOP<BR>DJNZ
R3,DEL3<BR>RET<BR><BR>DAT: <BR>DB 18H, 30H, 1CH, 10H<BR>DB 20H, 40H,
1CH, 10H <BR>DB 18H, 10H, 20H, 10H<BR>DB 1CH, 10H, 18H, 40H<BR>DB
1CH, 20H, 20H, 20H<BR>DB 1CH, 20H, 18H, 20H <BR>DB 20H, 80H,
0FFH,20H<BR>DB 30H, 1CH, 10H, 18H<BR>DB 20H, 15H, 20H, 1CH<BR>DB 20H, 20H,
20H, 26H<BR>DB 40H, 20H, 20H, 2BH<BR>DB 20H, 26H, 20H, 20H <BR>DB
20H, 30H, 80H, 0FFH<BR>DB 20H, 20H, 1CH, 10H<BR>DB 18H, 10H, 20H,
20H<BR>DB 26H, 20H, 2BH, 20H<BR>DB 30H, 20H, 2BH, 40H<BR>DB 20H, 20H, 1CH,
10H<BR>DB 18H, 10H, 20H, 20H<BR>DB 26H, 20H, 2BH, 20H<BR>DB 30H, 20H, 2BH,
40H<BR>DB 20H, 30H, 1CH, 10H<BR>DB 18H, 20H, 15H, 20H<BR>DB 1CH, 20H, 20H,
20H<BR>DB 26H, 40H, 20H, 20H <BR>DB 2BH, 20H, 26H, 20H <BR>DB
20H, 20H, 30H, 80H<BR>DB 20H, 30H, 1CH, 10H<BR>DB 20H, 10H, 1CH, 10H<BR>DB
20H, 20H, 26H, 20H<BR>DB 2BH, 20H, 30H, 20H<BR>DB 2BH, 40H, 20H, 15H<BR>DB
1FH, 05H, 20H, 10H<BR>DB 1CH, 10H, 20H, 20H<BR>DB 26H, 20H, 2BH, 20H<BR>DB
30H, 20H, 2BH, 40H<BR>DB 20H, 30H, 1CH, 10H<BR>DB 18H, 20H, 15H, 20H<BR>DB
1CH, 20H, 20H, 20H<BR>DB 26H, 40H, 20H, 20H<BR>DB 2BH, 20H, 26H, 20H<BR>DB
20H, 20H, 30H, 30H <BR>DB 20H, 30H, 1CH, 10H<BR>DB 18H, 40H, 1CH,
20H<BR>DB 20H, 20H, 26H, 40H<BR>DB 13H, 60H, 18H, 20H<BR>DB 15H, 40H, 13H,
40H<BR>DB 18H, 80H,
00H<BR>end<BR><BR></P></TD></TR></TBODY></TABLE></DIV></CENTER></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -