标题: 51单片机蜂鸣器播放歌曲汇编源码和仿真 [打印本页]

---

作者: yqqing    时间: 2017-11-22 23:01
标题: 51单片机蜂鸣器播放歌曲汇编源码和仿真
一个用51单片机播放歌曲的小程序


单片机汇编语言源程序如下:

1.   org 0000H
   
2. sjmp start
   
3. 
   
4. org  0040H
   
5. start: mov R3,#-1;
   
6. 
   
7. loop4:
   
8.        jb p1.0,stopzero ; the first step: see if button1 on. it is 0 jump to stopzero  (2us)
   
9.            inc R3  ;R3=0 at first   (1us)
   
10.        sjmp mod1;butoon=1  jump to paly the song (2us)
    
11. 
    
12. stopzero:  ;(5us)
    
13.          jb p1.1,stopone         ;see if button2 is on. it's 0 jump to stoptone(2us)
    
14.                  inc R3  ;  R3=0 at first   (1us)
    
15.          sjmp mod1         ; jump to paly the song (2us)
    
16. stopone:; (5us)
    
17.           jb p1.3,loop4         ;see if button3 is on. it's 0 jump to stoptwo(2us)
    
18.           inc R3         
    
19.                   sjmp mod1         ; jump to paly the song (2us)
    
20.                  
    
21. 
    
22.                              
    
23. 
    
24. mod1:        mov a,R3       ;(1us)
    
25. chec1:       jb p1.0,chec2         ;(2us)find which song we are playing (2us)
    
26.                          sjmp b1                ;(2us)
    
27. 
    
28. chec2:             jb p1.1,chec3
    
29.                          sjmp b2
    
30. 
    
31. chec3:             jb p1.3,chec1
    
32.                          sjmp b3
    
33. 
    
34. b1:              mov b,#11        ;(1us)  b=first song's notes number
    
35.                          sjmp di ;(2us)
    
36. 
    
37. b2:              mov b,#30 ;b=second song's notes number
    
38.                          sjmp di
    
39. 
    
40. b3:              mov b,#30         ;b= third song's notes number
    
41.                      sjmp di                 
    
42. 
    
43. di:          div ab         ;divide a by b ,remainder is in b (4us)
    
44.                          mov a,b        ; put remainder in a  (1us)
    
45.                          mov R3,b        ;put remainder in R3(which will be divided later  (1us)
    
46.                         
    
47.                           
    
48. check1:      jb p1.0,check2 ;to find which song is playing and get the duration table (
    
49.                          sjmp songdu1
    
50. 
    
51. check2:             jb p1.1,check3
    
52.                          sjmp songdu2
    
53. 
    
54. check3:             jb p1.3,check1
    
55.                          sjmp songdu3
    
56. 
    
57. songdu1:                  mov dptr,#durationone         ;get duration table (2us)
    
58.                                          sjmp get
    
59. 
    
60. songdu2:                  mov dptr,#durationtwo         ;get duration table
    
61.                      sjmp get
    
62. 
    
63. songdu3:                  mov dptr,#durationthree         ;get duration table
    
64.                      sjmp get
    
65.                                           
    
66. get:             movc a,@a+dptr          ;get the data in duration table one by one(2us)
    
67.                                  mov R2,a; put a in R2 (1us)
    
68.                                  
    
69. ;loop3（24+3+notes's half period)
    
70. loop3:             mov a,b                  ;give reminder to a agian to get notes table(1us)
    
71. che1:      jb p1.0,che2
    
72.                          sjmp songno1
    
73. 
    
74. che2:             jb p1.1,che3
    
75.                          sjmp songno2
    
76. 
    
77. che3:             jb p1.3,che1
    
78.                          sjmp songno3
    
79. 
    
80. songno1:                  mov dptr,#notesone         ;get duration table (2us)
    
81.                                          sjmp getn
    
82. 
    
83. songno2:                  mov dptr,#notestwo         ;get duration table
    
84.                      sjmp getn
    
85. 
    
86. songno3:                  mov dptr,#notesthree         ;get duration table
    
87.                      sjmp getn
    
88. 
    
89.         
    
90. getn:                 movc a,@a+dptr        ;  (2us)
    
91.                  mov R1,a  ;put note now in R1                        (1us)
    
92. 
    
93. loop2:mov R0,#10  ;the part of play every note:(2*R0+2+1)*R1
    
94. loop1:  djnz R0,$
    
95.            djnz R1,loop2
    
96.                    cpl p3.1                  
    
97.                    djnz R2, loop3  ;start make delay (2us) R2*(loop3+2us)
    
98.               
    
99.                    mov R1,255                  ;make rest between two notes (1us)
    
100.                
     
101. delay2:mov R0,#255
     
102. delay1:djnz R0,$
     
103.            djnz R1,delay2
     
104.                    acall loop4 ; get all steps again and agian
     
105.                  sjmp $
     
106. 
     
107. notesone:  db 66,83,105,83,74,56,74,66,74,105,83   ; the delay time of the music score one by one      
     
108. ……………………
     
109. 
     
110. …………限于本文篇幅 余下代码请从51黑下载附件…………
     

复制代码

所有资料51hei提供下载:
lab2-8051.rar (65.72 KB, 下载次数: 40)

2017-11-22 23:00 上传

点击文件名下载附件
下载积分: 黑币 -5

---

欢迎光临 (http://www.51hei.com/bbs/)

Powered by Discuz! X3.1