anchor.diff:      ((= opcode #x9d) (pop-flags))
       ((= opcode #x9e) (store-flags-to-ah))
       ((= opcode #x9f) (load-flags-from-ah))
  +    ((= opcode #x8d) (load-effective-address))
       ((= opcode #x27) (decimal-adjust-after-addition))
       ((= opcode #x2f) (decimal-adjust-after-subtraction))
       ((= opcode #x37) (ascii-adjust-after-addition))
  
positive.code: (defun load-flags-from-ah ()
    (disasm-instr '("lahf")
      (setf (flags-register nil) (byte-register :ah))))
  
  ;; Binary-coded decimal
  
  
negative.code:   (loop
       for ret = (parse-opcode (next-instruction))
       collecting ret into disasm
       until (>= *ip* instr-length)
       do (advance-ip)
       finally (return disasm)))
  
  