可调时交通灯的程序.docVIP

可调时交通灯的程序 ORG 0000H ；程序执行地址 LJMP MAIN ；长跳转主程序 ORG 0003H ；长跳转紧急情况 LJMP EXTR ORG 000BH ；长跳转定时中断 LJMP ST0 ORG 0013H ；长跳转调时 LJMP ADT ORG 0030H MAIN: MOV SP,#70H MOV R4,#0 MOV 55H,#30 ；红灯初始设定时间 LCALL FZH ；调用红灯时间换算其他灯时间及断点 LCALL CCBCD ，十六换为十进制将十进制换为7段码 MOV 6CH, MOV 6DH, MOV 6EH, MOV 6FH, MOV TMOD, CLR IT0 ；定时中断0清零 CLR IT1 ；定时中断1清零 SETB EA ；总中断 SETB TR0 ；开定时计数器 SETB EX0 ；允许外部中断0中断 SETB EX1 ；允许外部中断1中断 SETB ET0 ；允许定时器0的中断 MOV TH0,#06H MOV TL0,#06H MOV P1, LOOP: LCALL DISP ；掉转循环显示 JMP LOOP FZH: CLR C ；清零进位位 MOV A,55H SUBB A,#5 ；算出绿灯时间（红减黄） MOV 54H,A MOV 65H,55H MOV 64H,54H ADD A,55H ；红灯时间加黄灯时间 MOV 66H,A MOV A,55H ADD A,55H MOV 67H,A MOV 52H,54H MOV 53H,55H RET ST0: PUSH A ；长跳转定时中断 PUSH PSW ；保护现场 INC 50H MOV A,#28H XRL A,50H JNZ STF ；判断是否10MS（40次） MOV 50H,A INC 51H MOV A,#64H XRL A,51H JNZ STF MOV 51H,A INC R4 ；R4为断点判断标志 MOV 51H,A LCALL SUT ；调用减1 LCALL CCBCD ；换算7段码 STF: POP PSW ；保护现场 POP A RETI SUT: MOV A,64H ；减1 XRL A,R4 JZ LGS1 ；L1路绿灯是否到时间 MOV A,65H XRL A,R4 JZ LYS1 ；L1路黄灯是否到时间 MOV A,66H XRL A,R4 JZ LGS2 ；L2路绿灯是否到时间 MOV A,67H XRL A,R4 JZ LYS2 ；L2路黄灯是否到时间 DEC 52H DEC 53H LJMP SUTST LGS1: MOV P1, DEC 53H ；L2路时间减1 MOV 52H,#5 JMP SUTST ； 跳转推出 LYS1: MOV P1, MOV 52H,55H MOV 53H,54H JMP SUTST LGS2: MOV P1, MOV 53H,#5 DEC 52H JMP SUTST LYS2: MOV P1, MOV 52H,54H MOV 53H,55H MOV R4,#00H ；清R4