summaryrefslogtreecommitdiffstats
path: root/tests/150-startup/startup_multiple.awl
blob: 951b388d42028349bb503f4091b06e016ee3f652 (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
ORGANIZATION_BLOCK OB 100
BEGIN
	L		MD 0
	__ASSERT==	__ACCU 1,	0
	L		100
	T		MD 0
END_ORGANIZATION_BLOCK



ORGANIZATION_BLOCK OB 101
BEGIN
	L		MD 0
	__ASSERT==	__ACCU 1,	0
	L		101
	T		MD 0
END_ORGANIZATION_BLOCK



ORGANIZATION_BLOCK OB 102
BEGIN
	L		MD 0
	__ASSERT==	__ACCU 1,	0
	L		102
	T		MD 0
END_ORGANIZATION_BLOCK



ORGANIZATION_BLOCK OB 1
BEGIN
	// assert 2-accus
	__FEATURE	0
	__ASSERT==	__ACCU 1,	2


	// check that OB 100 was executed
	L		MD 0
	__ASSERT==	__ACCU 1,	100


	CALL SFC 46 // STOP CPU
END_ORGANIZATION_BLOCK
bues.ch cgit interface