51单片机模拟交通灯

lcall del500ms
setb p1.6 ;关南北绿灯
clr p1.7 ;南北黄灯亮2秒
mov 34h,#4 ;延时2秒
loop2:lcall del500ms
djnz 34h,loop2
setb p1.7 ;2秒后灭南北黄灯
clr p2.6 ;5秒后开时间显示
clr p2.7 ;
mov 31h,#30 ;东西时间重赋30秒初值
mov 32h,#30 ;南北时间重赋30秒初值
clr p1.1 ;点亮东西绿灯
clr p1.5 ;点亮南北红灯
setb p1.0 ;关东西红灯
clr 4fh
sjmp out
display:mov a,31h ;东西方向时间显示
mov b,#10
div ab
mov 20h,a
mov 21h,b
disp1:mov a,20h
mov dptr,#table
movc a,@a+dptr
mov p0,a
clr p2.0
lcall del1ms
setb p2.0
disp2:mov a,21h
mov dptr,#table
movc a,@a+dptr
mov p0,a
clr p2.1
lcall del1ms
setb p2.1
disp3:mov a,32h ;南北方向时间显示
mov b,#10
div ab
mov 22h,a
mov 23h,b
disp4:mov a,22h
mov dptr,#table
movc a,@a+dptr
mov p3,a
clr p2.6
lcall del1ms
setb p2.6
disp5:mov a,23h
mov dptr,#table
movc a,@a+dptr
mov p3,a
clr p2.7
lcall del1ms
setb p2.7
ret
table:db 0c0h,0f9h,0a4h,0b0h,99h,92h,82h,0f8h,80h,90h ;0-9数字
del1ms:mov r7,#10 ;1ms延时子程序
d1:mov r6,#50
djnz r6,$
djnz r7,d1
ret
del500ms:mov r5,#5 ;500ms延时子程序
del3:mov r4,#200
del4:mov r3,#250
djnz r3,$
djnz r4,del4
djnz r5,del3
ret
key:jb p1.3,keyout
jnb p1.3,$
clr ea
inc 36h
mov a,36h
cjne a,#2,key4
mov 36h,#00
setb p1.6 ;东西绿灯闪灭3秒
lcall del500ms
clr p1.6
lcall del500ms
setb p1.6
lcall del500ms
clr p1.6
lcall del500ms
setb p1.6
lcall del500ms
clr p1.6
lcall del500ms
setb p1.6 ;灭东西绿灯
clr p1.7 ;东西黄灯亮2秒
mov 33h,#4 ;延时2秒
loop3:lcall del500ms
djnz 33h,loop3
setb p1.7 ;2秒后灭东西黄灯
setb p1.0 ;关东西红灯
setb p1.6 ;关南北绿灯
clr p1.1 ;开西绿灯
clr p1.5 ;开南北红灯
setb ea
sjmp keyout
key4:clr p1.6 ；;开南北绿灯
clr p1.0 ;开东西红灯
setb p1.1
setb p1.2
setb p1.3
setb p1.4
setb p1.5
setb p1.7
keyout:ret
end

本文引用地址：//m.amcfsurvey.com/article/201611/323549.htm