anchor.diff:  							(cond 
   								((list? atret)
   									(dolist (x atret)
  -										(share going true)
  +										(semaphore sid 2)
   										(write_string_to_serial x)
   										
   										(sleep 100);;; sleep 100ms to serial  
   									)
  -									(share going nil)
  +									(semaphore sid 1)
   								)
   								((string? atret)
  -										(share going true)
  +										(semaphore sid 2)
   										(write_string_to_serial atret)
  -										(share going nil)
  +										(semaphore sid 1)
   								)
   							)						
   				)
  
positive.code: 							(sleep 200)
  							;(assert buff)
  							
  							(share going true)
  							(write_string_to_serial (chop buff 2))
  							(share going nil)
  							(dotimes (z 50 (= (share talk) 999)) (assert "sleep10\n") (sleep 20) );; sleep Լ500msͽ,ͦģڵķӦ
  							(share talk 0);;  ־read processз
  							(assert (share content))
  
negative.code: 							(cond 
  								((list? atret)
  									(dolist (x atret)
  										(semaphore sid 2)
  										(write_string_to_serial x)
  										(sleep 100);;; sleep 100ms to serial  
  									)
  									(semaphore sid 1)
  								)
  								((string? atret)
  										(semaphore sid 2)
  										(write_string_to_serial atret)
  										(semaphore sid 1)
  								)
  							)
  							
  