1.1 --- a/clojure/com/aurellem/run/image.clj	Wed Jun 20 21:41:38 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/image.clj	Wed Jun 20 22:08:56 2012 -0500
     1.3 @@ -466,31 +466,30 @@
     1.4                        (drop 255 data))])))))
     1.5  
     1.6  (defn test-write-data []
     1.7 -  (let [test-data (repeat 3 0xD3)
     1.8 +  (let [test-data [0xDE 0xAD 0xBE 0xEF]
     1.9          base-address 0xA000
    1.10 -        target-address 0xA500
    1.11 +        target-address 0xC000
    1.12  
    1.13          test-kernel
    1.14          (flatten
    1.15           [0xF3 ;; disable interrupts
    1.16            (write-data (+ 1 base-address)
    1.17                        target-address test-data)
    1.18 +          (clear-music-registers)
    1.19            (infinite-loop)])]
    1.20 -;;    (assert
    1.21 -  ;;   (= test-data
    1.22 -    (-> (mid-game)
    1.23 -        tick tick tick
    1.24 -        (set-memory-range base-address test-kernel)
    1.25 -        (PC! base-address)
    1.26 -
    1.27 -        ;;(run-moves (repeat 100 []))
    1.28 -        ;;(memory)
    1.29 -        ;;vec
    1.30 -        ;;(subvec target-address
    1.31 -        ;;        (+ target-address
    1.32 -        ;;           (count test-data)))
    1.33 -        ;;println
    1.34 -        )))
    1.35 +    (assert
    1.36 +     (= test-data
    1.37 +        (-> (mid-game)
    1.38 +            tick tick tick
    1.39 +            (set-memory-range base-address test-kernel)
    1.40 +            (PC! base-address)
    1.41 +            
    1.42 +            (run-moves (repeat 100 []))
    1.43 +            (memory)
    1.44 +            vec
    1.45 +            (subvec target-address
    1.46 +                    (+ target-address
    1.47 +                       (count test-data))))))))
    1.48  
    1.49      
    1.50