led柱形移动.asm

LED柱形移动LED柱形移动LED柱形移动LED柱形移动

/*****************************
************欢迎访问**********
****http://2099.5d6d.com/*****
************罗列快乐**********
*****************************/
	ORG 0000H
START: 	NOP
	MOV R3,#3
LOP2: 	MOV R4,#8
	MOV R2,#0
LOP1: 	MOV P1,#0FFH
	MOV DPTR,#TABA
	MOV A,R2
	MOVC A,@A+DPTR
	MOV P3,A
	INC R2
	LCALL DELAY
	DJNZ R4,LOP1
	DJNZ R3,LOP2
	MOV R3,#3
LOP4: 	MOV R4,#8
	MOV R2,#7
LOP3: 	MOV P1,#0FFH
	MOV DPTR,#TABA
	MOV A,R2
	MOVC A,@A+DPTR
	MOV P3,A
	DEC R2
	LCALL DELAY
	DJNZ R4,LOP3
	DJNZ R3,LOP4
	MOV R3,#3
LOP6: 	MOV R4,#8
	MOV R2,#0
LOP5: 	MOV P3,#00H
	MOV DPTR,#TABB
	MOV A,R2
	MOVC A,@A+DPTR
	MOV P1,A
	INC R2
	LCALL DELAY
	DJNZ R4,LOP5
	DJNZ R3,LOP6
	MOV R3,#3
LOP8: 	MOV R4,#8
	MOV R2,#7
LOP7: 	MOV P3,#00H
	MOV DPTR,#TABB
	MOV A,R2
	MOVC A,@A+DPTR
	MOV P1,A
	DEC R2
	LCALL DELAY
	DJNZ R4,LOP7
	DJNZ R3,LOP8
	LJMP START
DELAY: 	MOV R5,#10
D2: 	MOV R6,#20
D1: 	MOV R7,#248
	DJNZ R7,$
	DJNZ R6,D1
	DJNZ R5,D2
	RET
TABA: 	DB 0FEH,0FDH,0FBH,0F7H,0EFH,0DFH,0BFH,07FH
TABB: 	DB 01H,02H,04H,08H,10H,20H,40H,80H
	END