aboutsummaryrefslogtreecommitdiffstats
path: root/tests/300-cpu/big-blocknum.awl
blob: d09a71ca6f882a5ece3391a3ad6a4a6e3b20a784 (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
25
26
27
28
29
30
31
32
33
34
35
36
37
TYPE UDT 65535
	STRUCT
		VAR_INT	: INT := 42;
	END_STRUCT;
END_TYPE


FUNCTION FC 65535 : UDT 65535
BEGIN
	NOP	0
	BE
END_FUNCTION


FUNCTION_BLOCK FB 65535
BEGIN
	NOP	0
	BE
END_FUNCTION_BLOCK


DATA_BLOCK DB 65535
	FB 65535
BEGIN
END_DATA_BLOCK


ORGANIZATION_BLOCK OB 1
	VAR_TEMP
		RETVAL : UDT 65535;
	END_VAR;
BEGIN
	CALL FC 65535 ( RET_VAL := #RETVAL )
	CALL FB 65535, DB 65535

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