 
 
(* @PATH := '' *)
(* @SYMFILEFLAGS := '0' *)
FUNCTION_BLOCK CoDeSys_AWL_src 
(*function block: CoDeSys_AWL_src
  for Instruction List demonstration
  calculate sinus and cosinus of a number
  version: 1.0.0, 18.03.2004, 3S Software*)

 VAR_INPUT
 	n: REAL := 0.0;
 END_VAR

 VAR_OUTPUT
 	sinus: REAL;
 	cosinus: REAL := 9.9;
 END_VAR
(* @END_DECLARATION := '0' *)

        (* function block CoDeSys_AWL_src
           for Instruction List demonstration
           calculate sinus and cosinus of a number
           version: 1.0.0, 18.03.2004, 3S Software *)

	(* calculate the sinus of a number and multiply with 1000 *)
	LD		n
	SIN
	MUL		1000.0
	ST		sinus
	(* calculate the cosinus of a number and multiply with 1000 *)
	LD		n
	COS
	MUL		1000.0
	ST		cosinus
	
	(* increase the number *)
	LD		n
	ADD		0.1
	ST		n
	
END_FUNCTION_BLOCK
