Hallo,
ich bekomme den Treiber nicht am Laufen. Die Hardware kann es nicht sein, die kommt von einem DEMO-Board (dr. rakers) Hier wird der ENC28J060 verwendet, in Verbindung mit einen 90CAN128 (PE4- INT, PB1-SCK, PB2-MOSI, PB3-MISO und PB4 CS). Das kleine Programm kommt über den TINA_Init nicht hinaus und bleibt dort hängen. Hat da jeman eine Ide ?
Gruß
WOM
ich bekomme den Treiber nicht am Laufen. Die Hardware kann es nicht sein, die kommt von einem DEMO-Board (dr. rakers) Hier wird der ENC28J060 verwendet, in Verbindung mit einen 90CAN128 (PE4- INT, PB1-SCK, PB2-MOSI, PB3-MISO und PB4 CS). Das kleine Programm kommt über den TINA_Init nicht hinaus und bleibt dort hängen. Hat da jeman eine Ide ?
Gruß
WOM
Code
program Test_USB;
{$NOSHADOW}
{ $WG} {global Warnings off}
Device = 90CAN128, VCC=5;
{ $BOOTRST $0F000} {Reset Jump to $0F000}
Define_Fuses
// Override_Fuses;
NoteBook = A;
COMport = USB;
LockBits0 = [];
FuseBits0 = [];
FuseBits1 = [SPIEN, JTAGEN, OCDEN];
FuseBits2 = [];
Import SysTick,WatchDog, SerPort2,TINAstack;
From System Import LongWord, LongInt, Float;
Define
ProcClock = 16000000; {Hertz}
SysTick = 10; {msec}
WatchDog = msec1000; {presc = 6}
StackSize = $0064, iData;
FrameSize = $0064, iData;
SerPort2 = 19200, Stop2; {Baud, StopBits|Parity}
RxBuffer2 = 8, iData;
TxBuffer2 = 8, iData;
TINAdriver = ENC28J60;
TINAport = SPI, PortB, 4; // SPItyp, SS_Port, SS_Pin
TINAtimer = Timer3;
TINAsockets = 4;
Uses TINA;
Implementation
{$IDATA}
begin
EnableInts;
//Init the Core of TINA with Params
With TinaCore do
StrToIP('192.168.178.16', IP); // tina ip address
StrToIP('255.255.255.000', Mask);
StrToIP('192.168.178.28', GateWay);
StrToMac('00-A0-A1-A2-A3-A4', MAC);
ResponsePing:= True;
Prio:= TinaPrioHigh;
RXCheckSumCheck:=True;
endwith;
WriteLn (SerOut2,'System RESET');
//Init TINA
IF NOT TINA_Init then
loop
mdelay(500);
endloop;
endif;
//Start TINA - lets do the Job!
TINA_Start;
WriteLn (SerOut2,'TINA_Start');
end.
{$NOSHADOW}
{ $WG} {global Warnings off}
Device = 90CAN128, VCC=5;
{ $BOOTRST $0F000} {Reset Jump to $0F000}
Define_Fuses
// Override_Fuses;
NoteBook = A;
COMport = USB;
LockBits0 = [];
FuseBits0 = [];
FuseBits1 = [SPIEN, JTAGEN, OCDEN];
FuseBits2 = [];
Import SysTick,WatchDog, SerPort2,TINAstack;
From System Import LongWord, LongInt, Float;
Define
ProcClock = 16000000; {Hertz}
SysTick = 10; {msec}
WatchDog = msec1000; {presc = 6}
StackSize = $0064, iData;
FrameSize = $0064, iData;
SerPort2 = 19200, Stop2; {Baud, StopBits|Parity}
RxBuffer2 = 8, iData;
TxBuffer2 = 8, iData;
TINAdriver = ENC28J60;
TINAport = SPI, PortB, 4; // SPItyp, SS_Port, SS_Pin
TINAtimer = Timer3;
TINAsockets = 4;
Uses TINA;
Implementation
{$IDATA}
begin
EnableInts;
//Init the Core of TINA with Params
With TinaCore do
StrToIP('192.168.178.16', IP); // tina ip address
StrToIP('255.255.255.000', Mask);
StrToIP('192.168.178.28', GateWay);
StrToMac('00-A0-A1-A2-A3-A4', MAC);
ResponsePing:= True;
Prio:= TinaPrioHigh;
RXCheckSumCheck:=True;
endwith;
WriteLn (SerOut2,'System RESET');
//Init TINA
IF NOT TINA_Init then
loop
mdelay(500);
endloop;
endif;
//Start TINA - lets do the Job!
TINA_Start;
WriteLn (SerOut2,'TINA_Start');
end.