音樂程序的实现.docVIP

单片机音乐编程实验　　在很多儿童玩具或一些需要音乐提示（如报警仪、定时闹钟、电子宠物等）的场合，需要用到单片机音乐编程的功能。原理就是利用单片机的引脚发出某一定频率的信号驱动外部发声设备发出声音，或者放出美妙的音乐。　　在这个例程中，音乐曲调的原始编码已做好，只要按照曲谱给定参数即可实现播放不同的乐曲，使实验生动有趣。参数两个：前一个按照曲谱对照编码表给定，第二个，为节拍数，8-1拍，4-半拍。 　　　　　　musich equ 40h　　　　 ;音乐定时高位数据 　　　　　　musicl equ 41h　　　　 ;音乐定时低位数据　　　　　　musicstart equ 42h　　 ;音乐开始首地址 ; ************************ 预定义结束 ******************* 　　　　　　org 00h 　　　　　　　 ;程序开始　　　　　　jmp main 　　　　　　　;跳转到主程序 　　　　　　org 1bh 　　　　　　　 ;定时器T1中断入口地址　　　　　　jmp timer1　　　　　　 ;定时器服务程序 　　　　　　org 030h 　　　　　　　;主程序代码开始 　　　 main:mov sp,#30h　　　　　　;设置堆栈　　　　　　lcall music 　　　　　 ;调用音乐程序　　　　　　jmp main 　　　　　　　;重新开始 　 musdelay:mov r0,#20　　　　　　 ;短时间延时　　　　　d:djnz r0,d 　　　　　　 ;延时时间 20uS　　　　　　ret　　　　　　　　　　;返回; ************ 定时器 服务程序 *******************　　 timer1:clr tr1 　　　　　　　 ;停止定时器工作　　　　　　mov th1,musich　　　　 ;重新设置定时初值 　　　　　　mov tl1,musicl 　　　　;　　　　　　cpl beep 　　　　　　　;从蜂鸣器输出声音 　　　　　　setb tr1　　　　　　　 ;开始定时工作 　　　　　　reti 　　　　　　　　　;中断返回;**************************************************** ;************ 音乐播放程序 ********************* 　　　music:mov tmod,#10h　　　　　;设置定时器T1工作方式1 　　　　　　setb ea　　　　　　　　;总的中断　　　　　　setb et1　　　　　　　 ;定时器T1中断允许　　　　　　mov musicstart,#00h　　;音乐开始地址　　　　　　mov musich,#0ffh 　　　;音乐定时常数高位 　　　　　　mov musicl,#0ffh 　　　;音乐定时常数低位　　　loopm:mov dptr,#mu_tab　　　 ;得到音符表头　　　　　　mov a,musicstart　　　 ;开始查表 　　　　　　movc a,@a+dptr　　　　 ;获得音乐数据　　　　　　jz musend 　　　　　　 ;结束符 00H，返回 　　　　　　rl a ;A*2　　　　　　mov b,a　　　　　　　　;暂存地址　　　　　　mov dptr,#mustab 　　　;获得音符表头　　　　　　movc a,@a+dptr　　　　 ;根据音乐数据查得定时常数　　　　　　mov musich,a 　　　　　;保存定时常数高位 　　　　　　mov th1,a 　　　　　　 ;设置定时器高位常数 　　　　　　mov a,b　　　　　　　　;开始找低位数据 　　　　　　inc a 　　　　　　　　 ;指向下一个数据　　　　　　mov dptr,#mustab 　　　;得到音符表头　　　　　　movc a,@a+dptr　　　　 ;查得低位数据 　　　　　　mov musicl,a　　　　　 ;保存数据　　　　　　mov tl1,a 　　　　　　 ;设置定时低位常数 　　　　　　setb tr1　　　　　　　 ;定时器T1开始工作 　　　　　　mov dptr,#mu_tab 　　　;得到音乐表 　　　　　　inc musicstart　　　　 ;指向下一个单元（音符节拍）　　　　　　mov a,musicstart 　　　;开始查找　　　　　　movc a,@a+dptr　　　　 ;找到数据　　　　　　lcall delay1　　　　　 ;根据参数延时，发出持续音乐　　　　　　inc musicstart