awlsim/tests/tc400_convenience/convenience_de.awl

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