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:   (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 (typep (absolute-x cpu) '(unsigned-byte 16)))
      (is (= (absolute-x cpu) (wrap-word (+ (get-word pc-addr) x-reg))))))
  
  (deftest absolute-y
      "The absolute mode should always return the (unsigned-byte 16) pointed to
  
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-byte (+ x-reg (get-byte pc-addr)))
             (getter 'zero-page-x t cpu)))))
  
  (deftest zero-page-y
      "The zero-page-x mode should always return the (unsigned-byte 8) pointed
  