anchor.diff:  ;;; Flag effects
   
   (defun set-cf-on-add (value)
  -  (setf (flag-p :cf) *has-overflowed*)
  +  (setf (flag-p :cf) *has-carried*)
     value)
   
   (defun set-cf-on-sub (value1 value2)
  
positive.code: 	  (logand (register word) #x00ff)))))
  
  (defun set-byte-reg (reg value)
    (let* ((register-to-word (getf +byte-register-to-word+ reg)) (word (first register-to-word)) (wrapped-value (wrap-overflow value nil)))
      (if (second register-to-word)
  	(setf (register word) (+ (ash wrapped-value 8) (logand (register word) #x00ff)))
  	(setf (register word) (+ wrapped-value (logand (register word) #xff00))))))
  
negative.code:     (getf *registers* reg)))
  
  (defun set-reg (reg value)
    (setf (getf *registers* reg) (wrap-carry value t)))
  
  (defsetf register set-reg)
  
  