119.asm

用AT89S52单片机模拟警报声

;*******************************************************************
;*                                                                 *
;* XC系列单片机开发系统演示程序            	   		   *	                    
;* 版本： V1.1 (2007)                                        	   *
;* 作者： 学城电子有限公司-研发部工程师                            *
;* 网站： WWW.MCUXC.COM  学城电子开发网           		   *
;* 邮箱： [e-mail]                                     	   *
;*                                                                 *
;*【版权】学城电子有限公司 学城电子开发网 			   *
;*【声明】此程序仅用于学习与参考，引用请注明版权和作者信息!        *
;*                                                                 *
;*******************************************************************
; 单片机音乐程序。^_^  ！！          	   	   
; 适用于XC系列开发系统
; 晶振为11.0592M
; 硬件连接方法:用跳线将JP4接上，选择蜂鸣器资源，
; 效果：蜂鸣器响起了119报警
;*******************************************************************
CODE_SEG	SEGMENT CODE 
DATA_SEG	SEGMENT DATA
STACK_SEG	SEGMENT	IDATA

SPK	BIT	P3.7

	RSEG	DATA_SEG
FRQ:   DS   1
TMP:   DS   1

	RSEG	STACK_SEG
STACK:	DS	20

;===============================================================================
CSEG	AT	00000H
	LJMP	MAIN


CSEG	AT	0000BH
	LJMP	TIMER0
	
	
	
;===============================================================================

	RSEG	CODE_SEG
MAIN:
	USING	0
	
	MOV	SP,#(STACK-1)
	
	MOV  	TMOD,#01H
	CLR  	A
	
	MOV  	TH0,A  
	CPL		A
	MOV  	FRQ,A
	MOV  	TL0,#0FFH
	SETB 	TR0
	MOV  	IE,#082H
	
MAIN_LP:

	INC  	FRQ
	
	MOV  	R7,#014H		; 
	LCALL	DELAYMS

	SJMP 	MAIN_LP
	
; END OF main

;===============================================================================


TIMER0:
	MOV  	TH0,#0FEH
	MOV  	TL0,FRQ
	CPL  	SPK
	RETI 	
; END OF TIMER0


;===============================================================================
DELAYMS:
; 延时子程序
; 传入参数：R7 --- 延时值(MS) 
; 返回值：无

	MOV	A,R7
	JZ	END_DLYMS	
DLY_LP1:
	MOV	R6,#30//185
DLY_LP2:
	NOP
	NOP
	NOP
	DJNZ	R6,DLY_LP2
	DJNZ	R7,DLY_LP1

END_DLYMS:
	RET 

	END