'-----------------------------------------------------------------------------------------
'name                     : udptest.bas
'copyright                : (c) 1995-2005, MCS Electronics
'purpose                  : start the easytcp.exe program after the chip is programmed and
'                           press UDP button
'micro                    : Mega161
'suited for demo          : no
'commercial addon needed  : yes
'-----------------------------------------------------------------------------------------

$regfile = "m2560def.dat"                                   ' specify the used micro

$crystal = 16000000                                         ' used crystal frequency
$baud = 19200                                               ' use baud rate
$hwstack = 64                                               ' default use 32 for the hardware stack
$swstack = 64                                               ' default use 10 for the SW stack
$framesize = 50                                             ' default use 40 for the frame space

Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4 , Noss = 0
'Init the spi pins
Spiinit

Dim Idx As Byte
Dim Leng_udp As Word                                        ' result
Dim Buf_udp(80) As Byte
Dim Sstr As String * 20
Dim Temp As Byte , Temp2 As Byte

Print "Init , set IP to 192.168.1.15"                       ' display a message
Enable Interrupts                                           ' before we use config tcpip , we need to enable the interrupts
Config Tcpip = Int4 , _
       Mac = 12.128.12.34.56.78 , _
       Ip = 192.168.1.15 , _
       Submask = 255.255.255.0 , _
       Gateway = 192.168.1.1 , _
       Localport = 5000 , _
       Tx = $55 , Rx = $55 , _
       Chip = W5100 , _
       Spi = 1 , _
       Cs = Portb.4
Idx = Getsocket(idx , Sock_dgram , 5000 , 0)                ' get socket for UDP mode, specify port 9092
Print "Socket:" ; Idx
Leng_udp = Socketstat(idx , Sock_closed)
Print "Stat:" ; Hex(leng_udp)

Do
Leng_udp = Socketstat(idx , Sel_recv)                       ' get number of bytes waiting

   If Leng_udp > 0 Then
      Print "Leng:" ; Leng_udp
      Temp2 = Leng_udp - 8                                  'the first 8 bytes are always the UDP header which consist of the length, IP number and port address
        Print
        Print Peersize ; " " ; Peeraddress ; " " ; Peerport ' these are assigned when you use UDPREAD
        Print Ip2str(peeraddress)                           ' print IP in usual format

      Temp = Udpread(idx , Buf_udp(1) , Leng_udp)           ' read the result
      Print "Error:" ; Temp
      For Temp = 1 To Leng_udp
          Print Chr(buf_udp(temp));
      Next Temp
      Print
   End If
Loop
End