新音姬姬黃神周國

ID:81326 · 發(fā)表于 2015-7-30 08:27

新音姬姬黃神周國

;********************************************************

; <<音姬姬黃神周國>>音樂程序編程代碼清單姬學(xué)瑞

; 姬家寨電子科技實驗室制作，版權(quán)所有，侵權(quán)必究

;**********************************************************

ORG 0000H

LJMP START

ORG 000BH ;中斷入口

INC 20H ;中斷服務(wù)程序,中斷計數(shù)器加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 ;中斷計數(shù)器清0

MOV B,#00H ;表序號清0

MUSIC1:

NOP

CLR A

MOVC A,@A+DPTR ;查表取代碼

JZ END0 ;是00H,則結(jié)束

CJNE A,#0FFH,MUSIC5

LJMP MUSIC3

MUSIC5:

NOP

MOV R6,A

INC DPTR

MOV A,B

MOVC A,@A+DPTR ;取節(jié)拍代碼送R7

MOV R7,A

SETB TR0 ;啟動計數(shù)

MUSIC2:

NOP

CPL P3.7

MOV A,R6

MOV R3,A

CPL A

MOV P1,A ;顯示(修改者加入的顯示)

CPL A

LCALL DEL

MOV A,R7

CJNE A,20H,MUSIC2 ;中斷計數(shù)器(20H)=R7否?

;不等,則繼續(xù)循環(huán)

MOV 20H,#00H ;等于,則取下一代碼

INC DPTR

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 ;歌曲結(jié)束,延時1秒后繼續(xù)

MUSIC6:

MOV R3,#00H

LCALL DEL

DJNZ R2,MUSIC6

LJMP MUSIC0

DEL:

NOP

DEL3:

MOV R4,#05H

DEL4:

NOP

DJNZ R4,DEL4

NOP

DJNZ R3,DEL3

RET

DAT:

DB 60H,10H,55H,10H,4CH,10H,48H,10H,40H,10H,39H,10H,33H,10H,0FFH ;12345670;10 《壹音譜測試》

DB 30H,10H,2BH,10H,26H,10H,24H,10H,20H,10H,1CH,10H,19H,10H,0FFH ;12345670

DB 18H,10H,15H,10H,13H,10H,12H,10H,10H,10H,0EH,10H,0DH,10H,0FFH ;12345670

DB 60H,20H,55H,20H,4CH,20H,48H,20H,40H,20H,39H,20H,33H,20H,0FFH ;12345670;20

DB 30H,20H,2BH,20H,26H,20H,24H,20H,20H,20H,1CH,20H,19H,20H,0FFH ;12345670

DB 18H,20H,15H,20H,13H,20H,12H,20H,10H,20H,0EH,20H,0DH,20H,0FFH ;12345670

DB 60H,30H,55H,30H,4CH,30H,48H,30H,40H,30H,39H,30H,33H,30H,0FFH ;12345670;30

DB 30H,30H,2BH,30H,26H,30H,24H,30H,20H,30H,1CH,30H,19H,30H,0FFH ;12345670

DB 18H,30H,15H,30H,13H,30H,12H,30H,10H,30H,0EH,30H,0DH,30H,0FFH ;12345670

DB 60H,40H,55H,40H,4CH,40H,48H,40H,40H,40H,39H,40H,33H,40H,0FFH ;12345670;40

DB 30H,40H,2BH,40H,26H,40H,24H,40H,20H,40H,1CH,40H,19H,40H,0FFH ;12345670

DB 18H,40H,15H,40H,13H,40H,12H,40H,10H,40H,0EH,40H,0DH,40H,0FFH ;12345670

DB 60H,50H,55H,50H,4CH,50H,48H,50H,40H,50H,39H,50H,33H,50H,0FFH ;12345670;50

DB 30H,50H,2BH,50H,26H,50H,24H,50H,20H,50H,1CH,50H,19H,50H,0FFH ;12345670

DB 18H,50H,15H,50H,13H,50H,12H,50H,10H,50H,0EH,50H,0DH,50H,0FFH ;12345670

DB 60H,60H,55H,60H,4CH,60H,48H,60H,40H,60H,39H,60H,33H,60H,0FFH ;12345670;60

DB 30H,60H,2BH,60H,26H,60H,24H,60H,20H,60H,1CH,60H,19H,60H,0FFH ;12345670

DB 18H,60H,15H,60H,13H,60H,12H,60H,10H,60H,0EH,60H,0DH,60H,0FFH ;12345670

DB 60H,70H,55H,70H,4CH,70H,48H,70H,40H,70H,39H,70H,33H,70H,0FFH ;12345670;70

DB 30H,70H,2BH,70H,26H,70H,24H,70H,20H,70H,1CH,70H,19H,70H,0FFH ;12345670

DB 18H,70H,15H,70H,13H,70H,12H,70H,10H,70H,0EH,70H,0DH,70H,0FFH ;12345670

DB 60H,80H,55H,80H,4CH,80H,48H,80H,40H,80H,39H,80H,33H,80H,0FFH ;12345670;80

DB 30H,80H,2BH,80H,26H,80H,24H,80H,20H,80H,1CH,80H,19H,80H,0FFH ;12345670

DB 18H,80H,15H,80H,13H,80H,12H,80H,10H,80H,0EH,80H,0DH,80H,0FFH ;12345670

DB 60H,90H,55H,90H,4CH,90H,48H,90H,40H,90H,39H,90H,33H,90H,0FFH ;12345670;90

DB 30H,90H,2BH,90H,26H,90H,24H,90H,20H,90H,1CH,90H,19H,90H,0FFH ;12345670

DB 18H,90H,15H,90H,13H,90H,12H,90H,10H,90H,0EH,90H,0DH,90H,0FFH ;12345670

DB 60H,99H,55H,99H,4CH,99H,48H,99H,40H,99H,39H,99H,33H,99H,0FFH ;12345670;99

DB 30H,99H,2BH,99H,26H,99H,24H,99H,20H,99H,1CH,99H,19H,99H,0FFH ;12345670

DB 18H,99H,15H,99H,13H,99H,12H,99H,10H,99H,0EH,99H,0DH,99H,0FFH ;12345670

DB 10H,30H,12H,10H,13H,10H,15H,10H,13H,10H,10H,10H,0EH,80H,15H,30H ;54323562《貳姬姓之歌》

DB 10H,30H,13H,10H,15H,10H,15H,10H,19H,10H,1CH,80H,20H,10H,26H,10H ;53227653

DB 20H,10H,1CH,10H,18H,10H,0FFH,19H,10H,1CH,10H,0FFH,1CH,10H ;56107606

DB 18H,10H,20H,10H,24H,10H,26H,20H,2BH,10H,26H,10H,20H,10H,18H,10H ;15432351

DB 1CH,10H,20H,10H,26H,10H,2BH,10H,30H,30H,2BH,10H,26H,20H,20H,20H ;65321235

DB 1CH,20H,19H,10H,1CH,10H,20H,20H,26H,20H,26H,80H,18H,10H,1CH,10H ;67653316

DB 18H,10H,2BH,10H,26H,90H,15H,20H,18H,10H,1CH,10H,18H,20H,15H,20H ;12131612

DB 15H,80H,1CH,10H,26H,10H,15H,10H,18H,10H,1CH,10H,18H,10H,1CH,60H ;26321616

DB 1CH,40H,19H,20H,1CH,10H,26H,10H,20H,10H,1CH,10H,19H,60H,19H,40H ;67635677

DB 18H,10H,1CH,10H,13H,10H,18H,10H,15H,90H,13H,20H,15H,10H,18H,10H ;16312321

DB 15H,10H,13H,10H,10H,60H,10H,40H,20H,10H,26H,10H,15H,10H,18H,10H ;23555321

DB 1CH,10H,18H,10H,1CH,60H,0EH,30H,0EH,10H,0EH,10H,0EH,10H,10H,10H ;61666665

DB 13H,10H,0EH,10H,13H,10H,15H,10H,18H,10H,1CH,10H,13H,10H,18H,10H ;36321631

DB 15H,40H,26H,30H,20H,10H,1CH,10H,18H,10H,15H,10H,18H,10H,18H,10H ;23561211

DB 1CH,10H,1CH,40H,26H,10H,20H,10H,1CH,10H,19H,10H,18H,30H,18H,10H ;66356711

DB 18H,10H,1CH,10H,18H,20H,15H,10H,10H,10H,13H,80H,15H,30H,15H,10H ;16125322

DB 15H,10H,0EH,10H,13H,10H,15H,10H,18H,10H,1CH,10H,15H,80H,19H,10H ;26321627

DB 0FFH,19H,10H,1CH,10H,19H,10H,15H,40H,19H,10H,19H,10H,1CH,10H ;07672776

DB 26H,10H,20H,40H,18H,10H,18H,20H,1CH,10H,20H,10H,1CH,10H,18H,20H ;35116561

DB 15H,10H,15H,10H,1CH,10H,18H,10H,13H,10H,15H,40H,10H,30H,12H,10H ;22613254

DB 13H,10H,15H,10H,13H,10H,10H,10H,0EH,80H,15H,60H,10H,10H,13H,10H ;32356253

DB 15H,10H,15H,10H,19H,10H,1CH,80H,20H,10H,26H,10H,20H,10H,1CH,10H ;22765356

DB 18H,60H,19H,10H,1CH,60H,0FFH,18H,10H,20H,10H,24H,10H,26H,20H ;17601543

DB 2BH,10H,26H,10H,20H,10H,18H,10H,1CH,10H,20H,10H,26H,10H,2BH,10H ;23516532

DB 30H,80H,10H,10H,10H,10H,10H,10H,10H,10H,13H,10H,10H,10H,13H,10H ;15555353

DB 15H,10H,18H,10H,13H,10H,15H,10H,1CH,10H,18H,10H,0FFH,15H,10H ;21326102

DB 13H,10H,20H,10H,1CH,10H,18H,10H,20H,10H,24H,10H,26H,10H,2BH,10H ;35615432

DB 18H,10H,0FFH,0EH,10H,18H,10H,15H,10H,13H,10H,10H,10H,12H,10H ;10612354

DB 13H,10H,1CH,10H,18H,10H,15H,10H,13H,80H,19H,20H,13H,20H,15H,10H ;36123732

DB 13H,10H,20H,20H,1CH,80H,18H,40H,19H,20H,1CH,20H,20H,30H,1CH,20H ;35617656

DB 18H,40H,18H,20H,1CH,20H,13H,20H,18H,20H,2BH,80H,10H,30H,12H,10H ;11631254

DB 13H,10H,15H,10H,13H,10H,10H,10H,0EH,80H,13H,20H,1CH,20H,18H,10H ;32356361

DB 15H,10H,24H,10H,13H,10H,15H,80H,19H,60H,19H,10H,1CH,10H,26H,10H ;24327763

DB 20H,10H,1CH,10H,19H,80H,26H,20H,15H,20H,19H,20H,1CH,10H,26H,10H ;56732763

DB 20H,80H,18H,10H,18H,20H,1CH,10H,20H,10H,1CH,10H,18H,20H,1CH,10H ;51165616

DB 12H,10H,13H,10H,15H,10H,13H,40H,13H,10H,15H,20H,18H,10H,15H,10H ;43233212

DB 13H,10H,0EH,20H,13H,20H,15H,10H,1CH,10H,18H,40H,18H,10H,1CH,20H ;36326116

DB 20H,10H,18H,10H,15H,10H,13H,20H,10H,30H,12H,10H,13H,10H,15H,10H ;51235432

DB 13H,10H,10H,10H,0EH,80H,15H,10H,13H,10H,12H,10H,10H,10H,0EH,80H ;35623456

DB 0EH,40H,0FFH,13H,20H,15H,40H,18H,20H,15H,20H,13H,20H,12H,20H ;60321234

DB 0EH,20H,10H,80H,0FFH,1CH,20H,18H,20H,15H,20H,13H,20H,0EH,80H ;65061236

DB 0EH,40H,0EH,20H,10H,20H,18H,80H,18H,80H,18H,80H,18H,80H,18H,80H ;66511111

DB 0FFH,18H,80H ;01

DB 30H,80H,40H,80H,2BH,90H,30H,80H,40H,80H,26H,90H,26H,90H,40H,20H ;15215335《叁姬姓族歌》

DB 39H,20H,30H,40H,30H,20H,30H,20H,2BH,40H,30H,20H,2BH,20H,26H,40H ;71112123

DB 20H,20H,26H,20H,26H,40H,2BH,20H,30H,20H,2BH,40H,2BH,20H,26H,20H ;53321223

DB 2BH,40H,2BH,20H,30H,20H,39H,40H,30H,20H,40H,20H,40H,40H,40H,20H ;22161555

DB 39H,20H,30H,40H,30H,20H,30H,20H,2BH,40H,2BH,20H,26H,20H,20H,40H ;61112235

DB 2BH,20H,26H,20H,26H,40H,2BH,20H,30H,20H,39H,40H,39H,20H,30H,20H ;23321661

DB 2BH,40H,2BH,20H,26H,20H,20H,40H,1CH,20H,20H,20H,20H,80H,20H,90H ;22356555

DB 40H,20H,39H,20H,20H,40H,1CH,20H,20H,20H,20H,80H,20H,90H,20H,40H ;56565555

DB 20H,40H,26H,40H,30H,20H,39H,20H,40H,90H,20H,40H,20H,40H,26H,40H ;53165553

DB 30H,20H,39H,20H,2BH,90H,20H,40H,20H,40H,26H,40H,30H,20H,33H,20H ;16255317

DB 39H,90H,2BH,40H,2BH,40H,30H,40H,2BH,40H,26H,90H,20H,40H,20H,40H ;62212355

DB 26H,40H,30H,20H,39H,20H,40H,90H,20H,40H,20H,40H,26H,40H,30H,20H ;31655531

DB 39H,20H,2BH,90H,20H,40H,20H,40H,26H,40H,30H,20H,33H,20H,39H,90H ;62553176

DB 2BH,40H,26H,40H,20H,40H,1CH,40H,20H,90H,20H,90H,30H,80H,2BH,80H ;23565512

DB 20H,40H,20H,40H,26H,40H,30H,20H,39H,20H,40H,90H,20H,40H,20H,40H ;55316555

DB 26H,40H,30H,20H,39H,20H,2BH,90H,20H,40H,20H,40H,26H,40H,30H,20H ;31625531

DB 33H,20H,39H,90H,2BH,40H,2BH,40H,30H,40H,2BH,40H,26H,90H,20H,40H ;76221235

DB 20H,40H,26H,40H,30H,20H,39H,20H,40H,90H,20H,40H,20H,40H,26H,40H ;53165553

DB 30H,20H,39H,20H,2BH,90H,20H,40H,20H,40H,26H,40H,30H,20H,33H,20H ;16255317

DB 39H,90H,2BH,40H,26H,40H,20H,40H,1CH,40H,20H,90H,20H,90H,30H,80H ;62356551

DB 2BH,80H,13H,40H,13H,40H,10H,40H,0EH,40H,10H,90H,0EH,80H,0EH,40H ;23356566

DB 10H,40H,10H,90H,13H,40H,13H,40H,10H,40H,0EH,40H,10H,80H,13H,80H ;55335653

DB 15H,90H,15H,90H,13H,40H,13H,40H,10H,40H,0EH,40H,18H,90H,15H,80H ;22335612

DB 15H,80H,13H,90H,15H,40H,15H,40H,15H,40H,13H,40H,0EH,80H,0EH,80H ;23222366

DB 10H,90H,10H,90H,10H,40H,10H,40H,13H,40H,19H,40H,10H,90H,0EH,80H ;55553756

DB 0EH,40H,10H,40H,10H,90H,10H,40H,10H,40H,10H,40H,10H,40H,13H,80H ;65555553

DB 13H,40H,19H,40H,15H,90H,15H,90H,13H,40H,13H,40H,10H,40H,0EH,40H ;37223356

DB 10H,90H,13H,80H,15H,40H,18H,40H,19H,90H,15H,40H,15H,40H,15H,40H ;53217222

DB 13H,40H,20H,80H,13H,40H,13H,40H,13H,90H,13H,90H,10H,90H,0EH,90H ;35333356

DB 0EH,90H,0EH,90H ;66