andy88668
級別: 探索解密
精華主題: 0
發(fā)帖數(shù)量: 57 個
工控威望: 136 點
下載積分: 1071 分
在線時間: 21(小時)
注冊時間: 2010-01-31
最后登錄: 2023-10-30
查看andy88668的 主題 / 回貼
樓主  發(fā)表于: 2010-07-09 15:04
ORGANIZATION_BLOCK 主程序:OB1
TITLE=程序注釋
BEGIN
Network 1
LD     SM0.0
TON    T110, 12
Network 2
LDN    T110
A      SM0.5
=      M3.0
Network 3
// 調用報警,加砂
LD     SM0.0
CALL   SBR2
A      T110
CALL   SBR3
CALL   SBR4
Network 4 // 網絡標題
// 調用單機,正常程序
LD     T110
LPS
A      I2.0
CALL   SBR0
MOVB   0, MB2
LPP
AN     I2.0
CALL   SBR1
MOVB   0, MB1
Network 5
// 緊急指示
LDN    I0.0
O      M3.0
=      Q1.7
Network 6
// 除塵風機運行
LD     I0.1
EU
O      Q0.0
A      I0.2
AN     I0.3
A      T110
=      Q0.0
Network 7
LD     Q0.0
TON    T39, 180
Network 8
LD     T39
TON    T40, 5
Network 9
LD     Q0.0
AN     T39
AN     Q0.1
=      Q0.2
Network 10
LD     Q0.0
A      T40
AN     Q0.2
=      Q0.1
Network 11
LD     I0.3
O      M3.0
=      Q1.2
Network 12
LD     I0.6
O      M3.0
=      Q1.3
Network 13
LD     I1.1
O      M3.0
=      Q1.4
Network 14
LD     I1.4
O      M3.0
=      Q1.5
Network 15
// 縱皮帶機2過熱指示
LD     I1.7
O      M3.0
=      Q1.6
Network 16
LD     I2.3
TON    T49, 15
Network 17
// 下室無料指示
LD     T49
=      Q2.5
Network 18
LD     M1.0
O      M2.0
=      Q0.3
Network 19
LD     M1.1
O      M2.1
=      Q0.4
Network 20
LD     M1.2
O      M2.2
=      Q0.5
Network 21
LD     M1.3
O      M2.3
=      Q1.0
Network 22
LD     I2.0
A      T110
LD     M3.0
AN     T110
OLD
=      Q1.1
END_ORGANIZATION_BLOCK
SUBROUTINE_BLOCK SBR_dj:SBR0
TITLE=子程序注釋
BEGIN
Network 1 // 網絡標題
// 網絡注釋
LD     I0.4
EU
O      M1.0
A      I0.5
AN     I0.6
A      I0.0
=      M1.0
Network 2
LD     I0.7
O      M1.1
A      I1.0
AN     I1.1
A      I0.0
=      M1.1
Network 3
LD     I1.2
O      M1.2
A      I1.3
AN     I1.4
A      I0.0
=      M1.2
Network 4
LD     I1.5
O      M1.3
A      I1.6
AN     I1.7
A      I0.0
=      M1.3
END_SUBROUTINE_BLOCK
SUBROUTINE_BLOCK SBR_zd:SBR1
TITLE=子程序注釋
BEGIN
Network 1 // 網絡標題
// 網絡注釋
LD     Q0.1
A      I0.4
AN     Q0.3
LDN    Q0.1
ON     I0.0
O      I0.6
LDN    I0.5
AN     M2.1
OLD
NOT
LPS
A      M2.0
=      M2.0
LPP
ALD
O      M2.0
=      M2.0
Network 2
LD     Q0.3
A      I0.7
AN     Q0.4
LDN    Q0.3
ON     I0.0
O      I1.1
LDN    I1.0
AN     M2.2
OLD
NOT
LPS
A      M2.1
=      M2.1
LPP
ALD
O      M2.1
=      M2.1
Network 3
LD     Q0.4
A      I1.2
AN     Q0.5
LDN    Q0.4
ON     I0.0
O      I1.4
LDN    I1.3
AN     M2.3
OLD
NOT
LPS
A      M2.2
=      M2.2
LPP
ALD
O      M2.2
=      M2.2
Network 4
LD     Q0.5
A      I1.5
AN     Q1.0
LDN    Q0.5
ON     I0.0
O      I1.7
ON     I1.6
NOT
LPS
A      M2.3
=      M2.3
LPP
ALD
O      M2.3
=      M2.3
END_SUBROUTINE_BLOCK
SUBROUTINE_BLOCK SBR_bj:SBR2
TITLE=子程序注釋
BEGIN
Network 1 // 網絡標題
// 網絡注釋
LD     I0.0
ED
LD     I0.3
EU
OLD
LD     I0.6
EU
OLD
LD     I1.1
EU
OLD
LD     I1.4
EU
OLD
LD     I1.7
EU
OLD
S      M3.3, 1
Network 2
LD     I2.6
R      M3.3, 1
Network 3
LD     M3.3
O      M3.0
=      Q2.0
END_SUBROUTINE_BLOCK
SUBROUTINE_BLOCK SBR_js:SBR3
TITLE=子程序注釋
BEGIN
Network 1 // 網絡標題
// 網絡注釋
LD     I2.0
LDN    I2.0
A      Q1.0
OLD
A      I2.4
=      Q2.3
Network 2
LD     I2.0
LDN    I2.0
A      Q1.0
OLD
A      I2.5
=      Q2.4
END_SUBROUTINE_BLOCK
SUBROUTINE_BLOCK SBR_4:SBR4
TITLE=子程序注釋
BEGIN
Network 1 // 網絡標題
// 加料
LD     I2.3
O      Q2.2
AN     I2.2
AN     Q2.1
=      Q2.2
Network 2
// 上室有料后,延時15秒開始進氣。
LD     I2.2
TON    T102, 150
Network 3
LD     T102
O      Q2.1
AN     T103
=      Q2.1
Network 4
LDN    I2.3
TON    T103, 900
END_SUBROUTINE_BLOCK