anchor.diff:      (setf (elt flags (- 15 6)) (flag :zf))
       (setf (elt flags (- 15 7)) (flag :sf))
       (when is-word
  +      (setf (elt flags (- 15 8)) (flag :tf))
         (setf (elt flags (- 15 9)) (flag :if))
         (setf (elt flags (- 15 10)) (flag :df))
         (setf (elt flags (- 15 11)) (flag :of)))
  
positive.code: 
  ;;; State variables
  
  (defparameter *flags* '(:af 0 :cf 0 :df 0 :if 0 :of 0 :pf 0 :sf 0 :zf 0) "Flags")
  (defparameter *registers* '(:ax 0 :bx 0 :cx 0 :dx 0 :bp 0 :sp #x100 :si 0 :di 0) "Registers")
  (defparameter *segments* '(:cs 0 :ds 0 :es 0 :ss 0) "Segments")
  (defparameter *ip* 0 "Instruction pointer")
  
negative.code:      (setf (flag-p :zf) (logbitp 6 ,value))
       (setf (flag-p :sf) (logbitp 7 ,value))
       (when ,is-word
         (setf (flag-p :tf) (logbitp 8 ,value))
         (setf (flag-p :if) (logbitp 9 ,value))
         (setf (flag-p :df) (logbitp 10 ,value))
         (setf (flag-p :of) (logbitp 11 ,value)))
  