XH1 DATA 100H　　;定義循環(huán)單元地址
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