aboutsummaryrefslogtreecommitdiffstats
path: root/tests/400-convenience/convenience_de.awl
blob: aa03e89914f2b25bbb18209a10dfa2218c9dde79 (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.

	AUF	DB1
	AUF	DI1

	SET
	=	E0.1
	=	A0.1
	=	M0.1
	=	L0.1
	=	DBX0.0
	=	DIX0.0

	L	100
	T	EB0
	T	EW0
	T	ED0
	T	AB0
	T	AW0
	T	AD0
	T	LB0
	T	LW0
	T	LD0
	T	MB0
	T	MW0
	T	MD0
	T	DBB0
	T	DBW0
	T	DBD0
	T	DIB0
	T	DIW0
	T	DID0

	U	T0
	=	M0.0
	U	Z0
	=	M0.0

	L	P#E0.1
	L	P#A0.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