# HG changeset patch
# User Dylan Holmes <ocsenave@gmail.com>
# Date 1332152434 18000
# Node ID aa5b5927e5fef572a163eb82ab3266b74238f361
# Parent  74ec1ac044bbb05c5136043cd48eb02aa88106ac
added driver for dylan's code, verified that it works.

diff -r 74ec1ac044bb -r aa5b5927e5fe clojure/com/aurellem/assembly.clj
--- a/clojure/com/aurellem/assembly.clj	Mon Mar 19 05:12:05 2012 -0500
+++ b/clojure/com/aurellem/assembly.clj	Mon Mar 19 05:20:34 2012 -0500
@@ -673,7 +673,7 @@
    0x00 ;; var: thing to execute [D374]
 
    0x18 ;; end frame
-   0xA8 ;; TODO: set jump correctly
+   0xA8
    ]
   )
 
@@ -1367,8 +1367,8 @@
         (tick) ;; just complemented A
 
         (tick)
-        (DE! 0x0800)
-        (AF! 0xCF00) ;; change inputs @ A
+        (DE! 0x1800)
+        (AF! 0x7700) ;; change inputs @ A
         (tick)
         (tick)
         (tick)
@@ -1383,7 +1383,8 @@
         (tick)
         (tick)
         (tick)
-
+        (tick)
+        (tick)
         (d-tick)
 
         
@@ -1400,8 +1401,27 @@
   
 
 
-
-
+(defn drive-dylan []
+  (-> (write-mem-dyl)
+      (#(do (println "memory from 0xC00F to 0xC01F:"
+                     (subvec (vec (memory %)) 0xC00F 0xC01F)) %))
+      (step [])
+      (step [])
+      (step [])
+      (step [:start])
+      (step [:select])
+      (step [:u :d])
+      (step [:a :b :start :select])
+      (step [:a])
+      (step [:b])
+      (step [:a :b])
+      (step [:select])
+      (step [])
+      (step [])
+      (step [])
+      (#(do (println "memory from 0xC00F to 0xC01F:"
+                     (subvec (vec (memory %)) 0xC00F 0xC01F)) %))
+      ))
 
 (defn test-mode-4
   ([] (test-mode-4 (write-memory)))