单片机音乐汇编

A. 求51单片机 数字音乐盒 汇编语言代码

Z8279
EQU
8701H
D8279
EQU
8700H
LO
EQU
30H
HI
EQU
31H
ORG
0000H
AJMP
START
ORG
000BH
LJMP
T0_INT
START:
MOV
SP,#60H
MOV
P3,#0FFH
MOV
TMOD,#00000000B
MOV
IE,#10000010B
LCALL
F8279
;；8279的初始化
LCALL
LO_KEY
;；判断是否有下压键
PAN1:
MOV
DPTR,Z8279
MOVX
A,@DPTR
ANL
A,#3FH
MOV
R2,A
;
；保存键值
ANL
A,#01H
;；键值1
JNZ
S_1
JZ
P_1
S_1:
LCALL
SONG_1
P_1:
MOV
A,R2
ANL
A,#02H
;；键值2
JNZ
S_2
JZ
P_2
S_2:
LCALL
SONG_2
P_2
MOV
A,R2
ANL
A,#03H
;；键值3
JNZ
S_3
JZ
P_3
S_3:
LCALL
SONG_3
P_3
MOV
A,R2
ANL
A,#04H
;；键值4
JNZ
S_4
JZ
P_4
S_4
LCALL
SONG_4
P_4
MOV
A,R2
ANL
A,#05H
;；键值5
JNZ
S_5
JZ
PAN1
S_5:
LCALL
SONG_5
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
SONG_1:
;//歌曲1
MOV
R4,#15
LOOP1:
LCALL
VALUE1
SETB
TR0
MOV
R5,#20
LCALL
DELAY
CLR
TR0
MOV
R5,#20
LCALL
DELAY
LCALL
P_KEY
DJNZ
R4,LOOP1
LCALL
SONG_2
RET
SONG_2:
;//歌曲2
MOV
R4,#15
LOOP2:
LCALL
VALUE1
SETB
TR0
MOV
R5,#20
LCALL
DELAY
CLR
TR0
MOV
R5,#20
LCALL
DELAY
LCALL
P_KEY
DJNZ
R4,LOOP2
LCALL
SONG_3
RET
SONG_3:
;//歌曲3
MOV
R4,#15
LOOP3:
LCALL
VALUE1
SETB
TR0
MOV
R5,#20
LCALL
DELAY
CLR
TR0
MOV
R5,#20
LCALL
DELAY
LCALL
P_KEY
DJNZ
R4,LOOP3
LCALL
SONG_4
RET
SONG_4:
;//歌曲4
MOV
R4,#15
LOOP4:
LCALL
VALUE1
SETB
TR0
MOV
R5,#20
LCALL
DELAY
CLR
TR0
MOV
R5,#20
LCALL
DELAY
LCALL
P_KEY
DJNZ
R4,LOOP4
LCALL
SONG_5
RET
SONG_5:
;//歌曲5
MOV
R4,#15
LOOP5:
LCALL
VALUE1
SETB
TR0
MOV
R5,#20
LCALL
DELAY
CLR
TR0
MOV
R5,#20
LCALL
DELAY
LCALL
P_KEY
DJNZ
R4,LOOP5
LCALL
SONG_1
RET
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
VALUE1:
;//歌曲1的频率设置
MOV
DPTR,#FREH1
MOV
A,R4
MOVC
A,@A+DPTR
MOV
HI,A
MOV
DPTR,#FREL1
MOV
A,R4
MOVC
A,@A+DPTR
MOV
LO,A
MOV
R4,#1*****************************************
RET
VALUE2:
;/;/歌曲2的频率设置
MOV
DPTR,#FREH2
MOV
A,R4
MOVC
A,@A+DPTR
MOV
HI,A
MOV
DPTR,#FREL2
MOV
A,R4
MOVC
A,@A+DPTR
MOV
LO,A
MOV
R4,#1
RET
VALUE3:
;//歌曲3的频率设置
MOV
DPTR,#FREH3
MOV
A,R4
MOVC
A,@A+DPTR
MOV
HI,A
MOV
DPTR,#FREL3
MOV
A,R4
MOVC
A,@A+DPTR
MOV
LO,A
MOV
R4,#1
RET
VALUE4:
;//歌曲4的频率设置
MOV
DPTR,#FREH4
MOV
A,R4
MOVC
A,@A+DPTR
MOV
HI,A
MOV
DPTR,#FREL4
MOV
A,R4
MOVC
A,@A+DPTR
MOV
LO,A
MOV
R4,#1
RET
VALUE5:
;//歌曲5的频率设置
MOV
DPTR,#FREH5
MOV
A,R4
MOVC
A,@A+DPTR
MOV
HI,A
MOV
DPTR,#FREL5
MOV
A,R4
MOVC
A,@A+DPTR
MOV
LO,A
MOV
R4,#1
RET
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
T0_INT:
MOV
TL0,LO
MOV
TH0,HI
CPL
P3.4
RETI
DELAY:
MOV
R6,#50
D1:
MOV
R7,#100
DJNZ
R7,$
DJNZ
R6,D1
DJNZ
R5,DELAY
RET
F8279:
MOV
DPTR,Z8279
MOV
A,#10H
MOVX
@DPTR,A
MOV
A,#34H
MOVX
@DPTR,A
MOV
A,#0D1H
MOVX
@DPTR,A
LCALL
DELAY
MOV
A,#80H
MOVX
@DPTR,A
MOV
A,#40H
MOVX
@DPTR,A
RET
LO_KEY:
MOV
DPTR,Z8279
MOVX
A,@DPTR
ANL
A,#0FH
JZ
LO_KEY
RET
P_KEY:
MOV
DPTR,Z8279
MOVX
A,@DPTR
ANL
A,#0FH
JNZ
SIGN1
JZ
SIGN2
SIGN1:
LJMP
PAN1
SIGN2:
RET
FREH1
DB
0,226,229,232,233,236,238,240,241,242,244,244,246,247,248
FREL1
DB
0,4,13,10,20,3,8,6,2,23,5,26,1,4,3
FREH2
DB
0,236,229,232,233,226,230,240,231,246,244,234,236,247,248
FREL2
DB
0,4,13,10,20,3,8,6,2,23,5,26,1,4,3
FREH3
DB
0,226,229,232,233,236,238,240,241,242,244,244,246,247,248
FREL3
DB
0,4,13,10,20,3,8,6,2,23,5,26,1,4,3
FREH4
DB
0,226,229,232,233,236,238,240,241,242,244,244,246,247,248
FREL4
DB
0,4,13,10,20,3,8,6,2,23,5,26,1,4,3
FREH5
DB
0,226,229,232,233,236,238,240,241,242,244,244,246,247,248
FREL5
DB
0,4,13,10,20,3,8,6,2,23,5,26,1,4,3
END

B. 怎么用单片机编写音乐程序

单片机比如51系列都有定时器，因此可以利用它来控制扬声器按一定频率发声，以下就是一个例程，用按键的按下和抬起来模拟电子琴的控制程序。

T0H EQU 30H

T0L EQU 31H

ORG 0000H

LJMP MAIN

ORG 000BH

LJMP T0ISR

ORG 0030H

MAIN:

MOV SP,#5FH

MOV TMOD,#01H

SETB ET0

SETB EA

LOOP:

MOV DPTR,#FREQ

MOV A,P2 ;控制高中低音区

MOV R1,#0

ANL A,#03H

JB ACC.0,LOOP01

MOV R1,#14

SJMP LOOP0

LOOP01:

JB ACC.1,LOOP0

MOV R1,#28

LOOP0:

JB P0.0,LOOP1 ;控制音频1234567

MOV A,R1

MOVC A,@A+DPTR

MOV T0H,A

INC DPTR

MOV A,R1

MOVC A,@A+DPTR

MOV T0L,A

LJMP LOOP

LOOP1:

JB P0.1,LOOP2

MOV A,R1

ADD A,#2

MOVC A,@A+DPTR

MOV T0H,A

INC DPTR

MOV A,R1

ADD A,#2

MOVC A,@A+DPTR

MOV T0L,A

LJMP LOOP

LOOP2:

JB P0.2,LOOP3

MOV A,R1

ADD A,#4

MOVC A,@A+DPTR

MOV T0H,A

INC DPTR

MOV A,R1

ADD A,#4

MOVC A,@A+DPTR

MOV T0L,A

LJMP LOOP

LOOP3:

JB P0.3,LOOP4

MOV A,R1

ADD A,#6

MOVC A,@A+DPTR

MOV T0H,A

INC DPTR

MOV A,R1

ADD A,#6

MOVC A,@A+DPTR

MOV T0L,A

LJMP LOOP

LOOP4:

JB P0.4,LOOP5

MOV A,R1

ADD A,#8

MOVC A,@A+DPTR

MOV T0H,A

INC DPTR

MOV A,R1

ADD A,#8

MOVC A,@A+DPTR

MOV T0L,A

LJMP LOOP

LOOP5:

JB P0.5,LOOP6

MOV A,R1

ADD A,#10

MOVC A,@A+DPTR

MOV T0H,A

INC DPTR

MOV A,R1

ADD A,#10

MOVC A,@A+DPTR

MOV T0L,A

LJMP LOOP

LOOP6:

JB P0.6,LOOP7

MOV A,R1

ADD A,#12

MOVC A,@A+DPTR

MOV T0H,A

INC DPTR

MOV A,R1

ADD A,#12

MOVC A,@A+DPTR

MOV T0L,A

LJMP LOOP

LOOP7:

CLR TR0

LJMP LOOP

;-----------------------------

T0ISR:

CLR TR0

MOV TH0,T0H

MOV TL0,T0L

SETB TR0

CPL P3.0

RETI

;-----------------------------

FREQ:

DB 0F2H,03DH ;低音1

DB 0F3H,0BDH ;低音2

DB 0F5H,014H ;低音3

DB 0F5H,0B1H ;低音4

DB 0F6H,0D0H ;低音5

DB 0F7H,0D1H ;低音6

DB 0F8H,0B5H ;低音7

DB 0F9H,01EH ;中音1

DB 0F9H,0DEH ;中音2

DB 0FAH,08AH ;中音3

DB 0FAH,0D8H ;中音4

DB 0FBH,068H ;中音5

DB 0FBH,0E8H ;中音6

DB 0FCH,05AH ;中音7

DB 0FCH,08FH ;高音1

DB 0FCH,0EFH ;高音2

DB 0FDH,045H ;高音3

DB 0FDH,06CH ;高音4

DB 0FDH,0B4H ;高音5

DB 0FDH,0F4H ;高音6

DB 0FEH,029H ;高音7

;-----------------------------

END

C. 单片机 音乐程序编写 歌曲《小星星》

只有音乐发声汇编程序，没有加入LED灯，供参考。数据代码已改为小星星发声
;**********************************************
ORG
0000H
SJMP
MAIN
ORG
0BH
AJMP
TIME0
;*************主程序************************
MAIN:
MOV
SP,#60
MOV
TMOD,#01H
;T0定时工作方式
MOV
IE,#82H
;CPU
中断允许，T0中断允许
START0:
MOV
30H,#00H
;TABLE
相对地址指针
NEXT:
MOV
A,30H

MOV
DPTR,#TABLE
;到TABLE处取
简谱码
节拍
码
MOVC
A,@A+DPTR
MOV
R2,A
;取到的简谱码
节拍码
暂存于R2中
JZ
ENDF
;取到
00
结束
ANL
A,#0FH
;否，取低四位
节拍
码
MOV
R5,A
;将节拍码存于R5中
MOV
A,R2
;简谱码
节拍
码
给A
SWAP
A
;高4位
与
低4位
交换
ANL
A,#0FH
;取简谱
码
JNZ
SING
;取到的简谱
码不是0,则去发声
CLR
TR0
;取到0
则不发声
SJMP
DLY1
;节拍延时子程序(
随节拍码变化,延时时间不同)
;---------------发声-----------------------
SING:
DEC
A
;取到的简谱码减1
;（简谱码计数值16位数据存储首地址从TABLE1
《相对地址》0处开始放起，所以要减1）
MOV
22H,A
;存入(22H)中
RL
A
;乘2
因为取的数据占两字节（16位）
;所以指针增加量要乘2
MOV
DPTR,#TABLE1
;...........简谱码转换为相应定时器16位计数值.............
MOVC
A,@A+DPTR
;到TABLE1取相应的高字节计数值
MOV
TH0,A
;高字节计数值存入TH0和(21H)中
MOV
21H,A
MOV
A,22H
;减1的简谱码给A
RL
A
;乘2
因为取的数据占两字节（16位）
;所以指针增加量要乘2
INC
A
;A
增加
取下一个字节计数值
;...........简谱码转换为相应定时器16位计数值.............
MOVC
A,@A+DPTR
;到TABLE1取相应的低字节计数值
MOV
TL0,A
;低字节计数值存入TL0和(20H)中
MOV
20H,A
SETB
TR0
;启动T0定时器让喇叭发出不同频率声音
;---------------节拍延时-------------------
DLY1:
ACALL
DELAY
;基本单位时间为1/4拍
187ms
INC
30H
;取下一个简谱码
节拍
码
SJMP
NEXT
;---------------歌放完结束---------------
ENDF:
CLR
TR0
;关闭T0定时器
AJMP
START0
;反复循环
;****T0中断子程序(用来驱动喇叭发出不同频率声音)**************
TIME0:
PUSH
ACC
PUSH
PSW
MOV
TL0,20H
;重装计数值
MOV
TH0,21H
CPL
P3.7
;驱动发声
POP
PSW
POP
ACC
RETI
;******************节拍延时187ms****************************
DELAY:
MOV
R7,#187
;187ms延时子程序
DLY2:
MOV
R4,#02
DLY3:
MOV
R3,#248
DJNZ
R3,$
DJNZ
R4,DLY3
DJNZ
R7,DLY2
DJNZ
R5,DELAY
RET
;*******音符T值表(用来让定时器发出不同的频率)**DW
表示一个
计数值
占两个字节存储单元***************
TABLE1:
DW
64260,64400,64524,64580,64684
;低音SO
低音LA
低音SI
/中音DO
中音RE
DW
64777,64820,64898,64968,65030
;中音MI
中音FA
中音SO
中音LA
中音SI
DW
65058,65110,65157,65178,65217
;高音DO
高音RE
高音MI
高音FA
高音SO
;*********简谱码
节拍码(高4位简谱码
,低4位节拍码)*************
TABLE:
DB
44H,44H,84H,84H

;
1
1
5
5
DB
094H,094H,88h

;
6
6
5
-
DB
74H,74H,63H,63H;
4
4
3
3
DB
52H,52H,48h
;
2
2
1-
DB
84H,84H,74H,74H
;
5
5
4
4
DB
64H,64H,58h;
3
3
2-
DB
84H,84H,74H,74H
;
5
5
4
4
DB
64H,64H,58h
;
3
3
2-
DB
44H,44H,84H,84H

;
1
1
5
5
DB
094H,094H,88h;
6
6
5
-


DB
74H,74H,63H,63H;
4
4
3
3
DB
52H,52H,48h;
2
2
1-
END
加入了LED灯，水平有限，效果有点不太好
;**********************************************
ORG
0000H
SJMP
MAIN
ORG
0BH
AJMP
TIME0
;*************主程序************************
MAIN:
MOV
SP,#60
MOV
TMOD,#01H
;TO定时工作方式
MOV
IE,#82H
;CPU
中断允许，TO中断允许
START0:
MOV
30H,#00H
;TABLE
相对地址指针
NEXT:
MOV
A,30H

MOV
DPTR,#TABLE
;到TABLE处取
简谱码
节拍
码
MOVC
A,@A+DPTR
MOV
R2,A
;取到的简谱码
节拍码
暂存于R2中
JZ
ENDF
;取到
00
结束
ANL
A,#0FH
;否，取低四位
节拍
码
MOV
R5,A
;将节拍码存于R5中
MOV
A,R2
;简谱码
节拍
码
给A
SWAP
A
;高4位
与
低4位
交换
ANL
A,#0FH
;取简谱
码
JNZ
SING
;取到的简谱
码不是0,则去发声
CLR
TR0
;取到0
则不发声
SJMP
DLY1
;节拍延时子程序(
随节拍码变化,延时时间不同)
;---------------发声-----------------------
SING:
DEC
A
;取到的简谱码减1
;（简谱码计数值16位数据存储首地址从TABLE1
《相对地址》0处开始放起，所以要减1）
MOV
22H,A
;存入(22H)中
RL
A
;乘2
因为取的数据占两字节（16位）
;所以指针增加量要乘2
MOV
DPTR,#TABLE1
;...........简谱码转换为相应定时器16位计数值.............
MOVC
A,@A+DPTR
;到TABLE1取相应的高字节计数值
MOV
TH0,A
;高字节计数值存入TH0和(21H)中
MOV
21H,A
MOV
A,22H
;减1的简谱码给A
RL
A
;乘2
因为取的数据占两字节（16位）
;所以指针增加量要乘2
INC
A
;A
增加
取下一个字节计数值
;...........简谱码转换为相应定时器16位计数值.............
MOVC
A,@A+DPTR
;到TABLE1取相应的低字节计数值
MOV
TL0,A
;低字节计数值存入TL0和(20H)中
MOV
20H,A
SETB
TR0
;启动T0定时器让喇叭发出不同频率声音
;---------------节拍延时-------------------
DLY1:
ACALL
DELAY
;基本单位时间为1/4拍
187ms
INC
30H
;取下一个简谱码
节拍
码
CPL
P1.0
LED灯
闪烁
CPL
P1.1

CPL
P1.2
CPL
P1.3
CPL
P1.4
CPL
P1.5
CPL
P1.6
CPL
P1.7
SJMP
NEXT
;---------------歌放完结束---------------
ENDF:
CLR
TR0
;关闭T0定时器
AJMP
START0
;反复循环
;****T0中断子程序(用来驱动喇叭发出不同频率声音)**************
TIME0:
PUSH
ACC
PUSH
PSW
MOV
TL0,20H
;重装计数值
MOV
TH0,21H
CPL
P3.7
;驱动发声
POP
PSW
POP
ACC
RETI
;******************节拍延时187ms****************************
DELAY:
MOV
R7,#187
;187ms延时子程序
DLY2:
MOV
R4,#02
DLY3:
MOV
R3,#248
DJNZ
R3,$
DJNZ
R4,DLY3
DJNZ
R7,DLY2
DJNZ
R5,DELAY
RET
;*******音符T值表(用来让定时器发出不同的频率)**DW
表示一个
计数值
占两个字节存储单元***************
TABLE1:
DW
64260,64400,64524,64580,64684
;低音SO
低音LA
低音SI
/中音DO
中音RE
DW
64777,64820,64898,64968,65030
;中音MI
中音FA
中音SO
中音LA
中音SI
DW
65058,65110,65157,65178,65217
;高音DO
高音RE
高音MI
高音FA
高音SO
;*********简谱码
节拍码(高位简谱码
,低位节拍码)*************
TABLE:
DB
44H,44H,84H,84H

;
1
1
5
5
DB
094H,094H,88h
;
6
6
5
--表示有节拍
DB
74H,74H,63H,63H
;
4
4
3
3
DB
52H,52H,48h
;
2
2
1-
DB
84H,84H,74H,74H
;
5
5
4
4
DB
64H,64H,58h
;
3
3
2-
DB
84H,84H,74H,74H
;
5
5
4
4
DB
64H,64H,58h
;
3
3
2-
DB
44H,44H,84H,84H

;
1
1
5
5
DB
094H,094H,88h
;
6
6
5
-


DB
74H,74H,63H,63H
;
4
4
3
3
DB
52H,52H,48h
;
2
2
1-
END

D. 怎样用stc89c52单片机控制蜂鸣器发出音乐的c语言程序

#include #include //本例采用89C52,晶振为11.0592MHZ //关于如何编制音乐代码,其实十分简单,各位可以看以下代码. //频率常数即音乐术语中的音调,而节拍常数即音乐术语中的多少拍; //所以拿出谱子,试探编吧! sbitBeep=P1^5; unsignedcharn=0;//n为节拍常数变量 unsignedcharcodemusic_tab[]={ 0x18,0x30,0x1C,0x10,//格式为:频率常数,节拍常数,频率常数,节拍常数, 0x20,0x40,0x1C,0x10, 0x18,0x10,0x20,0x10, 0x1C,0x10,0x18,0x40, 0x1C,0x20,0x20,0x20, 0x1C,0x20,0x18,0x20, 0x20,0x80,0xFF,0x20, 0x30,0x1C,0x10,0x18, 0x20,0x15,0x20,0x1C, 0x20,0x20,0x20,0x26, 0x40,0x20,0x20,0x2B, 0x20,0x26,0x20,0x20, 0x20,0x30,0x80,0xFF, 0x20,0x20,0x1C,0x10, 0x18,0x10,0x20,0x20, 0x26,0x20,0x2B,0x20, 0x30,0x20,0x2B,0x40, 0x20,0x20,0x1C,0x10, 0x18,0x10,0x20,0x20, 0x26,0x20,0x2B,0x20, 0x30,0x20,0x2B,0x40, 0x20,0x30,0x1C,0x10, 0x18,0x20,0x15,0x20, 0x1C,0x20,0x20,0x20, 0x26,0x40,0x20,0x20, 0x2B,0x20,0x26,0x20, 0x20,0x20,0x30,0x80, 0x20,0x30,0x1C,0x10, 0x20,0x10,0x1C,0x10, 0x20,0x20,0x26,0x20, 0x2B,0x20,0x30,0x20, 0x2B,0x40,0x20,0x15, 0x1F,0x05,0x20,0x10, 0x1C,0x10,0x20,0x20, 0x26,0x20,0x2B,0x20, 0x30,0x20,0x2B,0x40, 0x20,0x30,0x1C,0x10, 0x18,0x20,0x15,0x20, 0x1C,0x20,0x20,0x20, 0x26,0x40,0x20,0x20, 0x2B,0x20,0x26,0x20, 0x20,0x20,0x30,0x30, 0x20,0x30,0x1C,0x10, 0x18,0x40,0x1C,0x20, 0x20,0x20,0x26,0x40, 0x13,0x60,0x18,0x20, 0x15,0x40,0x13,0x40, 0x18,0x80,0x00 }; voidint0()interrupt1//采用中断0控制节拍 {TH0=0xd8; TL0=0xef; n--; } voiddelay(unsignedcharm)//控制频率延时 { unsignedi=3*m; while(--i); } voiddelayms(unsignedchara)//豪秒延时子程序 { while(--a);//采用while(--a)不要采用while(a--);各位可编译一下看看汇编结果就知道了! } voidmain() {unsignedcharp,m;//m为频率常数变量 unsignedchari=0; TMOD&=0x0f; TMOD|=0x01; TH0=0xd8;TL0=0xef; IE=0x82; play: while(1) { a:p=music_tab[i]; if(p==0x00){i=0,delayms(1000);gotoplay;}//如果碰到结束符,延时1秒,回到开始再来一遍 elseif(p==0xff){i=i+1;delayms(100),TR0=0;gotoa;}//若碰到休止符,延时100ms,继续取下一音符 else{m=music_tab[i++],n=music_tab[i++];}//取频率常数和节拍常数 TR0=1;//开定时器1 while(n!=0)Beep=~Beep,delay(m);//等待节拍完成,通过P1口输出音频(可多声道哦!) TR0=0;//关定时器1 } } 你参考这个吧

E. 单片机设计音乐播放器程序和仿真图（用汇编语言）急求~谢谢！！！

NUMEQU30H
UPEQUP3.6
DNEQUP3.7
ORG0000H
AJMPSTART;Fosc＝12MHz
ORG000BH;T0中断入口地址
AJMPINT_T0
ORG001BH;T1中断入口地址
AJMPINT_T1

START:
MOVSP,#60H
MOVTMOD,#11H
MOVIE,#8AH
MOVIP,#08H	;T1中断优先于T0中断
MOV	TH1,#3CH
MOV	TL1,#0BH		;以上为系统初始化，T=60ms

W1:	MOV	P2,#01110001B;等待提示"F"	,01110001
LCALL	GETKEY
CJNEA,#0FFH,W1
MOVA,B
CJNEA,#0AH,W2
LCALLKEY_A;输入键是'A',转KEY_A
SJMP	W1

W2:	CJNE	A,#0BH,W3
	LCALLKEY_B;输入键是'B',转KEY_B

W3:	CJNE	A,#0CH,W4
	LCALLKEY_C;输入键是'C',转KEY_C
W4:	CJNE	A,#0DH,W5
	LCALLKEY_D
SJMP	W1;输入键是'D',转KEY_D
W5:	CJNEA,#0EH,W6	;下一首
	INCNUM
	MOVA,NUM
	CJNEA,#4,W51
W51:
	JCW52
	MOVNUM,#0
W52:
	MOVA,NUM
	SJMPD0
W6:	CJNEA,#0FH,W7	;上一首
	MOVA,NUM
	JNZW61
	MOVNUM,#4
W61:
	DECNUM
	MOVA,NUM
	SJMPD0
W7:
	SJMP	W1
KEY_A:;从1～4按顺序播放
	LCALL	MUSIC1;乐曲《我和你》
	LCALL	MUSIC2;乐曲《万水千山总是情》
	LCALL	MUSIC3;乐曲《送别》
	LCALL	MUSIC4;乐曲《北京欢迎您》
	RET
KEY_B:;从1～4循环播放
T11:	LCALL	KEY_A
	SJMP	T11
	RET
KEY_C:;循环播放某一乐曲
T3:	LCALL	GETWORD
	CJNE	A,#0FFH,T3
	MOV	A,B
D0:
	JNZD1
	SJMP	E0
D1:	DECA
	JNZD2
	SJMP	E1
D2:	DECA
	JNZE3
	SJMP	E2
E0:	LCALL	MUSIC1;乐曲《我和你》
	SJMP	E0
E1:	LCALL	MUSIC2;乐曲《万水千山总是情》
	SJMP	E1
E2:	LCALL	MUSIC3;乐曲《送别》
	SJMP	E2
E3:	LCALL	MUSIC4;乐曲《北京欢迎您》
	SJMP	E3
	RET
KEY_D:;从某一乐曲开始播放，播放完后停止
T2:	LCALL	GETWORD
	CJNE	A,#0FFH,T2
	MOV	A,B
	CJNE	A,#00H,B1
	SJMP	C0
B1:	CJNE	A,#01H,B2
	SJMP	C1
B2:	CJNE	A,#02H,C3
	SJMP	C2
C0:	LCALL	MUSIC1;乐曲《我和你》
C1:	LCALL	MUSIC2;乐曲《万水千山总是情》
C2:	LCALL	MUSIC3;乐曲《送别》
C3:	LCALL	MUSIC4;乐曲《北京欢迎您》
	RET
MUSIC1:;第一首《我和你》
	MOVP2,#00000110B			;显示1,00000110
	MOVR5,#11111001B
	MOV52H,#HIGHTABLE10
MOV53H,#LOWTABLE10
	MOVNUM,#0
	LCALLmusic
	RET
MUSIC2:						;第二首《万水千山总是情》
MOV	P2,#01011011B	;显示2,01011011
	MOV	R5,#10100100B			
	MOV52H,#HIGHTABLE20
MOV53H,#LOWTABLE20
	MOVNUM,#1
LCALL	music
	RET
MUSIC3:		;第三首《送别》
	MOV	P2,#01001111B		;显示3,01001111
	MOV	R5,#10110000B
	MOV52H,#HIGHTABLE30
MOV53H,#LOWTABLE30
	MOVNUM,#2
LCALL	music
	RET
MUSIC4:	;第四首《北京欢迎您》
	MOV	P2,#01100110B		;显示4,01100110
	MOV	R5,#10011001B
	MOV52H,#HIGHTABLE40
MOV53H,#LOWTABLE40
	MOVNUM,#3
LCALL	music
	RET
music:	MOVR3,#00H		;音乐解码器
NEXT20:
	MOVA,P3
	ORLA,#0C0H
	MOVP3,A
	MOVA,P3
	CPLA
	ANLA,#0C0H
	JZNEXT21
	POPACC
	POPACC
	LJMPW1
	RET
NEXT21:
MOVA,R3
	MOV	DPH,52H
	MOV	DPL,53H
	MOVC	A,@A+DPTR
	MOV	R2,A
	JZ	STOP
	ANL	A,#0FH
	MOV	R1,A
	MOV	A,R2
	SWAP	A
	ANL	A,#0FH
	JNZ	SING
	CLR	TR0
	JMP	W11
;----------------------------------------------------------
SING:	
DEC	A
	MOV22H,A
	RL	A
	MOVDPTR,#TABLE00
	MOVC	A,@A+DPTR
	MOV	TH0,A
	MOV	21H,A
	MOV	A,22H
	RL	A
	INC	A
	MOVC	A,@A+DPTR
	MOV	TL0,A
	MOV	20H,A
	SETB	TR0
	SETB	TR1
W11:	
LCALL	DELAY3
	INC	R3
	LJMP	NEXT20
;-----------------------------------------------------------
STOP:	
CLR	TR0
	CLR	TR1
RET
;***************************************************
;定时器0中断子程序
;***************************************************
INT_T0:
	CLR	TR0
	MOV	TL0,20H
	MOV	TH0,21H
	CPL	P3.0
	SETB	TR0
	RETI
;***************************************************
;定时器1中断子程序
;***************************************************
INT_T1:
	CLRTR1
	CLRTR0
	LCALL	KEY_E
	MOVTH1,#3CH
	MOVTL1,#0BH
	DJNZ	60H,OUT
	MOV	60H,#20
OUT:	
SETB	TR1	
	RETI
KEY_E:	
JB	P3.1,L2		;中断键盘检测
	LCALL	DELAY2		;消除抖动
	JB	P3.1,L2		;如果是高电平就跳到L2
	JNBP3.1,$		;如果仍然是低电平就执行中断程序
	MOV	P2,#0111100B	;让LED显示E,01111001
L3:	JB	P3.1,$		;检测低电平，直到低电平时才跳出该指令
	LCALL	DELAY2
	JB	P3.1,L3
	JNBP3.1,$		;如果再来一个高电平才跳出中断
	MOV	P2,R5
L2:	SETBTR0
	RET
GETKEY:			;读ABCD键盘子程序
SA:	JB	P1.0,SB		;读A,是高电平表示没有按键，跳转到SB
	LCALL	DELAY2
	JB	P1.0,SA
	JNB	P1.0,$
	MOV	P2,#01110111B		;显示A,01110111
	MOV	R5,#10001000B
	MOV	A,#0FFH
	MOV	B,#0AH
	RET
SB:	JB	P1.1,C11	;读B，是高电平表示没有按键按下，跳转到C11
	LCALL	DELAY2
	JB	P1.1,SB
	JNB	P1.1,$
	MOV	P2,#01111100B	;显示B,01111100
	MOV	R5,#10000011B
	MOV	A,#0FFH
	MOV	B,#0BH
	RET
C11:JB	P1.2,ED1		;读C
	LCALL	DELAY2
	JB	P1.2,C11
	JNBP1.2,$
	MOV	P2,#00111001B		;显示C,00111001
	MOV	R5,#11000110B
	MOV	A,#0FFH
	MOV	B,#0CH
	RET
ED1:	
JB	P1.3,L0		;读D
	LCALL	DELAY2
	JB	P1.3,ED1
	JNBP1.3,$
	MOV	P2,#01011110B		;显示D,01011110
	MOV	R5,#10100001B
	MOV	A,#0FFH
	MOV	B,#0DH
L0:	JBUP,L01
	LCALLDELAY2
	JBUP,L01
	JNBUP,$
	MOVA,#0FFH
	MOVB,#0EH
	RET
L01:
	JBDN,L02
	LCALLDELAY2
	JBDN,L02
	JNBDN,$
	MOVA,#0FFH
	MOVB,#0FH
L02:
	RET
GETWORD:;读音乐序号子程序
S1:	JB	P1.4,S2		;读1键
	LCALL	DELAY2
	JB	P1.4,S1
	JNB	P1.4,$
	MOV	P2,#00000110B		;显示1
	MOV	R5,#11111001B
	MOV	A,#0FFH
	MOV	B,#00H	
	RET
S2:	JB	P1.5,S3		;读2键		
	LCALL	DELAY2
	JB	P1.5,S2
	JNB	P1.5,$
	MOV	P2,#01011011B		;显示2
	MOV	R5,#10100100B
	MOV	A,#0FFH
	MOV	B,#01H
	RET
S3:	JB	P1.6,S4		;读3键
	LCALL	DELAY2
	JB	P1.6,S3
	JNB	P1.6,$
	MOV	P2,#01001111B			;显示3
	MOV	R5,#10110000B
	MOV	A,#0FFH
	MOV	B,#02H
	RET
S4:	JB	P1.7,L1		;读4键
	LCALL	DELAY2
	JB	P1.7,S1
	JNB	P1.7,$
	MOV	P2,#01100110B			;显示4
	MOV	R5,#10011001B
	MOV	A,#0FFH
	MOV	B,#03H
L1:	RET
DELAY:;延时子程序
PUSH0;保存现场
PUSH1
MOV0,#0H
DELAY1:MOV1,#0H
DJNZ1,$
DJNZ0,DELAY1
POP1;恢复现场
POP0
RET
DELAY2:	MOV	41H,#100	;延时子程序2
F1:	MOV	42H,#250
	DJNZ	42H,$
	DJNZ	41H,F1
	RET
DELAY3:				;延时子程序3	
	MOV	R7,#2
W22:	MOV	R4,#125
W33:	MOV	R0,248
	DJNZ	R0,$
	DJNZ	R4,W33
	DJNZ	R7,W22
	DJNZ	R1,DELAY3
	RET
TABLE00:			;频率表
	DW64260,64400,64524,64580;简码值低音5,低音6,低音7,1
	DW64684,64777,64820,64898;简码值2,3,4,5
	DW64968,65030,65058,65110;简码值6,7,高音1,高音
DW65157,65178,65217;简码值高音3,高音4,高音5
;--------------------------------------------------------------------
;第一首《我和你》
;--------------------------------------------------------------------
TABLE10:DB64H,82H,42H,48H
	DB54H,64H,18H
	DB44H,54H,64H,84H
	DB5CH
	DB64H,84H,44H,04H,42H
	DB54H,64H,28H
	DB54H,14H,54H,64H
		DB4CH
		DB98H,88H
	DB98H,48H
	DB64H,24H,64H,84H
	DB5CH
		DB64H,82H,42H,48H
	DB54H,64H,28H
		DB54H,14H,54H,34H
	DB4CH
		DB00H
;--------------------------------------------------------------------
;第二首《万水千山总是情》
;--------------------------------------------------------------------
TABLE20:	DB64H,74H,84H,04H,82H,94H,84H,6CH
	DB54H,44H,04H,62H,54H,44H,2CH
		DB24H,18H,44H,54H,64H,84H,94H,64H,5CH
	DB64H,74H,84H,04H,82H,94H,84H,6CH
	DB54H,44H,04H,62H,54H,44H,2CH
		DB24H,18H,44H,64H,54H,04H,42H,24H,44H,4CH
	DB64H,84H,9CH,0A4H,94H,74H,84H,04H,92H,8CH,64H,88H
	DB64H,84H,9CH,0A4H,0A4H,94H,84H,64H,5CH
		DB64H,74H,84H,04H,82H,94H,84H,6CH
	DB54H,44H,04H,62H,54H,44H,2CH
	DB24H,18H,44H,64H,54H,42H,24,44H,4CH
		DB00H
;--------------------------------------------------------------------
;第三首《送别》
;--------------------------------------------------------------------
TABLE30:DB84H,62H,82H,0B8H
		DB94H,0B2H,92H,88H
		DB84H,42H,52H,64H,52H,44H
	DB5CH
	DB84H,62H,82H,0B4H,04H,82H
		DB94H,0B4H,88H
	DB84H,52H,62H,74H,04H,32H
	DB4CH
		DB94H,0B4H,0B8H
	DB0A4H,92H,0A2H,0B8H
		DB92H,0A2H,0B2H,92H,92H,82H,62H,42H
	DB5CH
	DB84H,62H,82H,0B4H,04H,0A2H
		DB94H,0B4H,88H
	DB84H,52H,62H,74H,04H,32H
		DB4CH
		DB00H
;--------------------------------------------------------------------
;第四首《北京欢迎您》
;--------------------------------------------------------------------
TABLE40:DB62H,82H,62H,52H,12H
		DB62H,52H,12H,64H
		DB62H,52H,22H,42H
	DB62H,54H
	DB52H,42H,22H,42H
		DB52H,62H,82H,52H
		DB62H,92H,82H,12H
		DB52H,44H
	DB52H,42H,22H,42H
	DB52H,62H,82H,52H
	DB62H,92H,82H,82H
	DB68H
		DB52H,62H,52H,42H
	DB82H,92H,64H
	DB22H,62H,64H
	DB54H,64H
		DB64H,84H
		DB0B2H,82H,94H
	DB02H,92H,82H,62H
		DB62H,82H,88H	
		DB00H
END