TITLE=子程序注释
Network 1 // 网络标题
// 月份前总天数
LD SM0.0
TODR VB0
BTI VB0, VW8
MOVW VW8, VW10
BCDI VW10
BTI VB1, VW12
MOVW VW12, VW14
BCDI VW14
BTI VB2, VW16
MOVW VW16, VW18
BCDI VW18
BTI VB3, VW20
MOVW VW20, VW22
BCDI VW22
BTI VB4, VW24
MOVW VW24, VW26
BCDI VW26
BTI VB5, VW2000
MOVW VW2000, VW2002
BCDI VW2002
Network 2
LD SM0.0
LPS
AW= VW14, 1
MOVW 0, VW30
LRD
AW= VW14, 2
MOVW 31, VW30
LRD
AW= VW14, 3
MOVW 59, VW30
LRD
AW= VW14, 4
MOVW 90, VW30
LRD
AW= VW14, 5
MOVW 120, VW30
LRD
AW= VW14, 6
MOVW 151, VW30
LRD
AW= VW14, 7
MOVW 181, VW30
LRD
AW= VW14, 8
MOVW 212, VW30
LRD
AW= VW14, 9
MOVW 243, VW30
LRD
AW= VW14, 10
MOVW 273, VW30
LRD
AW= VW14, 11
MOVW 304, VW30
LPP
AW= VW14, 12
MOVW 334, VW30
Network 3
LD SM0.0
MOVW VW30, VW32
+I VW18, VW32
Network 4
LD SM0.0
MOVW VW10, VW36
DIV 4, VD34
MOVW VW10, VW40
DIV 100, VD38
MOVW VW10, VW44
DIV 400, VD42
LDW= VW34, 0
AW<> VW38, 0
OW= VW42, 0
ALD
= L0.0
Network 5
// 一年中的第几天（闰年）
LD L0.0
AW> VW14, 2
MOVW 1, VW46
+I VW32, VW46
Network 6
// 一年中的第几天（非闰年）
LD SM0.0
MOVW VW32, VW46
Network 7
Network 8
Network 9
Network 10
本人写的程序,不知道能不简化,还没测试,希望帮忙看看,
以前是用艾默生PLC写的.