program cstatalomar;

{ $WG}                     {global Warnings off}

Device = xmega128A4, VCC=5;
//Device = mega128, VCC=5;
{ $BOOTRST $10000}         {Reset Jump to $10000}

Define_Fuses
//  Override_Fuses;
  NoteBook   = A;
  COMport    = USB;
  LockBits0 = [];
  FuseBits0  = [];
  FuseBits1  = [];
  FuseBits2  = [];

Import SysTick;

From System Import Processes, Pipes;


Define
//  ProcClock      = 16000000;       {Hertz}
  OSCtype        = extClock=10000000, PLLmul=2, prescA=1  , prescB=1, prescC=1;
  SysTick        = 10;             {msec}
  StackSize      = $0064, iData;
  FrameSize      = $0064, iData;
  Scheduler      = iData;

Implementation

{$IDATA}

{--------------------------------------------------------------}
{ Type Declarations }

type


{--------------------------------------------------------------}
{ Const Declarations }

{--------------------------------------------------------------}
{ Var Declarations }
{$IDATA}
var LED1[@PortC,0] : bit;
var LED2[@PortC,1] : bit;
{--------------------------------------------------------------}
{ functions }



{--------------------------------------------------------------}
{ Main Program }
{$IDATA}

Process Test (32,16: iData);
begin
     Toggle(LED1);
end;


begin
  DDRC:=$FF;
  Start_Processes($87);
//  Start_Processes;
  loop
    Toggle(LED2);
  endloop;
end cstatalomar.