Code: Select all
program test;
uses enc_utils;
var
Mac : array [6] of byte;
Ip : array [4] of byte;
begin
Mac[0] := 0xD4;
Mac[1] := 0xF4;
Mac[2] := 0xDD;
Mac[3] := 0xCC;
Mac[4] := 0xAA;
Mac[5] := 0x62;
Ip[0] := 192;
Ip[1] := 168;
Ip[2] := 0;
Ip[3] := 113;
begin
Spi1_Init();
SPI_Ethernet_Init(PORTF, 0, PORTF, 1, Mac, Ip, SPI_Ethernet_FULLDUPLEX);
while true do
SPI_Ethernet_doPacket();
end;
end.