anchor.diff:  )
   
   (setq dev1 DEV1);; ûпwin
  +
  +;;; loadļ
  +(if (file? "base.lsp")
  +	(load "base.lsp")
  +	(new Tree 'BASE);ԣԶִеõϢĹ
  +)
  +
   
   
   (define (strtohex str);;xx xx xx to hex
  
positive.code: )
  
  
  (define (tcp_8088) ;; tcp ,רŴ
  	
  	(set 'listen (net-listen 8088))
  	
  	(unless (not (nil? listen)) 
  		(begin
  			(print "listening 8088 failed\n")
  			(abort)
  			(exit)
  		)
  	)
  	(print "Waiting for connection on: 8088 \n")
  
  	(while (!= (share talk) 19)
  		(set 'connection (net-accept listen))
  		(while (not (net-select connection "r" 1000)))
  		
  		(while (net-select connection "w" 1000)
  			(if (setq rvlen (net-receive connection buff ReadMax "\r\n"))
  				(begin
  					(share talk 1)
  					(sleep 200)
  					;(assert buff)
  					(setq atret (parse_atcmd (chop buff 2)))
  					(assert atret "\n")
  					(cond 
  						((list? atret)
  							(dolist (x atret)
  								(write_string_to_serial x)
  								(sleep 100);;; sleep 100ms to serial  
  							)
  						)
  						((string? atret)
  							(write_string_to_serial atret)
  						)
  					)
  					
  					;; here deal with data
  				)
  			)
  		)
  		
  		(assert "close connect " connection "\n")
  		(net-close connection)
  	)		
  )
  
  (define (tcp_8087) ;; tcp ,רŴ; spawn˼̣ͬ
  
negative.code: ;; fork now
  (setq cpid1 (spawn 'read_p (read_serial_process)))
  (setq cpid2 (spawn 'tcp_p1 (tcp_8083)))
  
  (set 'server (net-listen 8087))
  	
  