MCS51流水灯_查表方式1_Proteus仿真

MCS51流水灯

硬件连接：

程序：

    ORG		0000H
	AJMP	MAIN
	ORG		0030H
MAIN:
	MOV		R0,#0FFH
	MOV		R2,#16
	MOV		DPTR,#TAB
LOOP:
	INC		R0
	MOV		A,R0
	MOVC	A,@A+DPTR
SHOW:
	MOV		P0,A
	LCALL  	DELAY
	LCALL  	DELAY
	LCALL  	DELAY
	DJNZ	R2,LOOP
	AJMP	MAIN
DELAY:
	MOV		R7,#250
D1:	MOV		R6,#250
D2: DJNZ	R6,D2
	DJNZ	R7,D1
	RET
TAB:
	;DB 0FEH,0FCH,0F8H,0F0H,0E0H,0CH,80H,00H,01H,03H,07H,0FH,1FH,3FH,7FH,0FFH
	DB	11111110B
	DB	11111100B
	DB	11111000B
	DB	11110000B
	DB	11100000B
	DB	11000000B
	DB	10000000B
	DB	00000000B
	DB	00000001B
	DB	00000011B
	DB	00000111B
	DB	00001111B
	DB	00011111B
	DB	00111111B
	DB	01111111B
	DB	11111111B
	END

仿真效果：