1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
ORGANIZATION_BLOCK OB 1
BEGIN
// Check instance-DB length
AUF DB 1
L DBLG
__ASSERT== __ACCU 1, 22
AUF DB 0
CALL SFC 46 // STOP CPU
BE //TODO
// Check TON
CALL SFB 4, DB 1 (
IN := FALSE,
PT := T#0S,
Q := M 0.0,
ET := MD 2,
)
U M 0.0
__ASSERT== __STW VKE, 0
L MD 2
__ASSERT== __ACCU 1, 0
L DB1.DBB 12 // STATE
__ASSERT== __ACCU 1, 0
L DB1.DBD 14 // STIME
__ASSERT== __ACCU 1, 0
L DB1.DBD 18 // ATIME
__ASSERT>= __ACCU 1, __ACCU 2
CALL SFB 4, DB 1 (
IN := FALSE,
PT := T#100MS,
Q := M 0.0,
ET := MD 2,
)
U M 0.0
__ASSERT== __STW VKE, 0
L MD 2
__ASSERT== __ACCU 1, 0
L DB1.DBB 12 // STATE
__ASSERT== __ACCU 1, 0
L DB1.DBD 14 // STIME
__ASSERT== __ACCU 1, 0
L DB1.DBD 18 // ATIME
__ASSERT>= __ACCU 1, __ACCU 2
CALL SFC 46 // STOP CPU
END_ORGANIZATION_BLOCK
DATA_BLOCK DB 1
SFB 4
BEGIN
END_DATA_BLOCK
|