# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1333883489 18000
# Node ID 4e0b64ea7b66da22ea43def2b8f2d3efa1a75134
# Parent  bf9b9777c3ce2115020c6a5ab178d7e0b53c1ae9
completed testing of item-writer; looks good.

diff -r bf9b9777c3ce -r 4e0b64ea7b66 clojure/com/aurellem/run/bootstrap_0.clj
--- a/clojure/com/aurellem/run/bootstrap_0.clj	Sun Apr 08 05:48:13 2012 -0500
+++ b/clojure/com/aurellem/run/bootstrap_0.clj	Sun Apr 08 06:11:29 2012 -0500
@@ -973,7 +973,7 @@
       ;; input second nybble
 
       0x0C ;; inc C
-      0x37 ;; (item-hack) set-carry flag no-op
+      0x0C ;; inc C
 
       0x00 ;; (item-hack) no-op
       0xE6 ;; select bottom bits
@@ -1020,8 +1020,6 @@
 
        ])))
 
-
-
 (defn test-item-writer []
   (-> (read-state "bootstrap-init")
       (set-memory pc-item-list-start 50)
@@ -1031,3 +1029,18 @@
       (set-memory-range
        (inc pc-item-list-start)
        (item-writer 0xD162 201 0xD162))))
+
+
+(defn item-writer-state []
+  (read-state "item-writer"))
+
+(defn test-item-writer-2 []
+  (let [orig (item-writer-state)]
+    (-> orig
+    (print-listing 0xD162 (+ 0xD162 20))
+    (run-moves (reduce
+                concat [[:a] [:b]]
+                (repeat 5 [[:a :b :start :select] []])))
+    ((fn [_] (println "===========") _))
+    (print-listing 0xD162 (+ 0xD162 20)))))
+             
\ No newline at end of file
diff -r bf9b9777c3ce -r 4e0b64ea7b66 save-states/item-writer.sav
Binary file save-states/item-writer.sav has changed