ORGANIZATION_BLOCK OB 1
BEGIN
	CALL		FC 1
	CALL		FC 2
	CALL		FC 3
END_ORGANIZATION_BLOCK



FUNCTION FC 1: VOID
BEGIN
	U		E 0.0
	=		A 0.0
END_FUNCTION



FUNCTION FC 2: VOID
TITLE = Shift register
BEGIN
	UN		T 10
	=		M 0.0
	L		S5T#200MS
	SV		T 10

	L		MD 4
	L		1
	==D
	S		M 0.1
	RRD		1
	==D
	R		M 0.1

	L		MD 4
	UD		L#-1
	L		1
	SPZ		_001
	TAK
	U		M 0.0
	SPBN		_001
	U		M 0.1
	SPBN		_000
	RLD		2
_000:	RRD		1
_001:	T		MD 4

	L		MD 4
	T		AD 4
	TAD
	T		AD 8
END_FUNCTION



FUNCTION FC 3: VOID
TITLE = DB usage example
BEGIN
	AUF		DB 1
	L		DBD 2
END_FUNCTION



DATA_BLOCK DB 1
TITLE = This is DB 1
STRUCT
	VAR1 : INT		// DBW0: VAR1 => 16 bit signed int
	VAR2 : DWORD	// DBD2: VAR2 => 32 bit unsigned dword
	VAR3 : WORD		// DBW6: VAR3 => 16 bit unsigned word
END_STRUCT
BEGIN
	VAR1 := 1337
	VAR2 := DW#16#DEADBEEF
	VAR3 := B#(1, 2)
END_DATA_BLOCK