谁有单片机的交通灯的程序啊？有的发给我！

谁有单片机的交通灯的程序啊？有的发给我！

ORG 00H
MAIN: MOV R7,#7
LOOP: MOV R5,#24
G: CLR A
MOV P2,A
CLR P1.1
CLR P1.2
SETB P1.0
ACALL BINBCD
MOV P3,A
ACALL YANSHI1
DEC R5
CJNE R5,#0,G
CLR P1.0
SETB P1.1
ACALL YANSHI1
CLR P1.1
ACALL YANSHI1
SETB P1.1
ACALL YANSHI1
CLR P1.1
MOV P3,#00H
MOV R5,#24
R: CLR P1.0
CLR P1.1
SETB P1.2
ACALL BINBCD
MOV P2,A
ACALL YANSHI1
DEC R5
CJNE R5,#0,R
CLR P1.2
DJNZ R7,LOOP
SJMP $
BINBCD: MOV A,R5
MOV B,#10
DIV AB
SWAP A
ORL A,B
RET
YANSHI1: MOV R1,#30H
YANSHI: MOV R2,#100
D1: MOV R3,#100
DJNZ R3,$
DJNZ R2,D1
DJNZ R1,YANSHI
RET
END

谢谢采纳~~~

ORG 0000H AJMP MAIN ORG 0003H LJMP INT ORG 0040H MAIN:MOV SP,#60H SETB EA SETB EX0 SETB PX0 SETB IT0 MOV P1,#09H ACALL DELAY1S ABC:MOV R0,#3 MOV R1,#3 MOV P1,#0CH ACALL DELAY1S DEF: CLR P1.2 ACALL DELAY2S SETB P1.2 ACALL DELAY2S DJNZ R0,DEF MOV P1,#0AH ACALL DELAY1S MOV P1,#11H ACALL DELAY1S MOV P1,#21H ACALL DELAY1S GHI:CLR P1.5 ACALL DELAY2S SETB P1.5 ACALL DELAY2S DJNZ R1,GHI MOV P1,#11H AJMP ABC INT: CLR EA PUSH PSW PUSH ACC PUSH 05H PUSH 06H PUSH 07H PUSH P1 SETB EA MOV P1,#09H ACALL DELAY1S CLR EA POP P1 POP 07H POP 06H POP 05H POP ACC POP PSW SETB EA RETI DELAY1S:MOV R7,#5 DEL:MOV R6,#255 DE:MOV R5,#255 DJNZ R5,$;FOSC=6MHZ DJNZ R6,DE DJNZ R7,DEL RET DELAY2S:MOV R4,#250 DELL:MOV R3,#250 DJNZ R3,$;FOSC=6MHZ DJNZ R4,DELL RET END