# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1332319126 18000
# Node ID 5ce074824faced76f024b2785f3dbe0a0522de22
# Parent  8665160f0f3d3306ace4e23f0ea3122e2b7c4416
made functions more convienent for repl use.

diff -r 8665160f0f3d -r 5ce074824fac clojure/com/aurellem/exp/item_bridge.clj
--- a/clojure/com/aurellem/exp/item_bridge.clj	Wed Mar 21 03:31:12 2012 -0500
+++ b/clojure/com/aurellem/exp/item_bridge.clj	Wed Mar 21 03:38:46 2012 -0500
@@ -62,7 +62,7 @@
                (conj pcs (first (registers))))))))
 
 (defn loop-program []
-  [0xF3     ;0xD31D  ;; disable-interrupts
+  [0x00     ;0xD31D  ;; disable-interrupts
 
    0xC3     ;; loop forever
    0x1D
@@ -71,14 +71,14 @@
 (def map-function-address-start 0xD36D)
 
 (defn test-loop []
-  (capture-program-counter
+  (continue!
    (-> (mid-game) 
        (set-memory-range 0xD31D (loop-program))
        (set-memory-range
         map-function-address-start
-        [0xD3 0x1D])
-       (IE! 0))
-   1000))
+        [0xD3 0x1D]))))
+       
+
 
 
 (defn-memo corrupt-moves []
diff -r 8665160f0f3d -r 5ce074824fac clojure/com/aurellem/gb/util.clj
--- a/clojure/com/aurellem/gb/util.clj	Wed Mar 21 03:31:12 2012 -0500
+++ b/clojure/com/aurellem/gb/util.clj	Wed Mar 21 03:38:46 2012 -0500
@@ -34,10 +34,13 @@
                    (binary-str (reg-fn state))))
   state)
 
-(defn view-memory [state mem]
-  (println (format "mem 0x%04X = %s" mem
-                   (binary-str (aget (memory state) mem))))
-  state)
+(defn view-memory
+  ([^SaveState state mem]
+     (println (format "mem 0x%04X = %s" mem
+                      (binary-str (aget (memory state) mem))))
+     state)
+  ([mem]
+     (view-memory @current-state mem)))
 
 (defn print-listing [state begin end]
   (dorun (map 
@@ -47,13 +50,17 @@
           (range begin end)))
   state)
 
-(defn print-pc [state]
-  (println (format "PC: 0x%04X" (PC state)))
-  state)
+(defn print-pc
+  ([^SaveState state]
+     (println (format "PC: 0x%04X" (PC state)))
+     state)
+  ([] (print-pc @current-state))) 
 
-(defn print-op [state]
-  (println (format "OP: 0x%02X" (aget (memory state) (PC state))))
-  state)
+(defn print-op
+  ([^SaveState state]
+     (println (format "OP: 0x%02X" (aget (memory state) (PC state))))
+     state)
+  ([] (print-op @current-state)))
 
 (defn d-tick
   ([state]