anchor.diff:  (constant 'ReadMax 138)
   (constant 'SIGINT 2)
   (constant 'DEV0 "/dev/ttyUSB0")
  -(constant 'DEV1 "/dev/ttyUSB1")
  +(constant 'DEV1 "/dev/ttyATH0")
   
   (define (get-parent_id) (sys-info 6))
   (define (getpid) (sys-info 7))
   
  +(change-dir "/usr/share")
   (define (assert)
   	
   	(setq ret  "") 
  
positive.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)
  
negative.code: 							(share talk 1)
  							(sleep 200)
  							;(assert buff)
  							(semaphore sid 2)
  							(write_string_to_serial (chop buff 1))
  							(semaphore sid -1)
  							
  							(setq abctimer 0)
  							(dotimes (z 50 (= (share talk) 999)) (setq abctimer z) (sleep 20) );; sleep Լ500msͽ,ͦģڵķӦ
  							
  							(assert abctimer " times sleep over\n")
  							(share talk 0);;  ־read processз
  							(assert (share content))
  							(assert "\n")
  