;********************************************************************************
;一位計(jì)數(shù)器，按p3.2數(shù)碼管加1，到9后回0  數(shù)碼管數(shù)據(jù)p0,數(shù)碼管控制p2口,按鍵p3.2口  *
;********************************************************************************
;*  日期:  2007-3-25                                                            *
;*  版本:  3.0                                                                  *
;*  作者:  深圳學(xué)林電子有限公司     專業(yè)8051單片機(jī)教學(xué)站                        *
;*  郵箱: sxj1974@163.com                                                       *
;*  網(wǎng)站： http://www.51c51.com     http://www.8951.com    更多例程請(qǐng)登陸網(wǎng)站   *
;********************************************************************************
;*  硬件：此程序在本公司xlisp系列單片機(jī)實(shí)驗(yàn)儀運(yùn)行通過                           *
;********************************************************************************
;* 【版權(quán)】 Copyright(C)深圳學(xué)林電子有限公司 www.51c51.com  All Rights Reserved *
;* 【聲明】 此程序僅用于學(xué)習(xí)與參考，引用請(qǐng)注明版權(quán)和作者信息！                  *
;********************************************************************************

loop:	mov 30h,#0ffh          	 ;30h送ff即-1
main:	INC 30H
        mov a,30h
        setb p3.2                ;把鍵盤口送高電平
        mm: jnb p3.2,tt          ;如果p3.2按下則執(zhí)行tt
	ljmp mm                  ;如果沒有按下則反復(fù)監(jiān)測(cè)鍵盤
tt:     MOV	DPTR,#TAB
        MOVC	A,@A+DPTR
	CLR	P2.6		 ;開數(shù)碼管
	MOV	P0,A		 ;送顯示
        lcall delay          	 ;延時(shí)一段時(shí)間
        cjne a,#60h,main     	 ;如果是最后一個(gè)數(shù)據(jù)重新開始
        ljmp loop     		 ;否則30H 清除
        ret
TAB:	DB 28H,7EH,0A2H,62H,74H,61H,21H,7AH,20H,60H
DELAY: 				 ; 延時(shí)程序
	MOV  R7,#255
	D1:MOV R6,#255
	D2: DJNZ R6,D2
	DJNZ R7,D1
	RET
	end