top
<返回首页 <退出
欢迎您来到51-ARM学习论坛,您还没有[注册]或[登陆]
用户名:  
密  码:  
验证码:  
共有1299位会员 新进来宾:xle
今日发帖:27篇 在线人数:965人
最高发帖:140篇 主题总数:589篇
消息:热烈祝贺侯工单片机工作室官方网站正式开通!论坛版块诚征精英斑竹...凡51-ARM论坛斑竹,均有机参加侯工单片机工作室组织的各种技术交流,培训!!!
 论坛帮助  
51-ARM论坛>>单片机应用专区
 
  标题:(吐血献出)蜂鸣器唱歌《祝你平安》(asm)源代码
一线天 
副团长
等级: 分版主
文章:42
积分:692
     楼主
/*******************************************************************************
  Title:  演示程序3 - 蜂鸣器唱歌						*
  Name:   ex02.asm                                                          	*
  Date:   2005-5-15                                                            	*
  Ver:    1.0                                                                  	*                                                *
  web:   http://www.mcustudy.com                                               *
********************************************************************************
                                                                              	*
                           			                          	*
               蜂鸣器唱《祝你平安》                                          	*	
                                                                              	*
********************************************************************************/
SPK	bit	P1.4

	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
	MOV B,#00H ;表序号清0
MUSIC1:
	NOP
	CLR A
	MOVC A,@A+DPTR ;查表取代码
	JZ END0 ;是00H,则结束
	CJNE A,#0FFH,MUSIC5
	LJMP MUSIC3
MUSIC5:
	NOP
	MOV R6,A
	INC DPTR
	MOV A,B
	MOVC A,@A+DPTR ;取节拍代码送R7
	MOV R7,A
	SETB TR0 ;启动计数
MUSIC2:
	NOP
	CPL SPK
	MOV A,R6
	MOV R3,A
	LCALL DEL
	MOV A,R7
	CJNE A,20H,MUSIC2 ;中断计数器(20H)=R7否?
;不等,则继续循环
	MOV 20H,#00H ;等于,则取下一代码
	INC DPTR
; INC B
	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 ;歌曲结束,延时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 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,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,26h,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,30h,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

	END 

 
 
 2009-3-16 17:07:55  
ruanfeng 
排长
等级: 普通会员
文章:0
积分:127
     第1楼
好人啊
 

奋斗决定命运,梦想改变人生!!!  
 2009-3-17 14:44:14  
yyqq 
排长
等级: 普通会员
文章:0
积分:174
     第2楼
不错,效果很好!
 
 
 2009-3-18 11:55:00  
破天一剑 
营长
等级: 普通会员
文章:38
积分:565
     第3楼
学习下
 
 
 2009-4-1 16:44:41  
hxl 
士兵
等级: 普通会员
文章:0
积分:98
     第4楼
ding
 
 
 2009-04-26 15:25:00  
sqq 
士兵
等级: 普通会员
文章:0
积分:78
     第5楼
非常好!
 
 
 2009-07-24 14:43:25  
wenwen 
士兵
等级: 普通会员
文章:0
积分:76
     第6楼
无私啊,楼主
 
 
 2009-07-29 00:04:50  
jack 
副连长
等级: 普通会员
文章:12
积分:254
     第7楼
 
 
 2010-12-29 19:48:57  
首页 上一页 下一页 末页 页次1/1页 共 7 条回复 第
快速回复:
 
bottom
 
联系电话:0755-26766021 邮箱:51-ARM@163.com QQ群:43996737
项目定制承接手机:13798532857(侯工)
部分内容转载于网络,如有涉及版权问题,请通知本站删除。
粤ICP备09217420号 版权所有  @  2008-2012  侯工单片机工作室