Mercurial > vba-clojure

comparison clojure/com/aurellem/gb/rlm_assembly.clj @ 595:96ee9d72aeb9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
saving progress.... sleepy time :)
author Robert McIntyre <rlm@mit.edu>
date Sat, 01 Sep 2012 13:32:19 -0500
parents 9068685e7d96
children 747d47d96d2f
comparison
equal deleted inserted replaced
594:ea448eecb615 595:96ee9d72aeb9
4 (:use (com.aurellem.gb gb-driver assembly util vbm constants)) 4 (:use (com.aurellem.gb gb-driver assembly util vbm constants))
5 (:import [com.aurellem.gb.gb_driver SaveState])) 5 (:import [com.aurellem.gb.gb_driver SaveState]))
6 6
7 (defn pc-item-writer-program 7 (defn pc-item-writer-program
8 [] 8 []
9 (let [limit 201 9 (let [limit 201 ;; should be more like 92
10 [target-high target-low] (disect-bytes-2 pokemon-list-start)] 10 [target-high target-low] (disect-bytes-2 pokemon-list-start)]
11 (flatten 11 (flatten
12 [[0x00 ;; (item-hack) set increment stack pointer no-op 12 [[0x00 ;; (item-hack) set increment stack pointer no-op
13 0x1E ;; load limit into E 13 0x1E ;; load limit into E
14 limit 14 limit