blob: f60c36f38d133b4600a7926639a7add6522e3fee (
plain)
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
|
ORGANIZATION_BLOCK OB 1
BEGIN
CALL FC 1
CALL FC 2
END_ORGANIZATION_BLOCK
FUNCTION FC 1: VOID
BEGIN
U E 0.0
= A 0.0
END_FUNCTION
FUNCTION FC 2: VOID
TITLE = Shift register
BEGIN
UN T 10
= M 0.0
L S5T#200MS
SV T 10
L MD 4
L 1
==D
S M 0.1
RRD 1
==D
R M 0.1
L MD 4
UD L#-1
L 1
SPZ _001
TAK
U M 0.0
SPBN _001
U M 0.1
SPBN _000
RLD 2
_000: RRD 1
_001: T MD 4
L MD 4
T AD 4
TAD
T AD 8
END_FUNCTION
|