;動(dòng)態(tài)掃描顯示895152，8個(gè)燈跑動(dòng)。
;***************************************************************************
;*  sxj1974@163.com		     (51c51 test web)     www.8951.com     *
;*  Create by :石學(xué)軍      www.51c51.com 更多例程請(qǐng)登陸網(wǎng)站        	   *
;***************************************************************************
	org	0000h
	ajmp	start
	org	0030h
start:
	mov	30h,#100	;置循環(huán)初值
	mov	31h,#0feh	;顯示初碼
	mov	a,31h
	mov	p1,a		;送顯示
loop:
	mov p0,#0ffh   		;關(guān)顯示
	mov p2,#0ffh   
	clr p2.1       		;選中第一個(gè)數(shù)碼管
	mov p0,#20h    		;顯示8
	lcall delay1   		; 延時(shí)1ms
	mov p0,#0ffh   		;關(guān)顯示
	mov p2,#0ffh   
	clr p2.2       		;選中第二個(gè)數(shù)碼管
	mov p0,#60h    		;顯示9
	lcall delay1
	mov p2,#0ffh
	mov p0,#0ffh
	clr p2.3  
	mov p0,#61h    		;顯示5
	lcall delay1
	mov p0,#0ffh
	mov p2,#0ffh
	clr p2.4
	mov p0,#7eh    		;顯示1
	lcall delay1
	mov p0,#0ffh
	mov p2,#0ffh
	clr p2.5
	mov p0,#61h   		;顯示5
	lcall delay1
	mov p0,#0ffh
	mov p2,#0ffh
	clr p2.6
	mov p0,#0a2h   		;顯示2
	lcall delay1
	djnz	30h,loop
	mov	a,31h
	rr	a      		;移動(dòng)
	mov	31h,a
	mov	p1,a   		;送到p1口顯示led
	mov	30h,#100  
	ajmp loop

light1:	
	mov	32h,#08  ;
	mov	a,31h
light2:
	mov	p1,a	
	lcall delay
	rr	a
	djnz	32h,light2
	ret

delay1:				;延時(shí)子程序
	mov r6,#250
	d1:djnz r6,d1
	ret
DELAY:				;延時(shí)子程序
	CLR P3.3  
	MOV  R7,#255
	D3 : MOV R6,#255
	setb p3.3
	D2: DJNZ R6,D2
	clr p3.3
	DJNZ R7,D3
	SETB P3.3
	RET
	end