;********************************************************************************
;一位計數器，按p3.2數碼管加1，到9后回0,同時小喇叭響一下報警，                   *
;數碼管數據p0,數碼管控制p2口,按鍵p3.2口 ，喇叭p3.3                              *
;********************************************************************************
;*  日期:  2007-3-25                                                            *
;*  版本:  3.0                                                                  *
;*  作者:  深圳學林電子有限公司     專業8051單片機教學站                        *
;*  郵箱: sxj1974@163.com                                                       *
;*  網站： http://www.51c51.com     http://www.8951.com    更多例程請登陸網站   *
;********************************************************************************
;*  硬件：此程序在本公司xlisp系列單片機實驗儀運行通過                           *
;********************************************************************************
;* 【版權】 Copyright(C)深圳學林電子有限公司 www.51c51.com  All Rights Reserved *
;* 【聲明】 此程序僅用于學習與參考，引用請注明版權和作者信息！                  *
;********************************************************************************
	org 00h				;開始
 	jmp start;跳到主程序
	org 0030h
start:  mov 30h,#0ffh          		;30h送ff即-1
main:   INC 30H
        mov a,30h
        setb p3.2                	;把鍵盤口送高電平
mm:     jnb p3.2,tt          		;如果p3.2按下則執行tt
	ljmp mm                          	;如果沒有按下則反復監測鍵盤
tt:     MOV	DPTR,#TAB
        MOVC	A,@A+DPTR
	CLR	P2.6		       	;開數碼管
	MOV	P0,A		       	;送顯示
        lcall delay          		;延時一段時間
        cjne a,#60h,main     		;如果是最后一個數據重新開始
	cjne a,#20h,BB   		;如果是數字9到小喇叭響的程序
        ljmp start   		   	;否則30H 清除
        ret
TAB:	DB 28H,7EH,0A2H,62H,74H,61H,21H,7AH,20H,60H	
					;數據表，0--9（如果反向排列則為倒計數
BB: 
	mov r1,#255			;小喇叭響的次數
ppp:cpl p3.3				; 小喇叭響
	call deL			;小喇叭響的速率
	djnz r1,ppp			;小喇叭響255次。
	jmp start
delay:  mov r5,#20			;延時子程序1閃爍燈調用
	d1:mov r6,#20
	d2: mov r7,#255
	djnz r7,$
	djnz r6,d2
	djnz r5,d1
	ret
del:  			 		;延時子程序2小喇叭調用
	mov r4,#255
	djnz r4,$
	ret
	end