anchor.diff:  	    slip_unpack_acc(Xs,[?ESC|Acc])
       end.
   
  -	    
  -	    
  -    
   
  +
  +
  +
  
positive.code: %% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
  %% THE SOFTWARE.
  %%
  %    -*- Erlang -*- 
  %    File:	slip.erl  (~jb/serialport/slip.erl)
  %    Author:	Johan Bevemyr
  %    Created:	Thu Oct 24 16:17:28 1996
  %    Purpose:   
   
  -module(slip).
  -author('jb@erix.ericsson.se').
  
  %
  %  SLIP (Serial Line IP)
  % 
  %  The idea behind SLIP is very simple. IP-packets are sent over
  %  a serial line. Each packet is terminated with END (digtal 192).
  %  If END occurs in the packet the sequence ESC (digital 219) and
  %  ESCEND (digital 220) is sent instead. If ESC occurs then the 
  %  sequence ESC ESCESC (digital 221) is sent instead.
  % 
  %  An optimisation is to start all packets with an END token. This
  %  has the effect of flushing all line noise that may have occured.
  %
  %  Both the sender and the reciever need to know each others 
  %  IP-addresses. 
  %   
  
  -define(END,192).
  -define(ESC,219).
  
negative.code: 
  -export([start/1,init/2]).
  
  start(IPAddress) when is_list(IPAddress), length(IPAddress) == 4 ->
      spawn_link(slip,init,[IPAddress,self()]);
  
  start(IPAddress) when is_atom(IPAddress) ->
      xk:start(),
      case xk:host2ip(IPAddress) of
  	{ok,IpDst} ->
  