CALL SBR1 //Tim小于630时,则调用SBR1(SUBE)子程 Network 17 LDW< LW7, 700
CALL SBR2 //Tim大于630小于700时,则调用SBR2(SUBN)子程序 Network 18 LDW<= LW7, 830
CALL SBR3 //Tim大于700小于830时,则调用SBR3(SUBF)子程序 Network 19 LDW< LW7, 1630
CALL SBR2 //Tim大于830小于1630时,则调用SBR2(SUBN)子程序 Network 20 LDW<= LW7, 1900
CALL SBR3 //Tim大于1630小于1900时,则调用SBR3(SUBF)子程序 Network 21 LDW< LW7, 2100
CALL SBR2 //Tim大于1900小于2100时,则调用SBR2(SUBN)子程序 Network 22 LDW<= LW7, 2359
CALL SBR1 //Tim大于2100小于2100时,则调用SBR1(SUBE)子程序 END_ORGANIZATION_BLOCK SUBROUTINE_BLOCK INIT:SBR0 TITLE=子例行程序注解 BEGIN
Network 1 //时钟初始化子程序 LD I0.1 INCB VB0 Network 2 LD I0.1 INCB VB0 Network 3
LD I0.1 INCB VB0 Network 4 LD I0.1
MOVB 0, VB0 //设定时钟小时数 Network 5 LD I0.1 INCB VB0 Network 6 LD I0.1
MOVB 0, VB0 //设定时钟分钟数 Network 7 LD I0.1 INCB VB0 Network 8 LD I0.1
MOVB 0, VB0 //设定时钟秒钟数 Network 9 // 网络标题 // 网络注解 LD I0.1 TODW VB0
END_SUBROUTINE_BLOCK
SUBROUTINE_BLOCK SUBE:SBR1 //晚间时段交通灯控制子程序 TITLE=子例行程序注解 BEGIN
Network 1 // 网络标题 // 网络注解 LD I0.1 S S0.1, 1 Network 2
LSCR S0.1 //顺序控制 Network 3 LDN T38 TON T37, 4 TON T38, 10 Network 4 LDN T37 = Q0.1
= Q0.4 //黄灯按亮0.4秒灭0.6的规律闪烁,其余的交通灯全灭 Network 5 LD T38 R T37, 1 R T38, 1 Network 6 SCRE
END_SUBROUTINE_BLOCK
SUBROUTINE_BLOCK SUBN:SBR2 //正常时段交通灯控制子程序 TITLE=子例行程序注解 BEGIN
Network 1 // 网络标题 // 网络注解 LD I0.1 S S0.1, 1 Network 2 LSCR S0.1 Network 3 LDN T42
TON T37, 100 //T37定时10秒 TON T38, 400 //T38定时40秒 TON T39, 450 //T39定时45秒
TON T40, 550 //T40定时550秒 TON T41, 850 //T41定时85秒 TON T42, 900 //T42定时90秒 Network 4 LDN T37 = Q0.2 = Q0.5 = Q0.7 Network 5 LD T37 AN T38 = Q0.2 = Q0.3 Network 6 LD T38 AN T39 S S0.2, 1 Network 7 LSCR S0.2 Network 8 LDN T44 TON T43, 4 TON T44, 10 Network 9 LDN T43 = Q0.2 = Q0.4 Network 10 LD T43 AN T44
= Q0.2 Network 11 LDN T39 S S0.2, 1 Network 12 LD T39 AN T40 = Q0.2 = Q0.5 = Q0.6 Network 13 LD T40 AN T41 = Q0.3 = Q0.5 Network 14 LD T41 AN T42 = Q0.1 = Q0.5 Network 15 LD T42 R T37, 1 R T38, 1 R T39, 1 R T40, 1 R T41, 1 R T42, 1 R T43, 1 R T44, 1