awlsim/tests/tc400_convenience/convenience_en.awl

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