anchor.diff:    (loop
        for ret = (parse-opcode (next-instruction))
        collecting ret into disasm
  -     until (= *ip* instr-length)
  +     until (>= *ip* instr-length)
        do (advance-ip)
        finally (return disasm)))
   
  
positive.code: (defun load-flags-from-ah ()
    (disasm-instr '("lahf")
      (setf (flags-register nil) (byte-register :ah))))
  
  ;; Binary-coded decimal
  
  
negative.code:     ((= 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))
  