anchor.diff:  				
   				(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)
  
positive.code: (set 'sid (semaphore))
  (semaphore sid 1);;Ĭϲ0 
  
  
  (if (or (= ostype "Win32") (= ostype "Cygwin")) ;;趨豸ƣS10ҲδһS10,cygwin
  	(setq dev "/dev/ttyS10") ;; on win32 with cygwin!
  
negative.code: 					
  				)
  					
  				((= (trim cmd) "AT&PAN")
  					(if (and (= (length str) 2) (list? str))
  						(begin
  