matiec: lib/counter.txt@6facabd9c2cd (annotated)

0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	1	(* Following taken directly from the IEC 61131.3 draft standard *)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	2
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	3	(*
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	4	* An IEC 61131-3 IL and ST compiler.
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	5	*
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	6	* Based on the
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	7	* FINAL DRAFT - IEC 61131-3, 2nd Ed. (2001-12-10)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	8	*
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	9	*)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	10
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	11
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	12	(*
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	13	* This is part of the library conatining the functions
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	14	* and function blocks defined in the standard.
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	15	*
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	16	* Counter function blocks
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	17	* -----------------------
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	18	*)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	19
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	20
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	21	FUNCTION_BLOCK CTU
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	22	VAR_INPUT
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	23	CU : BOOL;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	24	R : BOOL;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	25	PV : INT;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	26	END_VAR
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	27	VAR_OUTPUT
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	28	Q : BOOL;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	29	CV : INT;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	30	END_VAR
257 90782e241346 Huge change. Mario de Sousa <msousa@fe.up.pt> parents: 176 diff changeset	31
90782e241346 Huge change. Mario de Sousa <msousa@fe.up.pt> parents: 176 diff changeset	32	VAR RRR : REAL; END_VAR
90782e241346 Huge change. Mario de Sousa <msousa@fe.up.pt> parents: 176 diff changeset	33	RRR := 9.9;
90782e241346 Huge change. Mario de Sousa <msousa@fe.up.pt> parents: 176 diff changeset	34
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	35	IF R THEN CV := 0 ;
176 bef3cc16c064 Bug with non-working counters fixed lbessard parents: 0 diff changeset	36	ELSIF CU AND (CV < PV)
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	37	THEN CV := CV+1;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	38	END_IF ;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	39	Q := (CV >= PV) ;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	40	END_FUNCTION_BLOCK
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	41
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	42
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	43	FUNCTION_BLOCK CTD
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	44	VAR_INPUT
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	45	CD : BOOL;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	46	LD : BOOL;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	47	PV : INT;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	48	END_VAR
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	49	VAR_OUTPUT
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	50	Q : BOOL;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	51	CV : INT;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	52	END_VAR
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	53	IF LD THEN CV := PV ;
176 bef3cc16c064 Bug with non-working counters fixed lbessard parents: 0 diff changeset	54	ELSIF CD AND (CV > 0)
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	55	THEN CV := CV-1;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	56	END_IF ;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	57	Q := (CV <= 0) ;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	58	END_FUNCTION_BLOCK
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	59
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	60
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	61	FUNCTION_BLOCK CTUD
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	62	VAR_INPUT
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	63	CU : BOOL;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	64	CD : BOOL;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	65	R : BOOL;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	66	LD : BOOL;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	67	PV : INT;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	68	END_VAR
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	69	VAR_OUTPUT
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	70	QU : BOOL;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	71	QD : BOOL;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	72	CV : INT;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	73	END_VAR
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	74	IF R THEN CV := 0 ;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	75	ELSIF LD THEN CV := PV ;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	76	ELSE
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	77	IF NOT (CU AND CD) THEN
176 bef3cc16c064 Bug with non-working counters fixed lbessard parents: 0 diff changeset	78	IF CU AND (CV < PV)
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	79	THEN CV := CV+1;
176 bef3cc16c064 Bug with non-working counters fixed lbessard parents: 0 diff changeset	80	ELSIF CD AND (CV > 0)
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	81	THEN CV := CV-1;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	82	END_IF;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	83	END_IF;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	84	END_IF ;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	85	QU := (CV >= PV) ;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	86	QD := (CV <= 0) ;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	87	END_FUNCTION_BLOCK
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	88

author	Mario de Sousa <msousa@fe.up.pt>
	Fri, 01 Apr 2011 10:06:19 +0100
changeset 264	6facabd9c2cd
parent 257	90782e241346
child 276	1679f514f38a
permissions	-rwxr-xr-x