USBport

Device = xmega256A3U, VCC=3.3;
{ $BOOTRST $20000}         {Reset Jump to $20000}

Define_Fuses
  Override_Fuses;
  NoteBook   = A;
  COMport    = USB;
  LockBits0  = [];
  FuseBits0  = [];
  FuseBits1  = [];
  FuseBits2  = [];
  ProgMode   = PDI;
FuseBits5  = [BODLEVEL1, BODLEVEL2, BODACT0];
Import SysTick,  USBport,  TickTimer  SerPortE0, SLIPportE1, SLIPportC0, SerPortD0, Fat16_32;

  USBmanufact             = 'E-Lab Computers';       // max 31 bytes
  USBprodName             = 'xMiniUSBApp';           // "     "
  USBpid                  = 30;
  USBvid                  = $9124;
  USBprodRel              = 201;
  USBcurrent              = 200;
  USBsernum               = 2143;  // Product serial number
  USBendPoints            = 1;                     // 1..6  TX/RX paare
//  USBvBUS                 = PortD.5;           // 

  uses uXmega_USB, uUSBIO, uFAT16_32, uFix64;
Implementation

{--------------------------------------------------------------}
{ Main Program }
{$IDATA}
begin
  TickTimerStop;    //Brauche ich für meine App.
  InitPorts;
  EnableInts($87);
..
...
    xUSB_UserVendorRequest(@xUSB_VendorRequest); 
    xUSB_Enable;                                                   
 loop

    USBdataAvail:= false;
    HostFailed:= false;
    xUSB_Attach;
    while (not UsbDriverConnect)   do
      mDelay(300);
      incl(Led1);                   
    endwhile;             //Hier gehts erst nach 1,05 min raus.???????????????????????????

    excl(Led1);

                                                                                                            // wait for Windows Setconfiguration
    xUSB_RXsetBuffer(1, @USB_Rx_Receive, @RXbuf, 512);   // Link RX Event
    while UsbDriverConnect  do
      MainLoop;                         //<- so wie in dem Demo XMega_USBport
    endwhile;
    HostFailed:= true;
    xUSB_Detach;

(***********************************************)
(* This is a simple demo program which shows   *)
(* how a high speed, high volume PC connection *)
(* can be constructed. More complex than the   *)
(* SmartUSB driver type                        *)
(***********************************************)

program xUSBPort; 

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

Device = xmega256A3U, VCC = 3.3; 

define_fuses
  Override_Fuses; 
  NoteBook                = D; 
  COMport                 = USB; 
  LockBits0               = []; 
  FuseBits0               = []; 
  FuseBits1               = []; 
  FuseBits2               = []; 
  // Brown-out is obligatory with USB !!! 
  FuseBits5               = [BODACT0, BodLevel0, {BodLevel1,} BodLevel2]; 
  
import SysTick, 
       SerPortC0, 
       USBport, 
       BeepPort; 

from System import Processes, Tasks; 

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; 
  SysTick                 = 10;                 // msec 
  StackSize               = $0228, iData; 
  FrameSize               = $0370, iData; 
  
  // optional 
  Scheduler               = iData; 
  TaskStack               = $80, iData; 
  TaskFrame               = $100; 
  IDATA1                  = $5FC0; 
  
  
  USBmanufact             = 'E-Lab Computers';       // max 31 bytes 
  USBprodName             = 'xMiniUSBApp';           // "     " 
  USBpid                  = 30; 
  USBvid                  = $9125;                   // user provided 
  USBprodRel              = 201;                     // user provided 
  USBcurrent              = 200; 
  USBendPoints            = 1;                       // 1..6  TX/RX paare
  //USBvBUS                 = PortB.7;               // port and pin
  
  BeepPort                = PortR, 0; 
  SerPortC0               = 115200; 
  RxBufferC0              = 40, iData; 
  TxBufferC0              = 100, iData; 
  
uses uXmega_USB, uUSBIO;     // uUSBio contains some helpful functions

implementation

{$IDATA}

{------------------------------------------------------------------------------}
{ Type Declarations } 
type
  
{--------------------------------------------------------------} 
{ Const Declarations } 
const
  
{--------------------------------------------------------------} 
{ Var Declarations } 
{$IDATA}
var
  Header                  : TUserSetupProc; 
  LED[@PortR.1]           : bit; 
  TxBuffer                : array[512] of byte; 
  
{--------------------------------------------------------------} 
procedure SendFiledata; 
begin
  loop
    TxBlock(@TxBuffer, 512); 
  endloop; 
end; 

{--------------------------------------------------------------} 
//  User function to receive EP0 ControlRequests from Host 
{$VALIDATE $}
{-----------------------------------------------------------------------------}
function xUSB_VendorRequest(const Req : tUSB_SetupReq) : boolean; 
var
  ret   : boolean; 
  b     : byte; 
begin
  ret:= false; 
  case Req.bmRequestType of 
    $C0 : 
          case Req.bRequest of   // Device to Host 
            
          endcase; 
        |
    $40 : 
          case Req.bRequest of   // Host to Device 
            0 : 
              |
            1 : 
                if Req.wLength > 0 then 
                  return(true); 
                else 
                  //EP1 stall 
                  if Req.wLength = 0 then 
                    xUSB_Detach; 
                    mDelay(100); 
                    HardWareReset; 
                    return(true); 
                  endif; 
                endif; 
              |
          else 
            ret:= true; 
          endcase; 
        |
  endcase; 
  return(ret); 
end; 

{--------------------------------------------------------------} 
procedure MainLoop; 
var
  ch   : char; 
begin
  repeat
    if USBdataAvail then 
      HostCmd:= RxCmd; 
      ch:= HostCmd.cmd; 
      case HostCmd.typ of 
        CTRLcmd : 
                 // here your comands from PC are received
                  if ch = 'S' then 
                    Writeln(SerOutC0, 'Senddata'); 
                    mDelay(50); 
                    SendFiledata(); 
                  endif; 
                 // .... 
                |
      else 
        Writeln(SerOutC0, 'Unknown cmd'); 
        TXchar('?'); 
      endcase; 
    endif; 
  until (not UsbDriverConnect) {or (not USBvBUS.USBvBUSpin)} ; 
end; 

{--------------------------------------------------------------} 
{ Main Program } 
{$IDATA}
begin
  DDRR:= DDRR or $02;                          // LED
  Incl(PortR.1);                               // EVAL Board LED active low 
  EnableInts($87);                             // mandory for USB_ControlJob

  xUSB_UserVendorRequest(@xUSB_VendorRequest); // optional, if you need it! 

  xUSB_Enable;                                 // Attach USB and connect RxBuf for FIRST RX INT
  loop
    USBdataAvail:= false; 
    HostFailed:= false; 
    xUSB_Attach; 
    while (not UsbDriverConnect) {or (not USBvBUS.USBvBUSpin)}  do 
      Toggle(LED); 
      mDelay(300); 
      BeepClick; 
    endwhile;
                                       // wait for Windows Setconfiguration
    xUSB_RXsetBuffer(1, @USB_Rx_Receive, @RXbuf, 512);   // Link RX Event 
    while UsbDriverConnect {and USBvBUS.USBvBUSpin}  do
      MainLoop; 
    endwhile; 
    HostFailed:= true; 
    xUSB_Detach; 
  endloop; 
end xUSBPort.

  
  procedure USB_Rx_Receive(Status : tUSBep_Status; nb_transfered : word); 
.....
  EnableInts($87); 
  SysLEDon(0);
  xUSB_UserVendorRequest(@USB_VendorRequest); 
  xUSB_Enable; 
  xUSB_Attach; 
  while (not UsbDriverConnect) do 
    SysLEDflashOn(1); 
    mDelay(300); 
  endwhile;                                             // wait for Windows Setconfiguration 
  xUSB_RXsetBuffer(1, @USB_Rx_Receive, @RXbuf, 1023);   // Link RX Event