# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1331949328 18000
# Node ID e85b53994fac0c93f94724bf1da89244a744c6b0
# Parent  744de3427c0597d6ddd00f7b72e7b9e86d377f41
working on proper timing for modes

diff -r 744de3427c05 -r e85b53994fac clojure/com/aurellem/assembly.clj
--- a/clojure/com/aurellem/assembly.clj	Fri Mar 16 20:48:12 2012 -0500
+++ b/clojure/com/aurellem/assembly.clj	Fri Mar 16 20:55:28 2012 -0500
@@ -602,7 +602,7 @@
    0x18   ;D380                    ; Declaration of variables
    0x05   ;D381                    ;  5 variables:
    0x00   ;D382                    ;    current-mode
-   0x00   ;D383                    ;    bytes-left-to-write
+   0x00   ;D383                    ;    bytes-to-write
    0x00   ;D384                    ;    start-point
    0x00   ;D385                    ;    unused
    0x00   ;D386                    ;    unused
@@ -775,4 +775,19 @@
   (dorun
    (dotimes [_ 5000]
      (view-memory (step @current-state) current-mode))))
-		
\ No newline at end of file
+
+(def bytes-to-write 0xD383)
+(def start-point 0xD384)
+
+(defn test-mode-2 []
+  (->
+   (write-memory)
+   (view-memory bytes-to-write)
+   (view-memory start-point)
+   (step)
+   (step [:a])
+   (step [:b])
+   (step [:start])
+   (step [])
+   (view-memory bytes-to-write)
+   (view-memory start-point)))
\ No newline at end of file