;****************************************************************************** 
; 文件名：BEEPCON.S
; 功能：蜂鳴器控制。對蜂鳴器B1進行控制，采用軟件延時方法。
;      使用I/O口直接控制，采用灌電流方式。
; 說明：將跳線器JP9短接，JP4斷開。
;****************************************************************************** 
			INCLUDE		LPC2294.INC
			EXPORT  	MAIN
				
BEEPCON  	EQU		0x00000080				; P0.7引腳控制B1，低電平蜂鳴

			AREA   	BEEPCONC,CODE,READONLY 	; 聲明程序代碼塊
			ENTRY							; 程序入口
		
MAIN 		LDR		R0,=PINSEL0				; 裝載寄存器地址，PINSEL0
			MOV		R1,#0x00000000			; 設置數(shù)據(jù)，即設置管腳連接GPIO
			STR		R1,[R0]					; R1 -> [R0] 
			LDR		R0,=PINSEL1
			STR		R1,[R0]

			LDR		R0,=IO0DIR				
			LDR		R1,=BEEPCON
			STR		R1,[R0]					; 設置BEEP控制口為輸出
			
MAIN_LOOP	LDR		R1,=BEEPCON				; 設置GPIO控制參數(shù)
BEEPSET		LDR		R0,=IO0SET			
			STR		R1,[R0]					; BEEP控制I/O置位
			BL		DELAYS
		
BEEPCLR		LDR		R0,=IO0CLR
			STR		R1,[R0]					; BEEP控制I/O復位
			BL		DELAYS
		
			B		MAIN_LOOP				; 無條件跳轉到MAIN_LOOP


;******************************************************************************
; 名稱：DELAYS
; 功能：軟件延時
; 入口參數(shù)：無
; 出口參數(shù)：無
; 占用資源：R7
;******************************************************************************
DELAYS	
			MOV		R7,#0x00005F00			; 延時參數(shù)
DELAYS_L1	SUBS	R7,R7,#1		    	; R7 = R7-1
			BNE		DELAYS_L1          		; 判斷R7-1結果是否為0，若不為0則跳轉
			MOV		PC,LR					; 返回
			
			END