FUNCTION SYS_SYSTEM : VOID (* FC1 *)

BEGIN

IF SYS.Reset
THEN
SYS.Prev_Clock100ms := FALSE;
SYS.Prev_Clock200ms := FALSE;
SYS.Prev_Clock500ms := FALSE;
SYS.Prev_Clock1sec := FALSE;
SYS.Prev_Clock1min := FALSE;
SYS.Prev_Clock10min := FALSE;
SYS.Prev_Clock1hour := FALSE;
SYS.PrevReset := FALSE;

SYS.TickCounter := 0;
END_IF;

SYS.FT_Reset := NOT SYS.Reset AND SYS.PrevReset;
SYS.PrevReset := SYS.Reset;

(* Clock signals are constructed using a timertick counter maintained by OB35.
* Clock signals are defined by 2x their period time and have a 50% duty cycle,
* e.g. the 100ms clock is 100ms high, and then goes low for another 100ms.
*)
SYS.Clock100ms := (DINT_TO_DWORD(SYS.TickCounter DIV 1) AND 16#0001) <> 0;
SYS.Clock200ms := (DINT_TO_DWORD(SYS.TickCounter DIV 2) AND 16#0001) <> 0;
SYS.Clock500ms := (DINT_TO_DWORD(SYS.TickCounter DIV 5) AND 16#0001) <> 0;
SYS.Clock1sec := (DINT_TO_DWORD(SYS.TickCounter DIV 10) AND 16#0001) <> 0;
SYS.Clock1min := (DINT_TO_DWORD(SYS.TickCounter DIV 600) AND 16#0001) <> 0;
SYS.Clock10min := (DINT_TO_DWORD(SYS.TickCounter DIV 6000) AND 16#0001) <> 0;
SYS.Clock1hour := (DINT_TO_DWORD(SYS.TickCounter DIV 36000) AND 16#0001) <> 0;

SYS.Blinking := SYS.Clock1sec;

(* Create Oneshots *)
SYS.ClockPulse100ms := SYS.Clock100ms <> SYS.Prev_Clock100ms;
SYS.ClockPulse200ms := SYS.Clock200ms <> SYS.Prev_Clock200ms;
SYS.ClockPulse500ms := SYS.Clock500ms <> SYS.Prev_Clock500ms;
SYS.ClockPulse1sec := SYS.Clock1sec <> SYS.Prev_Clock1sec;
SYS.ClockPulse1min := SYS.Clock1min <> SYS.Prev_Clock1min;
SYS.ClockPulse10min := SYS.Clock10min <> SYS.Prev_Clock10min;
SYS.ClockPulse1hour := SYS.Clock1hour <> SYS.Prev_Clock1hour;

SYS.Prev_Clock100ms := SYS.Clock100ms;
SYS.Prev_Clock200ms := SYS.Clock200ms;
SYS.Prev_Clock500ms := SYS.Clock500ms;
SYS.Prev_Clock1sec := SYS.Clock1sec;
SYS.Prev_Clock1min := SYS.Clock1min;
SYS.Prev_Clock10min := SYS.Clock10min;
SYS.Prev_Clock1hour := SYS.Clock1hour;

END_FUNCTION