;=================================================
; 簡單的四位數(shù)碼管移動顯示  
;=================================================
;
;	ew51仿真編程器		配套實驗板學(xué)習(xí)例程
;
;	中山單片機學(xué)習(xí)網(wǎng)	誠電科技
;
;	http://www.zsmcu.com
;	E-mail:ew51@zsmcu.com
;=================================================

LED1	EQU	08H
LED2	EQU	09H
LED3	EQU	0AH
LED4	EQU	0BH


ORG 0000H 
LJMP START;轉(zhuǎn)入主程序
ORG 0010H 
START:
	MOV	SP,#60H
	MOV	DPTR,#TABLE
	MOV	R0,#00H
	MOV	R1,#00H

MAIN:

	MOV	LED1,#1
	MOV	LED2,#2
	MOV	LED3,#3
	MOV	LED4,#4


SCAN:

	INC	R0
	CJNE	R0,#100,SCAN_1

	MOV	R0,#00H
	
	MOV	A,LED1
	MOV	B,A
	MOV	A,LED2
	MOV	LED1,A
	MOV	A,LED3
	MOV	LED2,A
	MOV	A,LED4
	MOV	LED3,A
	MOV	A,B
	MOV	LED4,A

SCAN_1:


	MOV	A,LED1
	MOVC	A,@A+DPTR
	MOV	P0,A
	CLR	P2.7
	LCALL	DELAY1MS
	SETB	P2.7

	MOV	A,LED2
	MOVC	A,@A+DPTR
	MOV	P0,A
	CLR	P2.6
	LCALL	DELAY1MS
	SETB	P2.6

	MOV	A,LED3
	MOVC	A,@A+DPTR
	MOV	P0,A
	CLR	P2.5
	LCALL	DELAY1MS
	SETB	P2.5

	MOV	A,LED4
	MOVC	A,@A+DPTR
	MOV	P0,A
	CLR	P2.4
	LCALL	DELAY1MS
	SETB	P2.4

LJMP	SCAN


DELAY1MS: 
	MOV	R4,#2
DELAY10MSA:
	MOV	R5,#247
	DJNZ	R5,$
	DJNZ	R4,DELAY10MSA
RET

TABLE:
	DB	00101000B	;0
	DB	11101011B	;1
	DB	00110010B	;2
	DB	10100010B	;3
	DB	11100001B	;4
	DB	10100100B	;5
	DB	00100100B	;6
	DB	11101010B	;7
	DB	00100000B	;8
	DB	10100000B	;9
	DB	01100000B	;A
	DB	00100101B	;b
	DB	00111100B	;C
	DB	00100011B	;d
	DB	00110100B	;E
	DB	01110100B	;F
	DB	11110111B	;-
	DB	11111111B	;
end