Mercurial > vba-clojure

diff clojure/com/aurellem/gb/rlm_assembly.clj @ 596:747d47d96d2f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
determined that I cannot shorten the long B sequeuce during bootstrap.
author Robert McIntyre <rlm@mit.edu>
date Sun, 02 Sep 2012 06:36:57 -0500
parents 96ee9d72aeb9
children
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/gb/rlm_assembly.clj	Sat Sep 01 13:32:19 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/rlm_assembly.clj	Sun Sep 02 06:36:57 2012 -0500
     1.3 @@ -6,10 +6,11 @@
     1.4  
     1.5  (defn pc-item-writer-program
     1.6    []
     1.7 -  (let [limit 201 ;; should be more like 92
     1.8 +  (let [;;limit 75
     1.9 +        limit 201 ;; (item-hack 201 is the smallest I could make this.) 
    1.10          [target-high target-low] (disect-bytes-2 pokemon-list-start)]
    1.11      (flatten
    1.12 -     [[0x00  ;; (item-hack) set increment stack pointer no-op
    1.13 +     [[0x00  ;; (item-hack) no-op (can't buy repel (1E) at celadon)
    1.14         0x1E  ;; load limit into E
    1.15         limit
    1.16         0x3F  ;; (item-hack) set carry flag no-op
    1.17 @@ -494,7 +495,7 @@
    1.18          moves (map (comp buttons (partial - 15)) nybbles)
    1.19          header (map buttons
    1.20                      (concat (repeat
    1.21 -                             50
    1.22 +                             23 ;; found by manual binary search
    1.23                               (- 15 (first nybbles)))
    1.24                              [(first nybbles)]))]
    1.25      (assert (no-consecutive-repeats? nybbles))