ORG 0000H ;主程序的进口地址
LJMP MAIN ;跳转到主程序的开端处
ORG 0003H ;外部中止0的中止程序进口地址
ORG 000BH ;守时器0的中止程序进口地址
LJMP T0_INT ;跳转到中止服务程序处
ORG 0013H ;外部中止1的中止程序进口地址
MAIN : MOV SP,#50H
MOV IE,#8EH ;CPU开中止，答应T0中止，T1中止和外部中止1中止
MOV TMOD,#51H ;设置T1为计数方法,T0为守时方法，且都作业于形式1
MOV TH1,#00H ;T1计数器清零http://www.5imcu.net/sylyuan.asp
MOV TL1,#00H
SETB TR1 ;发动T1计时器
SETB EX1 ;答应INT1中止
SETB IT1 ;挑选边缘触发方法
MOV DPTR ,#0003H
MOV A, #80H ;给8255赋初值，8255作业于方法0
MOVX @DPTR, A
AGAIN: JB P3.1,N0 ;判别是否要设定东西方向红绿灯时刻的初值，若P3.1为1 则跳转
MOV A,P1
JB P1.7,RED ;判别P1.7是否为1，若为1则设定红灯时刻，不然设定绿灯时刻
MOV R0,#00H ;R0清零
MOV R0,A ;存入东西方向绿灯初始时刻http://www.5imcu.net/sylyuan.asp
MOV R3,A
LCALL DISP1
LCALL DELAY
AJMP AGAIN
RED: MOV A,P1
ANL A,#7FH ;P1.7置0
MOV R7,#00H ;R7清零
MOV R7,A ;存入东西方向红灯初始时刻
MOV R3,A
LCALL DISP1
LCALL DELAY
AJMP AGAIN
;———————————-
N0: SETB TR0 ;发动T0计时器
MOV 76H,R7 ;红灯时刻存入76H
N00: MOV A,76H ;东西方向制止，南北方向通行
MOV R3,A
MOV DPTR,#0000H ;置8255A口，东西方向红灯亮，南北方向绿灯亮
MOV A,#0DDH
MOVX @DPTR, A
N01: JB P2.0,B0
N02: SETB P3.0
CJNE R3,#00H,N01 ;比较R3中的值是否为0，不为0转到当时指令处履行
;——黄灯闪耀5秒程序——
N1: SETB P3.0
MOV R3,#05H
MOV DPTR,#0000H ;置8255A口，东西，南北方向黄灯亮
MOV A,#0D4H
MOVX @DPTR,A
N11: MOV R4,#00H
N12: CJNE R4,#7DH,$ ;黄灯继续亮0.5秒
N13: MOV DPTR,#0000H ; 置8255A口，南北方向黄灯灭http://www.5imcu.net/sylyuan.asp
MOV A,#0DDH
MOVX @DPTR,A
N14: MOV R4,#00H
CJNE R4,#7DH,$ ;黄灯继续灭0.5秒
CJNE R3,#00H,N1 ;闪耀时刻达5秒则退出
;———————————–
N2: MOV R7,#00H
MOV A,R0 ;东西通行，南北制止
MOV R3,A
MOV DPTR,#0000H ; 置8255A口，东西方向绿灯亮，南北方向红灯亮
MOV A,#0EBH
MOVX @DPTR,A
N21: JB P2.0,T03
N22: CJNE R3,#00H,N21
;——黄灯闪耀5秒程序——
N3: MOV R3,#05H
MOV DPTR,#0000H ;置8255A口，东西，南北方向黄灯亮
MOV A,#0E2H
MOVX @DPTR,A
N31: MOV R4,#00H
CJNE R4,#7DH,$ ;黄灯继续亮0.5秒
N32: MOV DPTR,#0000H ; 置8255A口，南北方向黄灯灭
MOV A,#0EBH
MOVX @DPTR,A
N33: MOV R4,#00H
CJNE R4,#7DH,$ ;黄灯继续灭0.5秒
CJNE R3,#00H,N3 ;闪耀时刻达5秒则退出
SJMP N00
;——闯红灯报警程序——
B0: MOV R2,#03H ;报警继续时刻3秒
B01: MOV A,R3
JZ N1 ;若倒计时结束，不再报警
CLR P3.0 ;报警
CJNE R2,#00H,B01 ;判别3秒是否结束
SJMP N02
;——1秒延时子程序——-
N7: RETI
T0_INT:MOV TL0,#9AH ;给守时器T0送守时10ms的初值
MOV TH0,#0F1H
INC R4
INC R5
CJNE R5,#0FAH,T01 ;判别延时是否够一秒，不行则调用显现子程序
MOV R5,#00H ;R5清零
DEC R3 ;倒计时初值减一http://www.duankudp.com/
DEC R2 ;报警初值减一
T01: ACALL DISP ;调用显现子程序
RETI ;中止回来
;——显现子程序——
DISP: JNB P2.4,T02
DISP1: MOV B,#0AH
MOV A,R3 ;R3中值二转十显现转化
DIV AB
MOV 79H,A
MOV 7AH,B
DIS: MOV A,79H ;显现十位
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV DPTR,#0002H
MOVX @DPTR,A
MOV DPTR,#0001H
MOV A,#0F7H
MOVX @DPTR,A
LCALL DELAY
DS2: MOV A,7AH ;显现个位
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV DPTR,#0002H
MOVX @DPTR,A
MOV DPTR,#0001H
MOV A,#0FBH
MOVX @DPTR,A
RET
;——东西方向车流量检测程序——
T03: MOV A,R3
SUBB A,#00H ;若绿灯倒计时结束，不再检测车流量http://www.duankudp.com/
JZ N3
JB P2.0,T03
INC R7
CJNE R7,#64H,E1
MOV R7,#00H ;中止到100次则清零
E1: SJMP N22
;——东西方向车流量显现程序——
T02: MOV B,#0AH
MOV A,R7 ;R7中值二转十显现转化
DIV AB
MOV 79H,A
MOV 7AH,B
DIS3: MOV A,79H ;显现十位http://www.duankudp.com/
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV DPTR,#0002H
MOVX @DPTR,A
MOV DPTR,#0001H
MOV A,#0F7H
MOVX @DPTR,A
LCALL DELAY
DS4: MOV A,7AH ;显现个位
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV DPTR,#0002H
MOVX @DPTR,A
MOV DPTR,#0001H
MOV A,#0FBH
MOVX @DPTR,A
LJMP N7
;——延时4MS子程序———-
DELAY: MOV R1,#0AH
LOOP: MOV R6,#64H
NOP
LOOP1: DJNZ R6,LOOP1
DJNZ R1,LOOP
RET
;——字符表——
TAB: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
END
