1.1 --- a/clojure/com/aurellem/assembly.clj	Fri Mar 16 17:03:05 2012 -0500
     1.2 +++ b/clojure/com/aurellem/assembly.clj	Fri Mar 16 17:50:35 2012 -0500
     1.3 @@ -438,20 +438,20 @@
     1.4          0xD3   ;    
     1.5          ])))
     1.6  
     1.7 -
     1.8 -
     1.9 -
    1.10  (defn print-listing [state begin end]
    1.11    (dorun (map 
    1.12            (fn [opcode line]
    1.13              (println (format "0x%04X:  0x%02X" line opcode)))
    1.14            (subvec  (vec (memory state)) begin end)
    1.15 -          (range begin end))))
    1.16 +          (range begin end)))
    1.17 +  state)
    1.18    
    1.19 -                    
    1.20 +(defn test-input-number
    1.21 +  "Input freestyle buttons and observe the effects at the repl."
    1.22 +  []
    1.23 +  (set-state! (input-number)) 
    1.24 +  (dotimes [_ 90000] (step (view-memory @current-state 0xD352))))
    1.25  
    1.26  
    1.27  
    1.28  
    1.29 -
    1.30 -