summaryrefslogtreecommitdiffstats
path: root/tests/999-projects/shiftregister_tp.awl
blob: c590ada96639aa5b29b77d48dc68c30f5b201821 (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
51
ORGANIZATION_BLOCK OB 1
BEGIN

	// Taktgeber
	UN	M 0.0
	=	L 0.0
	CALL	SFB 3, DB 1 (
		IN	:= L 0.0,
		PT	:= T#200MS,
		Q	:= M 0.0,
		ET	:= MD 2,
	)

	// Taktausgabe
	X	A 0.0
	XN	M 0.0
	=	A 0.0


	// Schieberegister
	L	MD 16
	L	1
	==D
	S	M 0.1
	RRD	1
	==D
	R	M 0.1
	L	MD 16
	UD	DW#16#FFFFFFFF
	L	1
	SPZ	_001
	TAK
	UN	M 0.0
	SPBN	_001
	U	M 0.1
	SPBN	_000
	RLD	2
_000:	RRD	1
_001:	T	MD 16
	L	MD 16
	T	AD 16
	TAD
	T	AD 20

END_ORGANIZATION_BLOCK


DATA_BLOCK DB 1
	SFB 3
BEGIN
END_DATA_BLOCK
bues.ch cgit interface