anchor.diff:  								(setq tmp (get-int (slice read_buffer (+ pos 4) 2)))
   								(BASE (string  short_address "_TEMP") (int tmp))
   								(save "base.lsp" 'BASE)
  +								
   								(share base_in_mem (BASE))
  -								(setq read_buffer (slice read_buffer  (char (nth (+ pos 1)  read_buffer) )))
  -							)
  -							(and (= (char (nth pos read_buffer))  0xa1)  (true? (check_buffer_sum read_buffer)) ) ;; shi度,
  +								(setq read_buffer (slice read_buffer  (+ (char (slice read_buffer  (+ pos 1) 1) ) pos) ))
  +								(setq pos -1)
  +							)
  +							(and (= (char (slice read_buffer pos 1))  0xa1)  (true? (check_buffer_sum read_buffer)) ) ;; shi度,
   							(begin
   								(setq tmp nil)
   								(setq short_address nil)	
   								(setq short_address (format "%04X" (get-int (reverse (slice read_buffer (+ pos 2) 2)))) )
   								(setq tmp (get-int (reverse (slice read_buffer (+ pos 4) 2))))
   								(BASE (string  (slice short_address 0 4) "_HUMI") (int tmp));; humidity 
  +								
   								(share base_in_mem (BASE))
  -								(setq read_buffer (slice read_buffer  (char (nth (+ pos 1)  read_buffer) )))
  +								(setq read_buffer (slice read_buffer  (+ (char (slice read_buffer  (+ pos 1) 1) ) pos) ))
  +								(setq pos -1)
   							)
   					
  -							(and (= (char (nth pos read_buffer))  0x02)   (true? (check_buffer_sum read_buffer)) );;;取子节点短地址0x02 len xx xx mmmmmmmm.,0x02+len+短地址+Mac地址
  +							(and (= (char (slice read_buffer pos 1))  0x02)   (true? (check_buffer_sum read_buffer)) );;;取子节点短地址0x02 len xx xx mmmmmmmm.,0x02+len+短地址+Mac地址
   							(begin
   								(setq short_address nil)
   								(setq short_address (format "%04X" (get-int (reverse (slice read_buffer (+ pos 2) 2)))))
  
positive.code: 								(setq tmp 3)
  							) 
  							(BASE (string short_address "_PM25") (int tmp))
  							(share base_in_mem (BASE))
  							(setq read_buffer (slice read_buffer  (char (nth (+ pos 1)  read_buffer) )))	
  						)
  						(and (= (char (nth pos read_buffer))  0xa8)  (true? (check_buffer_sum read_buffer)) ) ;; 取 voc 有害气体数值， 数值范围只有 是 00 01 10 11 四种可能a8 xx xx ??
  						(begin
  							(setq short_address nil)
  							(setq short_address (format "%04X" (get-int (reverse (slice read_buffer (+ pos 2) 2)))))
  
negative.code: 							(if (nil? tmp) (setq tmp -1)
  							)
  							(BASE (string (slice short_address 0 4) "_VOC") (int tmp))
  								(share base_in_mem (BASE))
  								(setq read_buffer (slice read_buffer  (+ (char (slice read_buffer  (+ pos 1) 1) ) pos) ))
  								(setq pos -1)		
  						)
  						(and (= (char (slice read_buffer pos 1))  0xb2)  (true? (check_buffer_sum read_buffer)) ) ;; Ports log
  						(begin
  							(setq short_address nil)
  							(setq short_address (format "%04X" (get-int (reverse (slice read_buffer (+ pos 2) 2)))))
  							(setq tmp (get-int (slice read_buffer (+ pos 4) 1 )))
  							(setq status  (get-int (slice read_buffer (+ pos 5) 1 )))
  							(BASE (string (slice short_address 0 4) "_PORT_" tmp) status)
  								(share base_in_mem (BASE))
  								(setq read_buffer (slice read_buffer  (+ (char (slice read_buffer  (+ pos 1) 1) ) pos) ))
  								(setq pos -1)
  						)
  					)
  					(++ pos)
  				)
  				(setq handle_over_flag true)
  			)		
  