;P3.3警報器。
;***************************************************************************
;*  sxj1974@163.com		     (51c51 test web)     www.8951.com     *
;*  Create by :石學軍      www.51c51.com 更多例程請登陸網站        	   *
;***************************************************************************
	org 00h
	ajmp	dlv
	org	0030h
dlv:	 mov r2,#08h	;賦循環初值
dlv1:	mov r3,#0fah
dlv2:	cpl p3.3	;產生脈沖
	lcall d5ms	;延時
	djnz r3,dlv2
	djnz r2,dlv1
	mov r2,#10h	;改變循環初值
dlv3: 	mov r3,#0fah
dlv4:	cpl p3.3
	lcall d25ms
	djnz r3,dlv4
	djnz r2,dlv3
	sjmp dlv
d5ms:	mov r7,#0ffh	;延時5MS
	loop:nop
	nop
	djnz r7,loop
	ret
d25ms:	mov r6,#0ffh
	lin:djnz r6,lin	;延時2.5MS
	ret
	end