comparison clojure/com/aurellem/assembly.clj @ 119:6cbea8ab65b6

wrote test case for write-memory skeleton
author Robert McIntyre <rlm@mit.edu>
date Fri, 16 Mar 2012 20:18:54 -0500
parents be4ec0e60c16
children d6f2a06cb128
comparison
equal deleted inserted replaced
118:be4ec0e60c16 119:6cbea8ab65b6
725 725
726 (defn write-memory [] 726 (defn write-memory []
727 (-> (tick (mid-game)) 727 (-> (tick (mid-game))
728 (IE! 0) ; disable interrupts 728 (IE! 0) ; disable interrupts
729 (inject-item-assembly (write-memory-assembly)))) 729 (inject-item-assembly (write-memory-assembly))))
730
731 (defn test-write-memory []
732 (set-state! (write-memory))
733 (dorun
734 (dotimes [_ 5000]
735 (view-memory (step @current-state) current-mode))))
736