aboutsummaryrefslogtreecommitdiffstats
path: root/tests/500-systemblocks/sfc/sfc64.awl
blob: 023ee673aaf37adee8baa529bf79fe3dae84702c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
ORGANIZATION_BLOCK OB 1
BEGIN
	// Test SFC 64: TIME_TCK
	CALL		SFC 64 (
		RET_VAL		:= MD 0
	)
	__ASSERT==	__STW BIE,	1
	__SLEEP		100
	CALL		SFC 64 (
		RET_VAL		:= MD 4
	)
	__ASSERT==	__STW BIE,	1
	L		MD 4
	L		MD 0
	-D
	UD		DW#16#7FFFFFFF
	__ASSERT>	__ACCU 1,	50
	__ASSERT<	__ACCU 1,	500


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