anchor.diff:  
   (setq cmd_line nil)
   (global 'cmd_line)
  -(setq read_buffer nil);;;
  +(setq read_buffer "");;;
   (global 'read_buffer);;; The buffer like sscom32''s textarea, store all the results ,minapulated by functions.
   
  -
  -(if (or (= ostype "Win32") (= ostype "Cygwin")) ;;设定设备名称，至于S10，也未必一定是S10,具体视cygwin环境
  -	(setq dev "/dev/ttyS10") ;; on win32 with cygwin!
  -	(setq dev DEV0) ;; all linux platform,espcially in openwrt 
  -)
  -
  -(setq dev1 DEV1);; 这儿没有考虑win了
   
   ;;; load策略文件
   (if (file? "base.lsp")
   	(load "base.lsp")
   	(new Tree 'BASE);基本策略，永远在执行得到基本环境信息的功能
  +)
  +(if-not (true? BASE) (new Tree 'BASE)
   )
   
   (define (do_plot arg_file)	
  
positive.code: 		(net-close connection)
  	)		
  )
  
  (define (tcp_8083) ;; tcp 进程,专门处理串口数据
  	
  
negative.code: 							(BASE (string short_address "_PM25") (int tmp))
  							
  								(share base_in_mem (BASE))
  								(setq read_buffer (slice read_buffer  (+ (char (slice read_buffer  (+ pos 1) 1) ) pos 2) ))
  								(setq pos -1)
  						)
  						(and (= (char (slice read_buffer pos 1))  0xa8)  (true? (check_buffer_sum read_buffer pos )) ) ;; 取 voc 有害气体数值， 数值范围只有 是 00 01 10 11 四种可能a8 xx xx ??
  						(begin
  							(setq short_address nil)
  							(setq short_address (format "%04X" (get-int (reverse (slice read_buffer (+ pos 2) 2)))))
  