895152.asm

LED灯的一些源码

;动态扫描显示895152，8个灯跑动。
;***************************************************************************
;*  [e-mail]		     (51c51 test web)     www.8951.com     *
;*  Create by :石学军      www.51c51.com 更多例程请登陆网站        	   *
;***************************************************************************
	org	0000h
	ajmp	start
	org	0030h
start:
	mov	30h,#100	;置循环初值
	mov	31h,#0feh	;显示初码
	mov	a,31h
	mov	p1,a		;送显示
loop:
	mov p0,#0ffh   		;关显示
	mov p2,#0ffh   
	clr p2.1       		;选中第一个数码管
	mov p0,#20h    		;显示8
	lcall delay1   		; 延时1ms
	mov p0,#0ffh   		;关显示
	mov p2,#0ffh   
	clr p2.2       		;选中第二个数码管
	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      		;移动
	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:				;延时子程序
	mov r6,#250
	d1:djnz r6,d1
	ret
DELAY:				;延时子程序
	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