;一位計數器，按p3.2數碼管加1，到9后回0

;***************************************************************************
;*  sxj1974@163.com		     (51c51 test web)     www.8951.com     *
;*  Create by :石學軍      www.51c51.com 更多例程請登陸網站        	   *
;***************************************************************************

loop: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     ;如果是最后一個數據重新開始
        ljmp loop    ;    否則30H 清除
        ret
TAB:	DB	28H,7EH,0A2H,62H,74H,61H,21H,7AH,20H,60H
  DELAY: ; 延時程序
MOV  R7,#255
D1:MOV R6,#255
D2: DJNZ R6,D2
DJNZ R7,D1
RET
end