一个音乐程序的问题，请大家看看

1万 · 2008-2-15 11:30

流程见图
程序如下
ORG 0000H
LJMP START
ORG 000BH
INC 20H ;中断服务,中断计数器加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 ;中断计数器清0
MUSIC1:
NOP
CLR A ；A清零
MOVC A,@A+DPTR ;查表取代码
JZ END0 ;是00H,则结束
CJNE A,#0FFH,MUSIC5 ；如果是休止符，往下执行
LJMP MUSIC3
MUSIC5:
NOP
MOV R6,A ；R6=18H音符的频率
INC DPTR DPTR加一
MOV A,#0
MOVC A,@A+DPTR ;取节拍代码送R7
MOV R7,A ；R7=30H音符发音的时间
SETB TR0 ;启动计数
MUSIC2:
NOP
CPL P2.5 ；P2.5是音乐输出引脚
MOV A,R6
MOV R3,A ；R3=R6=18H
LCALL DEL
MOV A,R7
CJNE A,20H,MUSIC2 ;中断计数器(20H)=R7否?
;不等,则继续循环
MOV 20H,#00H ;等于,则取下一代码
INC DPTR
LJMP MUSIC1
MUSIC3:
NOP ;休止100毫秒
CLR TR0
MOV R2,#0DH ;R2=13
MUSIC4:
NOP
MOV R3,#0FFH ;R3=255
LCALL DEL
DJNZ R2,MUSIC4
INC DPTR
LJMP MUSIC1
END0:
NOP
MOV R2,#0FFH ;歌曲结束,延时1秒后继续
MUSIC6:
MOV R3,#00H
LCALL DEL
DJNZ R2,MUSIC6
LJMP MUSIC0
DEL:
NOP
DEL3:
MOV R4,#02H
DEL4:
NOP
DJNZ R4,DEL4
NOP
DJNZ R3,DEL3
RET
NOP
DAT:
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
end

1万 · 2008-2-15 11:31

流程中的B清0是什么意思啊，
程序中我怎么找不到这个B呢？
请高手指点一下谢谢

1万 · 2008-2-15 11:37

2万 · 2008-2-15 12:28

1万 · 2008-2-15 12:48

1万 · 2008-2-15 13:12

1万 · 2008-2-15 13:35

那我这个菜鸟岂不是也能算个“高手”拉。。。。。

只看该作者 · 2008-2-15 13:48

MOV 20H,#00H ;中断计数器清0

1万 · 2008-2-15 22:05

还有1秒的延时又是怎么算的
我怎么算来算去不对的
请大虾指点

1万 · 2008-2-16 11:38

1万 · 2008-2-17 12:18

1万 · 2008-2-17 13:22

不过，看你的程序，为什么休止时间固定为100ms？这就算有点道理，也增加数据录入麻烦吧，而且，按照程序流程，休止期间应当根本上输出音频，可是，你没有。

我暂时不想细看程序，你把你的音高控制过程结合代码说一下我看看。边学习边向你解释。这个东西，原来我睡着也能说出来的。

1万 · 2008-2-18 12:43

程序不是我写的，休止时间固定为100ms，可惜我看不出来，这个100ms是怎么延时的，还有那个1秒，算来算去都不对。
DAT:
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
看第一行，其中18表示音符频率，30H表示那个音符的的节拍持续时间
接下来又是音符频率，然后是该音符频率的节拍。

这个程序网络上应该流传的，谁能帮我解释一下这个延时时间的问题啊

1万 · 2008-2-19 09:27

本人收回这句话，请大家原谅。

2万 · 2008-2-19 09:29

只看该作者 · 2008-2-19 10:04

估计这样的解决楼主还是难理解。还得自己多学习一些编程知识。

1万 · 2008-2-19 10:31

这个程序是看不太明白

只看该作者 · 2008-2-19 10:51

BELL      BIT  P1.3
LCOUNT1          DATA 30H    ;循环次数1
LCOUNT2     DATA 31H    ;循环次数2

         ORG      0000H
         LJMP     MAIN
     ORG      0100H

MAIN:      MOV      SP,#80H
     CALL       MUSIC
     JMP      MAIN

MUSIC:
      MOV     R7,#0
SLONG:MOV     DPTR,#SOUND_LONG
      MOV     A,R7
      MOVC     A,@A+DPTR
      MOV     LCOUNT1,A              ;送发音的长短到LONGT1
      MOV     A,R7
      MOV       DPTR,#SOUND_TONE
      MOVC     A,@A+DPTR
      MOV     LCOUNT2,A             ;送音符的周期到LCOUNT2／即音的高低
      MOV     R4,LCOUNT1        ;循环音长
LONG: MOV     R6,#12            ;循环节拍
MUSI: MOV     R5,LCOUNT2        ;产生音调所需要的方波
MUSI1:CLR     BELL                 ;开蜂鸣器
      DJNZ     R5,MUSI1             ;开蜂鸣器音调次后退出
      MOV     R5,LCOUNT2
MUSI2:SETB     BELL                ;关蜂鸣器
      DJNZ     R5,MUSI2            ; 关蜂鸣器音调次后退出
      DJNZ     R6,MUSI
      DJNZ     R4,LONG
      PUSH     7
      PUSH     6
LONGS:CALL     DELAY
      POP     6
      POP     7
      INC     R7
      CJNE    R7,#40,SLONG
      RET

DELAY:;延时10ms
      MOV     R7,#90H;
D1:   MOV     R6,#0A0H;
D0:   NOP
      DJNZ     R6,D0
      DJNZ     R7,D1
      RET
SOUND_LONG:                                     ;MUSIC中每一个音符的长度
DB 60,30,30,60,30,30,60,30,120,60
DB 30,30,60,30,30,30,30,30,120,60
DB 30,30,30,30,30,30,30,30,60,30
DB 120,60,60,60,30,30,30,60,30,120
SOUND_TONE:                                     ;MUSIC中每一个音符的音调
DB 142,159,189,142,159,189,142,142,159,142
DB 142,159,189,142,159,189,212,212,239,212
DB 189,189,159,142,120,142,159,189,189,159
DB 239,189,189,189,189,189,142,142,159,142
END

1万 · 2008-2-19 11:14

相比之下 c语言的了解程度不如汇编。
如果汇编的基础够了我会学c。很多人说那样好点，而且据说c语言
很容易学的。
很多公司都要会c语言的人，我想这是一个发展趋势吧。

只看该作者 · 2008-2-19 11:24

一个音乐程序的问题，请大家看看

相关下载

相关帖子

提问

电脑圈圈不是很懂音乐的吗！过来解释下哦。。挖哈哈

00已失踪多日...

00失踪？被绑架了？

旅游去了吧：）

难道除了00就没人懂了吗 不是吧？

B 是 20H 中断计数器

感谢ls 另外再问一个100毫秒的延时是怎么算的

有没有人回答一下啊 等待中。。。

谁回答一下啊 高手都不在吗

我现在不记得这些代码了

关于这个程序

感觉这个版面的人气不是很足啊，没人回答问题了

KAO,这个版面的人气还不足的话，21ic就没有人气足的版面了

估计

I是初学者，请大伙多多帮忙啊

lz喜欢看汇编 再给你一个看看吧

不是我喜欢看汇编啊

知道有汇编那么一回事就可以了 别在上面浪费时间

核心会员奖章

沉静之湖泊

以坛为家

技术新星奖章

无冕之王奖章

湍急之河流

常驻人口

技术高手奖章

终身成就奖章

坚毅之洋流

技术领袖奖章

十世金身

社区建设奖章

欢快之小溪

技术导师奖章

伴坛终老

难道除了00就没人懂了吗不是吧？

有没有人回答一下啊等待中。。。

谁回答一下啊高手都不在吗

lz喜欢看汇编再给你一个看看吧

知道有汇编那么一回事就可以了别在上面浪费时间