summaryrefslogtreecommitdiffstats
path: root/tests/150-startup/startup_OB102.awl
blob: 93ae4333e6964d8fa8fdbca2aac548b99e1333c3 (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
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 4-accus
	__FEATURE	0
	__ASSERT==	__ACCU 1,	4


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


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