;********************************************************************************
;  99計數器,開機后從00直到99顯示     數碼管接口:P0數據，P2顯示位                *
;********************************************************************************
;*  日期:  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 *
;* 【聲明】 此程序僅用于學習與參考，引用請注明版權和作者信息！                  *
;********************************************************************************
	 a_bit equ 20h
	 b_bit equ 21h
	 temp equ 22h
star:    mov temp,#0  		;初始化
stlop:   acall display		;調用顯示子程序
         inc temp		;緩沖區加一.
         mov a,temp
         cjne a,#100,next
         mov temp,#0
next:    ljmp stlop		;循環顯示
display: mov a,temp
         mov b,#10
         div ab
         mov b_bit,a 		;分開十位和個位.
         mov a_bit,b
         mov dptr,#numtab
         mov r0,#4
dpl1:    mov r1,#250
dplop:   mov a,a_bit
         MOVC A,@A+DPTR 	;查表取欲顯示的數據
         mov p0,a 		;送顯示
         clr p2.6 		;開通位選
         acall d1ms
         setb p2.6
         mov a,b_bit
         MOVC A,@A+DPTR		;顯示十位.
         mov p0,a
         clr p2.5
         acall d1ms
         setb p2.5
         djnz r1,dplop 		;100次沒完循環
         djnz r0,dpl1 		;4個100次沒完循環
         ret
D1MS:    MOV R7,#80
      	 DJNZ R7,$
      	 RET
numtab:  db 28h,7eh,0a2h,62h,74h,61h,21h,7ah,20h,60h
         			;0 1 2 3 4 5 6 7 8 9
end