Network 1 // 网络标题 // 网络注解 LD I0.0
CALL SBR0 //开关SB0闭合,调用SBR0(INIT)对时钟进行初始化 Network 2 LDN I0.1 //起动/停止开关SB1断开,则停止程序 STOP Network 3 LD I0.1
TODR LB0 //起动/停止开关SB1闭合,则起动程序,读取时钟 Network 4 LD I0.1 INCB LB0 Network 5 LD I0.1 INCB LB0 Network6 LDI0.1
INCBLB0//T加3指向小时存储单元； Network7
LDI0.1；BTILB0,LW1//将小时由字节型转换为整型； Network8 LDI0.1 MOVWLW1,VW16
*I+100,VW16//将小时的数值乘以100； Network9
LDI0.1；INCBLB0//将T指向分钟存储单元； Network10 LD I0.1
BTI LB0,LW3 //将分钟由字节型转换为整型 Network 11 LD I0.1
MOVW LW3, VW18
*I +10, VW18 //将分钟的数值乘以10 Network 12 LD I0.1
MOVW VW16, VW20
+I VW18, VW20 //将小时数乘100与分钟数乘10相加 Network 13 LD I0.1
INCB LB0 //将T指向秒钟存储单元 Network 14 LD I0.1
BTI LB0, LW5 //将秒钟由字节型转换为整型 Network 15 LD I0.1 MOVW VW14, LW7
+I LW5, LW7 //将小时数乘100与分钟数乘10相加所得的结果与秒钟数相//加得Tim
Network 16 LDW<= LW7, 630序
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