AT89C51音乐盒

下面是以AT89C51为基础设计的一个音乐播放器，能够控制8首音乐的播放以及歌名显示，基本电路设计图如下：

按键分别控制上一曲、下一曲，开机启动时显示欢迎辞后开始音乐播放。以下是音乐盒的所有代码（暂时只安排了2首歌的乐谱)：

$MOD51
;
RS EQU P3.0
RW EQU P3.1
EN EQU P3.4
;
ORG 00H
JMP START
ORG 03H
JMP BACK_INT
ORG 0BH
JMP TONE_INT ;音调
ORG 13H
JMP NEXT_INT
ORG 1BH
JMP BEAT_INT ;节奏
START:
MOV R0,00H
DJNZ R0,$
MOV SP,#60H
CALL READY_OK
CALL FIRST_SONG
LOOP1:
CALL LOAD_TONE
CALL LOAD_BEAT
JNB F0,$
CLR F0
JMP LOOP1
LOAD_TONE: ;载入音调
CALL TONE_DPTR
MOV A,R7
MOVC A,@A+DPTR
JNZ CONTINUE
MOV R6,#0
MOV R7,#0
JMP LOAD_TONE
CONTINUE:
CALL BABY_DPTR
RL A
DEC A
DEC A
MOV R4,A
MOVC A,@A+DPTR
MOV 20H,A
MOV TH0,A
INC R4
MOV A,R4
MOVC A,@A+DPTR
MOV 21H,A
MOV TL0,A
INC R7
SETB TR0
RET
LOAD_BEAT: ;载入节奏
CALL BEAT_DPTR
MOV A,R6
INC R6
MOVC A,@A+DPTR
MOV R5,A
MOV TH1,#11
MOV TL1,#220
SETB TR1
RET
TONE_INT:
CLR TR0
CPL P1.0
MOV A,20H
MOV TH0,A
MOV A,21H
MOV TL0,A
SETB TR0
RETI
BEAT_INT:
CLR TR1
DJNZ R5,AGAIN
CLR TR0
SETB F0
JMP EXIT
AGAIN:;节奏为0.125s的倍数

MOV TH1,#11
MOV TL1,#220
SETB TR1
EXIT:RETI
;**************************************************************************************************
READY_OK: ;系统初始化
MOV TMOD,#11H
MOV IE,#8FH
MOV IP,#05H
MOV 22H,#01H
CLR F0
MOV R7,#0
MOV R6,#0
MOV A,#00111000B ;设定8BIT，2行，5X7字型
CALL WR_INST
MOV A,#00001000B ;关闭显示屏
CALL WR_INST
MOV A,#00000001B ;清除显示屏
CALL WR_INST
MOV A,#00001100B ;开启显示屏
CALL WR_INST
MOV A,#00000110B ;设定AC+1
CALL WR_INST
MOV A,#10000000B ;设定第一行起始地址
CALL WR_INST
MOV DPTR,#LINE
MOV R0,#40
CALL WR_STRING;
MOV A,#11000000B ;设定第二行起始地址
CALL WR_INST
MOV DPTR,#LINE0
MOV R0,#40
CALL WR_STRING
CALL WR_YIDONG
SETB C ;初始化完毕
RET
;
WR_YIDONG:;欢迎词移动显示
MOV 27H,#23
LOOP2:

MOV A,#00011000B ;显示屏左移
CALL WR_INST
CALL DELAY2
DJNZ 27H,LOOP2
MOV A,#00000001B
CALL WR_INST
RET
;
WR_LINE:
MOV A,#10000000B ;设定第一行起始地址
CALL WR_INST
CALL LINE1_DPTR
MOV R0,#40
CALL WR_STRING;
MOV A,#11000000B ;设定第二行起始地址
CALL WR_INST
CALL LINE2_DPTR
MOV R0,#40
CALL WR_STRING
RET
;
FIRST_SONG:
MOV A,#10000000B ;设定第一行起始地址
CALL WR_INST
MOV DPTR,#LINE1
MOV R0,#40
CALL WR_STRING;
MOV A,#11000000B ;设定第二行起始地址
CALL WR_INST
MOV DPTR,#LINE9
MOV R0,#40
CALL WR_STRING
RET
;
WR_INST: ;显示器控制命令(写入、执行)
CALL CHECK_BF
CLR RS
CLR RW
SETB EN
MOV P2,A
CLR EN
RET
CHECK_BF:
MOV 23H,A
BUSY:

CLR RS
SETB RW
SETB EN
MOV A,P2
CLR EN
JB ACC.7,BUSY
MOV A,23H
CALL DELAY1
RET
;
WR_STRING: ;显示内容
MOV R1,#0
NEXT:
MOV A,R1
MOVC A,@A+DPTR
CALL WR_DATA
INC R1
DJNZ R0,NEXT
RET
;
WR_DATA:
CALL CHECK_BF
SETB RS
CLR RW
SETB EN
MOV P2,A
CLR EN
RET
;
DELAY1:
MOV 24H,#15
$1: MOV 25H,#200
DJNZ 25H,$
DJNZ 24H,$1
RET
;
DELAY2:
MOV 24H,#6
$3: MOV 25H,#0
$2: MOV 26H,#0
DJNZ 26H,$
DJNZ 25H,$2
DJNZ 24H,$3
RET
;**************************************************************************************************
NEXT_INT: ;下一曲（22H决定歌曲序列）
JNC NEXT_END ;查检是否初始化完毕
MOV A,22H
RL A
MOV 22H,A
MOV R6,#0
MOV R7,#0
CALL WR_LINE ;下一歌曲名
NEXT_END: RETI
;
BACK_INT:
JNC BACK_END
MOV A,22H
RR A
MOV 22H,A
MOV R6,#0
MOV R7,#0
CALL WR_LINE
BACK_END: RETI
;**************************************************************************************************
TONE_DPTR:;确定哪首歌的乐谱，根据乐谱查表获得该调振动频率对应的时间表
JB 22H.0,L1
JB 22H.1,L2
JB 22H.2,L3
JB 22H.3,L4
JB 22H.4,L5
JB 22H.5,L6
JB 22H.6,L7
JB 22H.7,L8
L1: MOV DPTR,#TONE1
JMP TONE_END
L2: MOV DPTR,#TONE2
JMP TONE_END
L3: MOV DPTR,#TONE3
JMP TONE_END
L4: MOV DPTR,#TONE4
JMP TONE_END
L5: MOV DPTR,#TONE5
JMP TONE_END
L6: MOV DPTR,#TONE6
JMP TONE_END
L7: MOV DPTR,#TONE7
JMP TONE_END
L8: MOV DPTR,#TONE8
JMP TONE_END
TONE_END: RET
;**************************************************************************************************
BABY_DPTR: ;确定哪首歌的音调
JB 22H.0,LL1
JB 22H.1,LL2
JB 22H.2,LL3
JB 22H.3,LL4
JB 22H.4,LL5
JB 22H.5,LL6
JB 22H.6,LL7
JB 22H.7,LL8
LL1: MOV DPTR,#BABY1
JMP BABY_END
LL2: MOV DPTR,#BABY2
JMP BABY_END
LL3: MOV DPTR,#BABY3
JMP BABY_END
LL4: MOV DPTR,#BABY4
JMP BABY_END
LL5: MOV DPTR,#BABY5
JMP BABY_END
LL6: MOV DPTR,#BABY6
JMP BABY_END
LL7: MOV DPTR,#BABY7
JMP BABY_END
LL8: MOV DPTR,#BABY8
JMP BABY_END
BABY_END: RET
;**************************************************************************************************
BEAT_DPTR: ;确定哪首歌的节奏
JB 22H.0,LW1
JB 22H.1,LW2
JB 22H.2,LW3
JB 22H.3,LW4
JB 22H.4,LW5
JB 22H.5,LW6
JB 22H.6,LW7
JB 22H.7,LW8
LW1: MOV DPTR,#BEAT1
JMP BEAT_END
LW2: MOV DPTR,#BEAT2
JMP BEAT_END
LW3: MOV DPTR,#BEAT3
JMP BEAT_END
LW4: MOV DPTR,#BEAT4
JMP BEAT_END
LW5: MOV DPTR,#BEAT5
JMP BEAT_END
LW6: MOV DPTR,#BEAT6
JMP BEAT_END
LW7: MOV DPTR,#BEAT7
JMP BEAT_END
LW8: MOV DPTR,#BEAT8
JMP BEAT_END
BEAT_END: RET
;**************************************************************************************************
LINE1_DPTR: ;确定哪首歌的曲名
JB 22H.0,LN1
JB 22H.1,LN2
JB 22H.2,LN3
JB 22H.3,LN4
JB 22H.4,LN5
JB 22H.5,LN6
JB 22H.6,LN7
JB 22H.7,LN8
LN1: MOV DPTR,#LINE1
JMP LINE_END
LN2: MOV DPTR,#LINE2
JMP LINE_END
LN3: MOV DPTR,#LINE3
JMP LINE_END
LN4: MOV DPTR,#LINE4
JMP LINE_END
LN5: MOV DPTR,#LINE5
JMP LINE_END
LN6: MOV DPTR,#LINE6
JMP LINE_END
LN7: MOV DPTR,#LINE7
JMP LINE_END
LN8: MOV DPTR,#LINE8
JMP LINE_END
;
LINE2_DPTR:
JB 22H.0,LN9
JB 22H.1,LN10
JB 22H.2,LN11
JB 22H.3,LN12
JB 22H.4,LN13
JB 22H.5,LN14
JB 22H.6,LN15
JB 22H.7,LN16
LN9: MOV DPTR,#LINE9
JMP LINE_END
LN10: MOV DPTR,#LINE10
JMP LINE_END
LN11: MOV DPTR,#LINE11
JMP LINE_END
LN12: MOV DPTR,#LINE12
JMP LINE_END
LN13: MOV DPTR,#LINE13
JMP LINE_END
LN14: MOV DPTR,#LINE14
JMP LINE_END
LN15: MOV DPTR,#LINE15
JMP LINE_END
LN16: MOV DPTR,#LINE16
JMP LINE_END
LINE_END: RET
;**************************************************************************************************
LINE: DB ' welcome to baby.s music box '
LINE0: DB ' made by g_salamander '
LINE1: DB 'The 1 song '
LINE2: DB 'The 2 song '
LINE3: DB 'The 3 song '
LINE4: DB 'The 4 song '
LINE5: DB 'The 5 song '
LINE6: DB 'The 6 song '
LINE7: DB 'The 7 song '
LINE8: DB 'The 8 song '
LINE9: DB 'Happy birthday '
LINE10: DB 'Canghai xiao '
LINE11: DB
LINE12: DB
LINE13: DB
LINE14: DB
LINE15: DB
LINE16: DB
;**************************************************************************************************
TONE1:
DB 1,1,2,1,4,3,1,1,2,1,5,4,1,1,8,6,4,3,2,7,7,6,4,5,4,0
TONE2:
DB 6,6,5,3,2,1,3,2,1,16,15,15,15,16,15,16,1,2,3,5,6,5,3,2,1,2,6,6,5,3,2,1,3,2,1,16,15,15,15,16,15,16,1,2,3,5,6,5,3,2,1,2,6,5,3,2,1,1,0
TONE3:
DB
TONE4:
DB
TONE5:
DB
TONE6:
DB
TONE7:
DB
TONE8:
DB
;****************************************************************************************************************************************************
BABY1:
DB 252,68,252,173,253,10,253,52,253,131,253,200,254,6,254,34,254,87,254,133,254,155,254,194,254,228,255,3
BABY2:
DB 250,104,251,5,251,144,252,12,252,68,252,173,253,10,253,52,253,131,253,200,254,6,254,34,254,87,254,133,248,140,249,92
BABY3:
DB
BABY4:
DB
BABY5:
DB
BABY6:
DB
BABY7:
DB
BABY8:
DB
;****************************************************************************************************************************************************
BEAT1:
DB 4,4,8,8,8,16,4,4,8,8,8,16,4,4,8,8,8,8,8,4,4,8,8,8,16
BEAT2:
DB 4,2,2,6,2,16,6,2,4,2,2,16,6,2,6,2,6,2,4,4,6,2,2,2,4,16,4,2,2,6,2,16,6,2,4,2,2,16,6,2,6,2,6,2,4,4,6,2,2,2,4,16,6,2,2,2,4,16
BEAT3:
DB
BEAT4:
DB
BEAT5:
DB
BEAT6:
DB
BEAT7:
DB
BEAT8:
DB
;****************************************************************************************************************************************************
END