交通灯

XH1DATA100H　　;定义循环单元地址
XH2DATA105H
ORG0000H
AJMPMAIN
ORG0030H
MAIN:MOVP0,#11111110B ;初始化
MOVP2,#11111110B
MOVP1,#11110111B
MOVP3,#11110111B
ACALLDEL30S ；黄灯闪耀
CPLP0.0
CPLP2.0
CPLP0.6
CPLP2.6
ACALLDEL05S
MOVXH1,#10
YELL0:CPLP0.6
CPLP2.6
ACALLDEL05S
DJNZXH1,YELL0 ；闪耀11次
MOVP0,#11110111B ；换向
MOVP2,#11110111B
MOVP1,#11111110B
MOVP3,#11111110B
ACALLDEL30S
CPLP1.0 ；黄灯闪耀
CPLP3.0
CPLP1.6
CPLP3.6
ACALLDEL05S
MOVXH2,#10
YELL1:CPLP1.6
CPLP3.6
ACALLDEL05S
DJNZXH2,YELL1 ；闪耀11次
AJMPMAIN

;延时0.5S子程序

DEL05S:MOVR5,#04H
DEL1:MOVR6,#0F0H
DEL2:MOVR7,#0F0H
DJNZR7,$
DJNZR6,DEL2
DJNZR5,DEL1
RET

;延时30S子程序

DEL30S:MOVR4,#0FH
D1:MOVR5,#10H
D2:MOVR6,#0F0H
D3:MOVR7,#0F0H
DJNZR7,$
DJNZR6,D3
DJNZR5,D2
DJNZR4,D1
RET

END