交通灯

XH1 DATA 100H　　;定义循环单元地址
XH2 DATA 105H
 ORG 0000H
 AJMP MAIN
 ORG 0030H
MAIN: MOV P0, #11111110B      ;初始化
 MOV P2, #11111110B
 MOV P1, #11110111B
 MOV P3, #11110111B
 ACALL DEL30S     ；黄灯闪耀
 CPL P0.0
 CPL P2.0
 CPL P0.6
 CPL P2.6
 ACALL DEL05S
 MOV XH1, #10
YELL0: CPL P0.6
 CPL P2.6
 ACALL DEL05S
 DJNZ XH1, YELL0   ；闪耀11次
 MOV P0, #11110111B    ；换向
 MOV P2, #11110111B
 MOV P1, #11111110B
 MOV P3, #11111110B
 ACALL DEL30S
 CPL P1.0       ；黄灯闪耀
 CPL P3.0
 CPL P1.6
 CPL P3.6
 ACALL DEL05S
 MOV XH2, #10
YELL1: CPL P1.6
 CPL P3.6
 ACALL DEL05S
 DJNZ XH2, YELL1          ；闪耀11次
 AJMP MAIN

 

;延时0.5S子程序

DEL05S: MOV R5, #04H
DEL1: MOV R6, #0F0H
DEL2: MOV R7, #0F0H
 DJNZ R7, $
 DJNZ R6, DEL2
 DJNZ R5, DEL1
 RET

 

;延时30S子程序

DEL30S: MOV R4, #0FH
D1: MOV R5, #10H
D2: MOV R6, #0F0H
D3: MOV R7, #0F0H
 DJNZ R7, $
 DJNZ R6, D3
 DJNZ R5, D2
 DJNZ R4, D1
 RET

 END