SPK EQU P3.7 ; 蜂鳴器所在端口

ORG 0000H

LJMP START

ORG 000BH

LJMP TIM0

ORG 0030H

START: MOV TMOD,#01H

MOV IE,#82H

MOV R2,#00H ;簡譜碼指針

NEXT:

MOV A,R2

MOV DPTR,#TABLE

MOVC A,@A+DPTR ;取簡譜碼

JZ END0 ;是否取到結束碼

MOV R7,A

ANL A,#0FH ;取出節(jié)拍碼

MOV R3,A

MOV A,R7

SWAP A

ANL A,#0FH ;取出音符碼

JNZ SONG

CLR TR0 ;休止符不發(fā)音

LJMP D1

;================= 歌曲播放子程序 === SONG: DEC A

RL A ;得到音頻計時初始常數(shù)高8位地址 MOV R7,A

MOV DPTR,#TABLE1

MOVC A,@A+DPTR

MOV TH0,A

MOV 21H,A

MOV A,R7

INC A ;得到音頻計時初始常數(shù)低8位地址 MOVC A,@A+DPTR

MOV TL0,A

MOV 20H,A

SETB TR0

D1: CALL DELAY

INC R2

SJMP NEXT

END0: CLR TR0 ;歌曲結束

LJMP START ;歌曲重復

總結

以上是生活随笔為你收集整理的蜂鸣器发出兰花草c语言程序,兰花草源程序的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。