summaryrefslogtreecommitdiffstats
path: root/tests/150-startup/startup_OB100.awl
blob: 354bce3f067a7a6ff6fb248a410d7108694758e0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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


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