lamptime.text

本设计是在车辆通行繁忙的十字交叉路口设置的灯火控制系统

Z8279	EQU	0FF82H
D8279	EQU	0FF80H
LEDMOD	EQU	00H
LEDFEQ	EQU	2FH
LEDCLS	EQU	0C1H
LEDWR0	EQU	90H
	ORG 0000H
	MOV DPTR,#8406H
	MOV A,	#80H
	MOVX @DPTR,A
	LJMP START
	ORG 0040H
START:
	MOV SP,#60H
	LCALL STATUS0
CIRCLE: LCALL STATUS1
	 LCALL STATUS2
	 LCALL STATUS3
	 LCALL STATUS4
	LJMP CIRCLE
STATUS0:
	MOV DPTR , #8400H
	MOV A,#0FH
	MOVX @DPTR, A
	MOV R2,#10
	LCALL DELAY 
	RET
STATUS1:
	MOV DPTR , #8400H
	MOV A,#5AH
	MOVX @DPTR, A
	MOV 11H,#25
	MOV 15H,#07H
	MOV 14H,#06H
	LCALL INIT8279
	LCALL DISPLAY
	RET
STATUS2:
	MOV DPTR , #8400H
	MOV R3,#03H
FLASH:
	MOV A,#0AH
	MOVX @DPTR,A
	MOV R2,#03H
	LCALL DELAY
	MOV A,#5AH
	MOVX @DPTR,A
	MOV R2,#03H
	LCALL DELAY
	DJNZ R3,FLASH
	MOV A,#0A3H
	MOVX @DPTR,A
	MOV 11H,#5
	MOV 14H,#4
	LCALL INIT8279
	LCALL DISPLAY
	RET
STATUS3:
	MOV DPTR , #8400H
	MOV A,#0A3H
	MOVX @DPTR, A
	
	MOV 11H,#35
	MOV 15H,#03H
	MOV 14H, #02H
	LCALL INIT8279
	LCALL DISPLAY
	RET
STATUS4:
	MOV DPTR , #8400H
	MOV R3,#03H
FLASH1:
	MOV A,#03H
	MOVX @DPTR,A
	MOV R2,#03H
	LCALL DELAY
	MOV A,#0A3H
	MOVX @DPTR,A
	MOV R2,#03H
	LCALL DELAY
	DJNZ R3,FLASH1
	MOV A,#0AFH
	MOVX @DPTR,A
	MOV 11H,#05H
	MOV 14H,#00H
	LCALL INIT8279
	LCALL DISPLAY 
	RET

INIT8279:
	MOV	DPTR,#Z8279
	MOV	A,#LEDMOD
	MOVX	@DPTR,A
	MOV	A,#LEDFEQ
	MOVX	@DPTR,A
	MOV	A,#LEDCLS
	MOVX	@DPTR,A
	LCALL	DELAY
	RET
DISLED:
	PUSH	DPH
	PUSH	DPL
	PUSH	ACC
	MOV	A,#LEDWR0
	ADD	A,R4
	MOV	DPTR,#Z8279
	MOVX	@DPTR,A
	MOV	DPTR,#LEDSEG
	MOV	A,R5
	MOVC	A,@A+DPTR
	MOV	DPTR,#D8279
	MOVX	@DPTR,A
	POP	ACC
	POP	DPL
	POP	DPH
	RET
DELAY:
	PUSH	0
	PUSH	1
       PUSH     2
DELAY1:	MOV	1,#0H
DELAY2:MOV 0,#0B2H
	DJNZ	0,$
	DJNZ	1,DELAY2
        DJNZ    2,DELAY1  
        POP     2
	POP	1
	POP	0
	RET
DISPLAY:
LOOP:	LCALL LC
	MOV R5,12H
	MOV R4,15H
	LCALL DISLED
	MOV R5,13H
	MOV R4,14H
	LCALL DISLED
	MOV R2,#10
	LCALL DELAY
	DJNZ 11H,LOOP
	
	
	MOV R5,#00H
	MOV R4,14H
	LCALL DISLED
	RET
LC:	MOV A, 11H
	MOV B,#0AH
	DIV AB
	MOV 12H,A
	MOV 13H,B
	RET
ERRORD:	MOV R5,#0BH
	MOV R4,#05H
	LCALL DISLED
	MOV R5,#0CH
	MOV R4,#04H
	LCALL DISLED
	MOV R5,#0DH
	MOV R4,#03H
	LCALL DISLED
	MOV R5,#0EH
	MOV R4,#02H
	LCALL DISLED
	RET
LEDSEG:	DB	3FH,06H,5BH,4FH,66H,6DH,7DH,07H;'0,1,2,3,4,5,6,7'
	DB	7FH,6FH,40H,76H,76H,40H,79H,71H;'8,9,0,P,-,-,P,F'
	
	END