anchor.diff:  		(net-close connection)
   	)		
   )
  +(define (tcp_debug, listen)
  +	(setq listen (net-listen 8089))
  +		(unless (not (nil? listen)) 
  +		(begin
  +			(print "listening " 8089 " failed\n")
  +			(abort)
  +			(exit)
  +		)
  +	)
  +	(print "Waiting for connection on: 8089 \n")
  +	
  +		(while (!= (share talk) 19)
  +			(set 'connection (net-accept listen))
  +			(net-send connection ">" 1)
  +			(while (not (net-select connection "r" 1000)))
  +		
  +				(while (net-select connection "w" 1000)
  +					(if (setq rvlen (net-receive connection buff ReadMax "\n"))
  +						(begin
  +							(eval-string buff)
  +						)
  +					)
  +				)
  +				(assert "close connect port1\n")
  +				(net-close connection)
  +		)
  +)
   
   (define (tcp_8083) ;; tcp 进程,专门处理串口数据
   	
  
positive.code: 									(BASE "PANID" panid)
  								)
  								(share base_in_mem (BASE))
  								(setq read_buffer (slice read_buffer  (+ (char (slice read_buffer  (+ pos 1) 1) ) pos) ))
  								(setq pos -1)
  							)
  							(and (= (char (slice read_buffer pos 1))  0xa0)  (true? (check_buffer_sum read_buffer)) )  ;; 温度, 0xa0 len xx xx tt tt
  							(begin
  								(setq tmp nil)
  								(setq short_address nil)
  
negative.code: 									)
  								)
  								(share base_in_mem (BASE))
  								(setq read_buffer (slice read_buffer  (+ (char (slice read_buffer  (+ pos 1) 1) ) pos 2) ))
  								(println "after :" (hextostring read_buffer) " pos: " pos)
  								(setq pos -1)
  								(setq sa_string nil) (setq ma_string nil)
  							)
  			
  						(and (= (char (slice read_buffer pos 1))  0xa6)  (true? (check_buffer_sum read_buffer pos )) ) ;;; 取pm25 : a8 len xx xx cc cc dd dd, c d is low and counter
  						(begin
  							(setq short_address nil)
  							(setq short_address (slice (format "%04X" (get-int (reverse (slice read_buffer (+ pos 2) 2)))) 0 4))
  