蜂鸣器演奏祝你平安——51单片机.docVIP

蜂鸣器演奏祝你平安——51单片机的Proteus实验 实验原理 51单片机的一个I/O口控制speaker发声，演唱祝你平安歌曲。 主要器件以及电路图 单片机——AT89C51，蜂鸣器——speaker。 汇编程序源码 晶振12M，已在Proteus下测试，好像有点失真。程序是从网上照的，感觉不是很对劲，删除了一部分之后还是没有变化。部分注释是我后加上去的。 ;------------------------------------; 蜂鸣器演奏--祝你平安; 功能：蜂鸣器-蜂鸣器奏乐-祝你平安;------------------------------------ SPK bit P2.7 ;以后SPK就是speaker了 ORG 0000H LJMP START ORG 000BH INC 20H ;T0中断服务,中断计数器加1 MOV TH0,#0D8H MOV TL0,#0EFH ;12M晶振，形成10毫秒中断 RETISTART: MOV TH0,#0D8H MOV TL0,#0EFH MOV TMOD,#01H MOV IE,#82H ——开T0中断MUSIC0: NOP MOV DPTR,#DAT ;表头地址送DPTR MOV 20H,#00H ;中断计数器清0MUSIC1: NOP CLR A MOVC A,@A+DPTR ;查表取代码 JZ END0 ;是00H,则结束 CJNE A,#0FFH,MUSIC5 ;只要A不等于FF，一直执行MUSIC5 LJMP MUSIC3 ;当A到FF的时候，执行MUSIC3MUSIC5: NOP MOV R6,A ;代码送R6 INC DPTR MOVC A,@A+DPTR ;取节拍代码送R7 MOV R7,A SETB TR0 ;启动计数MUSIC2: NOP CPL SPK  MOV A,R6 ;按R6（代码）延时 MOV R3,A ; LCALL DEL ;利用代码（R6）来调用延时 CJNE A,20H,MUSIC2 ;中断计数器(20H)=R7否?不等,则继续循环 MOV 20H,#00H ;等于,则取下一代码 INC DPTR  LJMP MUSIC1MUSIC3: NOP CLR TR0 ;休止100毫秒 MOV R2,#0DHMUSIC4: NOP MOV R3,#0FFH LCALL DEL DJNZ R2,MUSIC4 INC DPTR LJMP MUSIC1END0: NOP MOV R2,#64H ;歌曲结束,延时1秒后继续MUSIC6: MOV R3,#00H LCALL DEL DJNZ R2,MUSIC6 LJMP MUSIC0DEL: ;DEL子程序利用R3来延时一定时间  NOPDEL3: MOV R4,#02HDEL4: NOP DJNZ R4,DEL4 NOP DJNZ R3,DEL3 RET NOPDAT: ;祝你平安db 26h,20h,20h,20h,20h,20h,26h,10h,20h,10h,20h,80h,26h,20h,30h,20hdb 30h,20h,39h,10h,30h,10h,30h,80h,26h,20h,20h,20h,20h,20h,1ch,20hdb 20h,80h,2bh,20h,26h,20h,20h,20h,2bh,10h,26h,10h,2bh,80h,26h,20hdb 30h,20h,30h,20h,39h,10h,26h,10h,26h,60h,40h,10h,39h,10h,26h,20hdb 30h,20h,30