Tuesday, 14 July 2020
     
 
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
 

Minipin
Minipin
EUR 47.19


CAB_A(W)
CAB_A(W)
EUR 2.72


 
     
 

 
   
     
 
Easy TCP/IP IC TWI Print
Connect your controller to the Internet using only 4 pins

 MCS Electronics presents 

 

 

Making things easy. 

 

A few years ago MCS Electronics introduced Easy-TCP/IP, which gave you a way of interfacing AVR microcontrollers to the Internet in a fast cost effective way.

Easy-TCP/IP is now being used in the world of embedded electronics and we aim to improve our products in response to our users feedback. Thats the reason why we now like to introduce EASY-TCP/IP TWI a TCP/IP interface that only uses a few I/O pins of your microcontroller, while keeping your program code as good as unchanged.

Key advantages of the EASY-TCP/IP TWI is that it only uses two I/O pins for IC serial communications plus one interrupt pin and a reset pin. So a maximum of four I/O pins is used for a full TCP/IP interface. The previously released TCP/IP board used about 16 I/O lines, making it only suitable for relatively large AVR controllers that can address external memory.

The reduction of I/O pins of the Easy-TCP/IP TWI makes is slower than the EASY-TCP, but for a lot of embedded applications high speed is not a requirement. Its up to you to decide whether you choose for speed, EASY-TCP or a compact and economic EASY-TCP/IP TWI.





        TCP/IP-TWI Motherboard with TWI-Adapter Board.





Features Easy TCP/IP IC TWI Development board

Supports ATMega32, ATMega88 or pin compatible microcontroller
RS232 Interface
HD44780 LCD connection
RS232 Serial port connector
Compatible for programming with STK200/300 dongle (LPT)
Headers for most ports pins, GND and +5V

BASCOM-AVR Code samples available.




        IIM7010A Adapter PCB. This is available as a KIT in our SHOP


Products

The following TWI products are available thru our shop:

Easy TCP/IP IC TWI Development board
IIM7010A Adapter Board PCB
IIM7010A Ethernet Module


Downloads

Easy TCP/IP IC TWI Manual
Easy TCP/IP IC TWI Manual - Polish
Easy TCP/IP IC TWI Adapter Board Manual
Sourcecode



A simple web server

This code shows a simple webserver for the TCP/IP-TWI Development Board.
 

 


 

'------------------------------------------------------------------------------
'                         webserver_twi.bas
'                     simple webserver demo for Easy-TCP/IP TWI
'                   (c) 2005 MCS Electronics
'
'This is exactly the same webserver as the webserver.bas only this program
'can be used on the Easy-TCP/IP TWI
'
'------------------------------------------------------------------------------
$regfile =  "m32def.dat"
$crystal = 8000000
$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
Const Authenticate = 0                                      ' use 1 to use authentication


$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.40.12.34.56.78 , Ip = 192.168.0.8 , Submask = 255.255.255.0 , Gateway = 192.168.0.1 , Localport = 1000 , Tx = $55 , Rx = $55 , Twi = &H80 , Clock = 400000

'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
Dim Bauth As Byte , Ipcon As Long ' for optional authentication

'note that this webserver demo uses just 1 connection. It can easy be changed to use all 4 connections
'also note that the connection is terminated by the webserver after the data has been sent.
'this is done so more clients can be served, it is not acording to the RFC
'Also included is some simple authentiation. It works by determining the client IP number
'When it differs from the current connection, the user/pwd will be asked. It is decoded with the base64dec() routine

'Usualy we start with creating a connection. This is also tru for this demo.
'Because the socketstat()function will find out that the connection is closed, it will take then
'        Case Sock_closed part of the select case statement, and so will create a new socket.
'After that it will listen to the connection for a client.


I
= 0                                                       ' we use just 1 connection with number 0
Do
    Tempw
=  Socketstat(i , 0) ' get status
   
Select Case Tempw
      
Case Sock_established
           
#if Debug
               
Print "sock_est" ' delete it when it sends to much data to the terminal
           
#endif
           
If  Getdstip(i) <> Ipcon Then ' the current client is different then the number stored
               Bauth
= 0                                    ' reset authentication bit
           
End If
            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)
                
Elseif Left(s , 20) =  "Authorization: Basic" Then ' user and pwd specified
                   
Print S
                    S
= Mid(s , 22)  'Authorization: Basic bWFyazptYXJr
                   
Print "{" ; S ; "}" ' this is the user/pwd part the browser is sending
                   
#if Debug
                       
Print  "Decoded user:pwd " ;  Base64dec(s)
                   
#endif
                   
If  Base64dec(s) = "mark:mark" Then 'pwd ok
                       Bauth
= 1                            ' verified
                       Ipcon
=  Getdstip(i) ' store current ip number
                   
End If
                
Else
                   
#if Debug
                       
Print S                             ' print data the client browser sent
                   
#endif
                
End If
               
Loop  Until S = "" ' wait until we get an empty line

              
#if Authenticate
              
If Bauth = 0 Then
                  Tempw
=  Tcpwrite(i ,  "HTTP/1.0 401 OK{013}{010}") ' ask for user password
                  Tempw
=  Tcpwrite(i ,  "WWW-Authenticate: Basic realm={034}ServerID{034}{013}{010}")
                 
Goto Continue
              
Else
                 Tempw
=  Tcpwrite(i ,  "HTTP/1.0 200 OK{013}{010}")
              
End If
              
#else ' no authentication used
                     Tempw
=  Tcpwrite(i ,  "HTTP/1.0 200 OK{013}{010}") 'send ok
              
#endif
              
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
Continue
:
              
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