awlsim/tests/tc500_systemblocks/sfc/sfc64.awl

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