Pipe Verhalten

program XMEGA_Test;

{$NOSHADOW}
{ $WG}                     {global Warnings off}

Device = xmega256A3U, VCC = 3.3;
//Device = xmega128A1U, VCC = 3.3;

Define_Fuses
  Override_Fuses;
  NoteBook               = D;
  COMport                = USB;
  LockBits0              = [];
  FuseBits0              = [];
  FuseBits1              = [ WDPER0, WDPER3 ];   // Watchdog   0:3 / 0110 512CLK 0.512s

// 0=WDPER0
// 1=WDPER1
// 2=WDPER2
// 3=WDPER3

  FuseBits2              = [];                         // mandatory !!
  // Brown-out is obligatory with USB !!!
//  FuseBits5              = [BODACT0, BodLevel0, BodLevel1, BodLevel2];
  FuseBits5              = [BodLevel0,BodLevel2, BodAct0]; //  2.6V:

  ProgFlash = true; // or false – program Flash
  ProgEEprom= FALSE; // or false – program EEprom
  AutoRelease    = true; // or false – Release Target    // Wichtig für Programmierung über UPP !!

Import SysTick, SerPortD0 ;

//From System Import Processes, Tasks,longword, longint, SystemTime16, StackChecks, Pipes;  // for DNS
From System Import Processes, Tasks, Pipes;

Define
  // XMega USB must use the internal 32MHz OSC. So the system must use the 2MHz OSC
OSCtype                = int2MHz, PLLmul = 16, prescB = 1, prescC = 1;        // 32MHz
//  OSCtype                = int2MHz, PLLmul = 20, prescB = 1, prescC = 1, overdrive; // 40 MHz
//  OSCtype                = int2MHz, PLLmul = 24, prescB = 1, prescC = 1, overdrive; // 48 MHz


  SysTick                = 10;                 // msec
  StackSize              = $0512, iData;
  FrameSize              = $0512, iData;
// SerPort D1
  SerPortD0              = 57600, Databit8,parNone, Stop1; {9600 Baud, 1Stopbit}
  RxBufferD0             = 128, iData;
  TxBufferD0             = 128, iData;
  SerCtrlD0              = PortB, 0, negative; {control line for RS485 driver}
// Task / Process
  Scheduler              = iData;
  TaskStack              = 256, iData;
  TaskFrame              = 256;

Implementation

{$IDATA}

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

 {--------------------------------------------------------------}
{ Const Declarations }
  // definitions for bitmap types
CONST
// CR LF
 // TimerTypen
  CR : byte = 13; // $0D
  LF : byte = 10; // $0A

{--------------------------------------------------------------}
{ Var Declarations }
{$IDATA}
var
  SerTimer      : SysTimer;
  WDITimer      : SysTimer;
  bTast0, bTast1: boolean;

// Meldungssystem
   LogPipe : Pipe[255] of byte; // PIPE of byte für LOGBUCH

// Input  Onboard
   HxIN_SOFTRESET    [@PINE, 3 ] : bit;
   HxIN_RUNSTOP      [@PINR, 0 ] : bit;
   HxIN_SERVTAST     [@PINR, 1 ] : bit;

i : integer;
y : byte;
x : byte;

{--------------------------------------------------------------}
{ functions }
procedure DebugOut( OutStr : String[59] );
begin
  Writeln(SerOutD0,OutStr);
end; //Ende Debug Out





{--------------------------------------------------------------}
procedure InitPorts;
begin
// INIT Werte IOs

//Reset Input Taste
  PIN3CTRLE := %01011000; // pullup und INVERT
  DDRE.3:= 0;  // 0=EINGANG  1=Ausgang
//Run Stop Schalter
  PIN0CTRLR := %01011000; // pullup und INVERT
  DDRR.0:= 0;  // 0=EINGANG  1=Ausgang
//ServTaste
  PIN1CTRLR := %01011000; // pullup und INVERT
  DDRR.1:= 0;  // 0=EINGANG  1=Ausgang
//IN ZBV0
  PIN6CTRLF := %01011000; // pullup und INVERT
  DDRF.6:= 0;  // 0=EINGANG  1=Ausgang
//IN 3
  PIN1CTRLF := %01011000; // pullup und INVERT
  DDRF.1:= 0;  // 0=EINGANG  1=Ausgang
//IN 11
  PIN4CTRLF := %01011000; // pullup und INVERT
  DDRF.4:= 0;  // 0=EINGANG  1=Ausgang
//IN 12
  PIN7CTRLF := %01011000; // pullup und INVERT
  DDRF.7:= 0;  // 0=EINGANG  1=Ausgang
//IN 13
  PIN5CTRLF := %01011000; // pullup und INVERT
  DDRF.5:= 0;  // 0=EINGANG  1=Ausgang
//IN 14
  PIN3CTRLF := %01011000; // pullup und INVERT
  DDRF.3:= 0;  // 0=EINGANG  1=Ausgang
//IN 15
  PIN2CTRLF := %01011000; // pullup und INVERT
  DDRF.2:= 0;  // 0=EINGANG  1=Ausgang

//OUT_K17
  //PIN0CTRLF := %00000000; // pullup und INVERT
  DDRF.0:= 1;  // 0=EINGANG  1=Ausgang

end InitPorts;

//---------------------------------------------------------------
// Log in Pipe  speichern
procedure LogString(const InStrLog: string[24]);
var
 xLog : byte;
 strLog : string[45];
begin
DebugOut('Pipe: ' + ByteToHex( PipeStat(LogPipe)));
strLog:= '20180424;121220;'+InStrLog+#CR+#LF;
  for xLog:= 1 to Length( strLog ) do
   PipeSend( LogPipe, byte(strLog[xLog]) );
  endfor;
DebugOut('Pipe: ' + ByteToHex( PipeStat(LogPipe)));
end LogString;


//---------------------------------------------------------------
// Log speichern Pipe
procedure Save_LogPipe;
var
 xFor, xstrNo : byte;
begin

// überprüfe Pipe
xstrNo:= PipeStat( LogPipe );
 if xstrNo > 0 then

     for xFor := 1 to xstrNo do
       Write( SerOutD0, char(PipeRecv( LogPipe )) );
      endfor;

 endif; //  xstrNo
end Save_LogPipe;

Task Test0(iData, resumed);
begin
 //Save_LogPipe; // Test 0 Pipe Auswerten

end;

//--------------------------------------------------------------
Process Test1 (128, 128 : iData;5 ); {Stacksize = 128 bytes, Framesize = 128 bytes}
begin
 Save_LogPipe; // Test 1 Pipe Auswerten

   Schedule; // Rechenzeit freigeben
End Test1;


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

begin
y:=0;
x:=0;

InitPorts;
 EnableInts($87);


SetSysTimer( WDITimer, 100);
 SetSysTimer( SerTimer, 200);
 DebugOut( 'System gestartet....');
  loop

//Save_LogPipe; // Test 2 Pipe Auswerten

if IsSysTimerZero( SerTimer ) then
SetSysTimer( SerTimer, 200);
endif;

// Taste 0
//
   if (HxIN_SERVTAST AND not bTast0)then
    DebugOut('ServTast: ;');
     bTast0:= true; // Flankenhilfsmerker
      LogString('ServTast');

   endif;
   if (not HxIN_SERVTAST AND bTast0)then
     bTast0:= false;
   endif;

// Taste 1
//
   if (HxIN_SOFTRESET AND not bTast1)then
    DebugOut('SoftReset: ;');
      bTast1:= true; // Flankenhilfsmerker
       LogString('SoftReset');

     //  HxDispData:=FALSE;
   endif;
   if (not HxIN_SOFTRESET AND bTast1)then
     bTast1:= false;  // Flankenhilfsmerker
   endif;





  endloop;

end XMEGA_Test.

  StackSize              = $0128, iData;
  FrameSize              = $0128, iData;

{$NOSHADOW}
Die Definition muss, falls benötigt, noch vor der Device Deklaration erfolgen. 
Bei non Multitask Anwendungen werden bei allen Interrupts nur die durch die 
Interrupts benutzten Register gesichert. Dies spart wesentlich Ram, Rom und 
Rechenzeit. Dieser Schalter wird durch den Import von Prozesse und Tasks 
überschrieben.