anchor.diff:    (for-all ((pc-addr (gen-integer :min 0 :max #xffff))
               (y-reg (gen-integer :min 0 :max #xff)))
       (setf (cpu-pc cpu) pc-addr (cpu-yr cpu) y-reg)
  -    (is (typep (absolute-y cpu) '(unsigned-byte 16)))
  -    (is (= (absolute-y cpu) (wrap-word (+ (get-word pc-addr) y-reg))))))
  +    (is (= (wrap-word (+ (get-word pc-addr) y-reg))
  +           (getter 'absolute-y t cpu)))))
   
   (deftest indirect
       "The indirect mode should always return the (unsigned-byte 16) pointed to
   by the word pointed to by the Program Counter."
     (for-all ((pc-addr (gen-integer :min 0 :max #xffff)))
       (setf (cpu-pc cpu) pc-addr)
  -    (is (typep (indirect cpu) '(unsigned-byte 16)))
  -    (is (= (indirect cpu) (get-word (get-word pc-addr))))))
  +    (is (= (get-word (get-word pc-addr)) (getter 'indirect t cpu)))))
   
   (deftest indirect-x
       ""
  
positive.code: and name described."
    (6502::defaddress xreg (:cpu-reg t) (cpu-xr cpu))
    (6502::defaddress foo () 256)
    (setf (foo cpu) 8)
    (setf (xreg cpu) 9)
    (is (= 8 (get-byte 256)))
    (is (= 9 (cpu-xr cpu)))
    (is (= 17 (+ (xreg cpu) (get-byte (foo cpu))))))
  
negative.code:   (for-all ((pc-addr (gen-integer :min 0 :max #xffff))
              (x-reg (gen-integer :min 0 :max #xff)))
      (setf (cpu-pc cpu) pc-addr (cpu-xr cpu) x-reg)
      (is (= (wrap-word (+ (get-word pc-addr) x-reg))
             (getter 'absolute-x t cpu)))))
  
  (deftest absolute-y
      "The absolute mode should always return the (unsigned-byte 16) pointed to
  