anchor.diff:  ;;û˳ģԺķҪʱ ,Ӧֻȷ, openwrt BARRIER BREAKER (Bleeding Edge, r34253)
   ;;newlisp˳ʱûcloseopen handleᱻ close
   ;;Ҫopenwrtʹõ
  +;;̲Ľܻ벻Ե
  +;;Ʋÿ˳ݣѶݣͷд
  +;;ݣܶദûõģopenwrtֻΪҪ
  +
  +;; ģΪԲһˣǶˣԶƽеģҪ˵˳Ҳֻܸݲеʱ˭˭ˡ
  +
   (constant 'PORT1 8085)
   (constant 'PORT2 8086)
   (constant 'ReadMax 138)
  
positive.code: )
  
  (setq dev1 DEV1);; ûпwin
  
  
  (define (strtohex str);;xx xx xx to hex
  
negative.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))
  