51单片机汇编语言音乐程序文档格式.docx

1、 SETB ET0 SETB ET1 SETB TR0 SETB TR1 SETB NEXT JB NEXT,$ JMP YDPD: CJNE A,#00H,L1 INC DPHL1: RET ;音调产生子程序TONE: CPL P2.0 RETI节拍产生子程序BEAT: DJNZ R5,L2L3:L2: CLR TR0 CLR TR1 CLR NEXT JMP L3两只老虎音符表 TAB: DB 0FBH,0F9H,08H,0FCH,066H,08H,0FCH,0C7H,08H,0FBH,0F9H,08H DB 0FCH,0C7H,08H,0FCH,0F3H,08H,0FDH,4AH,10H

2、,0FCH,0C7H,08H DB 0FCH,0F3H,08H,0FDH,4AH,08H,0FDH,4AH,04H,0FDH,95H,04H DB 0FDH,4AH,04H,0FCH,0F3H,04H,0FCH,0C7H,08H,0FBH,0F9H,08H DB 0FDH,4AH,04H,0FDH,95H,04H,0FDH,4AH,04H,0FCH,0F3H,04H DB 0FCH,0C7H,08H,0FBH,0F9H,08H,0FCH,66H,08H,0FAH,93H,08H DB 0FBH,0F9H,08H,00H,08H,0FCH,66H,04H,0FAH,93H,08H DB 0FBH

3、,0F9H,08H,00H,10H,0FFH,0FFH END 02祝你平安ORG 0000H LJMP START ORG 000BH INC 20H ;中断服务,中断计数器加1 MOV TH0,#0D8H MOV TL0,#0EFH ;12M晶振，形成10毫秒中断 RETI START: MOV SP,#50H MOV TL0,#0EFH MOV TMOD,#01H MOV IE,#82H MUSIC0: NOP MOV DPTR,#DAT ;表头地址送DPTR MOV 20H,#00H ;中断计数器清0 MOV B,#00H ;表序号清0 MUSIC1: CLR A MOVC A,A+D

4、PTR ;查表取代码 JZ END0 ;是00H,则结束 CJNE A,#0FFH,MUSIC5 LJMP MUSIC3 MUSIC5: MOV R6,A INC DPTR MOV A,B 取节拍代码送R7 MOV R7,A SETB TR0 ;启动计数 MUSIC2: CPL P3.3 MOV A,R6 MOV R3,A LCALL DEL MOV A,R7 CJNE A,20H,MUSIC2 ;中断计数器（20H）=R7否?不等,则继续循环 等于,则取下一代码 ; INC B LJMP MUSIC1 MUSIC3: CLR TR0 ;休止100毫秒 MOV R2,#0DH MUSIC4:

5、MOV R3,#0FFH DJNZ R2,MUSIC4 END0: MOV R2,#64H ;歌曲结束,延时1秒后继续 MUSIC6: MOV R3,#00H DJNZ R2,MUSIC6 LJMP MUSIC0 DEL:DEL3: MOV R4,#02H DEL4: DJNZ R4,DEL4 DJNZ R3,DEL3 RET 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,

6、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,2

7、6h,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,3

8、0h,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 03生日歌 JMP START ORG 000BH JMP TIM0 ORG 0030H MOV TMOD,#01H START0:MOV 30H,#00H NEXT: MOV A,30H MOV DPTR,#TABLE MOVC A,A+

9、DPTR MOV R2,A JZ END0 ANL A,#0FH MOV R5,A MOV A,R2 SWAP A JNZ SING CLR TR0 JMP D1 SING: DEC A MOV 22H,A RL A MOV DPTR,#TABLE1 MOV TH0,A MOV 21H,A MOV A,22H INC A MOV TL0,A MOV 20H,A SETB TR0 D1: CALL DELAY INC 30H JMP NEXT CLR TR0 JMP START0 TIM0: PUSH ACC PUSH PSW MOV TH0,21H MOV TL0,20H CPL P3.7 P

10、OP PSW POP ACC RETI DELAY: MOV R7,#02 D2: MOV R4,#187 D3: MOV R3,#248 DJNZ R3,$ DJNZ R4,D3 DJNZ R7,D2 DJNZ R5,DELAY RET TABLE1: DW 64260,64400,64524,64580 DW 64684,64777,64820,64898 DW 64968,65030,65058,65110 DW 65157,65178,65217 TABLE:DB 82H,01H,81H,94H,84H DB 0B4H,0A4H,04H DB 0C4H,0B4H,04H DB 82H,

11、01H,81H,0F4H,0D4H DB 0B4H,0A4H,94H DB 0E2H,01H,0E1H,0D4H,0B4H DB 00H END 04八月桂花香LJMP START INC 20H ;MOV TH0,#0D8H MOV TL0,#0EFH ;RETI MOV SP,#50H MOV TL0,#0EFH MOV IE,#82H NOP MOV DPTR,#DAT ;MOV 20H,#00H ;CLR A ;A清零 MOVC A,A+DPTR ;JZ END0 ;CJNE A,#0FFH,MUSIC5 ;如果是休止符，往下执行 LJMP MUSIC3 MOV R6,A ;R6=18

12、H音符的频率 INC DPTR ;DPTR加一 MOV A,#0 MOV R7,A ;R7=30H音符发音的时间 SETB TR0 ;CPL P2.3 ;P2.3是音乐输出引脚 MOV A,R6 MOV R3,A ;籖3=R6=18H LCALL DEL MOV A,R7 CJNE A,20H,MUSIC2 ;INC DPTR LJMP MUSIC1 NOP ;CLR TR0 MOV R2,#0DH ;R2=13 MOV R3,#0FFH ;R3=255 DJNZ R2,MUSIC4 MOV R2,#0FFH ;MOV R3,#00H DJNZ R2,MUSIC6 LJMP MUSIC0 MO

13、V R4,#02H DJNZ R4,DEL4 DJNZ R3,DEL3 RET DB 18H, 30H, 1CH, 10H DB 20H, 40H, 1CH, 10H DB 18H, 10H, 20H, 10H DB 1CH, 10H, 18H, 40H DB 1CH, 20H, 20H, 20H DB 1CH, 20H, 18H, 20H DB 20H, 80H, 0FFH, 20H DB 30H, 1CH, 10H , 18H DB 20H, 15H, 20H , 1CH DB 20H, 20H, 20H , 26H DB 40H, 20H , 20H , 2BH DB 20H, 26H,

14、 20H , 20H DB 20H, 30H , 80H , 0FFH DB 20H, 20H, 1CH , 10H DB 18H, 10H, 20H , 20H DB 26H, 20H , 2BH , 20H DB 30H, 20H , 2BH , 40H DB 20H, 20H , 1CH , 10H DB 18H, 10H, 20H, 20H DB 26H, 20H , 2BH, 20H DB 30H, 20H, 2BH , 40H DB 20H, 30H, 1CH , 10H DB 18H, 20H , 15H , 20H DB 1CH, 20H , 20H , 20H DB 26H,

15、 40H, 20H , 20H DB 2BH, 20H, 26H , 20H DB 20H, 20H, 30H , 80H DB 20H, 10H, 1CH , 10H DB 20H, 20H, 26H , 20H DB 2BH, 20H, 30H , 20H DB 2BH, 40H, 20H , 15H DB 1FH, 05H, 20H , 10H DB 1CH, 10H, 20H , 20H DB 26H, 20H, 2BH , 20H DB 20H, 20H, 30H, 30H DB 20H, 30H, 1CH, 10H DB 18H, 40H, 1CH, 20H DB 20H, 20H

16、, 26H, 40H DB 13H, 60H, 18H , 20H DB 15H, 40H, 13H , 40H DB 18H, 80H, 00H end 05兰花草 SPK EQU P3.3 ; 蜂鸣器所在端口 ORG 0000H JMP START MOV A,R3 MOVC A,A+DPTR JZ START INC R3 MOV R2,A ACALL SONG SJMP NEXT = = 歌曲播放子程序 = SONG: MOV A,R2 ; 取出节拍 RL A JNZ KEEP MOV A,#01H KEEP:REPEAT: ACALL EIGHTH DJNZ R2,REPEAT =

17、产生1/8拍延时子程序 = EIGHTH: MOV A,R7 ; 查表取出廷时参数,保存到R4 MOV DPTR,#DELAY_T MOV R4,A 查表取出1/8拍周期数,保存到R5 MOV DPTR,#S_PARA MOV R5,A NEXTCYC: ACALL SOUND DJNZ R5,NEXTCYC = 发声子程序 = SOUND: SETB SPK ACALL SDELAY CLR SPK = 延时子程序 = SDELAY: MOV A,R4 ; 廷时值在R4内 MOV R0,A XL2: MOV R1,#03H DL1: DJNZ R1,DL1 DJNZ R0,XL2 = 1/8

18、拍周期表 = S_PARA: DS 1DH DB 15H,16H,00 DB 19H,00H,1CH,00H,1FH,21H,00H,25H DB 00H,29H,2CH,00H,31H,34H,37H,00H DB 3EH,41H,00H,49H,00H,52H,57H,00H DB 62H = 延时参数表 = DELAY_T: DB 7EH,77H,00H DB 6AH,00H,5EH,00H,54H,4FH,00H,46H DB 00H,3FH,3BH,00H,35H,32H,2FH,00H DB 2AH,27H,00H,23H,00H,1FH,1DH,0C0H DB 1AH = 歌曲表

19、 = DW 2202H,2902H,2902H,2902H,2906H,2702H ;我从山中来 DW 2502H,2702H,2502H,2402H,2208H ;带着兰花草 DW 2E02H,2E02H,2E02H,2E02H,2E06H,2C02H ;种在小园中 DW 2902H,2C02H,2D02H,2A02H,2908H ;祈祷花开早 DW 2902H,2E02H,2E02H,2C02H,2906H,2702H ;一日看三回 DW 2502H,2702H,2502H,2402H,2206H,1D02H ;看得花时过 DW 1D02H,2502H,2502H,2402H,2206H,2902H ;兰花却依然 DW 2702H,2502H,2402H,2002H,2208H ;苞也无一个 DW 0000H ; END