单片机学习知识点全攻略（完结篇）（三）

20h，20h，2bh，10h，26h，10h，2bh，10h，26h，10h，26h，10h，2bh，10h，2bh，80h

　　db 18h，20h，18h，20h，26h，20h，20h，20h，20h，60h，26h，10h，2bh，20h，30h，20h

　　db 30h，20h，1ch，20h，20h，20h，20h，80h，26h，20h，30h，10h，30h，10h，30h，20h

　　db 39h，20h，26h，10h，2bh，10h，2bh，20h，2bh，40h，40h，10h，40h，10h，20h，10h

　　db 20h，10h，2bh，10h，26h，30h，30h，80h，00H

　　END

　　音乐程序汇编代码代码2 -------------Voice1.asm--------------------------

　　;标题 ‘八月桂花香’发声程序

　　;摘要 详见‘无线电’92年3期

　　;作者 周振安

　　ORG 0000H

　　LJMP START

　　ORG 000BH

　　INC 20H ;中断服务，中断计数器加1

　　MOV TH0，#0D8H

　　MOV TL0，#0EFH ;12M晶振，形成10毫秒中断

　　RETI

　　START：

　　MOV SP，#50H

　　MOV TH0，#0D8H

　　MOV TL0，#0EFH

　　MOV TMOD，#01H

　　MOV IE，#82H

　　MUSIC0：

　　NOP

　　MOV DPTR，#DAT ;表头地址送DPTR

　　MOV 20H，#00H ;中断计数器清0

　　MOV B，#00H ;表序号清0

　　MUSIC1：

　　NOP

　　CLR A

　　MOVC A，@A+DPTR ;查表取代码

　　JZ END0 ;是00H，则结束

　　CJNE A，#0FFH，MUSIC5

　　LJMP MUSIC3

　　MUSIC5：

　　NOP

　　MOV R6，A

　　INC DPTR

　　MOV A，B

　　MOVC A，@A+DPTR ;取节拍代码送R7

　　MOV R7，A

　　SETB TR0 ;启动计数

　　MUSIC2：

　　NOP

　　CPL P1.0

　　MOV A，R6

　　MOV R3，A

　　LCALL DEL

　　MOV A，R7

　　CJNE A，20H，MUSIC2 ;中断计数器（20H）=R7否？

　　;不等，则继续循环

　　MOV 20H，#00H ;等于，则取下一代码

　　INC DPTR

　　; INC B

　　LJMP MUSIC1

　　MUSIC3：

　　NOP

　　CLR TR0 ;休止100毫秒

　　MOV R2，#0DH

　　MUSIC4：

　　NOP

　　MOV R3，#0FFH

　　LCALL DEL

　　DJNZ R2，MUSIC4

　　INC DPTR

　　LJMP MUSIC1

　　END0：

　　NOP

　　MOV R2，#64H ;歌曲结束，延时1秒后继续

　　MUSIC6：

　　MOV R3，#00H

　　LCALL DEL

　　DJNZ R2，MUSIC6

　　LJMP MUSIC0

　　DEL：

　　NOP

　　DEL3：

　　MOV R4，#02H

　　DEL4：

　　NOP

　　DJNZ R4，DEL4

　　NOP

　　DJNZ R3，DEL3

　　RET

　　NOP

　　DAT：

　　DB 18H， 30H， 1CH， 10H

　　DB 20H， 40H， 1CH， 10H

　　DB 18H， 10H， 20H， 10H

　　DB 1CH， 10H， 18H， 40H

　　DB 1CH， 20H， 20H， 20H

　　DB 1CH， 20H， 18H， 20H

　　DB 20H， 80H， 0FFH， 20H

　　DB 30H， 1CH， 10H ， 18H

　　DB 20H， 15H， 20H ， 1CH

　　DB 20H， 20H， 20H ， 26H

　　DB 40H， 20H ， 20H ， 2BH

　　DB 20H， 26H， 20H ， 20H

　　DB 20H， 30H ， 80H ， 0FFH

　　DB 20H， 20H， 1CH ， 10H

　　DB 18H， 10H， 20H ， 20H

　　DB 26H， 20H ， 2BH ， 20H

　　DB 30H， 20H ， 2BH ， 40H

　　DB 20H， 20H ， 1CH ， 10H

　　DB 18H， 10H， 20H， 20H

　　DB 26H， 20H ， 2BH， 20H

　　DB 30H， 20H， 2BH ， 40H

　　DB 20H， 30H， 1CH ， 10H

　　DB 18H， 20H ， 15H ， 20H

　　DB 1CH， 20H ， 20H ， 20H

　　DB 26H， 40H， 20H ， 20H

　　DB 2BH， 20H， 26H ， 20H

　　DB 20H， 20H， 30H ， 80H

　　DB 20H， 30H， 1CH ， 10H

　　DB 20H， 10H， 1CH ， 10H

　　DB 20H， 20H， 26H ， 20H

　　DB 2BH， 20H， 30H ， 20H

　　DB 2BH， 40H， 20H ， 15H

　　DB 1FH， 05H， 20H ， 10H

　　DB 1CH， 10H， 20H ， 20H

　　DB 26H， 20H， 2BH ， 20H

　　DB 30H， 20H， 2BH ， 40H

　　DB 20H， 30H， 1CH ， 10H

　　DB 18H， 20H ， 15H ， 20H

　　DB 1CH， 20H ， 20H ， 20H

　　DB 26H， 40H， 20H ， 20H

　　DB 2BH， 20H， 26H ， 20H

　　DB 20H， 20H， 30H， 30H

　　DB 20H， 30H， 1CH， 10H

　　DB 18H， 40H， 1CH， 20H

　　DB 20H， 20H， 26H， 40H

　　DB 13H， 60H， 18H ， 20H

　　DB 15H， 40H， 13H ， 40H

　　DB 18H， 80H， 00H

　　end