clock2300.mod

oberon 07 clock for lpc23xx NXP (Philips) chip

MODULE Clock2300;

IMPORT LPC, SYSTEM, LPC2300;

CONST
  PCLK = 12000000;

PROCEDURE* GetTime*(VAR hh, mm, ss: INTEGER);
BEGIN
  SYSTEM.GET(LPC2300.RtcSEC, ss);
  SYSTEM.GET(LPC2300.RtcMIN, mm);
  SYSTEM.GET(LPC2300.RtcHOUR, hh);
END GetTime;

PROCEDURE* SetTime*(hh,mm,ss: INTEGER);
BEGIN
  SYSTEM.PUT(LPC2300.RtcSEC, ss);
  SYSTEM.PUT(LPC2300.RtcMIN, mm);
  SYSTEM.PUT(LPC2300.RtcHOUR, hh);
END SetTime;

PROCEDURE* Seconds*(): INTEGER;
VAR
  ss: INTEGER;
BEGIN
  SYSTEM.GET(LPC2300.RtcSEC, ss);
  RETURN ss
END Seconds;


PROCEDURE* Init*();
VAR
  preint, prefrac: INTEGER;
BEGIN
  preint := (PCLK DIV 32768) - 1;
  prefrac := PCLK - ((preint + 1) * 32768);
  SYSTEM.PUT(LPC2300.RtcPREInt, preint);
  SYSTEM.PUT(LPC2300.RtcPREFRAC, prefrac);
  SYSTEM.PUT(LPC2300.RtcCCr, {0});
END Init;

END Clock2300.