Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: andrej@1722: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: = PV);]]> Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: = PV);]]> Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: = PV);]]> Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: = PV);]]> Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: = PV);]]> Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: 0) Laurent@1313: THEN CV := CV-1; Laurent@1313: END_IF; Laurent@1313: Q := (CV <= 0);]]> Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: 0) Laurent@1313: THEN CV := CV-1; Laurent@1313: END_IF; Laurent@1313: Q := (CV <= 0);]]> Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: 0) Laurent@1313: THEN CV := CV-1; Laurent@1313: END_IF; Laurent@1313: Q := (CV <= 0);]]> Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: 0) Laurent@1313: THEN CV := CV-1; Laurent@1313: END_IF; Laurent@1313: Q := (CV <= 0);]]> Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: 0) Laurent@1313: THEN CV := CV-1; Laurent@1313: END_IF; Laurent@1313: Q := (CV <= 0);]]> Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: 0) Laurent@1313: THEN CV := CV-1; Laurent@1313: END_IF; Laurent@1313: END_IF; Laurent@1313: END_IF; Laurent@1313: QU := (CV >= PV); Laurent@1313: QD := (CV <= 0);]]> Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: 0) Laurent@1313: THEN CV := CV-1; Laurent@1313: END_IF; Laurent@1313: END_IF; Laurent@1313: END_IF; Laurent@1313: QU := (CV >= PV); Laurent@1313: QD := (CV <= 0);]]> Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: 0) Laurent@1313: THEN CV := CV-1; Laurent@1313: END_IF; Laurent@1313: END_IF; Laurent@1313: END_IF; Laurent@1313: QU := (CV >= PV); Laurent@1313: QD := (CV <= 0);]]> Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: 0) Laurent@1313: THEN CV := CV-1; Laurent@1313: END_IF; Laurent@1313: END_IF; Laurent@1313: END_IF; Laurent@1313: QU := (CV >= PV); Laurent@1313: QD := (CV <= 0);]]> Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: 0) Laurent@1313: THEN CV := CV-1; Laurent@1313: END_IF; Laurent@1313: END_IF; Laurent@1313: END_IF; Laurent@1313: QU := (CV >= PV); Laurent@1313: QD := (CV <= 0);]]> Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Edouard@1410: ,CURRENT_TIME,,__CURRENT_TIME)} Laurent@1313: Laurent@1313: IF ((STATE = 0) AND NOT(PREV_IN) AND IN) (* found rising edge on IN *) Laurent@1313: THEN Laurent@1313: (* start timer... *) Laurent@1313: STATE := 1; Laurent@1313: Q := TRUE; Laurent@1313: START_TIME := CURRENT_TIME; Laurent@1313: Laurent@1313: ELSIF (STATE = 1) Laurent@1313: THEN Laurent@1313: IF ((START_TIME + PT) <= CURRENT_TIME) Laurent@1313: THEN Laurent@1313: STATE := 2; Laurent@1313: Q := FALSE; Laurent@1313: ET := PT; Laurent@1313: ELSE Laurent@1313: ET := CURRENT_TIME - START_TIME; Laurent@1313: END_IF; Laurent@1313: END_IF; Laurent@1313: Laurent@1313: IF ((STATE = 2) AND NOT(IN)) Laurent@1313: THEN Laurent@1313: ET := T#0s; Laurent@1313: STATE := 0; Laurent@1313: END_IF; Laurent@1313: Laurent@1313: PREV_IN := IN; Laurent@1313: ]]> Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Edouard@1410: ,CURRENT_TIME,,__CURRENT_TIME)} Laurent@1313: Laurent@1313: IF ((STATE = 0) AND NOT(PREV_IN) AND IN) (* found rising edge on IN *) Laurent@1313: THEN Laurent@1313: (* start timer... *) Laurent@1313: STATE := 1; Laurent@1313: Q := FALSE; Laurent@1313: START_TIME := CURRENT_TIME; Laurent@1313: Laurent@1313: ELSE Laurent@1313: (* STATE is 1 or 2 !! *) Laurent@1313: IF (NOT(IN)) Laurent@1313: THEN Laurent@1313: ET := T#0s; Laurent@1313: Q := FALSE; Laurent@1313: STATE := 0; Laurent@1313: Laurent@1313: ELSIF (STATE = 1) Laurent@1313: THEN Laurent@1313: IF ((START_TIME + PT) <= CURRENT_TIME) Laurent@1313: THEN Laurent@1313: STATE := 2; Laurent@1313: Q := TRUE; Laurent@1313: ET := PT; Laurent@1313: ELSE Laurent@1313: ET := CURRENT_TIME - START_TIME; Laurent@1313: END_IF; Laurent@1313: END_IF; Laurent@1313: Laurent@1313: END_IF; Laurent@1313: Laurent@1313: PREV_IN := IN; Laurent@1313: ]]> Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Edouard@1410: ,CURRENT_TIME,,__CURRENT_TIME)} Laurent@1313: Laurent@1313: IF ((STATE = 0) AND PREV_IN AND NOT(IN)) (* found falling edge on IN *) Laurent@1313: THEN Laurent@1313: (* start timer... *) Laurent@1313: STATE := 1; Laurent@1313: START_TIME := CURRENT_TIME; Laurent@1313: Laurent@1313: ELSE Laurent@1313: (* STATE is 1 or 2 !! *) Laurent@1313: IF (IN) Laurent@1313: THEN Laurent@1313: ET := T#0s; Laurent@1313: STATE := 0; Laurent@1313: Laurent@1313: ELSIF (STATE = 1) Laurent@1313: THEN Laurent@1313: IF ((START_TIME + PT) <= CURRENT_TIME) Laurent@1313: THEN Laurent@1313: STATE := 2; Laurent@1313: ET := PT; Laurent@1313: ELSE Laurent@1313: ET := CURRENT_TIME - START_TIME; Laurent@1313: END_IF; Laurent@1313: END_IF; Laurent@1313: Laurent@1313: END_IF; Laurent@1313: Laurent@1313: Q := IN OR (STATE = 1); Laurent@1313: PREV_IN := IN; Laurent@1313: ]]> Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: Laurent@1313: