1.1 --- a/clojure/com/aurellem/run/bootstrap_1.clj	Sat Sep 01 13:32:19 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/bootstrap_1.clj	Sun Sep 02 06:36:57 2012 -0500
     1.3 @@ -800,18 +800,33 @@
     1.4                         0xD162 (+ 0xD162 (count pattern)))
     1.5            pattern))))
     1.6  
     1.7 -(defn-memo launch-main-bootstrap-program
     1.8 +
     1.9 +(defn item-writer-test-script []
    1.10 +  [[]
    1.11 +   (-> (second (control-checkpoint))
    1.12 +       (set-memory-range
    1.13 +        (inc pc-item-list-start)
    1.14 +        (pc-item-writer-program)))])
    1.15 +
    1.16 +
    1.17 +(defn launch-main-bootstrap-program
    1.18    ([] (launch-main-bootstrap-program
    1.19         ;;(control-checkpoint)
    1.20 -       (launch-bootstrap-program)
    1.21 +       ;;(launch-bootstrap-program)
    1.22 +       (item-writer-test-script)
    1.23         ))
    1.24    ([script]
    1.25 -       (->> script
    1.26 -            (play-moves
    1.27 -             (bootstrap-pattern (main-bootstrap-program)))
    1.28 -            (play-moves
    1.29 -             (take 253 (interleave (repeat 1000 [:b])
    1.30 -                                   (repeat 1000 [])))))))
    1.31 +     (->> script
    1.32 +          (play-moves
    1.33 +           (bootstrap-pattern (main-bootstrap-program)))
    1.34 +          ;; I'd like to just press b here, but I can't
    1.35 +          ;; because the smallest item with item id >= 75 is
    1.36 +          ;; TM01, which has value 201.
    1.37 +          ;; (* 2 (- 201 75)) == 252, which plus 1 is 253 here :(
    1.38 +          ;;(play-moves [[:b]])
    1.39 +          (take 253 (interleave (repeat 1000 [:b])
    1.40 +                                (repeat 1000 []))))))
    1.41 +             
    1.42  (def bootstrap-start pokemon-list-start)
    1.43  
    1.44  (defn test-main-bootstrap-integrety