;動態掃描顯示8051
;***************************************************************************
;*  sxj1974@163.com		     (51c51 test web)     www.8951.com     *
;*  Create by :石學軍      www.51c51.com 更多例程請登陸網站        	   *
;***************************************************************************
org 00h
loop:
	mov p0,#0ffh ;關顯示
	mov p2,#0ffh ;關顯示
clr p2.3             ;選中第一個數碼管
	mov p0,#20h  ;顯示8
	lcall delay  ;延時1ms
	mov p0,#0ffh ;關顯示
	mov p2,#0ffh
clr p2.4             ;選中第二個數碼管
	mov p0,#28h
	lcall delay
	mov p2,#0ffh
	mov p0,#0ffh
clr p2.5             ;選中第三個數碼管
	mov p0,#61h
	lcall delay
	mov p0,#0ffh
	mov p2,#0ffh
clr p2.6             ;選中第四個數碼管
	mov p0,#7eh
	lcall delay
	ajmp loop    ;反復循環
delay:
	mov r6,#250  ;延時1ms子程序
	d1:djnz r6,d1
	ret
end