基于单片机的交通灯的设计1.doc

ORG 0000H LJMP START ORG 0003H LJMP IINT0 ORG 0013H LJMP IINT1 ORG 0030H START: MOV SP,#6FH MOV 61H,#20H MOV 60H,61H LIGHT: SETB EA ;程序初始化 SETB EX0 SETB EX1 CLR IT1 CLR IT0 MOV P1,#0F3H ;P1.2东西红，P1.3南北绿，计时时间为15s MOV 60H,61H A1: MOV R1,#50 A2: ACALL BCD ACALL DISPCLK DJNZ R1,A2 MOV A,60H MOV R0,60H ADD A,#99H DA A MOV 60H,A CJNE R0,#05H,A1 MOV P1,#0F5H ; P1.2东西红，P1.1南北黄 5s MOV R2,#5 A3: MOV R1,#50 A4: ACALL BCD ACALL DISPCLK DJNZ R1,A4 CLR P1.1 MOV A,60H ADD A,#99H DA A MOV 60H,A DJNZ R2,A3 MOV P1,#0DEH ;P1.5东西绿，P1.0南北红，计时时间20s MOV 60H,61H A5: MOV R1,#50 A6: ACALL BCD ACALL DISPCLK DJNZ R1,A6 MOV R0,60H MOV A,60H ADD A,#99H DA A MOV 60H,A CJNE R0,#05H,A5 MOV P1,#0EEH ;P1.0南北红，P1.4东西黄灯 5s MOV R2,#5 A7: MOV R1,#50 A8: ACALL BCD ACALL DISPCLK DJNZ R1,A8 CLR P1.4 MOV A,60H ADD A,#99H DA A MOV 60H,A DJNZ R2,A7 LJMP LIGHT ;连续运行返回部分 DISPCLK: ;显示部分 MOV DPTR,#TAB MOV A,50H MOVC A,A+DPTR MOV P0,A ;个位段码送P0 CLR P2.6 CLR P2.4 LCALL DELAY SETB P2.6SETB P2.4 MOV A,51H MOVC A,A+DPTR MOV P0,A ;十位段码送P0 CLR P2.7CLR P2.5 LCALL DELAY SETB P2.7 SETB P2.5 RET BCD: ;将十位数送到（51），个位数送到（） MOV A,60H MOV B,#10H DIV AB MOV 51H,A MOV A,B MOV 50H,A RET IINT0: ;紧急情况处理 CLR EA JB P3.2,$ PUSH 60H PUSH P1 PUSH P2 A9: MOV P1,#0F6H ;全红 1111 1100 P1.0 P1.1为零 SETB P2.6 SETB P2.4SETB P2.5 SETB P2.7 ACALL DELAY JNB P3.2,A9 JMP JE JE: POP P2 POP P1 POP 60H SETB EA RETI IINT1: ;通行时间加减程序 CLR EA JB P3.3,$ PUSH P1 PUSH P2 B1: JNB P3.1,DDEC IINC: JNB P3.0,SINC ;加1程序 ZINC: ;自动加1 MOV R0,#15 A10: ACALL BCD ACALL DISPCLK DJNZ R0,A10 MOV A,60H ADD A,#01H DA A MOV 60H,A JNB P3.3,B1 JMP JS SINC: ;手动加1 MOV R3,#20 A11: ACALL BCD ACALL DISPCLK DJNZ R3,A11 MOV A,60H ADD A,#01H DA A MOV 60H,A B2: JB P3.3,JS JNB P3.4,SINC JMP B2 DDEC: ;减1程序 JNB P3.0,SDEC ZDEC: MOV R4,#15 A12: ACALL BCD ACALL DISPCLK DJNZ R4,A12 MOV A,60H ADD A,#99H DA A MOV 60H,A JB P3.3,JS JMP B1 SDEC: ;手动减1程序 MOV R5,#20 A13: ACALL BCD ACALL DISPCLK DJNZ R5,A13 MOV A,60H ADD A,#99H DA A MOV 60H,A B3: JB P3.3,JS JNB P3.4,SDEC JMP B3 JS: MOV 61H,60H POP P2 POP P1 SETB EA RETI ;10MS延时DELAY: MOV R6,#25 DEL