summaryrefslogtreecommitdiffstats
path: root/tests/startup_OB100.awl
blob: 6fc966d14e06c39ff8ae78447588092ee3fe92a0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
ORGANIZATION_BLOCK OB 100
BEGIN
	L		MD 0
	__ASSERT==	__ACCU 1,	0
	L		100
	T		MD 0
END_ORGANIZATION_BLOCK



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

	// check that OB 100 was executed
	L		MD 0
	__ASSERT==	__ACCU 1,	100
END_ORGANIZATION_BLOCK
bues.ch cgit interface