aboutsummaryrefslogtreecommitdiffstats
path: root/tests/tc400_convenience/convenience_en.awl
blob: e3ede94c7bed82bedfc6943da5a6da2ad0e47506 (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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
ORGANIZATION_BLOCK OB 1
BEGIN
	// Test parsing of convenience operators.
	// Convenience operators are certain operators with missing white space.

	OPN	DB1
	OPN	DI1

	SET
	=	I0.1
	=	Q0.1
	=	M0.1
	=	L0.1
	=	DBX0.0
	=	DIX0.0

	L	100
	T	IB0
	T	IW0
	T	ID0
	T	QB0
	T	QW0
	T	QD0
	T	LB0
	T	LW0
	T	LD0
	T	MB0
	T	MW0
	T	MD0
	T	DBB0
	T	DBW0
	T	DBD0
	T	DIB0
	T	DIW0
	T	DID0

	A	T0
	=	M0.0
	A	C0
	=	M0.0

	L	P#I0.1
	L	P#Q0.1
	L	P#M0.1
	L	P#L0.1
	L	P#P0.1
	L	P#DBX0.0
	L	P#DIX0.0


	CALL SFC 46 // STOP CPU
END_ORGANIZATION_BLOCK


DATA_BLOCK DB 1
STRUCT
	VARIABLE : DWORD;
END_STRUCT;
BEGIN
	VARIABLE := DW#16#1;
END_DATA_BLOCK
bues.ch cgit interface