# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1332749334 18000
# Node ID 22f58fa47c3caef3c1da722c1f3ad8faa1e73acd
# Parent  27ca947084cfa83f6c1602770836b98f5305f089
starting work on unoptimized bootstrap script.

diff -r 27ca947084cf -r 22f58fa47c3c clojure/com/aurellem/exp/cartography
--- a/clojure/com/aurellem/exp/cartography	Sun Mar 25 22:33:17 2012 -0500
+++ b/clojure/com/aurellem/exp/cartography	Mon Mar 26 03:08:54 2012 -0500
@@ -496,7 +496,7 @@
 D351                   |                           T
 D352                   |                           Q
 D353                   \                           T
-D354                   Text Speed                  Q
+D354                   Text Speed (Settings)       Q
 D355                   Badges                      T
 D356                                               Q
 D357                                               T
diff -r 27ca947084cf -r 22f58fa47c3c clojure/com/aurellem/exp/item_bridge.clj
--- a/clojure/com/aurellem/exp/item_bridge.clj	Sun Mar 25 22:33:17 2012 -0500
+++ b/clojure/com/aurellem/exp/item_bridge.clj	Mon Mar 26 03:08:54 2012 -0500
@@ -217,3 +217,41 @@
     ]))
 
 
+
+(def pc-item-list-start 0xD539)
+(def pc-item-list-width 101)
+
+(def corrupted-items-width 512)
+
+(defn items-record
+  ([^SaveState state]
+     (subvec (vec (memory state))
+             item-list-start
+             (+ item-list-start corrupted-items-width)))
+  ([] (items-record @current-state)))
+
+(defn pc-items-record
+  ([^SaveState state]
+     (subvec (vec (memory state))
+             pc-item-list-start
+             (+ pc-item-list-width pc-item-list-start)))
+  ([] (pc-items-record @current-state)))
+             
+(defn print-listing-items
+  ([^SaveState state]
+     (print-listing state item-list-start
+                    (+ item-list-start corrupted-items-width))
+     state)
+  ([] (print-listing-items @current-state)))
+
+(defn print-listing-pc-items
+  ([^SaveState state]
+     (print-listing
+      state
+      pc-item-list-start
+      (+ pc-item-list-width pc-item-list-start))
+     state)
+  ([] (print-listing-pc-items @current-state)))
+  
+                     
+      
\ No newline at end of file
diff -r 27ca947084cf -r 22f58fa47c3c clojure/com/aurellem/exp/notes.txt
--- a/clojure/com/aurellem/exp/notes.txt	Sun Mar 25 22:33:17 2012 -0500
+++ b/clojure/com/aurellem/exp/notes.txt	Mon Mar 26 03:08:54 2012 -0500
@@ -11,7 +11,8 @@
 buy 5 items from viridian store, with the last one being a
 burn-heal.
 
-Perform save corruption.
+Perform save corruption. 
+(save, restart during save, switch 6th pokemon with 9tn)
 
 move one of the other items that wasn't destroyed (but not
 burn-heal) to the money counter to get a bunch of money.
diff -r 27ca947084cf -r 22f58fa47c3c clojure/com/aurellem/gb/items.clj
--- a/clojure/com/aurellem/gb/items.clj	Sun Mar 25 22:33:17 2012 -0500
+++ b/clojure/com/aurellem/gb/items.clj	Mon Mar 26 03:08:54 2012 -0500
@@ -228,4 +228,3 @@
   ([^SaveState state]
      (set-inventory state []))
   ([] (clear-inventory @current-state)))
-
diff -r 27ca947084cf -r 22f58fa47c3c clojure/com/aurellem/gb/util.clj
--- a/clojure/com/aurellem/gb/util.clj	Sun Mar 25 22:33:17 2012 -0500
+++ b/clojure/com/aurellem/gb/util.clj	Mon Mar 26 03:08:54 2012 -0500
@@ -47,7 +47,10 @@
   ([^SaveState state begin end]
      (dorun (map 
              (fn [opcode line]
-               (println (format "0x%04X:  0x%02X" line opcode)))
+               (println (format "0x%04X: 0x%02X %s %d"
+                                line
+                                opcode (binary-str opcode)
+                                opcode)))
              (subvec  (vec (memory state)) begin end)
              (range begin end)))
      state)
diff -r 27ca947084cf -r 22f58fa47c3c clojure/com/aurellem/run/bootstrap_0.clj
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/clojure/com/aurellem/run/bootstrap_0.clj	Mon Mar 26 03:08:54 2012 -0500
@@ -0,0 +1,10 @@
+(ns com.aurellem.run.bootstrap-0
+  (:use (com.aurellem.gb gb-driver vbm))
+  (:use (com.aurellem.run title save-corruption)))
+
+
+(defn-memo boot-0 []
+  [(root) []])
+  
+
+