发表于:2008-04-30 16:23:39
29楼
OB35:
CALL FC 1
PulseSignal:=DB1.DBX0.0 //流量计发出的脉冲
FlowMeter :=DB2.DBX0.0 //存放数据的地址指针
CountPulse :=5.000000e+000 //脉冲系数
FC1:
LAR1
T #dwAR1
L DBNO
T #wDBno
L P##FlowMeter
LAR1
L W [AR1,P#0.0]
T #DBnr_D
L D [AR1,P#2.0]
LAR1
OPN DB [#DBnr_D]
L #CountPulse
T DBD [AR1,P#4.0]
A #PulseSignal
= DBX [AR1,P#0.0]
A(
A DBX [AR1,P#0.0]
X DBX [AR1,P#0.1]
)
A DBX [AR1,P#0.0]
JCN N01E
A DBX [AR1,P#1.2]
JC CT02
L #CountPulse
L DBD [AR1,P#8.0]
+R
T DBD [AR1,P#8.0]
CT02: A DBX [AR1,P#1.3]
JC CT03
L #CountPulse
L DBD [AR1,P#12.0]
+R
T DBD [AR1,P#12.0]
CT03: A DBX [AR1,P#1.4]
JC N01E
L #CountPulse
L DBD [AR1,P#16.0]
+R
T DBD [AR1,P#16.0]
N01E: NOP 0
A DBX [AR1,P#0.0]
= DBX [AR1,P#0.1]
L #dwAR1
LAR1
OPN DB [#DBnr_D]
此程序可直接作为一个公用子程序调用。