key_w29c02_音乐播放+code.asm

这是我用汇编语言写的音乐播放程序 此程序为用89c51控制 输出为 lm386 功放 本程序中有14首曲子代码 均是本人花费大量时间手工转换 本程序之所以叫key_W29C020_music+c

;采用W29C020C存储播放部分的程序,并存储歌曲的代码
;使用时 单片机必须未加密 且EA接地
;具体实现：采用中断来产生特定频率的方波即音调；采用延时程序来产生时值，即拍
;在延时期间不断对SPEK取反
;输出为 SPEK即P1.7
  SPEK BIT  P1.7
       ORG 0000H
       JMP START
       ORG 000BH
       JMP TT0
       ORG 0010H
;=======================================
START: MOV SP,#70H
       MOV TMOD,#01H ;设置定时器0工作方式1
       MOV IE,#82H ;设置中断
   S0: MOV DPTR,#0200H
       PUSH DPH
       PUSH DPL
   S1: POP DPL
       POP DPH
       CALL KEYCH
       MOVX A,@DPTR
       MOV R2,A
       INC DPTR
       PUSH DPH
       PUSH DPL
       JZ STOP
       ANL A,#0FH
       MOV R5,A ;用于延时时间的确定
       MOV A,R2
       SWAP A
       ANL A,#0FH
       JNZ SING
       CLR TR0
       JMP W1
SING:  DEC A;DW 从一而非零开始
       MOV 22H,A
       RL A
       MOV DPTR,#TAB ;指向表头
       MOVC A,@A+DPTR ;查表
       MOV TH0,A ;将数据高位送TH0
       MOV 21H,A ;将高位备份
       MOV A,22H ;将22H里存放的按键号送给A
       RL A ;因为查表里都是字，所以得乘2查得数据
       INC A ;取低位数据
       MOVC A,@A+DPTR
       MOV TL0,A
       MOV 20H,A
       SETB TR0
W1:    CALL DELAY
       JMP S1
STOP:  CLR TR0
       SETB SPEK
       POP DPL
       POP DPH
       INC DPH
       MOV A,DPH
       CJNE A,#0EH,NS
       MOV DPH,#00
  NS:  MOV DPL,#00
       PUSH DPH
       PUSH DPL
       JMP S1


KEYCH: JNB P1.3,NEXT
       JNB P1.2,LAST
 KRET: RET
 NEXT: INC DPH
       MOV DPL,#00
       MOV A,DPH
       CJNE A,#10H,KRET;14首
       MOV DPH,#00H
       JMP KRET
 LAST: DEC DPH
       MOV DPL,#00
       MOV A,DPH
       CJNE A,#-1H,KRET
       MOV DPH,#0DH
       JMP KRET

;=======================================
TT0:   PUSH ACC ;中断服务程序
       PUSH PSW
       MOV TL0,20H
       MOV TH0,21H
       CPL SPEK
       POP PSW
       POP ACC
       RETI
;=======================================

;=======================================
DELAY: MOV R7,#2 ;1T ;延时187ms
   W2: MOV R4,#187 ;1T
   W3: MOV R3,#248 ;1T
       DJNZ R3,$ ;2T
       DJNZ R4,W3 ;2T
       DJNZ R7,W2 ;2T
       DJNZ R5,DELAY ;2T
       RET
;=======================================
;//注：此处为了方便音乐编码，故采用G调 
  TAB: DW 64260,64400,64524,64580,64684,64777,64860 ; 中音 1  2  3  4  5  6  7
       DW 64898,64968,65030,65058,65110,65157,65198 ; 高音 1  2  3  4  5  6  7
       DW 65217                                     ; 倍高音 1
;曲子代码 14首
;  军港之夜 小城故事 红河谷 樱花  草原上升起不落的太阳           
;  卡秋莎  萍聚 友谊地久天长 送别 梁祝 兰花草 
;  两只老虎 生日快乐 让我们荡起双浆  
 
ORG 0200H
;军港之夜
DB 08H,0A2H,0C2H,0C2H,0A2H,0A2H,91H,0A1H,94H
DB 72H,61H,71H,62H,52H,88H
DB 52H,0A2H,0A2H,82H,91H,0A1H,94H,0A2H,0A4H,62H,52H,81H,91H,86H
DB 0A2H,0C2H,0C2H,0A2H,0D2H,0C4H,0A2H,0A4H,0A1H,91H,82H,91H,0A1H,96H
DB 0A4H,72H,52H,61H,71H,64H,82H,72H,0A2H,0A2H,72H,72H,61H,71H,64H
DB 72H,0A2H,0A2H,72H,72H,61H,71H,64H,92H,61H,81H,72H,62H,51H,61H,56H
DB 0A2H,0C2H,0C2H,0A2H,0D2H,0C1H,0D1H,0C4H
DB 0A1H,0C2H,0A1H,82H,0A1H,0A1H,0A2H,0C6H
DB 0A2H,0C2H,0C2H,0A2H,0A2H,91H,0A1H,94H,72H,61H,71H,62H,52H,0A8H
DB 0A2H,0C2H,0C2H,0A2H,0D2H,0C1H,0D1H,0C4H,0A1H,0C2H,0A1H,82H,0A2H,0A2H,0C6H
DB 0A2H,0C2H,0C2H,0A1H,0A1H,0A2H,91H,0A1H,94H
DB 72H,61H,71H,62H,52H,88H,00H

ORG 0300H
;小城故事
DB 08H,0A6H,0C2H,0D2H,0C2H,0D2H,0F2H,0CFH
DB 0C6H,0D2H,0A2H,92H,0A2H,0C2H,9FH
DB 96H,0A2H,0C4H,0D2H,0F2H,0D4H,0D2H,0F2H,0D4H,0C4H
DB 0C4H,0C2H,92H,0A4H,94H,8FH
DB 82H,62H,82H,92H,0A8H, 92H,0A2H,62H,82H,58H
DB 62H,82H,92H,0A2H,0C2H,0A2H,0F2H,0D2H,0CFH
DB 0F4H,0F2H,0D2H,0C4H,0C2H,0D2H,0C4H,0C2H,0A2H,98H
DB 0C4H,0C2H,0D2H,0A4H,94H,8FH
DB 00H

ORG 0400H
;红河谷
DB 08H,52H,82H,0A4H,0A2H,0A2H,0A4H,92H,0A2H,92H,88H,02H
DB 52H,82H,0A4H,82H,0A2H,0C4H,0B2H,0A2H,9CH
DB 0C2H,0B2H,0A4H,0A2H,92H,84H,92H,0A2H,0C2H,0B8H,02H
DB 62H,62H,54H,72H,82H,94H,0A2H,92H,88H,02H

DB 52H,82H,0A4H,0A2H,0A2H,0A4H,92H,0A2H,92H,88H,02H
DB 52H,82H,0A4H,82H,0A2H,0C4H,0B2H,0A2H,9CH
DB 0C2H,0B2H,0A4H,0A2H,92H,84H,92H,0A2H,0C2H,0B8H,02H
DB 62H,62H,54H,72H,82H,94H,0A2H,92H,88H,02H
DB 00H
  
ORG 0500H
;樱花
DB 08H,0D4H,0D4H,0E8H,0D4H,0D4H,0E8H
DB 0D4H,0E4H,0F4H,0E4H,0D4H,0E2H,0D2H,0B8H
DB 0A4H,84H,0A4H,0B4H,0A4H,0A2H,82H,78H
DB 0D4H,0E4H,0F4H,0E4H,0D4H,0E2H,0D2H,0B8H
DB 0A4H,84H,0A4H,0B4H,0A4H,0A2H,82H,78H
DB 0D4H,0D4H,0E8H,0D4H,0D4H,0E8H
DB 0A4H,0B4H,0D2H,0E2H,0B4H,0ACH,04H,08H

DB 0D4H,0D4H,0E8H,0D4H,0D4H,0E8H
DB 0D4H,0E4H,0F4H,0E4H,0D4H,0E2H,0D2H,0B8H
DB 0A4H,84H,0A4H,0B4H,0A4H,0A2H,82H,78H
DB 0D4H,0E4H,0F4H,0E4H,0D4H,0E2H,0D2H,0B8H
DB 0A4H,84H,0A4H,0B4H,0A4H,0A2H,82H,78H
DB 0D4H,0D4H,0E8H,0D4H,0D4H,0E8H
DB 0A4H,0B4H,0D2H,0E2H,0B4H,0ACH,04H,00H

ORG 0600H
;草原上升起不落的太阳
DB 08H,64H,62H,62H,96H,0A2H,0A4H,92H,82H,68H
DB 93H,91H,82H,92H,0A4H,0C2H,0A2H,0DFH
DB 0A4H,82H,92H,0A6H,0D2H,0A4H,92H,82H,36H,52H
DB 64H,52H,62H,94H,0A2H,82H,6FH,02H
DB 64H,62H,62H,96H,0A2H,0A4H,92H,82H,68H
DB 93H,91H,82H,92H,0A4H,0C2H,0A2H,0DFH
DB 0A4H,82H,92H,0A6H,0D2H,0A4H,92H,82H,36H,52H 
DB 64H,52H,62H,94H,0A2H,82H,6FH,02H
DB 0A4H,82H,92H,0A6H,0D2H,0A4H,92H,82H,36H,52H 
DB 64H,52H,62H,94H,0A2H,0C2H,0DFH,02H,00H

ORG 0700H
;卡秋莎
DB 08H,63H,71H,83H,61H,81H,81H,71H,61H,72H,31H,01H
DB 73H,81H,93H,71H,91H,91H,81H,71H,64H
DB 0A2H,0D2H,0C2H,0D1H,0C1H,0B1H,0B1H,0A1H,91H,0A2H,62H
DB 0B3H,91H,0A3H,81H,71H,31H,81H,71H,64H,02H

DB 63H,71H,83H,61H,81H,81H,71H,61H,72H,31H,01H
DB 73H,81H,93H,71H,91H,91H,81H,71H,64H
DB 0A2H,0D2H,0C2H,0D1H,0C1H,0B1H,0B1H,0A1H,91H,0A2H,62H
DB 0B3H,91H,0A3H,81H,71H,31H,81H,71H,64H,02H,00H

ORG 0800H
;萍聚
DB 08H,52H,62H,86H,92H,0A4H,0C2H,0C2H,0D6H,0C2H,0A4H
DB 0A2H,92H,86H,82H,82H,62H,62H,82H,9CH
DB 52H,62H,86H,92H,0A4H,0C2H,0C2H,0D6H,0C2H,0A4H
DB 0A2H,92H,86H,82H,82H,62H,62H,52H,8CH
DB 82H,82H,96H,82H,94H,0A2H,0B2H,0C6H,0D2H,0C4H
DB 0A2H,0C2H,0D6H,0D2H,0D4H,0C2H,0A2H,96H,82H,94H
DB 52H,62H,86H,92H,0A4H,0C2H,0C2H,0D6H,0C2H,0A4H
DB 0A2H,92H,86H,82H,82H,62H,62H,52H,8FH,00H


ORG 0900H
;友谊地久天长
DB 08H,52H,83H,81H,82H,0A2H,93H,81H,92H,0A2H,83H,81H,0A2H,0C2H,0D6H
DB 0D2H,0C3H,0A1H,0A2H,82H,93H,81H,92H,0A2H,83H,61H,62H,52H,86H
DB 0D2H,0C3H,0A1H,0A2H,82H,93H,81H,92H,0D2H,0C3H,0A1H,0A2H,0C2H,0D6H
DB 0F2H,0C3H,0A1H,0A2H,82H,93H,81H,92H,0A2H,83H,61H,62H,52H,88H

DB 52H,83H,81H,82H,0A2H,93H,81H,92H,0A2H,83H,81H,0A2H,0C2H,0D6H
DB 0D2H,0C3H,0A1H,0A2H,82H,93H,81H,92H,0A2H,83H,61H,62H,52H,86H
DB 0D2H,0C3H,0A1H,0A2H,82H,93H,81H,92H,0D2H,0C3H,0A1H,0A2H,0C2H,0D6H
DB 0F2H,0C3H,0A1H,0A2H,82H,93H,81H,92H,0A2H,83H,61H,62H,52H,88H,00H


ORG 0A00H
;送别 
DB 08H,0C2H,0A1H,0C1H,0F4H,0D2H,0F1H,0D1H,0C4H
DB 0C2H,81H,91H,0A2H,91H,81H,96H,02H
DB 0C2H,0A1H,0C1H,0F3H,0E1H,0D2H,0F2H,0C4H
DB 0C2H,91H,0A1H,0B3H,71H,86H,02H
DB 0D2H,0F2H,0F4H,0E2H,0D1H,0E1H,0F4H
DB 0D1H,0E1H,0F1H,0D1H,0D1H,0C1H,0A1H,81H,96H,02H
DB 0C2H,0A1H,0C1H,0F3H,0E1H,0D2H,0F2H,0C4H
DB 0C2H,91H,0A1H,0B3H,71H,86H,02H
DB 0C2H,0A1H,0C1H,0F4H,0D2H,0F2H,0C4H
DB 0C2H,81H,91H,0A2H,91H,81H,96H,02H
DB 0C2H,0A1H,0C1H,0F3H,0E1H,0D2H,0F2H,0C4H
DB 0C2H,91H,0A1H,0B3H,71H,86H,02H
DB 00H

ORG 0B00H
;梁祝
DB 08H,34H,53H,61H,83H,91H,61H,81H,53H,01H,0C3H,0F1H,0D1H,0C1H,0A1H,0C1H,93H,01H 
DB 93H,0A1H,72H,62H,53H,61H,82H,92H,32H,82H,61H,51H,61H,81H,54H,02H
DB 0A3H,0C1H,72H,92H,61H,81H,54H
DB 31H,51H,32H,51H,61H,71H,91H,64H,01H
DB 51H,61H,83H,91H,0C2H,0A2H,92H,0A1H,91H,82H
DB 61H,51H,34H,84H,61H,81H,61H,51H,31H,51H,61H,81H,54H,01H
DB 0A1H,0C1H,91H,0A1H,91H,81H,72H,62H,54H,00H

ORG 0C00H
;兰花草
DB 08H,62H,0A2H,0A2H,0A2H,0A4H,01H,92H
DB 82H,92H,82H,72H,68H
DB 0D2H,0D2H,0D2H,0D2H,0D4H,01H,0C2H
DB 32H,0C2H,0C2H,0B2H,0A8H
DB 0A2H,0D2H,0D2H,0C2H,0A4H,01H,92H
DB 82H,92H,82H,72H,64H,01H,32H
DB 32H,82H,82H,72H,64H,01H,0A2H
DB 92H,82H,72H,52H,68H

DB 62H,0A2H,0A2H,0A2H,0A4H,01H,92H
DB 82H,92H,82H,72H,68H
DB 0D2H,0D2H,0D2H,0D2H,0D4H,01H,0C2H
DB 32H,0C2H,0C2H,0B2H,0A8H
DB 0A2H,0D2H,0D2H,0C2H,0A4H,01H,92H
DB 82H,92H,82H,72H,64H,01H,32H
DB 32H,82H,82H,72H,64H,01H,0A2H
DB 92H,82H,72H,52H,68H
DB 00H

ORG 0D00H;两只老虎
DB 08H,82H,92H,0A2H,82H,82H,92H,0A2H,82H
DB 0A2H,0B2H,0C4H,0A2H,0B2H,0C4H
DB 0C1H,0D1H,0C1H,0B1H,0A2H,82H,0C1H,0D1H,0C1H,0B1H,0A2H,82H
DB 0A2H,52H,84H,0A2H,52H,84H,02H

DB 82H,92H,0A2H,82H,82H,92H,0A2H,82H
DB 0A2H,0B2H,0C4H,0A2H,0B2H,0C4H
DB 0C1H,0D1H,0C1H,0B1H,0A2H,82H,0C1H,0D1H,0C1H,0B1H,0A2H,82H
DB 0A2H,52H,84H,0A2H,52H,84H,04H
DB 00H
 
ORG 0E00H;生日快乐
DB 08H,52H,01H,51H,64H,54H 
DB 084H,074H,04H
DB 52H,01H,51H,64H,54H
DB 094H,084H,04H
DB 52H,01H,51H,0C4H,0A4H
DB 84H,74H,64H
DB 0B2H,01H,0B1H,0A4H,84H
DB 94H,84H,04H

DB 82H,82H,94H,84H
DB 0B4H,0A4H,02H
DB 82H,82H,94H,84H
DB 0C4H,0B4H,02H
DB 82H,82H,0F4H,0D4H
DB 0B4H,0A4H,94H,01H
DB 0D2H,0D2H,0D4H,0B4H
DB 0C4H,0B4H,02H
DB 00H

ORG 0F00H;让我们荡起双浆
DB 08H,02H,62H,82H,92H,0A6H,0C2H,0A2H,82H,94H,68H
DB 02H,82H,92H,0A2H,0C6H,0C2H,0D4H,94H,0ACH
DB 0A2H,0C2H,0D8H,0C6H,0D2H,0F2H,0E1H,0D1H,0C2H,0D2H,0A4H
DB 82H,92H,0A6H,0C2H,84H,64H,  82H,92H,0A2H,0D2H,0CCH,04H
DB 0A8H,0D6H,0D2H,0C2H,0B2H,0A4H, 98H,0A6H,0C2H,62H,82H,94H
DB 04H,82H,92H,0A4H,0C4H,0D4H,0F4H,0E2H,0D2H,0C2H,0A2H,0DFH

DB 02H,62H,82H,92H,0A6H,0C2H,0A2H,82H,94H,68H
DB 02H,82H,92H,0A2H,0C6H,0C2H,0D4H,94H,0ACH
DB 0A2H,0C2H,0D8H,0C6H,0D2H,0F2H,0E1H,0D1H,0C2H,0D2H,0A4H
DB 82H,92H,0A6H,0C2H,84H,64H,  82H,92H,0A2H,0D2H,0CCH,04H
DB 0A8H,0D6H,0D2H,0C2H,0B2H,0A4H, 98H,0A6H,0C2H,62H,82H,94H
DB 04H,82H,92H,0A4H,0C4H,0D4H,0F4H,0E2H,0D2H,0C2H,0A2H,0DFH,00H

 END