发表于:2010/10/8 19:11:23
#0楼
以下是S7-300在FC50里编的程序,由OB1调用,看不明白,请高手解释一下,谢谢了!
L P#DBX 0.0
LAR1
OPN "ACT" DB103
L DBLG
L L#2
/D
strt: T #countr
A DBX [AR1,P#0.0]
= #H
A DBX [AR1,P#0.1]
= #SQ
A DBX [AR1,P#0.2]
= #XQ
A DBX [AR1,P#0.4]
= #PI
// A DBX [AR1,P#0.5]
// = #FltI
// A #FltI
// JNB _nxt
// SET
// R #PQ
// JU end
//_nxt: NOP 0
SET
A #H
JNB _001
SET
A #SQ
= #PQ
JU end
_001: NOP 0
SET
A #XQ
= #PQ
JU end
end: NOP 0
A #PQ
= DBX [AR1,P#0.3]
X #PQ
X #PI
= DBX [AR1,P#0.5]
+AR1 P#2.0
L #countr
LOOP strt
L P#DBX 0.0
LAR1
OPN "ACT" DB103
L DBLG
L L#2
/D
strt: T #countr
A DBX [AR1,P#0.0]
= #H
A DBX [AR1,P#0.1]
= #SQ
A DBX [AR1,P#0.2]
= #XQ
A DBX [AR1,P#0.4]
= #PI
// A DBX [AR1,P#0.5]
// = #FltI
// A #FltI
// JNB _nxt
// SET
// R #PQ
// JU end
//_nxt: NOP 0
SET
A #H
JNB _001
SET
A #SQ
= #PQ
JU end
_001: NOP 0
SET
A #XQ
= #PQ
JU end
end: NOP 0
A #PQ
= DBX [AR1,P#0.3]
X #PQ
X #PI
= DBX [AR1,P#0.5]
+AR1 P#2.0
L #countr
LOOP strt