1.1 --- a/clojure/com/aurellem/assembly.clj	Fri Mar 16 20:48:12 2012 -0500
     1.2 +++ b/clojure/com/aurellem/assembly.clj	Fri Mar 16 20:55:28 2012 -0500
     1.3 @@ -602,7 +602,7 @@
     1.4     0x18   ;D380                    ; Declaration of variables
     1.5     0x05   ;D381                    ;  5 variables:
     1.6     0x00   ;D382                    ;    current-mode
     1.7 -   0x00   ;D383                    ;    bytes-left-to-write
     1.8 +   0x00   ;D383                    ;    bytes-to-write
     1.9     0x00   ;D384                    ;    start-point
    1.10     0x00   ;D385                    ;    unused
    1.11     0x00   ;D386                    ;    unused
    1.12 @@ -775,4 +775,19 @@
    1.13    (dorun
    1.14     (dotimes [_ 5000]
    1.15       (view-memory (step @current-state) current-mode))))
    1.16 -		
    1.17 \ No newline at end of file
    1.18 +
    1.19 +(def bytes-to-write 0xD383)
    1.20 +(def start-point 0xD384)
    1.21 +
    1.22 +(defn test-mode-2 []
    1.23 +  (->
    1.24 +   (write-memory)
    1.25 +   (view-memory bytes-to-write)
    1.26 +   (view-memory start-point)
    1.27 +   (step)
    1.28 +   (step [:a])
    1.29 +   (step [:b])
    1.30 +   (step [:start])
    1.31 +   (step [])
    1.32 +   (view-memory bytes-to-write)
    1.33 +   (view-memory start-point)))
    1.34 \ No newline at end of file