matiec: lib/timer.txt@f7cc4f6ce756 (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	(*
277 f88718b71b6c Changing to LGPL for library functions. Mario de Sousa <msousa@fe.up.pt> parents: 276 diff changeset	2	* This file is part of matiec - a compiler for the programming
f88718b71b6c Changing to LGPL for library functions. Mario de Sousa <msousa@fe.up.pt> parents: 276 diff changeset	3	* languages defined in IEC 61131-3
f88718b71b6c Changing to LGPL for library functions. Mario de Sousa <msousa@fe.up.pt> parents: 276 diff changeset	4	*
f88718b71b6c Changing to LGPL for library functions. Mario de Sousa <msousa@fe.up.pt> parents: 276 diff changeset	5	* Copyright (C) 2011 Mario de Sousa (msousa@fe.up.pt)
f88718b71b6c Changing to LGPL for library functions. Mario de Sousa <msousa@fe.up.pt> parents: 276 diff changeset	6	*
f88718b71b6c Changing to LGPL for library functions. Mario de Sousa <msousa@fe.up.pt> parents: 276 diff changeset	7	* See COPYING and COPYING.LESSER files for copyright details.
f88718b71b6c Changing to LGPL for library functions. Mario de Sousa <msousa@fe.up.pt> parents: 276 diff changeset	8	* This library is free software; you can redistribute it and/or
f88718b71b6c Changing to LGPL for library functions. Mario de Sousa <msousa@fe.up.pt> parents: 276 diff changeset	9	* modify it under the terms of the GNU Lesser General Public
f88718b71b6c Changing to LGPL for library functions. Mario de Sousa <msousa@fe.up.pt> parents: 276 diff changeset	10	* License as published by the Free Software Foundation; either
f88718b71b6c Changing to LGPL for library functions. Mario de Sousa <msousa@fe.up.pt> parents: 276 diff changeset	11	* version 3 of the License, or (at your option) any later version.
f88718b71b6c Changing to LGPL for library functions. Mario de Sousa <msousa@fe.up.pt> parents: 276 diff changeset	12	*
f88718b71b6c Changing to LGPL for library functions. Mario de Sousa <msousa@fe.up.pt> parents: 276 diff changeset	13	* This library is distributed in the hope that it will be useful,
f88718b71b6c Changing to LGPL for library functions. Mario de Sousa <msousa@fe.up.pt> parents: 276 diff changeset	14	* but WITHOUT ANY WARRANTY; without even the implied warranty of
f88718b71b6c Changing to LGPL for library functions. Mario de Sousa <msousa@fe.up.pt> parents: 276 diff changeset	15	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
f88718b71b6c Changing to LGPL for library functions. Mario de Sousa <msousa@fe.up.pt> parents: 276 diff changeset	16	* Lesser General Public License for more details.
f88718b71b6c Changing to LGPL for library functions. Mario de Sousa <msousa@fe.up.pt> parents: 276 diff changeset	17	*
f88718b71b6c Changing to LGPL for library functions. Mario de Sousa <msousa@fe.up.pt> parents: 276 diff changeset	18	* You should have received a copy of the GNU Lesser General Public
f88718b71b6c Changing to LGPL for library functions. Mario de Sousa <msousa@fe.up.pt> parents: 276 diff changeset	19	* License along with this library; if not, write to the Free Software
f88718b71b6c Changing to LGPL for library functions. Mario de Sousa <msousa@fe.up.pt> parents: 276 diff changeset	20	* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
f88718b71b6c Changing to LGPL for library functions. Mario de Sousa <msousa@fe.up.pt> parents: 276 diff changeset	21	* USA
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	22	*
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	23	* This code is made available on the understanding that it will not be
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	24	* used in safety-critical situations without a full and competent review.
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	25	*)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	26
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	27	(*
276 1679f514f38a Updating origin and license info of library fuctions. Mario de Sousa <msousa@fe.up.pt> parents: 217 diff changeset	28	* An IEC 61131-3 compiler.
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	29	*
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	30	* 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	31	* 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	32	*
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	33	*)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	34
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	35	(*
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	36	* 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	37	* 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	38	*
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	39	* Timer 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	40	* ---------------------
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	41	*
276 1679f514f38a Updating origin and license info of library fuctions. Mario de Sousa <msousa@fe.up.pt> parents: 217 diff changeset	42	* NOTE: The timing diagrams in the comments (except the state variable)
1679f514f38a Updating origin and license info of library fuctions. Mario de Sousa <msousa@fe.up.pt> parents: 217 diff changeset	43	* were taken from the IEC 61131-3 standard.
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	44	*)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	45
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	46
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	47
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	48	(****************************************************************
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	49
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	50	TP - pulse timing - state machine
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	51
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	52
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	53	+--------+ ++ ++ +--------+
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	54	IN \| \| \|\| \|\| \| \|
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	55	--+ +-----++-++---+ +---------
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	56	t0 t1 t2 t3 t4 t5
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	57	+----+ +----+ +----+
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	58	Q \| \| \| \| \| \|
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	t0 t0+PT t2 t2+PT t4 t4+PT
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	61	PT +---+ + +---+
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	62	: / \| /\| / \|
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	63	ET : / \| / \| / \|
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	64	: / \| / \| / \|
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	65	: / \| / \| / \|
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	66	0-+ +-----+ +--+ +---------
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	67	t0 t1 t2 t4 t5
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	68
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	69
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	70	2 +---+ + +---+
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	71	STATE 1 +----+ \| +----\| +----+ \|
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	72	0 --+ +-----+ +--+ +---------
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	73
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	74
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	75	****************************************************************)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	76
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	77	FUNCTION_BLOCK TP
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	78	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	79	IN : BOOL; (* first input parameter *)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	80	PT : TIME; (* second input parameter *)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	81	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	82	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	83	Q : BOOL := FALSE; (* first output parameter *)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	84	ET : TIME := T#0s; (* second output parameter *)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	85	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	86
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	87	VAR
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	88	STATE : SINT := 0; (* internal state: 0-reset, 1-counting, 2-set *)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	89	PREV_IN : BOOL := FALSE;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	90	CURRENT_TIME, START_TIME : TIME;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	91	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	92
885 b2604fc6d25c Change order of SET_xxx() macros. (this will allow me to simplify the print_setter() methods later on) mjsousa parents: 392 diff changeset	93	{__SET_VAR(data__->,CURRENT_TIME,,__CURRENT_TIME)}
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	94
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	95	IF ((STATE = 0) AND NOT(PREV_IN) AND IN) (* found rising edge on IN *)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	96	THEN
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	97	(* start timer... *)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	98	STATE := 1;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	99	Q := TRUE;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	100	START_TIME := CURRENT_TIME;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	101
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	102	ELSIF (STATE = 1)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	103	THEN
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	104	IF ((START_TIME + PT) <= CURRENT_TIME)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	105	THEN
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	106	STATE := 2;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	107	Q := FALSE;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	108	ET := PT;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	109	ELSE
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	110	ET := CURRENT_TIME - START_TIME;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	111	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	112	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	113
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	114	IF ((STATE = 2) AND NOT(IN))
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	115	THEN
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	116	ET := T#0s;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	117	STATE := 0;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	118	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	119
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	120
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	121	PREV_IN := IN;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	122
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	123	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	124
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	125
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	126
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	127
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	128	(****************************************************************
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	129
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	130	TON - On-delay timing - state machine
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	131
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	132
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	133	+--------+ +---+ +--------+
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	134	IN \| \| \| \| \| \|
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	135	--+ +--------+ +---+ +-------------
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	136	t0 t1 t2 t3 t4 t5
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	137	+---+ +---+
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	138	Q \| \| \| \|
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	139	-------+ +---------------------+ +-------------
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	140	t0+PT t1 t4+PT t5
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	141	PT +---+ +---+
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	142	: / \| + / \|
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	143	ET : / \| /\| / \|
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	144	: / \| / \| / \|
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	145	: / \| / \| / \|
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	146	0-+ +--------+ +---+ +-------------
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	147	t0 t1 t2 t3 t4 t5
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	148
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	149
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	150	2 +---+ +---+
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	151	STATE 1 +----+ \| +---+ +----+ \|
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	152	0 --+ +--------+ +---+ +------
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	153
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	154
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	155	****************************************************************)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	156
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	157
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	158	FUNCTION_BLOCK TON
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	159	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	160	IN : BOOL; (* first input parameter *)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	161	PT : TIME; (* second input parameter *)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	162	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	163	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	164	Q : BOOL := FALSE; (* first output parameter *)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	165	ET : TIME := T#0s; (* second output parameter *)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	166	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	167
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	168	VAR
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	169	STATE : SINT := 0; (* internal state: 0-reset, 1-counting, 2-set *)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	170	PREV_IN : BOOL := FALSE;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	171	CURRENT_TIME, START_TIME : TIME;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	172	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	173
885 b2604fc6d25c Change order of SET_xxx() macros. (this will allow me to simplify the print_setter() methods later on) mjsousa parents: 392 diff changeset	174	{__SET_VAR(data__->,CURRENT_TIME,,__CURRENT_TIME)}
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	175
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	176	IF ((STATE = 0) AND NOT(PREV_IN) AND IN) (* found rising edge on IN *)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	177	THEN
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	178	(* start timer... *)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	179	STATE := 1;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	180	Q := FALSE;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	181	START_TIME := CURRENT_TIME;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	182
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	183	ELSE
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	184	(* STATE is 1 or 2 !! *)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	185	IF (NOT(IN))
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	186	THEN
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	187	ET := T#0s;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	188	Q := FALSE;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	189	STATE := 0;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	190
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	191	ELSIF (STATE = 1)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	192	THEN
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	193	IF ((START_TIME + PT) <= CURRENT_TIME)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	194	THEN
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	195	STATE := 2;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	196	Q := TRUE;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	197	ET := PT;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	198	ELSE
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	199	ET := CURRENT_TIME - START_TIME;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	200	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	201	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	202
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	203	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	204
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	205	PREV_IN := IN;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	206
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	207	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	208
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	209
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	210
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	211
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	212
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	213	(****************************************************************
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	214
113 ea3f099f5b5f right name for TOFF is TOF according to 61131 etisserant parents: 0 diff changeset	215	TOF - Off-delay timing - state machine
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	216
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	217
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	218	+--------+ +---+ +--------+
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	219	IN \| \| \| \| \| \|
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	220	---+ +--------+ +---+ +-----------
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	221	t0 t1 t2 t3 t4 t5
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	222	+-------------+ +---------------------+
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	223	Q \| \| \| \|
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	224	---+ +---+ +------
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	225	t0 t1+PT t2 t5+PT
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	226	PT +---+ +------
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	227	: / \| + /
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	228	ET : / \| /\| /
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	229	: / \| / \| /
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	230	: / \| / \| /
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	231	0------------+ +---+ +--------+
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	232	t1 t3 t5
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	233
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	234
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	235	2 +---+ +------
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	236	STATE 1 +----+ \| +---+ +----+
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	237	0 -------------+ +---+ +--------+
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	238
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	239
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	240	****************************************************************)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	241
113 ea3f099f5b5f right name for TOFF is TOF according to 61131 etisserant parents: 0 diff changeset	242	FUNCTION_BLOCK TOF
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	243	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	244	IN : BOOL; (* first input parameter *)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	245	PT : TIME; (* second input parameter *)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	246	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	247	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	248	Q : BOOL := FALSE; (* first output parameter *)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	249	ET : TIME := T#0s; (* second output parameter *)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	250	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	251
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	252	VAR
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	253	STATE : SINT := 0; (* internal state: 0-reset, 1-counting, 2-set *)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	254	PREV_IN : BOOL := FALSE;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	255	CURRENT_TIME, START_TIME : TIME;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	256	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	257
885 b2604fc6d25c Change order of SET_xxx() macros. (this will allow me to simplify the print_setter() methods later on) mjsousa parents: 392 diff changeset	258	{__SET_VAR(data__->,CURRENT_TIME,,__CURRENT_TIME)}
0 fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	259
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	260	IF ((STATE = 0) AND PREV_IN AND NOT(IN)) (* found falling edge on IN *)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	261	THEN
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	262	(* start timer... *)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	263	STATE := 1;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	264	START_TIME := CURRENT_TIME;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	265
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	266	ELSE
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	267	(* STATE is 1 or 2 !! *)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	268	IF (IN)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	269	THEN
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	270	ET := T#0s;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	271	STATE := 0;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	272
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	273	ELSIF (STATE = 1)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	274	THEN
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	275	IF ((START_TIME + PT) <= CURRENT_TIME)
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	276	THEN
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	277	STATE := 2;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	278	ET := PT;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	279	ELSE
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	280	ET := CURRENT_TIME - START_TIME;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	281	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	282	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	283
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	284	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	285
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	286	Q := IN OR (STATE = 1);
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	287	PREV_IN := IN;
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	288
fb772792efd1 Initial commit. Last MatPLC CVS with some makefile inclusion removed in order to compile fine out of MatPLC. etisserant parents: diff changeset	289	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	290

author	Edouard Tisserant <edouard@beremiz.fr>
	Fri, 05 Apr 2024 12:05:28 +0200
changeset 1100	f7cc4f6ce756
parent 885	b2604fc6d25c
permissions	-rwxr-xr-x