E-Lab USB Treiber

program USB_Test;

{ $NOSHADOW}
{$WG}                      {global Warnings on}

Device = 90USB128, VCC=5;
//Device  = 90USB162;
{ $BOOTRST $0F000}         {Reset Jump to $0F000}

Define_Fuses
//  Override_Fuses;
  NoteBook   = B;
  COMport    = USB;
  Supply     = 5.0, 100;
  LockBits0 = [];
  FuseBits0  = [];
  FuseBits1  = [SPIEN, JTAGEN, OCDEN];
  FuseBits2  = [];
  ProgMode   = JTAG;

Import SysTick, USBport, WatchDog;

From System Import ;

Define
  ProcClock      = 8000000;       {Hertz}
  SysTick        = 10;             {msec}
  StackSize      = $064, iData;
  FrameSize      = $064, iData;
  WatchDog       = 7;

  USBvid         = $2694;                // Vendor-ID
  USBpid         = $042D;                // Product-ID
  USBprodRel     = $1001;                // Product-Release
  USBmanufact    = 'EcoTron';
  USBprodName    = 'MINI USB128';
  USBcurrent     = 200;                 // max current consumption
  USBsernum      = 2143;                // Product serial number

Uses uAVR_USB;

Implementation

{$IDATA}
{--------------------------------------------------------------}
{ vars }
var
  USBrxBuf     : array[0..255] of byte;
  USBtxBuf     : array[0..255] of byte;
  USBrxBuf8    : tEp3_4Buf;
  USBtxBuf8    : tEp3_4Buf;

{--------------------------------------------------------------}
{ functions }
Procedure myUserProc(x : byte; v : word);
begin
  // ...
end;

Procedure Error;
Begin
    PortD.4:=True;
    mDelay(25);
    PortD.4:=False;
    mDelay(300);
End;
{--------------------------------------------------------------}
{ Main Program }
{$IDATA}
begin
  USBsetUserProc(@myUserProc);
  USBsetTimeOut(100);
  DDRD    := %11111111;
  EnableInts;
  EnableInts;
  While not USBconnected do
    Error;
    USBinit;
 endwhile;
  
  loop
    if USBgetRxState8 > 0 then
      USBgetRxBuf8(USBrxBuf8);
    endif;
    if USBgetTxState8 = 0 then
      USBsetTxBuf8(USBtxBuf8);
    endif;
    if USBgetRxState > 0 then
      USBgetRxBuf(@USBrxBuf, 256);
    endif;
    if USBgetTxState > 0 then
      USBsetTxBuf(@USBtxBuf, 256);
    endif;
    PortD.5:=False;
    mDelay(25);
    PortD.5:=True;
    mDelay(25);
  endloop;
end USB_Test.