Panasonic FPE Manual De Usuario página 58

Manual de Usuario del FPΣ
if
current time *)
16#100,
dtbcdCurrent);
end_if;
(* Set the seconds to zero *)
dtbcdCurrent.MinSec:=dtbcdCurrent.MinSec
(* Write the current time into the RTC and set the RTC
using 'sys_wClockCalendarSet' *)
sys_wClockCalendarMinSec:=dtbcdCurrent.MinSec;
sys_wClockCalendarDayHour:=dtbcdCurrent.DayHour;
sys_wClockCalendarYearMonth:=dtbcdCurrent.YearMonth;
sys_wClockCalendarSet:=16#8000;
end_if;
((dtbcdCurrent.MinSec
(* To round up 1 minute (16#100) is added to the
F157_ADD_DTBCD_TIMEBCD(s1_DTBCD
3.6 Función Calendario/Reloj
AND 16#00FF)>30)
:= dtbcdCurrent,
s2_TIMEBCD
d_DTBCD
then
:=
=>
AND 16#FF00;
41