Advertisement  

Saturday, 07 December 2024
     
 
Main Menu
Home Home
Shop Shop
News News
BASCOM-AVR BASCOM-AVR
BASCOM-8051 BASCOM-8051
Products Products
Application Notes Application Notes
Publications Publications
Links Links
Support Center Support Center
Downloads Downloads
Forum Forum
Resellers Resellers
Contact Us Contact Us
Updates Updates
MCS Wiki MCS Wiki
Online Help
BASCOM-AVR Help BASCOM-AVR Help
BASCOM-8051 Help BASCOM-8051 Help
Contents in Cart
Show Cart
Your Cart is currently empty.
Search the Shop

Products Search

User Login
Username

Password

If you have problem after log in with disappeared login data, please press F5 in your browser

RSS News
Check the Shop
  Random 
Random
 

ZIF20
ZIF20
EUR 4.78


BASCOM-8051 & Book
BASCOM-8051 & Book
EUR 114.95


 
     
 

 
   
     
 
Easy TCP/IP - Nice to control your home from the internet Print
MCS Electronics developed a new product for BASCOM-AVR : Easy TCP/IP

MCS Electronics developed a new product for BASCOM-AVR : Easy TCP/IP

While it is nice to control your home from the internet, it also means that you need to have a PC running day and night.

Easy TCP/IP allows you to connect to a LAN and/or the internet via Ethernet.

The W3100A chip from www.iinchip.com is used for the tcp/ip handling.

Since most of the tcp/ip handling is done by the chip, it means that you micro processor only have to spend limited RAM and ROM for the tcp/ip.

The Easy TCP/IP PCB is designed by 'Electronic Designs' for MCS Electronics.
I should mention that the cooperation with Marco Haufe from 'Electronic Designs'  worked out great. I just provided the circuit parts, and the resulting PCB you can find below.

Important : Look at the difference between IIM7000 and IIM7000A

Downloads

IIM7000 PDF files  
BASCOM EasyTCP/IP manual version 3 For board MCSTCPIP5.EDB
Sample files  
Circuit in PDF Circuit redrawn by Atilio Mosca
Polish language BASCOM EasyTCP/IP manual 1.0  Translated by Zbigniew Gibek

 

The PCB was developed to get you started quick and easy. You can incorporate the W3100A chip in your own circuit of course.

The W3100A is a SMD chip so the Easy TCP/IP PCB uses the IIM7000A module that can be soldered like any other normal chip.

The specs of the Easy TCP/IP PCB:

  • DB-9 connector for serial communications
  • DB-25 connector with integrated Sample Electronics programmer
  • Optional LCD in pin mode can be fitted above the micro and IIM7000 module
  • Leds for Link, 10 MB and 100 MB network detection. 
  • Header for port B and D. (P1/P3)
  • Board suited for an AVR (Mega8515/Mega161L etc.) or for a 8051(89S8252)
  • Proto type area.

The TCP/IP Libary is included with BASCOM-AVR.

The following items are available from MCS Electronics:

  • Easy TCP/IP PCB (bare board)
  • IIM7000A module with RJ-45 magnetic connector.
  • BASCOM-AVR tcp/ip library(the library is shipped for free when you order the IIM7000 or PCB)
 

The libraries allow you to open a socket connection in client or server mode, write and read data. A few sample programs were created : SMTP mailer, POP3 email header reader and HTTP webserver with authentication. 

The W3100A allows to have 4 different socket connections open at the same time!

The buffer memory is inside the W3100A. This means that your program has only a little bit of overhead for the internal ram and the code.

UDP was also added to the library.

 

 

A Simple Smtp Send Program:

 
'-------------------------------------------------------------------------------
' SMTP.BAS
' (c) 2002 MCS Electronics
' sample that show how to send an email with SMTP protocol
'-------------------------------------------------------------------------------

$regfile = "m161def.dat" ' used processor
$crystal = 3579545 ' used crystal
$baud = 19200  ' baud rate
$lib "tcpip.lib" ' specify the name of the tcp ip lib

'W3100A constants
Const Sock_stream = $01 ' Tcp
Const Sock_dgram = $02  ' Udp
Const Sock_ipl_raw = $03 ' Ip Layer Raw Sock
Const Sock_macl_raw = $04 ' Mac Layer Raw Sock
Const Sel_control = 0 ' Confirm Socket Status
Const Sel_send = 1 ' Confirm Tx Free Buffer Size
Const Sel_recv = 2 ' Confirm Rx Data Size

'socket status
Const Sock_closed = $00 ' Status Of Connection Closed
Const Sock_arp = $01 ' Status Of Arp
Const Sock_listen = $02 ' Status Of Waiting For Tcp Connection Setup
Const Sock_synsent = $03  ' Status Of Setting Up Tcp Connection
Const Sock_synsent_ack = $04 ' Status Of Setting Up Tcp Connection
Const Sock_synrecv = $05 ' Status Of Setting Up Tcp Connection
Const Sock_established = $06 ' Status Of Tcp Connection Established
Const Sock_close_wait = $07 ' Status Of Closing Tcp Connection
Const Sock_last_ack = $08 ' Status Of Closing Tcp Connection
Const Sock_fin_wait1 = $09 ' Status Of Closing Tcp Connection
Const Sock_fin_wait2 = $0a ' Status Of Closing Tcp Connection
Const Sock_closing = $0b ' Status Of Closing Tcp Connection
Const Sock_time_wait = $0c ' Status Of Closing Tcp Connection
Const Sock_reset = $0d ' Status Of Closing Tcp Connection
Const Sock_init = $0e ' Status Of Socket Initialization
Const Sock_udp = $0f ' Status Of Udp
Const Sock_raw = $10 ' Status of IP RAW

Const Debug = -1 ' for sending feeback to the terminal


#if Debug
 
Print "Start of SMTP demo"
#endif

Enable Interrupts ' enable interrupts
'specify MAC, IP, submask and gateway
'local port value will be used when you do not specify a port value while creating a connection
'TX and RX are setup to use 4 connections each with a 2KB buffer
Config Tcpip = Int0 , Mac = 00.00.12.34.56.78 , Ip = 192.168.0.10 , Submask = 255.255.255.0 , Gateway = 192.168.0.0 , Localport = 1000 , Tx = $55 , Rx = $55

'dim the used variables
Dim S As String * 150 , I As Byte , J As Byte , Tempw As Word
#if Debug
 
Print "setup of W3100A complete"
#endif

'First we need a socket
I
= Getsocket(0 , Sock_stream , 5000 , 0)
' ^ socket numer ^ port
#if Debug
 
Print "Socket : " ; I
 
'the socket must return the asked socket number. It returns 255 if there was an error
#endif

If I = 0 Then  ' all ok
 
'connect to smtp server
 J
= Socketconnect(i , 194.109.0.0 , 25) ' smtp server and SMTP port 25
 
' ^socket
 
' ^ ip address of the smtp server
 
'  ^ port 25 for smtp
 
#if Debug
 
Print "Connection : " ; J
 
Print S_status(1)
 
#endif
 
If J = 0 Then ' all ok
 
#if Debug
 
Print "Connected"
 
#endif
 
' now depending on the smtp server, it can take some time until a reply is received
 
Do
 Tempw
= Socketstat(i , 0) ' get status
 
Select Case Tempw
 
Case Sock_established ' connection established
 Tempw
= Tcpread(i , S) ' read line
 
#if Debug
 
Print S ' show info from smtp server
 
#endif
 
If Left(s , 3) = "220" Then ' ok
 Tempw
= Tcpwrite(i , "HELO user{013}{010}" ) ' send username
 
#if Debug
 
Print Tempw ; " bytes written" ' number of bytes actual send
  
#endif
 Tempw
= Tcpread(i , S) ' get response
 
#if Debug
 
Print S ' show response
 
#endif
 
If Left(s , 3) = "250" Then ' ok
 Tempw
= Tcpwrite(i , "MAIL FROM:<tcpip@mcselec.com>{013}{010}") ' send from address
 Tempw
= Tcpread(i , S) ' get response
 
#if Debug
  
Print S
 
#endif
 
If Left(s , 3) = "250" Then ' ok
 Tempw
= Tcpwrite(i , "RCPT TO:<tcpip@mcselec.com>{013}{010}") ' send TO address
 Tempw
= Tcpread(i , S) ' get response
 
#if Debug
 
Print S
 
#endif
 
If Left(s , 3) = "250" Then ' ok
 Tempw
= Tcpwrite(i , "DATA{013}{010}") ' speicfy that we are going to send data
 Tempw
= Tcpread(i , S) ' get response
 
#if Debug
 
Print S
 
#endif
 
If Left(s , 3) = "354" Then ' ok
 Tempw
= Tcpwrite(i , "From: tcpip@mcselec.com{013}{010}")
 Tempw
= Tcpwrite(i , "To: tcpip@mcselec.com{013}{010}")
  Tempw
= Tcpwrite(i , "Subject: BASCOM SMTP test{013}{010}")
 Tempw
= Tcpwrite(i , "X-Mailer: BASCOM SMTP{013}{010}")
 Tempw
= Tcpwrite(i , "{013}{010}")
 Tempw
= Tcpwrite(i , "This is a test email from BASCOM SMTP{013}{010}")
 Tempw
= Tcpwrite(i , "Add more lines as needed{013}{010}")
 Tempw
= Tcpwrite(i , ".{013}{010}") ' end with a single dot

 Tempw
= Tcpread(i , S) ' get response
 
#if Debug
 
Print S
 
#endif
 
If Left(s , 3) = "250" Then ' ok
 Tempw
= Tcpwrite(i , "QUIT{013}{010}") ' quit connection
 Tempw
= Tcpread(i , S)
 
#if Debug
 
Print S
 
#endif
 
End If
 
End If
 
End If
 
End If
 
End If
 
End If
 
Case Sock_close_wait
 
Print "CLOSE_WAIT"
 
Closesocket I ' close the connection
 
Case Sock_closed
 
Print "Socket CLOSED" ' socket is closed
 
End
 
End Select
 
Loop
 
End If
End If
End 'end program

A simple POP3 read program:

'-------------------------------------------------------------------------------
' POP3.BAS
' (c) 2002 MCS Electronics
' sample that show how to read an email with POP3 protocol
'-------------------------------------------------------------------------------

$regfile = "m161def.dat"
$crystal = 3579545
$baud = 19200
$lib "tcpip.lib"

Const Sock_stream = $01 ' Tcp
Const Sock_dgram = $02 ' Udp
Const Sock_ipl_raw = $03 ' Ip Layer Raw Sock
Const Sock_macl_raw = $04 ' Mac Layer Raw Sock
Const Sel_control = 0 ' Confirm Socket Status
Const Sel_send = 1  ' Confirm Tx Free Buffer Size
Const Sel_recv = 2 ' Confirm Rx Data Size

'socket status
Const Sock_closed = $00 ' Status Of Connection Closed
Const Sock_arp = $01 ' Status Of Arp
Const Sock_listen = $02 ' Status Of Waiting For Tcp Connection Setup
Const Sock_synsent = $03 ' Status Of Setting Up Tcp Connection
Const Sock_synsent_ack = $04 ' Status Of Setting Up Tcp Connection
Const Sock_synrecv = $05 ' Status Of Setting Up Tcp Connection
Const Sock_established = $06  ' Status Of Tcp Connection Established
Const Sock_close_wait = $07 ' Status Of Closing Tcp Connection
Const Sock_last_ack = $08 ' Status Of Closing Tcp Connection
Const Sock_fin_wait1 = $09 ' Status Of Closing Tcp Connection
Const Sock_fin_wait2 = $0a ' Status Of Closing Tcp Connection
Const Sock_closing = $0b ' Status Of Closing Tcp Connection
Const Sock_time_wait = $0c ' Status Of Closing Tcp Connection
Const Sock_reset = $0d ' Status Of Closing Tcp Connection
Const Sock_init = $0e  ' Status Of Socket Initialization
Const Sock_udp = $0f ' Status Of Udp
Const Sock_raw = $10 ' Status of IP RAW

Const Debug = 1


#if Debug
 
Print "Init system"
#endif

Config Lcd = 16 * 2 ' lcd we use
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5
Cls ' clear LCD

Enable Interrupts
Config Tcpip = Int0 , Mac = 00.00.12.34.56.78 , Ip = 192.168.0.10 , Submask = 255.255.255.0 , Gateway = 192.168.0.0 , Localport = 1000 , Tx = $55 , Rx = $55

'dim variables
Dim S As String * 150 , I As Byte , J As Byte , Tempw As Word , P As Byte , Ilp As Word , Imsg As Word
#if Debug
 
Print "Ready"
#endif

'get a socket
I
= Getsocket(0 , Sock_stream , 5000 , 0)
#if Debug
 
Print "socket : " ; I
#endif

If I <> 255 Then ' all ok
 
'connect to pop3 server
 J
= Socketconnect(i , 64.77.0.0 , 110) ' smtp server and POP3 port 110
 
#if Debug
 
Print "Connection : " ; J
 
Print S_status(1)
 
#endif
 
If J = 0 Then ' all ok
 
#if Debug
 
Print "Connected"
 
#endif
 
Do
 Tempw
= Socketstat(i , 0) ' get status
 
Select Case Tempw
 
Case Sock_established
 Tempw
= Tcpread(i , S) ' get line
 
#if Debug
 
Print S
 
#endif
 
If Left(s , 3) = "+OK" Then ' ok
 Tempw
= Tcpwrite(i , "USER user{013}{010}" ) ' send username
 Tempw
= Tcpread(i , S) ' get response
 
#if Debug
 
Print S
 
#endif
 
If Left(s , 3) = "+OK" Then ' ok
 Tempw
= Tcpwrite(i , "PASS pwd{013}{010}") ' send password
 Tempw
= Tcpread(i , S) ' get response
 
#if Debug
 
Print S
 
#endif
 
If Left(s , 3) = "+OK" Then ' ok
 
Do
 Tempw
= Socketstat(i , 2) ' get number of received bytes
 
If Tempw > 0 Then
 Tempw
= Tcpread(i , S) ' get response
 
#if Debug
 
Print S
 
#endif
 
Else
 
Exit Do ' no more data
 
End If
 
Loop
 Tempw
= Tcpwrite(i , "STAT{013}{010}") 'get stats
 Tempw
= Tcpread(i , S)
 
#if Debug
 
Print S
 
#endif
 
If Left(s , 3) = "+OK" Then ' ok
 
'+OK 10 1204
 S
= Mid(s , 5) ' stop +ok
 P
= Instr(s , " ")
 P
= P - 1 ' find space
 S
= Left(s , P)
 
Cls ' clear LCD
 
Lcd "Emails : " ; S
 Imsg
= Val(s) ' number of messages
 
For Ilp = 1 To Imsg
 S
= "TOP " + Str(ilp) + " 0{013}{010}"
 J
= Len(s)
 Tempw
= Tcpwrite(i , S , J) ' ask for top lines(0) which will respond with only the header
 
Do
 Tempw
= Tcpread(i , S)
  
If Left(s , 8) = "Subject:" Then ' check for subject
 S
= Mid(s , 10)
 
Home Lower : Lcd S ' show header
 
#if Debug
 
Print S
 
#endif
 
End If
 
Loop Until S = "." ' end of data
 
Waitms 1000  'some time to read the display
 
Next
 Tempw
= Tcpwrite(i , "QUIT{013}{010}") ' quit
 Tempw
= Tcpread(i , S)
 
End If
 
End If
 
End If
 
End If
 
Case Sock_close_wait
 
#if Debug
 
Print "CLOSE_WAIT"
 
#endif
 
Closesocket I ' close connection
 
Case Sock_closed
 
#if Debug
 
Print "CLOSED" ' we are done
 
#endif
 
End
 
End Select
 
Loop
 
End If
End If
End  'end program



A simple HTTP server program:

'------------------------------------------------------------------------------
' webserver.bas
' simple webserver demo
' (c) 2002 MCS Electronics
' You can access the server via http://213.84.110.248:5000/index.htm
' http://213.84.110.248:5000/post.htm
' http://213.84.110.248:5000/notfound.htm
' any other name will return the not found page
'Note that the server is not always active
'------------------------------------------------------------------------------
$regfile = "m161def.dat"
$crystal = 3579545
$baud = 19200

'used constants
Const Sock_stream = $01 ' Tcp
Const Sock_dgram = $02 ' Udp
Const Sock_ipl_raw = $03 ' Ip Layer Raw Sock
Const Sock_macl_raw = $04  ' Mac Layer Raw Sock
Const Sel_control = 0 ' Confirm Socket Status
Const Sel_send = 1 ' Confirm Tx Free Buffer Size
Const Sel_recv = 2  ' Confirm Rx Data Size

'socket status
Const Sock_closed = $00 ' Status Of Connection Closed
Const Sock_arp = $01 ' Status Of Arp
Const Sock_listen = $02 ' Status Of Waiting For Tcp Connection Setup
Const Sock_synsent = $03 ' Status Of Setting Up Tcp Connection
Const Sock_synsent_ack = $04 ' Status Of Setting Up Tcp Connection
Const Sock_synrecv = $05 ' Status Of Setting Up Tcp Connection
Const Sock_established = $06 ' Status Of Tcp Connection Established
Const Sock_close_wait = $07  ' Status Of Closing Tcp Connection
Const Sock_last_ack = $08 ' Status Of Closing Tcp Connection
Const Sock_fin_wait1 = $09 ' Status Of Closing Tcp Connection
Const Sock_fin_wait2 = $0a ' Status Of Closing Tcp Connection
Const Sock_closing = $0b ' Status Of Closing Tcp Connection
Const Sock_time_wait = $0c ' Status Of Closing Tcp Connection
Const Sock_reset = $0d ' Status Of Closing Tcp Connection
Const Sock_init = $0e ' Status Of Socket Initialization
Const Sock_udp = $0f ' Status Of Udp
Const Sock_raw = $10 ' Status of IP RAW

'in debug mode to send some info to the terminal
Const Debug = 1

$lib "tcpip.lib"
$eepleave  ' do not delete the EEP file since we generated it with the converter tool

#if Debug
 
Print "init W3100A"
#endif
Enable Interrupts
Config Tcpip = Int0 , Mac = 00.00.12.34.56.78 , Ip = 192.168.0.10 , Submask = 255.255.255.0 , Gateway = 192.168.0.1 , Localport = 1000 , Tx = $55 , Rx = $55

'dim used variables
Dim S As String * 140 At &H100 , Shtml As String * 15 , Sheader As String * 30
Dim Buf(120) As Byte At &H100 Overlay ' this is the same data as S but we can treat it as an array now
Dim Tempw As Word
Dim I As Byte , Bcmd As Byte , P1 As Byte , P2 As Byte , Size As Word
Dim Bcontent As Byte

I
= Getsocket(0 , Sock_stream , 5000 , 0) 'get a socket
#if Debug
 
Print "socket : " ; I
#endif

Socketlisten I ' server mode

#if Debug
 
Print "listening"
#endif

Do
 Tempw
= Socketstat(i , 0) ' get status
 
Select Case Tempw
 
Case Sock_established
 
#if Debug
 
Print "sock_est"
 
#endif
 Tempw
= Socketstat(i , Sel_recv) ' get received bytes
 
#if Debug
 
Print "receive buffer size : " ; Tempw
 
#endif
  
If Tempw > 0 Then ' if there is something received
 Bcmd
= 0
 
Do
 Tempw
= Tcpread(i , S) ' read a line
 
If Left(s , 3) = "GET" Then '
 Bcmd
= 1 ' GET /index.htm HTTP/1.1
 
Gosub Page
 
Elseif Left(s , 4) = "HEAD" Then
 Bcmd
= 2
 
Gosub Page
  
Elseif Left(s , 4) = "POST" Then
 Bcmd
= 3
 
Elseif Left(s , 15) = "Content-Length:" Then ' for post
 S
= Mid(s , 16) : Bcontent = Val(s)
 
Else
 
#if Debug
 
Print S
 
#endif
 
End If
 
Loop Until S = "" ' wait until we get an empty line
 Tempw
= Tcpwrite(i , "HTTP/1.0 200 OK{013}{010}")
 
If Bcmd = 3 Then
 
#if Debug
 
Print "Posted data"
 
#endif
 Tempw
= Tcpread(i , Buf(1) , Bcontent) ' read data
 
#if Debug
 Bcontent
= Bcontent + 1
 Buf
(bcontent) = 0 ' put string terminator at end of data so we can handle it as a string
 
Print S
 
#endif
 Shtml
= "/redirect.htm"  ' redirect to www.mcselec.com
 
End If
 
Gosub Stuur ' GET or HEAD or POST feedback so send it
 
Print "closing socket"
 
Closesocket I  ' close the connection
 
Print "done"
 
End If
 
Case Sock_close_wait
 
#if Debug
 
Print "CLOSE_WAIT"
 
#endif
 
Closesocket I ' we need to close
 
Case Sock_closed
 
#if Debug
 
Print "CLOSED"
 
#endif
 I
= Getsocket(0 , Sock_stream , 5000 , 0) ' get a new socket
 
Socketlisten I ' listen
  
#if Debug
 
Print "Listening on socket : " ; I
 
#endif
 
End Select
Loop
End

'get html page out of data
Page
:
 P1
= Instr(s , " ") ' find first space
 P1
= P1 + 1 ' 4
 P2
= Instr(p1 , S , " ") ' find second space
 P2
= P2 - P1
 Shtml
= Mid(s , P1 , P2) ' dont use too long page names
 Shtml
= Lcase(shtml) ' make lower case
 
#if Debug
 
Print "HTML page:" ; Shtml
 
#endif
Return


'send data
 Stuur
:
 
Dim Woffset As Word , Bcontenttype As Byte , Wsize As Word , Bgenerate As Bit , Ihitcounter As Integer
 Bgenerate
= 0 ' by default
 
Select Case Shtml
 
Case "/index.htm"
 Bcontenttype
= 0 : Bgenerate = 1
 
Case "/redirect.htm"
 Bcontenttype
= 0 : Bgenerate = 1
 
Case "/post.htm" : Wsize = 277
 bContentType
= 0 : wOffset = 0
 
Case "/notfound.htm" : Wsize = 123
 Bcontenttype
= 0 : Woffset = 277
 
Case Else ' not found
 Bcontenttype
= 0 : Woffset = 277 : Wsize = 123
 
End Select

 
Select Case Bcontenttype
 
Case 0: ' text
 Tempw
= Tcpwrite(i , "Content-Type: text/html{013}{010}")
 
Case 1: ' gif
 
End Select
 
If Bgenerate = 0 Then ' data from eeprom
 S
= "Content-Length: " + Str(wsize) + "{013}{010}"
 Tempw
= Tcpwritestr(i , S , 255) ' add additional CR and LF
 Tempw
= Tcpwrite(i , Eeprom , Woffset , Wsize) ' write data
 
Else ' we generate the data
 
If Shtml = "/index.htm" Then
 S
= "<html><head><title>Easy TCP/IP</title></head><body><p><b>MCS webserver test<br></b>Hits : " + Str(ihitcounter) + "</p><p>&nbsp;</p><p>&nbsp;</p></body></html>"
 
Incr Ihitcounter 'increase hitcounter
 
Else
  S
= "<html><head><title</title></head><body onload='window.location.href=" + Chr(34) + "http://www.mcselec.com" + Chr(34) + "'></body></html>"
 
End If
 Wsize
= Len(s) ' size of body
 Sheader
= "Content-Length: " + Str(wsize) + "{013}{010}"
 Tempw
= Tcpwritestr(i , Sheader , 255) ' add additional CR and LF
 Tempw
= Tcpwrite(i , S , Wsize) ' send body
 
End If
 
Return

 

Note that the samples were kept simple on purpose. An actual webserver will use 4 connections so 4 clients at the same time can be served.