;; Replaces sequence:
;;  ld h, a
;;  pop af
;;  or h | and h | xor h
;; With:
;;  pop de
;;  or d | and d | xor d
;;
;; At O1 Level, this happens only with 8 bit operations between h and a

OLEVEL: 1
OFLAG: 12

REPLACE {{
 ld h, a
 pop af
 $1 h
}}

IF {{
  ($1 IN (or, and, xor))
}}

WITH {{
  pop de
  $1 d
}}
