program distri_graines;
 
{$NOSHADOW}
{ $W+ Warnings}            {Warnings off}
 
Device = mega8, VCC = 5;
 
Import SysTick, LCDport, RTclock,  ServoPort;
 
From System Import;
 
From RTclock Import RTCtimer, RTCalarm;
 
Define
  ProcClock      = 16000000;        {Hertz}
  SysTick        = 10, Timer2;     {msec}   // ATTENTION: UTILISE LE Timer2 pour l'horloge RTC
  StackSize      = 100, iData;     // remarque: le prog utilise 44 bytes sur les 100 alloués (voir affi en runtime)
  FrameSize      = $0020, iData;
  LCDport        = PortD;
  LCDtype        = 44780;
  LCDrows        = 2;              {rows}
  LCDcolumns     = 16;             {columns per line}
  RTclock        = iData, DateTime; {Time, DateTime}
  RTCsource      = SysTick {, adj}; { adj = +/-100}
  RTCtimer       = 4;
 
//  SysTick        = 10;             {msec}
//  StackSize      = $0020, iData;
//  FrameSize      = $0010, iData;
  ServoPort      = PortC, 0, iData; {use Portx, startbit n, RAMpage}
  ServoChans     = 1, positive;     {channel count, pulse polarity}
  ServoNeutral   = 2.0, Timer1;     {msec neutral pulse width, Timer used}
 
 
  Define_usr
  bouton_inc_h   = %00100000;
  bouton_dec_h   = %00010000;
  bouton_inc_mn  = %00001000;
  bouton_dec_mn  = %00000100;
  bouton_manuel  = %00000010;
 
Implementation
 
{$IDATA}
 
{--------------------------------------------------------------}
{ Type Declarations }
type
  tWeekDays      = (Sunday, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday);
 
  tWeekDArr      = array[tWeekDays] of string[10];
 
{--------------------------------------------------------------}
{ Const Declarations }
const
  cWeekDArr      : tWeekDArr = ('Dimanche',
  'Lundi',
  'Mardi',
  'Mercredi',
  'Jeudi',
  'Vendredi',
  'Samedi');
 
  p1             : integer   =  90;
  p2             : integer   =  60;
  p3             : integer   =  30;
  p4             : integer   =   0;
  p5             : integer   = -30;
 
 
  {--------------------------------------------------------------}
{ Var Declarations }
{$IDATA}
var
  delay          : SysTimer8;
  ticked         : boolean;
  timeout        : boolean;
  timeout1       : boolean;
  alarm          : boolean;
  bool           : boolean;
//  i, j           : byte;
 
  j1, cyc1       : byte;
  h1, m1, s1     : byte;
  stk1           : word;
 
 
{--------------------------------------------------------------}
{ functions }
 
procedure init_ports;  // ports perso
begin
  ddrc:= ddrc and %11000001; // 5 entrées pour les boutons
end;
 
 
procedure RTCtimer(chan : byte); // CallBack from RTCtimer
begin
{
  for i:= 0 to 10 do
    inc(j);
  endfor;
 
  if chan = 0 then
    timeout:= true;
  endif;
}
end;
 
 
procedure RTCalarm;            // CallBack from RTCalarm
begin
  alarm:= true;
end;
 
procedure RTCtickSecond;       // CallBack from RTClock
begin
  ticked:= true;
end;
 
procedure RTCtickMinute;       // CallBack from RTClock
begin
 cyc1:=0; // mode auto
end;
 
procedure RTCtickHour;         // CallBack from RTClock
begin
end;
 
procedure MAJ_LCD;
begin
//  Write(LCDout, '      ' + cWeekDArr[tWeekDays(RTCgetWeekDay)]);
 
  LCDxy(0, 0);
  LCDclrEol;
 
  // date
  LCDxy(0, 0);
  Write(LCDout, 'jour=' + ByteToStr(j1 : 2 : ' ') );
 
  LCDxy(10, 0);
  if cyc1=0 then Write(LCDout, 'AUTO');
  else  Write(LCDout, 'manu');
  endif;
 
 
{ test et affiche la pile (stack) en runtime
  stk1:= GetStackFree;
  LCDxy(8, 0);
  Write(LCDout, 'stack=' + IntToStr(stk1 : 2 : '0') );
}
 
  LCDclrEol;
 
//  Write(LCDout, ByteToStr(RTCgetDay : 2 : '0') + '.');
//  Write(LCDout, ByteToStr(RTCgetMonth : 2 : '0') + '.');
//  Write(LCDout, '20' + ByteToStr(RTCgetYear : 2 : '0') + ' ');
 
  // time
  LCDxy(0, 1);
  Write(LCDout, ByteToStr(RTCgetHour : 2 : '0') + ':');
  Write(LCDout, ByteToStr(RTCgetMinute : 2 : '0') + ':');
  Write(LCDout, ByteToStr(RTCgetSecond : 2 : '0'));
end;
 
{--------------------------------------------------------------}
{ Main Program }
{$IDATA}
 
begin
  init_ports;
 
  j1:= 1;
  cyc1:=0;  //mode auto
 
  RTCsetSecond(0);
  RTCsetMinute(0);
  RTCsetHour(0);
 
  RTCsetDay(21);
  RTCsetWeekDay(02);
  RTCsetMonth(08);
  RTCsetYear(07);
 
//  LCDCharSet(#0, $0E, $1F, $04, $0E, $11, $1D, $15, $0E);
//  LCDCharSet(#1, $00, $0E, $15, $17, $11, $0E, $00, $00);
 
  LCDclr;                                  { clear display }
  LCDcursor(false, false);                 { display on, cursor off & no blink }
//  Write(LCDout, ' '+#0+' E-LAB RTC Demo '+#1);
  ticked:= true;
{
  RTCalarm_Time(00, 01, 25);         // 00:01:25
  RTCalarm_Date(01, 01, 01);         // 01.01.2001
  RTCalarm_Start(2);                 // 0 = stop, 1 = time, 2 = date+time
 
  RTCtimer_Load(0, 15);
  RTCtimer_Start(0);
  RTCtimer_Load(1, 10);
  RTCtimer_Start(1);
}
  EnableInts;
 
  SetServoChan(0, p1);
 
  loop
    if ticked then
      ticked:= false;
 
      MAJ_LCD;
 
      mdelay(100);
 
      h1:= RTCgetHour;
      m1:= RTCgetMinute;
      s1:= RTCgetSecond;
    if (h1 = 23 ) and (m1 = 59) and (s1 = 59 )then j1:= j1 + 1; endif;
 
    if (j1 = 1) and (h1 = 18 ) and (m1 = 0)  then SetServoChan(0, p2); endif;
    if (j1 = 2) and (h1 =  6 ) and (m1 = 0)  then SetServoChan(0, p3); endif;
    if (j1 = 2) and (h1 = 18 ) and (m1 = 0)  then SetServoChan(0, p4); endif;
    if (j1 = 3) and (h1 =  6 ) and (m1 = 0)  then SetServoChan(0, p5); endif;
 
    endif;
 
 
// SET TIME
    if (PinC and bouton_inc_mn ) = 0 then
      disableInts;
      RTCsetSecond(0);
      RTCsetMinute(RTCgetMinute + 1);
      EnableInts;
      MAJ_LCD;
    while (PinC and bouton_inc_mn ) = 0 do mdelay(10);   endwhile;  // wait relache + anti-rebond
      j1:= 1;
    endif;
 
    if (PinC and bouton_dec_mn ) = 0 then
      disableInts;
      RTCsetSecond(0);
      RTCsetMinute(RTCgetMinute - 1);
      EnableInts;
      MAJ_LCD;
    while (PinC and bouton_dec_mn ) = 0 do mdelay(10);   endwhile;  // wait relache + anti-rebond
      j1:= 1;
    endif;
 
    if (PinC and bouton_inc_h ) = 0 then
      disableInts;
      RTCsetSecond(0);
      RTCsetHour(RTCgetHour + 1);
      EnableInts;
      MAJ_LCD;
    while (PinC and bouton_inc_h ) = 0 do mdelay(10);   endwhile;  // wait relache + anti-rebond
      j1:= 1;
    endif;
 
    if (PinC and bouton_dec_h ) = 0 then
      disableInts;
      RTCsetSecond(0);
      RTCsetHour(RTCgetHour - 1);
      EnableInts;
      MAJ_LCD;
    while (PinC and bouton_dec_h ) = 0 do mdelay(10);   endwhile;  // wait relache + anti-rebond
      j1:= 1;
    endif;
 
    if (PinC and bouton_manuel ) = 0 then
      cyc1:=cyc1+1;
      if cyc1>4 then SetServoChan(0, p1); cyc1:=0; endif;
      case cyc1 of
        0: nop;                 |
        1: SetServoChan(0, p2); |
        2: SetServoChan(0, p3); |
        3: SetServoChan(0, p4); |
        4: SetServoChan(0, p5); |
      endcase;
 
 
    while (PinC and bouton_manuel ) = 0 do mdelay(10);   endwhile;  // wait relache + anti-rebond
      j1:= 1;
    endif;
 
 
 
  endloop;
 
  RTCtimer_Stop(0);
end distri_graines.