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 (zero-page-y cpu) '(unsigned-byte 8)))
  -    (is (= (wrap-byte (+ y-reg (get-byte pc-addr))) (zero-page-y cpu)))))
  +    (is (= (wrap-byte (+ y-reg (get-byte pc-addr)))
  +           (getter 'zero-page-y t cpu)))))
   
   (deftest absolute
       "The absolute mode should always return the (unsigned-byte 16) pointed to
   by the Program Counter."
     (for-all ((pc-addr (gen-integer :min 0 :max #xffff)))
       (setf (cpu-pc cpu) pc-addr)
  -    (is (typep (absolute cpu) '(unsigned-byte 16)))
  -    (is (= (get-word pc-addr) (absolute cpu)))))
  +    (is (= (get-word pc-addr) (getter 'absolute t cpu)))))
   
   (deftest absolute-x
       "The absolute mode should always return the (unsigned-byte 16) pointed to
  
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))
              (y-reg (gen-integer :min 0 :max #xff)))
      (setf (cpu-pc cpu) pc-addr (cpu-yr cpu) 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 (= (get-word (get-word pc-addr)) (getter 'indirect t cpu)))))
  
  (deftest indirect-x
      ""
  