s6_2.asm

交通灯的单片机程序

        ORG 0000H
	AJMP MAIN
	ORG 000BH
	AJMP SERVE
        ORG 0030H
MAIN:   PUSH DPL
        PUSH DPH
        MOV DPTR,#0B003H
        MOV A,#80H
        MOVX @DPTR,A
        MOV R0,#8H
        MOV A,#0H
M1:     MOVX @DPTR,A
        INC A
        INC A
        DJNZ R0,M1
        MOV A,#0FH
        MOVX @DPTR,A
        MOV A,#1H
        MOVX @DPTR,A
        POP DPH
        POP DPL
        MOV TMOD,#01H
        MOV TL0,#0B0H
	MOV TH0,#3CH
        MOV 20H,#14H
        MOV R0,#1EH
        ACALL LED
        MOV R1,#0H
        SETB EA
	SETB ET0
	SETB TR0
	SJMP $
        
SERVE:  PUSH PSW
        PUSH ACC
        MOV TL0,#0B0H
	MOV TH0,#03CH
        DJNZ 20H,RETUNT
        MOV 20H,#14H
        DEC R0
        ACALL LED
        CJNE R0,#0H,RETUNT
        CJNE R1,#0H,S1
        MOV R2,#0EH
        ACALL FLASH
        MOV DPTR,#0B003H
        MOV A,#0H
        MOVX @DPTR,A
        MOV A,#0BH
        MOVX @DPTR,A
        MOV A,#5H
        MOVX @DPTR,A
        MOV R1,#1H
        MOV R0,#1EH
        ACALL LED
        AJMP RETUNT
S1:     MOV R2,#4H
        ACALL FLASH
        MOV DPTR,#0B003H
        MOV A,#0AH
        MOVX @DPTR,A
        MOV A,#0FH
        MOVX @DPTR,A
        MOV A,#1H
        MOVX @DPTR,A
        MOV R1,#0H
        MOV R0,#1EH
        ACALL LED
RETUNT: POP ACC
        POP PSW
        RETI
        
LED:    PUSH DPL
        PUSH DPH
        MOV 21H,#4H
        MOV DPTR,#TBL
        MOV A,R0
L1:     MOV B,#0AH
        DIV AB
        MOV 30H,A
        MOV A,B
        MOVC A,@A+DPTR
        MOV SBUF,A
SEND1:  JNB TI,SEND1
        CLR TI
        MOV A,30H
        DJNZ 21H,L1
        POP DPH
        POP DPL
        RET
        
FLASH:  MOV R0,#3H        
        MOV DPTR,#0B003H
        MOV A,R2
        MOVX @DPTR,A
        DEC R2
FLA:    ACALL LED
        ACALL T05
        MOV A,R2
        MOVX @DPTR,A
        ACALL T05
        DEC A
        MOVX @DPTR,A
        DJNZ R0,FLA
        RET

T05:    MOV R5,#5H
T100:   MOV R7,#0C3H
TM:     MOV R6,#0FFH
TM6:    DJNZ R6,TM6
        DJNZ R7,TM
        DJNZ R5,T100
        RET        
        
TBL:
DB 0BBH,009H,0EAH,06BH
DB 059H,073H,0F3H,00BH
DB 0FBH,07BH,0DBH,0F1H
DB 0B2H,0E9H,0F2H,0D2H