1.1 --- a/clojure/com/aurellem/run/bootstrap_1.clj	Wed Apr 11 09:14:51 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_1.clj	Wed Apr 11 10:47:27 2012 -0500
     1.3 @@ -1,5 +1,5 @@
     1.4  (ns com.aurellem.run.bootstrap-1
     1.5 -  (:use (com.aurellem.gb saves gb-driver util
     1.6 +  (:use (com.aurellem.gb saves gb-driver util constants
     1.7                           items vbm characters money))
     1.8    (:use (com.aurellem.run util title save-corruption bootstrap-0))
     1.9    (:use (com.aurellem.exp item-bridge))
    1.10 @@ -8,7 +8,7 @@
    1.11  (defn pc-item-writer-program
    1.12    []
    1.13    (let [limit 201
    1.14 -        [target-high target-low] (disect-bytes-2 0xD162)]
    1.15 +        [target-high target-low] (disect-bytes-2 pokemon-list-start)]
    1.16      (flatten
    1.17       [[0x00  ;; (item-hack) set increment stack pointer no-op
    1.18         0x1E  ;; load limit into E