anchor.diff:  	(new Tree 'BASE);ԣԶִеõϢĹ
   )
   
  -
  +(define (hextostring hex_buf); xxxxxxx to xx xx xx xx
  +	(setq nr (length hex_buf))
  +	(setq ret "")
  +	(setq upk_lst (unpack (dup "b " nr) hex_buf))
  +
  +	(dolist (y upk_lst)
  +		(extend ret (format "%02x " y))
  +	)
  +	
  +	(chop ret 1)
  +)
   
   (define (strtohex str);;xx xx xx to hex
   	(setq bn (length (parse str " ")))
  
positive.code: 				
  				(BASE (string (format "%04X" short_address) "_Temp") tmp)
  				(save "base.lsp" 'BASE)
  				(setq pos (+ pos 2))
  			)
  			(++ pos);; Ĭһһӣһλǰ
  
negative.code: 	)		
  )
  
  
  (define (read_serial dv)
      (setq ret "")
      (setq nr -1)
  