單片機匯編語言音樂

㈠ 如何編寫51單片機音樂程序

設計的相關音樂說明

要產生音頻脈沖，只要算出某一音頻的周期（1/頻率），然後將此周期除以2，即為半周期時間。利用半周期時間定時這個半周期時間，每當計時到後就將輸出的I/O反向，然後重復計時此半周期再對I/O反向，就可以在I/O腳上得到此頻率的脈沖。

記數脈沖值與頻率的關系公式如：N=Fi/2/Fr。N：記數值；Fi：內部計時依次為1us，故其頻率為1 MHZ；Fr：要產生的頻率。

其記數值的求法如：T=65536-N=65536-Fi/2/Fr。例：設K=65536，F=1000000=Fi=1 MHZ。求低音DO(26HZ)，中音DO(523HZ)，高音DO(1046HZ)的記數值。

每個音符使用1個音節，位元組的高四位代表音符的高低，低四位代表音符的節拍。如果1拍為0.4秒，1/4拍為0.1秒，假設1/4拍為 DELAY，則1拍為4 DELAY。

(1)單片機匯編語言音樂擴展閱讀：

功能特性

1，可以模擬63K程序空間,接近64K 的16位地址空間；

2，可以模擬64Kxdata 空間,全部64K 的16位地址空間；

3，可以真實模擬全部32 條IO腳；

4，完全兼容keilC51 UV2 調試環境,可以通過UV2 環境進行單步,斷點, 全速等操作；

5，可以使用C51語言或者ASM匯編語言進行調試 ；

6，可以非常方便地進行所有變數觀察,包括滑鼠取值觀察,即滑鼠放在某 變數上就會立即顯示出它此的值；

7，可選 使用用戶晶振，支持0－40MHZ晶振頻率；

8，片上帶有768位元組的xdata,您可以在模擬時選 使用他們,進行xdata 的模擬；

9，可以模擬雙DPTR 指針；

10，可以模擬去除ALE 信號輸出. ；

11，自適應300-38400bps 的所有波特率通訊；

12，體積非常細小,非常方便插入到用戶板中.插入時緊貼用戶板,沒有連接電纜,這樣可以有效地減少運行中的干擾,避免模擬時出現莫名其妙的故障；

13，模擬插針採用優質鍍金插針,可以有效地防止日久生銹,選擇優質園腳IC插座，保護模擬插針，同時不會損壞目標板上的插座. ；

14，模擬時監控和用戶代碼分離,不可能產生不能模擬的軟故障；

15，RS-232介面不計成本採用MAX202集成電路,串列通訊穩定可靠,絕非一般三極體的簡易電路可比。

㈡ 單片機怎麼實現演奏兩首歌（生日快樂+兩只老虎） 匯編語言

;音樂生日快樂的播放
numtim equ 20h
EQUei equ 21h
EQUwei equ 22h
EQUnled equ 23h
EQU 000hORGp startJMPg 00bh
jORGtim0
oJMP100h
ORGart:; JB P3.7,$ ;檢測播放按鍵是否按下
mov tmod,#00000001b
MOV mov ie,#10000010b
MOV mov numtim,#01h
startMOVov 30h,#00h

nextMOVv a,30h
mov MOVr,#table
MOVovc a,@a+dptr
mov r2,a
jz eMOV
anl aJZ0fh
mov r5,a
mov aMOV
swap MOV anl a,#0fh
jnz sing
clr tJNZ
jmp d1
sing: dec aJMP mov 22h,DEC rl aMOV mov dptr,#table1
MOVmovc a,@a+dptr
mov th0,a
mov MOV,a
mov MOV2h
rl aMOV inc a
movc a,@INCptr
mov tl0,a
mov MOV,a
setbMOV0
d1:lcall delay
inc 30h
jmp neINC
end0:clr JMP
jmp start0
tim0:puJMPacc
pushPUSH
mov PUSH2PSW
MOV th0,21h
MOV p1.6 ;由該口輸出音頻數據
pop psw
pop acc
POPrPSW

dPOPy: mov r7,#02h
d2: mov r4,#1MOV
d3: mov r3,#MOV
djnz r3,MOV djnz r4,d3
djnz r7,d2
djnz r5,delay
ret
table1: RET ;音樂碼表
dw 64260,64400,64524,64580
DW dw 64684,64777,64820,64898
DW dw 64968,65030,65058,65110
DW dw 65157,65178,65217
table:dDW82h,01h,81h,94h,84h
DB 0b4h,0a4h,04h
db 82hDB1h,81h,94h,84h
DB 0c4h,0b4h,04h

db 8DB,01h,81h,0f4h,0d4h
DBdb 0b4h,0a4h,94h
db 0e2DB01h,0e1h,0d4h,0b4h
DB db 0c4h,0b4h,04h

db 8DB,01h,81h,94h,84h
DB 0b4h,0a4h,04h
db 82hDB1h,81h,94h,84h
DB 0c4h,0b4h,04h

db 8DB,01h,81h,0f4h,0d4h
DBdb 0b4h,0a4h,94h
db 0e2DB01h,0e1h,0d4h,0b4h
DB db 0c4h,0b4h,04h
db 00DB
TABLE2:DB 0C0H,0F9H,DB4H,0B0H,99H,92H,8DB,0F8H,80H,90H
end

END

我只有生日快樂的程序，希望對你有幫助,從我這個程序你了解了原理，你就可以隨意搞了，玩熟悉了就簡單了！

㈢ 單片機設計音樂播放器程序和模擬圖（用匯編語言）急求~謝謝！！！

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

㈣ 跪求基於51單片機的匯編語言音樂盒程序

OUT BIT P2.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 OUT
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 26h,20h,20h,20h,20h,20h,26h,10h,20h,10h,20h,80h,26h,20h,30h,20h
db 30h,20h,39h,10h,30h,10h,30h,80h,26h,20h,20h,20h,20h,20h,1ch,20h
db 20h,80h,2bh,20h,26h,20h,20h,20h,2bh,10h,26h,10h,2bh,80h,26h,20h
db 30h,20h,30h,20h,39h,10h,26h,10h,26h,60h,40h,10h,39h,10h,26h,20h
db 30h,20h,30h,20h,39h,10h,26h,10h,26h,80h,26h,20h,2bh,10h,2bh,10h
db 2bh,20h,30h,10h,39h,10h,26h,10h,2bh,10h,2bh,20h,2bh,40h,40h,20h
db 20h,10h,20h,10h,2bh,10h,26h,30h,30h,80h,18h,20h,18h,20h,26h,20h
db 20h,20h,20h,40h,26h,20h,2bh,20h,30h,20h,30h,20h,1ch,20h,20h,20h
db 20h,80h,1ch,20h,1ch,20h,1ch,20h,30h,20h,30h,60h,39h,10h,30h,10h
db 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

㈤ 求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