动态.asm

本人课程设计交通灯＋数码管动态显示＋仿真

	ORG       0000H
        AJMP      STAR
        ORG       0003H
        AJMP      INTO
        ORG       000BH
        AJMP      INTA
        ORG       001BH
        AJMP      INTB
        ORG       0100H
STAR:	JB	P3.5,STAR
MAIN:   MOV       SP,#60H
        MOV       TMOD,#66H
        MOV       TH0,#0FFH
        MOV       TL0,#0FFH
        MOV       TH1,#0FFH
        MOV       TL1,#0FFH
        MOV       IE,#8BH
        MOV       IP,#05H
        SETB      TR0
        SETB      TR1
        SETB      IT0
        SETB      IT1
	SETB	P3.1
	MOV	P1,#9EH
TT:	MOV	R7,#50
RE:	SETB	P1.6
	MOV	P2,#0B0H
	LCALL	DEL10
	CPL	P1.6
	SETB	P1.7
	MOV	P2,#0C0H
	LCALL	DEL10
	CPL	P1.7
	DJNZ	R7,RE
S2:	MOV	R1,#00H
RB:	MOV	R7,#50H
RB1:	MOV	P2,#0A4H
	LCALL	RE2
	DJNZ	R7,RB1
	INC	R1
	CJNE	A,#0C0H,RB
S1:	MOV	R1,#00H
RB2:	MOV	R7,#50H
RB3:	MOV	P2,#0F9H
	LCALL	RE2
	DJNZ	R7,RB3
	INC	R1
	CJNE	A,#0C0H,RB2
S0:	MOV	R1,#00H
RB4:	MOV	R7,#50
RB5:	MOV	P2,#0FFH
	LCALL	RE2
	DJNZ	R7,RB5
	INC	R1
	CJNE	A,#99H,RB4
	CPL	P3.1
	JB	P3.1,PP
	MOV	R6,#4
Q1:	MOV	R7,#25
	LCALL	RE1
Q2:	MOV	R7,#25
	LCALL	RE3
	INC	R1
	DJNZ	R6,Q1
	MOV	P1,#0B3H
	LJMP	TT
PP:	MOV	R6,#4
Q3:	MOV	R7,#25
	LCALL	RE4
Q4:	MOV	R7,#25
	LCALL	RE5
	INC	R1
	DJNZ	R6,Q3
	LJMP	MAIN
RE1:	MOV	P1,#5CH
	LCALL	TB
	DJNZ	R7,RE1
	RET
RE3:	MOV	P1,#5EH
	LCALL	TB
	DJNZ	R7,RE3
	RET
RE4:	MOV	P1,#63H
	LCALL	TB
	DJNZ	R7,RE4
	RET
RE5:	MOV	P1,#73H
	LCALL	TB
	DJNZ	R7,RE5
	RET
RE2:	SETB	P1.6
	LCALL	DEL10
	CPL	P1.6
	SETB	P1.7
	MOV     A,R1		
        MOV     DPTR,#TAB
        MOVC    A,@A+DPTR
        MOV     P2,A
        LCALL	DEL10
	CPL	P1.7
	RET
TB:	MOV	P2,#0FFH
	LCALL	DEL10
	CPL	P1.6
	CPL	P1.7
	MOV     A,R1		
        MOV     DPTR,#TAB
        MOVC    A,@A+DPTR
        MOV     P2,A
        LCALL	DEL10
	CPL	P1.7
	RET
	ORG     0200H
INTO:   PUSH    PSW          ;撤消TO，T1的中断
        PUSH    ACC
        CLR	P3.4
	CLR	P3.5
        POP     ACC
        POP     PSW
        RETI
        ORG     0300H
INTA:   PUSH    PSW
	PUSH	ACC
	PUSH	P1
        MOV     P1,#0F3H	;x路口红灯亮
	MOV	R7,#50
LOOP1:	LCALL	DEL10
	DJNZ	R7,LOOP1
ITP1:	JB	P3.4,ITP1
	MOV	P1,#0DEH	;y路口红灯亮
	MOV	R7,#50
LOOP2:	LCALL	DEL10
	DJNZ	R7,LOOP2
ITP2:	JB	P3.4,ITP2
	POP	P1
        POP     ACC
	POP	PSW
        RETI
        ORG     0400H
INTB:   PUSH    PSW
	PUSH	ACC
	PUSH	P1	
	MOV	P1,#0DBH	;XY口红灯亮 
	MOV	R7,#50
LOOP4:	LCALL	DEL10
	DJNZ	R7,LOOP4
ITP4:	JB	P3.5,ITP4
	MOV	R7,#50	     	
	POP	P1
        POP     ACC
	POP	PSW
        RETI
DEL10:	MOV	R3,#0AH
LP4:	LCALL	DEL
	DJNZ	R3,LP4
	RET
DEL:	MOV	R2,#0FFH
LP5:	DJNZ	R2,LP5
	RET
TAB:    DB 90H,80H,0F8H,82H,92H,99H,0B0H,0A4H,0F9H,0C0H
        END