51单片机演奏乐曲的程序

sbit SPK = P1^7 ;指定扬声器接口

ORG 0000H
LJMP START
ORG 000BH
LJMP T0_INT
ORG 001BH
LJMP T1_INT
;------------------------------------------------------------
B_ZQ_TAB: ;定时半周期初始值数据表（数据的意义可见前一篇博文）

DW 63625, 63833, 64019, 64104, 64260, 64400, 64524 ;低音区:1 2 3 4 5 6 7
DW 64580, 64685, 64778, 64820, 64898, 64968, 65030 ;中音区:1 2 3 4 5 6 7
DW 65058, 65110, 65157, 65178, 65218, 65252, 65283 ;高音区:1 2 3 4 5 6 7
DW 65297 ;超高音:1
;------------------------------------------------------------
MUSIC_TAB: ;自定义乐曲数据表
;一个音符有三个数字, 分别是音名、音区和时长（以1/8拍为单位）

DB 3, 1, 8 ;3, 中音, 8个1/8拍
DB 5, 1, 6 ;5, 中音, 6个1/8拍
DB 6, 1, 2 ;6, 中音, 2个1/8拍

DB 1, 2, 6 ;1, 高音, 6个1/8拍
DB 2, 2, 2 ;2, 高音, 2个1/8拍
DB 6, 1, 2 ;6, 中音, 2个1/8拍
DB 1, 2, 2 ;1, 高音, 2个1/8拍
DB 5, 1, 4 ;5, 中音, 4个1/8拍

DB 5, 2, 6
DB 1, 3, 2 ;1, 超高, 2个1/8拍
DB 6, 2, 2
DB 5, 2, 2
DB 3, 2, 2
DB 5, 2, 2
DB 2, 2, 8

DB 0, 0, 8 ;休止, 8个1/8拍
;------------------------------------------
DB 5, 1, 8
DB 3, 1, 4
DB 5, 1, 4
DB 1, 2, 16 ;1, 高音, 16个1/8拍
DB 6, 1, 8 ;6, 中音, 8个1/8拍
DB 1, 2, 4 ;1, 高音, 4个1/8拍
DB 6, 1, 4 ;6, 中音, 4个1/8拍
DB 5, 1, 16 ;5, 中音, 16个1/8拍

DB 0, 0, 8 ;休止, 8个1/8拍

DB 0, 0, 0 ;乐曲结束标记
;============================================================
START:
MOV TMOD, #11H ;T1, T0皆为定时方式1
MOV TL1, #(65536-1000) MOD 256
MOV TH1, #(65536-1000) / 256 ;1ms@12MHz
SETB TR1
MOV IE, #10001010B
MOV IP, #00000010B
MOV 42H, #200 ;以200ms，为1/8拍
MOV DPTR, #MUSIC_TAB
;-------------------下面是从自定义乐曲数据表中读取三个字节
M_LOOP:
CLR A
MOVC A, @A+DPTR
MOV R2, A
INC DPTR
CLR A
MOVC A, @A+DPTR
MOV B, A
INC DPTR
CLR A
MOVC A, @A+DPTR
JZ START
;-------------------下面是根据前两个字节，在半周期初值表中找
MOV R3, A
INC DPTR
MOV 44H, DPL
MOV 45H, DPH
MOV A, #7
MUL AB
ADD A, R2
JZ JI_SHI
DEC A
ADD A, ACC
MOV R2, A
MOV DPTR, #B_ZQ_TAB
MOVC A, @A+DPTR
MOV TH0, A
MOV 41H, A
MOV A, R2
INC A
MOVC A, @A+DPTR
MOV TL0, A
MOV 40H, A
SETB TR0
JI_SHI:
MOV 42H, #100
MOV 43H, #0
MOV A, R3 ;用第三个字节控制时长
CJNE A, 43H, $
CLR TR0
SETB SPK
MOV DPL, 44H
MOV DPH, 45H
SJMP M_LOOP
;------------------------------------------------------------
T0_INT:
MOV TL0, 40H
MOV TH0, 41H
CPL SPK
RETI
;------------------------------------------------------------
T1_INT:
MOV TL1, #(65536-1000) MOD 256
MOV TH1, #(65536-1000) / 256 ;1ms@12MHz
DJNZ 42H, T1_END
MOV 42H, #200 ;此数值越大，节奏越慢
INC 43H ;43H单元每隔200ms，加一次一
T1_END:
RETI
;============================================================