51单片机简单交通灯控制程序

/******************************************************************************

交通灯控制程序说明文档

******************************************************************************/

1、  用protues进行原理图绘制

2、  用keil软件进行代码编写与调试

3、  Keil + protues进行仿真实验

4、  处理器采用Atmel公司的AT89C51，晶振频率12MHz，源代码用汇编语言编写

5、  主要控制思想：简单交通灯，只涉及东西南北四个方向车辆控制，不考虑转向问题，流程图

6、原理图

7、源代码
ORG 0000H


MOV P1, #00H
MOV P2, #00H   ;初始化，灯泡全灭
ST: CLR P2.1   ;南北黄灯灭
CLR P2.4
CLR P1.2   ;东西红灯灭
CLR P1.5
SETB P1.0   ;东西绿灯亮
SETB P1.3
SETB P2.2   ;南北红灯亮
SETB P2.5
LCALL DELAY0


CLR P1.0   ;东西绿灯灭黄灯亮
CLR P1.3
SETB P1.1   ;东西黄灯亮
SETB P1.4
LCALL DELAY1


CLR P1.1   ;东西黄灯灭
CLR P1.4
SETB P1.2   ;东西红灯亮
SETB P1.5
CLR P2.2   ;南北红灯灭
CLR P2.5
SETB P2.0   ;南北绿灯亮
SETB P2.3
LCALL DELAY0


CLR P2.0  ;南北绿灯灭
CLR P2.2
SETB P2.1  ;南北黄灯亮
SETB P2.4
LCALL DELAY1
LJMP ST ;跳转到开始，循环执行


DELAY0: MOV R0, #200 ;二级延时子程序，延时200*0.1 = 20s
DD0: LCALL DELAY ;调用一级延时子程序0.1s，
DJNZ R0, DD0 ;执行200次
RET


DELAY1: MOV R0, #20 ;二级延时子程序，延时20*0.1 = 2s
DD1: LCALL DELAY   ;调用一级延时子程序0.1s， 
DJNZ R0, DD1 ;执行20次
RET


DELAY: MOV R1, #200 ;一级延时子程序，延时200*250*2 = 100000us = 0.1s
D1: MOV R2, #250
D0: DJNZ R2, D0
DJNZ R1, D1
RET


END