program Test;

Device = xmega256A3, VCC = 3.3;

Import SysTick, SerPortC0, DCFclock, RTClock;

From System Import Tasks, LongWord;
From RTClock Import RTCAlarm;

Define
  OSCtype        = extXTAL=8000000, PLLmul=4, prescA=1, prescB=1, prescC=1;
  StackSize      = 256, iData;
  FrameSize      = 256, iData;
  SysTick        = 10;
  Scheduler      = idata;
  TaskStack      = 256, iData;
  TaskFrame      = 256;
  DCFclock       = iData;
  DCFport        = PINB, 0;
  RTClock        = iData, Time;
  RTCSource      = SysTick;
  SerPortC0      = 38400;

Implementation

{$IDATA}

var
  alarm : boolean;
  count : byte;

Procedure RTCAlarm;
Begin
  alarm := true;
End;

begin
  RTCsetHour(9);
  RTCsetMinute(59);
  RTCsetSecond(59);
  RTCAlarm_Time(10, 00, count);
  RTCAlarm_Start(1);
  EnableInts($87);
  loop
  if alarm then
    alarm := false;
    SeroutC0('x');
    inc(count);
    RTCAlarm_Time(10, 00, count);
    RTCAlarm_Start(1);
  endif;
  endloop;
end.