anchor.diff:  )
   
   (define (get_base_info) ;; ԣһֱͣĻĿǰݣݿ
  +	(setq sleep_time 0)
   	(while 1
   		(if (= (semaphore sid) 1)
   			(begin
  
positive.code: 				
  				(setq read_data (read_serial dev) ) ;; ԶȴݵĽͻȻzigbeeˣҲ˳
  				;(sleep 100);;; make a delay to make sure data received
  				(assert read_data)
  				(if (= (share talk) 1)
  					(begin
  						(share content read_data)
  
negative.code:     (write_serial ret len)
  )
  
  ;;;
  (define (hanle_serial_data data);; ԴڵݣϾǵõݣݿ⣬ҪĺĹ
  ;; Ҫdata,һֻݣҲǼֻճһϷģ磬¶Ȼ¶+ʪ
  ;; ÿݳΨһԵͷ֮⣬Ϸ豸Ķ̵ַĸ
  